-not a Macintosh disk-ChJ@ICBH@% YNP"N,L 8!"@$|Gn"`I N.@A,H<( F<B<H111.Bx<kNNF`, 8! "NH@"|J(g g`LNu"_ |a||a0@||9݁g|w|a||NH瀀 |(_@"g2<@gBA?N`Fa`||aPLNu  fBR$N"NBH@&|݁ |B$<0HN~NL@dBgg>N&|)`RNuBBBA*2h/ BBB N _"_$_"H&|݁ |B$<0NNd 0<`L$|J HA H  2I<FFI<<FFfHHFFfHHH?B@L"_2N _0H 2<@I6@o Az:<2`6@oJA~:<26" @n2BDBB(`EB@nAJEkz`z2<HAIL0.NL0.N  / p? O@ 0  0  XO _,_2_!.NBBB/ BBBN08 @ gNu@ f"_E!NH\O/ ?`@&x|N _!@"|xEz En"`CE"|xN"Ҹ< A  33"|@E E4n"`C&E"|@.N _LHNFLN*8&E@<<'CJJKK f`  f `><$CS*<FF4>BRIBC Gff&<CBSC`D GnKG45BQf` f `Ns |0< BXHQ!4 _$_"_!XOHH/8/ $ f0<? QN ! N.x $_$ g ! N.x !C !!LLyp!N\OFN  l0P߀ Aǀ`  6lo6@ 0_an*>]> j 56, l602  ۰Poo A` &ll6p@ 0?۷a?^ ꭕ 5o6, l602 8!ED91kE"0369? CoNGNOS BOOT FAILED TRY A NEWER MACHINE AND BOOT PROM _"_NN/A lNNu _.NHL$ orD?|?@?e\SFk!!QSWk:CL<HL|hH>L|4H>L|H>SWjTO>SGk\!Q`TSFk QSWk8L|H|L|H|4L|H|hL|H|LSGkQLx _O NNVH8=| f=|G* G, &N(N n"n$n 0.  S@ZeJ S@BBDBG S@gg.BC CJDg720faL`fa:` 320f8<S@`JDg  fa$` fa`  U@o$SBjt`(N&N><`JGg (Ev#$#$QNukJDg`g 3$f(N`BnLN^ _NUNPACK H>8$O&j.(j4,*8:*,BB6*2SCCn`8CL0@D@04"F K0HEY@2< Vb,g`aJaBVgbHE6SCCo`p`HE4RBCo8B@ j(0 j$L| _pN am znNu _"_$_$0H2< @`Q`BQBNNV;n *N^.NuEVINIT NVH,. ^J]g n0`4B?N. f n0`/.//. /.N6(n)FLN^ _NEAD_BLONV/ (n Jno./.?././ /.Nj nJPg`RSn`(_N^ _NEAD_SEQHNT"|E.|r |BBByBygRBf~NuLHPPNqNqpS_n.0<QLHPPNqNqpS_n|~By&JM*Np|azJGfb|a|,Mpa`JGfH|a<<AaJGf0Avtp BQvr BQH@02N\LhL"4NtB@6Kd a"JDf`02IP g a JDf`Nub SBg pxNuBDNu><Nu4< vB@bp2IPSCfSBfNuppB@(4<dBC(4< CBC(C"H4<BACSBf(CAg><NuJoNV?-,N.H|)?NN^ _TONRAP NV.HgVS@g`J.f& -`мS//<N/<NB+_`-m` . ѭ` -`o<Np`B . \J.f/-\/<N4/<N+_\-m\ -\l<N,N^ _PONGETSPACNV .мS//<N/<N-_ .=@ N^.NuINDSPARNVH.. Bg/N0Hހ m0.@I/./<N 8//<Np @n ?.Bg?<BgNLN^ _ NETMMU NVH+| d+|l+|(+||+|+|t+|(|;TV(|;T|(|.;Tz&| n!SLN^.NuETVARS NVH/Nt;| .䐼/+@ .м/м+@+|`*<(< E"D +@\&|?-|0-VS?NHnHmJNJngp+@JBBg/-BgNz+_ -Э+@XBB<0<H/BgNPN+_P+mPBG` m @I G~V GTVgd Gl|p@ @8`$ Gf|p@BT`| p@BT H< @"@=A?.??<BgNRG Gox mI|p@BT mIP|p@/-P/<N* 8LN^NuOOTINITNVH(nB BgNBgNHH,BgN0HѬ f,/, N"BgNBgNHH,BgN0HѬ f,/, NBgNrBgNjHH,BgN0HѬ f:Jf< N/, NBgN2BgN*HH,BgNb0HѬ g<NLBN,BN+_ n/BN|  _r Ё0p//-`N/-/-`N&m`:=E E0o<N0<H+@l+| -lЭd n2HҀ -Ё"-Ҁ(Bg Э/N0Hѭ -Є+@B</-BgN+_+mh -dЭh+@p -lЭp, n0HІ+@ -Э+@ -Э+@?<f/-/-?<Nb-m/ /./-N n LN^ _ NUILD_SYNVH(nBGBF. gB `P-n n0. PoB."` n0. A-H&n/+/<N  n0>+<+/, NBgN<BgN4HH-@BgNj0H(٬ JVJ_gB."`4JGW WJGV WgJFf n `H n n/B."n/BgN2  _ BNB-_JGf n Q/ n P/Nr` Q@H/ n P/NZ|B. n=h-nA-H n-P/./.p/N JGgR-mBg n/( n r Ё/ n P/ nP/ | ? Q@?N9_Jlg< N, nQ f|"LN^ _NOADSEG NVHBBg/-tBgN+_x -x"-Ҁ+At(|`p}//<Nn -Пx((|p}//<NN -Пx(?<}/-x/-t?<N&|BSLN^.NuLLOC_SCNVHAC 0BgHnNz_m+m-gBBg/-BgNP+_`+m-gBBg/<BgN, м,BgBgBHnBgHnHnBg/.N g<NACD 0BgHnN  g B-n`.BgBgBHnBgHnHnBg/.Nx g<Nf .@+@ -Э+@` B -@+@ -м@+@?</-/-?<N@ <逐.JfB` .ЇP-@JfB` .ЇP-@-g -Ї/ -Ї//./.N`/-/-BBN(|p((|t(LN^.NuOAD_DEB SYSTEM.DEBUG2 SYSTEM.DEBUGNVH nCJp"S@n2&n (nBBgHnN dgZB /, N NBgN BgN HH(BgN0H* f&.B</BgN&B /, N //NlLN^ _ NOAD_UNPNVBgBgBHn</. /.Bg/.N g<NN^ _ NOAD_LLDNVH(n 0-N|>Jg,, .* Ю(H//<N( Д-@`,.(.H//<N-_?//?<N. .P/NdLN^ _NNSTALL_NVH(n=n ~`/, N BgN p_BgN fHH(BgN 0H-@Jg .Ѭ `<N~ .fBN (BN ( GfAB0pB5pB`ACZ 0z`BgN _ .ARE EoHn?<?<HnNAC 0HnHzNg(AB0pp @AB @AB`2HnHzNPgAB0pB5pB`App| 5pgnBg?/.Hn @AHp @AHp</.NX g<NF?. @A/0 @A"0Ҽ/?<NHRGinoLLN^ _ NOADCODEkrni NVBBg/-BgN+_?<e/-/-?<NN^.NuAKESUPSNVH(m . R A T&@-kLN^ _ NINDMAINNVBg/-NF0HѭB</-BgNx+_?<g/-/-?<N\Bg/-|N 0Hѭ|B</-|BgN>+_?<{/-/-|?<N"N^.NuLLOC_OPNV A0C ArC 0AC 0/NLHnHm/NFBgHn0N g< NHnHn/NBgHnrN g<N^/NZBg/.Hn$/N;_N/./.Hm/N-UgNj/.$?-N/N@/N2 n /B/.$0-NH//NR  _ /NBNj+_N^ _PONOADSYS $ SYSTEM.UNPACK SYSTEM.OS SYSTEM.LLDN :NV,_NUvN ,+|v mv PVD@UNHmHmNHm?- -|Э//-NzNZN N]N NuN^NuOADER NVHAv(HA^&HHn?-.0-0H".Ҁ// / NrJng<NLN^.NuEAD_PAGNV0.HBH"-DҀ-A0.HBH@J@=@/.NvAv0.HЈ-@ N^ _TONIND_SENNVBH nCJp"S@n2 n BBgA/A/Nz-m2Av(H&L U.=m6B|`A^-HHAv(BE`:HnN?-.0-0H".ҀH҅///.HNhؼJnNg<NRE Eom6l^Bn So4 X/ U/0S@?A/?<$Hn/. N n gRn G0.D@@20HҌ-A n-P`/ /?A/?<$Hn/. NRFinBo$ n g< G0.D@@20HҌ-A/.HnP?<NN n/B?.vN4  _ LN^ _ ND_SEARCNVH n-h .S/0-:H/N ;@Z-n p+@V;m:\BF` AvIBBlRF Fo=mHnNBgHn?->N>H/p6/NNZBp6/A/NACp S@n0HnN^J.gHHnHnN .Wgz n/B?.N  _ `SFRGm>fBGBNJFfELN^ _PONOOKUP_ENVH.<A"G";n .;m.,?.?-.N;n0BN&Av(HJg<NH;l~:+lD;lB;l>;l@;l<;T8;l26+l.2 2f<N m8lB?,N&_+SH+kL+kPLN^.NuNITMEDINV m8lBg/.HnN2_`/.HnHnNn .gB/.N-_N^.NuPENINPUNVH(.BGBF Go<NR Av:0JEf<N8 EHl@ AvH"Ұ n n Jf<NHH " n ``RGE`LN^ _ NIND_POSNV-mV/.0-:H/N+_VJV]2-ZHV]g<N0-:H/-V/N2 .;@\ -Vg/-VHnHnN/.N"N^.NuILLBUF NV0-\m:f -VR2-:H//NNT0-\AvpRm\N^NuETBYTE NVHBgNHH<BgNH>JGl H м> G=@LN^NuETWORD NVHBgN0H//<ND,BgN0H.Jl޼ Ї-@LN^NuETLONG NVH,. 0-:m\>HǼl>JGo0-\AvA//.H/NH߮Hǜm\0-:HnJV]2-ZHV]g<N -VR/HnHnNn-nA^(H/0-:H/N*l-EJoZHn?-.0-0H".Ҁ/?././ NjJng<N~0-:H/./N(ٮ .Ѯ .ѭV`:Jo -VR2-:H//NNhJfLN^ _PONOVEMULTNVH(n0,k @nH0;N *6BN\BgHlN_`n/,N`dBgN_`XBgN9_`LBN)_`@/,/,N:`2&l.,/ ?-.0-0H", Ҁ/?,/ /NP`<NhLN^.NuRIVER_C//0/2/ AH@B@2/Ё/@" /WXNuNV// /"/N:/A" N^/WXNuNV// /"/N/@" N^/WXNuH>*jD,jD$HBJBf6B@H@g4HB04"B@H@`$&BBxԂрҁmRQJjDjDL|NuNuNuJoNu$_0 _"_J @o4$ Tg,2ABAgSBgS@2@ISA QS@kQN$_0 _"_J`!QN$_02 _`QNHBB oJ0/2/gk gRBSAn` R gSBRAk?B/oL\NuHBB oJ0/2/gk fRBSAn` R fSBRAk?B/oL\NuHr`HBA oJ"oJB@f`fQ AA/oL\NuH"o J oJv`:H"o J oJBC`&H o J"oJv`H o J"oJBCB@BA@m4`4`fQ@n C`cC"/oL\NuH0/ oC"4JBAR`$aJBBB`QQ oC"0/H#//IL._NuH oJB@BA"o JBBBlBA`$HR` fQ`RS@`?A"/oL\NuH o0/2/SA"o JBBA@m`Q/o L NuB`$_02 _ @o0 Ao*BBAm"6@SCBoSA`@"H`RCoN$_0"_ _J/ S@m*BABB@m6B$I”@`!Q`QNu !n ^Workshop Pascal 6 3.00)? JoNV TRANS|̃ ^ # :a$kT pk ^!n$4#"##"#! Lr.` M  V :$F.1 .1m$IOSFPLIB.Obje$Linker.Obj'h'w$OEMSyscall.Obj 'b'g$PasLibCall.ObjvoGdf|G-;j--nP-58 jGoGdf|GGoGdf|GT]d-5S֋D~ޒRPT 7' Cross-develop to MAC +X -X& '+W Which directory file: #+T num &Top Dynamic Stack Size: &#+S num &Start Dynamic Stack Size: &'hysical Link, machines w/out MMU's. +P -P& ''&Emit O.S. Data record +O -O& '-+M fromName toName &&&Segment Name Mapping'&Loca tion Ordered Listing +L -L& '' &InterfacesylaA +I -I& '"-H num &Initial Stack Swap Area: '&For domain 0 +F -F& '.+C MODNAME SegName & Copy module into segment'&Al@phabetical Listing +A -A& '------ ----- ------------Option Value Description:F Options are:9;iG0F Aw+OAGddxGcJ@o(QAGiXiG ״ `GoGnGEPT&No 5option value.9<;G`84pck|nARIkh s~ oH>G0F: E;?f i/h\ E+O E-T0uAkF @n>H0;$NF4T444(44Fd44444t4'G0F A+O@/LGddxtSGivNvSiGiSvVvSi`G$oGS]gvN$vNZvV&`GoGw/cG0F A+O@/"EE"j/G0F A+O@/G0F A+O@/LGddxtSGiv>vSiGiSgvFvSiSgv>vFWi"iiA V_ N/XG0F A+O@/:G0F A+O@/Gp04F ASOGr0B BsߴG-FIG+FEE/ZG0F Aw+O@-gfGoiHkdOpihGHk;xmg(\ų,dx A,p cڼ!`:G0wF A+O@g`G0F A+O@||gG3oGwnOOP=TIONIllegal option.-TRSIPC.LIBF#Alternateibrary directory file ? "The segmentame must be specified6Theodule name and the segmentame must be specified9P4 p!;iGo^Gov[mg:GuoGvo^=vGiz}`.vGdOpvhGGoGw/ȅGoG]֠]Bg gU@g&b/x0/z=x0/lZGoG]ċ]Bk|fnAIk <*͐G]Bk|fnAXIDk BgTug4Y@5_`PGIRJ>P` f LYT`(IRJl>PP`P$ߏP$GISCERNF&IUDirectoryot@ allowed as input file.9PGp!GbooGioGo~GoGԴiB(kNAMEERR for Can't open 9<<b^ٻ-^40&*cJ@oEoJ_nj mdlXRm0-}HpFdTU0-}M(pF"Lp!oEvS_RѠH` ٭-^tpf*/>Jmo6PGoGlon`-_,(J_BgF*g>U@`FNx0`@`p)ڼ!-L/xm|``CHkogHk`d<@tJ_o 6igbjPG~o-_hdZ . _fE١J_&o 3>^gnaETFILENoutput..OBJFOutput file ? listing.-CONSOLE.#XT -CONSOLE] / Listing file [Input file [.OBJ]input.Tooany files9A(?iϐ^.}JFg} p^F-oRTFILENF9Bi0 Af>]| Fi]"g. RFi0`c:f E] E9^V Ef|B`GGnޒOCA;LNAMF9ՙB|`,G0`0c: Eg(p S xH Пr0.SF FlޮiHmR+@|`(G(r /xO"t0҂(p xRF FionNCLNAMEF9?Gϐ^.}(pFi4oJ_o.4dx vnъPENLFILCCan't re-open inFile: 9[FG?ig{HpFdaUoimgoi_GޒOxRESEGMF9;|}CzڊQ/ODNA Undefined Module, entry points: 9jдGj둑iXjd oRITEF&F9[FiBk @nH0;$NFHT`lx|`j4p`^Md`R‹X`FL`:4@`.nM4`"R(`` <RTMODTY Unknown Data & Lib rary Data & Int rinsic Data Reg. Unit Data lo@bal Data&& Unk0nown Code & Lib rary Code &ub`lic Inter.& Int rinsic Code Regular Code &9`RmZ>-Z|`&i"HHAJA|ρ>RF FioEnޒEMPMODNF9[Foi@=_ҹEGOFMODF9[Foi@=_ILEOFMOF9adJ?- =GEWMODULF9[FrivovZHkdiovjovZGvJWovHkjdiov.WdxvWnaLDSRC&: and  isapped to   Name: Multiple Segment mappings9<4G-op0G=P<hFg<=GBC qFBNg IF f G"LToG>=G nN#RS^EGF9ooGHi=_<<B} pFBzg1F΅|G<T=G\͊OVE1REFF9[FGieohm5gprHkoHk4H(d|HkA dio~HkoHk4AGdio~Hk\9F<i|dဠidhSt di nLDE>&&d)Linker Error - Refs from Undefined Module - Vertex: Duplicateames : Duplicate entryames: 9բ',.Gy-oZ0y=PlBC= qFBNg IFWi iG"L\6BGp)@ BiCgdy?iei i/{tio>=GB} p_FBN+g{GFA"Kih iCBY@*Y@g/U@V`B+GB`RBBkzddJy? n޵ EWE&&Linker Error, bad ukn type.?00000009.zG;io_Ȱlf.=G<`oEo{>|oEX<ᦀ =FB} pFBN+gIF}g"Lm G)mi1F=GlcBC qFBNg I=F9kƢim}=6ۭ6o vnޒENTRYF9ոooEEie<R>oF<oတin_ޒEXTERNAF9յUri m0fpC0oܾ?+<R>7=GlĵBC qFBNg IFti9m;G0;k<.D+m"8nޒSTARTADMultiple start locations.$START&9ooEEie<R>?oF<oinޒףCOMMONRF9aooEwEie<R>oF<9တi`nޒSHORTEXF9o0X<ᧀ 0QixoE06R:=EMlMBC qFcBNg fF/o?F<=FjjB} p_FBN+g{GF +6 o>=GcĵBC qFBNg I=F ,Gl`BJZfR/>/QB} pFBN+CAFJf -GШ!@`6]o0X8? ?0AG -G i)mG/c + fbo0?->Iဠ 0Qi=EMlMBC= qFBNg fF`>d,EdioW*Eiecompiler error: initialized data reference before declaration.9@<4G<=GjjB}| pFBN+gIF6 V/\o<`iZOf ^/(EĵB} pFBN+gIFJƿi -ioNoX:?ᓠ ?Ai -zi i| -i",钀)A()mi -Э ",ҬioBoX:?' ? -5Э ,鐭 i)mvƠo =_?mgd?- nޒDITkhdupli cate initializationsoverlapping, or out of range/linker error: initialized data, badodule type9Eܐi o`ܠ>hf i`oF<oတijnޒDITREF9ղ<>.G;ioȰlf.=G<hf ir/oF<ٞio`ٞ=_i =GB}} pFBN+gGF}"Km 'm7mABi'm'mJoEE-R:=ElBC{ qFBNg $FLnޣEADUNIT Bad Unit ock (OldOBJ file?).*** Unit Name: **TR#Intrinsic unit during Regular Link.**COMMON#Regular unit during Intrinsic Link. Bad Unit File9[F}?) =GB}} pFBN+gIF"Lti B9nGBiooٙiR</oF>=GÎB} pFBN+gI=Fۢ g^f g i )=gJrHk\oHkٙdioHkSoHk, |AHknGIUUNITV> Type:  ame: "Duplicate definition of Unit Name.**TR94邙둑oٙo=_ijBC qFBNg IF9nG 8 /<~Fx)_}gp? !d Gxxd xud T}p0߼!IUSEGVAF9Xsb|-'~Bܼ¼TW@u ˩ƼU@ggpgjU@//0-mo;m=mR`7`(x$@=w Rn7i ?7nRo/`=m`7`$@w ^Rn7i ?7n4o/ 0-Vgbg/Ҡ/||iICoo8oE?X>I? =GB} pFkBN+gIF}"Lm )m 9mBioҾEE-R<=F,lc,BC qFBNg =$Fʠ/oEo8CoE?X>? =GB} pFBN+gIF}"Lt yGB=Gj|/o`EZ< FFom5gVoEEjR<=F,l,BC qFBNg {IF)m nii/=F,l,BC qFcBNg pFOB .O .iԪ=z`0-gJ.O .$Ǫ_z`J.O .i=_z gbO >,J>HkoHkEFdioHkoHkٙdioHk`@`6`4bHkRAoHk-~B di|HkEx -%~n2ҹEADIUSE !Unexpected block type in IUyile.Executable main program file. in entry: Duplicate entry definitions. Bad Unit oc@k (OldOBJ file?).**TR#Reg(ular unit in Intrinsicegyile.(9<U>.Gri(ki=G<=G=FD<hHoF=_LoL<=F oHki BC qFBNg {0Fo=_0CoL ;_o0X=_?Å0{ LÔB} pFBN+.HC.A"q.H+EAFECpڼ!ĔB} pFBN+CAFڇCLȋL.`N~vfovdiovovHkidiovW&k /JnޣOPYMODU@ eg@ment: Module: Copy Moduleot found:$0000000#00000009ՠG<hf J/YoF<`ܧ?-.ЋQZf f*`Lo?-.d=_B} pFBzgv1F|Tܠ\4nޣIXINIT %& FixInit: Ref to '%_D32T'ot found.%_D32INT%_IT&9[FޣWAPP1&F$MainProgPhase2 DPT94G<RDVIF9<4vGduG+ BkC @n H0;$NF |Go _giXi2`>lBCz qFBNC AFܴJ(if |i/Rmd^im/d/lBCz qFBNg F/plBC qFBNg {F/D/@J.ifv -"Э*'@ivovdiovovZ KP-odi0.GbB} pFBzgv=pF=G<`LRmrHkdHkVoHk4dioHkGI` :nTHE?RCHE3Bad entry type. - Undefined entry, 9[FOOP?&&F9[F4vNov0- d|vovtd|vovvov0- d|v_ov\d|vovV-gXvtov}"-dխd$0vv%ozv}*-dd$0vޒRITESTABCommon data: $Global data: $ read. of Visible: Active: 9'<.zG=FlBC qFBNg IFoF>=GB} pFBN+gGF+ 'Bk @6nH0;$NFz%RmAHdԐi/MRmDo4dio/+G5*|GRmۭigTo`+BC qFB@XgHpF.m5٨goiXiti`6`4ti`,ti`$%+ |nުONDMARK@Bad Module type.  &Undefined data area: Undefined entry - 9<ri&kiG<ľ+=GB} pFBN+CvAFLJ,i "LC tBkl @6ndH0;$NF⻻/~o8=DęBC qFBNg {GFL (iЫ2,HҀ)AG-"?4?AGiۭiz =^^ fp-gB-@Ы)@ `(-p "Ы)@ `p+Ы)@ `(V-Ы|)@ `Ы)@ ]7@z--gN , iШiM\L8Шi01|d1kƚ޴1|$/-3gR , iШiM\ô G1|Nq1|$ , Pii"(1Ai`. , iШriM\jjpN ,GPj!@-VA i-Vc/iBk|fnAIk ?mg" mVHEf^;GB} pFBN+gIFG߅AƠoIAƠ6nETF=LOC F9';i(li(li(lWiJ-l)hIٙdUrG|iBC qFBg6Fi7h-k ` +GP\/$P-k / (kiD\/]-)g8ϴ"(iҬ\`j8lMШoi\/Poo=_gBC qFBNg -p=F/Woŭ( |ojH(di|jUovj|拠nҊUILDPATUCnknown patchod@ule type : m2: ModType: 9;i(l~i(li&l)kE'l)Kna䒣AVE1P&F9ִGp!ri&kivVov?-jvojvieGv}voi=hGvUB} pFkBN+g 0F|vBojv d|vUnaUTMODER CurRelLoc:  Type: Module:  File: 9ՓsbGoiXiGB} pFBN+CAFB 5i܎iiJxO/Wi"ii"ii i0ihmXx/hiii(h0ih>Bk|fnNAIk <4fUGJGoP`zJGlvHkoHkH(d|Hk&oHk0 d|HkoHki d|Hkċٙ5ihT@i1@Bggj^ܼLg$[/R?",$Ҁ]=A6/2jٽiTh ,Y$Юj\jj/ood d:'X=_lزٙޠ?",$Ҁ\Wi0)Шoi=AiTh/Mood ?d-X=_aزٙiThf?",$ҀiiiЁ n/A$/JGoP`ZJGlVHkoHkH(d|HkZGoHki d|Hk?:pzn2UTM?OD&SkipN < 0 at end. codeLen: kipN: Bad Intrin Patch Instruction. LEA xxxxxx,SPot allowed."Attempt to ILLinkon-zero offset. SkipN < 0 curRelLoc: PatchLoc: 9<U>.Gri=G<.G;i(lwi(li=GjiRhi hw^- =- =zxik|<n}Ik .G;i(li(libdk 0gNP$1j p.ϑ1j p?=hi1j p~=h$ٳnUNEU F9[F4;i(li-5g:El8NG ;lR;mƅEl$ޒUTU.G;i(li(l]ibd 0gDKP1ܷ p.1ܷ p=hiBBMٳnUNES F9[F4;i(li-/5g4El8N ;lREl74ޒUTSEGTAF9ari&ki&kiGB} pFBN+gIFf Aip xRA0FElQ>}R"LB7B[wB+l ;lⵔ腛ElJ^F-gdpoV4dio_GiXin_ElAL)nnaONDPUTBCopying Interface: 9(C>oyܠ>hg#-ޒUTUNITBi**TR9յ U>.Gbdo1ܷ p=-=_ZĔBC qFBNC AF PiI.1ܷ p>"L1ܷ p~9hii1ܷ p)h1ܷ p9h1 p9h 1ܷ p9hp)@ִ (|GXX9@iٳnONDSLOCF9[F4;i(liiņ{Elp ;lRElޒUTIBhgBLHkElrp BmREląnޒUTINTLOi**TR9յ'riJل腚{{Eli -¿=m/ٓ֠fٳ,.o`,< FgFoF=_8B} p_FBN+g{IFJo-lk5fٳ=inoNknޒATCHINT>%Bad Interface-Location Table Location Bad UnitName Bad IfLoc9UriJ֠{4{MEl -¿=mR/i,og7=_Zcg>BC qFBNg IFJioS-li.^i,inoI^^ӠnޒA|TCHISL:Badeg@ment~able Location BadegNameBadyileLocation9;ib-`<`-`$<`t`_rLte`^LJloJl^M-ȋ΋XJl6^-o`>hoF=_:B} p_FBN+C;AF (f O (i g^iϴ!@iiiRh} (f f iiRhiiigFimo;kiC`p,vxovdiovZWovv( |vdxvf|vnH~KUNIT  :"Conflict with Intrinsic Unit Name:9;i(lid?G poy-=_$v m*0vTo=m0vclBC= qFBNCv AF-odi|0oo?-0F>=GvXXov+ęBC qFB@gHp+Fdiov_`vovvUov}&-odi0vovZ}"-odi0=v m0O-h,Jm o*v0- d|vovnޣINALIZEr undefined external references.No Starting Locationlobal Size = Code Size = in segment Start Loc = 9[F4~Jl|B|`J-`J->+mRBU@k< @$n6H0;$NF3 .+`7`蹾+mH`BFFdx uFRFinDo^hoHn2ޣEADFILERe-opening file: 0Can'tix stable/extensible files with old ones.2Can'tix o ld object files with stable/extensible.Reading file: x9ՠB4E4QJmo`a-g m0>-vdov0-ϊ pd :j0-- /<hNEЍXO o(><j5NEXOm(><lNEй(><8NEУ(><NEЎ(><NEУ(><$NE_й(><NE/@Gn2(><}GNEй0/ 2/4/G oi"o 0j$|F&|@SB46Q |F"|$@n (>< NE_У/6/i4/2/SG0/(><nNEУ(><pNEУ(><NEЊ(><NEй(><NEn2"_2(><NE@m(><NEй(><+NE?@(><:NEй(><NE?@(><NEй(><NE/@(><3NEУ(><*:NE?@(><.NEй(><%NE]?@(><NE?@(><}NEйB@m(><NE""*""&n2m(><NE`Un2m(><:NEЋ`nm(><NE222"nx(>NEn""_" "(><@NEйB@m(><B7NEй(><rNEЎ@B@m(><NE@B@m(><NEй2B@8m(><NE>(><NE/@(><FNEXO"_2(><JNEй"ȸ(><LNEй(><NNEйnqa(><PNE2G2222nֹna02468(><RNEnֹ"oia02468(><TNEnn"XO(><X1NE/@(><ZNEйna(><\NE2G2222nֹHWTL& SYSCALL T (* system call definitions unit *) INTRINSIC; "{ Copyright 1983, 1984, Apple Computer Inc. } INTERFACE "CONST $max_ename = 32; (* maximum length of a file system object name *) $max_pathname = 255; (* maximum length of a file system pathname *) $max_label_size = 128; (* maximum size of a file label, in bytes *) $len_exname = 16; (* length of exception name *) $size_exdata = 11; (* 48 bytes, exception data block should have the same ?size as r_eventblk, received event block *) $size_etext = 9; (* event text size - 40 bytes *) $size_waitlist = 10; (* size of wait list - should be same as reqptr_list *) @(* exception kind definitions for 'SYS_TERMINATE' Cexception *) $call_term = 0; (* process called terminate_process *) $ended = 1; (* process executed 'end' statement *) $self_killed = 2; (* process called kill_process on self *) $killed = 3; (* process was killed by another process *) $fthr_term = 4; (* process's father is terminating *) $bad_syscall = 5; (* process made invalid sys call - subcode bad *) $bad_errnum = 6; (* process passed bad address for errnum parm *) $swap_error = 7; (* process aborted due to code swap-in error *) $stk_overflow = 8; (* process exceeded max size (+T nnn) of stack *) $data_overflow = 9; (* process tried to exceed max data space size *) $parity_err = 10; (* process got a parity error while executing *) $def_div_zero = 11; (* default handler for div zero exception was called *) $def_value_oob = 12; (* " for value oob exception *) $def_ovfw = 13; (* " for overflow exception *) $def_nmi_key = 14; (* " for NMI key exception *) $def_range = 15; (* " for 'SYS_VALUE_OOB' excep due to value range err *) $def_str_index = 16; (* " for 'SYS_VALUE_OOB' excep due to string index err*) $bus_error = 21; (* bus error occurred *) $addr_error = 22; (* address error occurred *) $illg_inst = 23; (* illegal instruction trap occurred *) $priv_violation = 24; (* privilege violation trap occurred *) $line_1010 = 26; (* line 1010 emulator occurred *) $line_1111 = 27; (* line 1111 emulator occurred *) $unexpected_ex = 29; (* an unexpected exception occurred *) $div_zero = 31; (* exception kind definitions for hardware exception *) $value_oob = 32; $ovfw = 33; $nmi_key = 34; $value_range = 35; (* excep kind for value range and string index error *) $str_index = 36; (* Note that these two cause 'SYS_VALUE_OOB' excep *) $(*DEVICE_CONTROL functions*) $dvParity = 1; (*RS-232*) $dvOutDTR = 2; (*RS-232*) $dvOutXON = 3; (*RS-232*) $dvOutDelay = 4; (*RS-232*) $dvBaud = 5; (*RS-232*) $dvInWait = 6; (*RS-232, CONSOLE*) $dvInDTR = 7; (*RS-232*) $dvInXON = 8; (*RS-232*) $dvTypeahd = 9; (*RS-232*) $dvDiscon = 10; (*RS-232*) $dvOutNoHS = 11; (*RS-232*) $dvErrStat = 15; (*PROFILE*) $dvGetEvent = 16; (*CONSOLE*) $dvAutoLF = 17; (*RS-232, CONSOLE, PARALLEL PRINTER*) (*not yet*) $dvDiskStat = 20; (*TWIGGY, PROFILE*) $dvDiskSpare = 21; (*TWIGGY, PROFILE*) #{Generic 'slot' position numbers: } $cd_slot1 = 1; $cd_slot2 = 2; $cd_slot3 = 3; $cd_scc = 10; $cd_paraport = 11; $cd_intdisk = 12; $cd_sony = 13; $cd_twiggy = 14; $cd_console = 15; #{cpu_board values (see minfo), showing which cpu board type is present: } $cpub_lisa = 0; $cpub_pepsi = 1; #{io_board values (see minfo), showing which io board type is present: } $iob_lisa = 0; $iob_pepsi = 1; $iob_sony = 2; "TYPE $pathname = string [max_pathname]; $e_name = string [max_ename]; $namestring = string [20]; $procinfoRec = record 4progpathname : pathname; 4global_id : longint; 4father_id : longint; 4priority : 1..255; 4state : (pactive, psuspended, pwaiting); 4data_in : boolean 2end; $Tdstype = (ds_shared, ds_private); (* types of data segments *) $dsinfoRec = record 2mem_size : longint; 2disc_size: longint; 2numb_open : integer; 2ldsn : integer; 2boundF : boolean; 2presentF : boolean; 2creatorF : boolean; 2rwaccess : boolean; 2segptr : longint; 2volname: e_name; 0end; $t_ex_name = string [len_exname]; (* exception name *) $longadr = ^longint; $t_ex_state = (enabled, queued, ignored); (* exception state *) $p_ex_data = ^t_ex_data; $t_ex_data = array [0..size_exdata] of longint; (* exception data blk *) $t_ex_sts = record (* exception status *) 1ex_occurred_f : boolean; (* exception occurred flag*) 1ex_state : t_ex_state; (* exception state *) 1num_excep : integer; (* number of exceptions q'ed*) 1hdl_adr : longadr; (* handler address *) /end; $p_env_blk = ^env_blk; $env_blk = record (* environment block to pass to handler *) 0pc : longint; (* program counter *) 0sr : integer; (* status register *) 0d0 : longint; (* data registers 0 - 7 *) 0d1 : longint; 0d2 : longint; 0d3 : longint; 0d4 : longint; 0d5 : longint; 0d6 : longint; 0d7 : longint; 0a0 : longint; (* address registers 0 - 7 *) 0a1 : longint; 0a2 : longint; 0a3 : longint; 0a4 : longint; 0a5 : longint; 0a6 : longint; 0a7 : longint; .end; $p_term_ex_data = ^term_ex_data; $term_ex_data = record (* terminate exception data block *) 4case excep_kind : longint of 6call_term, 6ended, 6self_killed, 6killed, 6fthr_term, 6bad_syscall, 6bad_errnum, 6swap_error, 6stk_overflow, 6data_overflow, 6parity_err : (); (* due to process termination *) 6illg_inst, 6priv_violation, (* due to illegal instruction, [privilege violation *) 6line_1010, 6line_1111, (* due to line 1010, 1111 emulator *) 6def_div_zero, 6def_value_oob, 6def_ovfw, 6def_nmi_key (* terminate due to default handler for Phardware exception *) 8: (sr : integer; ;pc : longint); (* at the time of occurrence *) 6def_range, 6def_str_index (* terminate due to default handler for S'SYS_VALUE_OOB' excep for value Srange or string index error *) 8: (value_check : integer; ;upper_bound : integer; ;lower_bound : integer; ;return_pc : longint; ;caller_a6 : longint); 6bus_error, 6addr_error (* due to bus error or address error *) 8: (fun_field : packed record (* one integer *) Ifiller : 0..$7ff; (* 11 bits *) Ir_w_flag : boolean; Ii_n_flag : boolean; Ifun_code : 0..7; (* 3 bits *) Gend; ;access_adr : longint; ;inst_register : integer; ;sr_error : integer; ;pc_error : longint); 2end; $p_hard_ex_data = ^hard_ex_data; $hard_ex_data = record (* hardware exception data block *) 5case excep_kind : longint of 6div_zero, value_oob, ovfw 8: (sr : integer; ;pc : longint); 6value_range, str_index 8: (value_check : integer; ;upper_bound : integer; ;lower_bound : integer; ;return_pc : longint; ;caller_a6 : longint); 3end; $accesses = (dread, dwrite, append, private, global_refnum); $mset = set of accesses; $iomode = (absolute, relative, sequential); $UID = record (*unique id*) &a,b: longint $end; $timestmp_interval = record (* time interval *) 3sec : longint; (* number of seconds *) 3msec : 0..999; (* number of milliseconds within a second *) 1end; $info_type = (device_t, volume_t, object_t); $devtype = (diskdev, pascalbd, seqdev, bitbkt, non_io); $filetype = (undefined, MDDFfile, rootcat, freelist, badblocks, 1sysdata, spool, exec, usercat, pipe, bootfile, 1swapdata, swapcode, ramap, userfile, killedobject); $entrytype= (emptyentry, catentry, linkentry, fileentry, pipeentry, ecentry, 0killedentry); $(* Per-file version control information record *) $Build_Control = record 6release_number : integer; (* public release number *) 6build_number : integer; (* internal build membership *) 6compatibility_level : integer; (* local compatibility level *) 6revision_level : integer; (* iteration of file *) 4end; %fs_info = record /name : e_name; /dir_path : pathname; /machine_id : longint; /fs_overhead : integer; /result_scavenge : integer; /passwd_present : boolean; /case otype : info_type of 1device_t, volume_t: ( 3iochannel : integer; 3slot_no : integer; 3devicenumb: integer; 3devt : devtype; 3ejectable, removable: boolean; 3fs_size : longint; 3vol_size : longint; 3blockstructured, mounted : boolean; 3opencount : longint; 3privatedev, remote, lockeddev : boolean; 3mount_pending, unmount_pending : boolean; 3volname, password : e_name; 3fsversion, volnum : integer; 3volid : UID; 3backup_volid : UID; 3vol_sequence : integer; 3blocksize, datasize, clustersize, filecount : integer; 3label_size : integer; 3freecount : longint; 3DTVC, DTCC, DTVB, DTVS : longint; 3master_copy_id, copy_thread : longint; 3overmount_stamp : UID; 3boot_code : integer; 3boot_environ : integer; 3privileged, write_protected : boolean; 3master, copy, copy_flag, scavenge_flag : boolean; 3vol_left_mounted : boolean ); 1object_t : ( 3size : longint; 3psize : longint; (* physical file size in bytes *) 3lpsize : integer; (* logical page size in bytes for this file *) 3ftype : filetype; 3etype : entrytype; 3DTC, DTA, DTM, DTB, DTS : longint; 3refnum : integer; 3fmark : longint; 3acmode : mset; 3nreaders, nwriters, nusers : integer; 3fuid : UID; 3user_type : integer; 3user_subtype : integer; 3system_type : integer; 3eof, safety_on, kswitch : boolean; 3private, locked, protected, master_file : boolean; 3file_scavenged, file_closed_by_OS, file_left_open : boolean; 3file_portion : integer; 3build_info : Build_Control ) /end; %Q_Info = record 0name : e_name; 0etype : entrytype; 0DTC : longint; 0DTM : longint; 0size : longint; 0psize : longint; 0fs_overhead : integer; 0master : boolean; 0protected : boolean; 0safety : boolean; 0left_open : boolean; 0scavenged : boolean; 0closed_by_OS : boolean; 0nreaders : integer; 0nwriters : integer; 0level : integer; .end; $dctype = record /dcversion : integer; /dccode : integer; /dcdata : array [0..9] of longint; (* user/driver defined data *) -end; $t_waitlist = record (* wait list *) 3length : integer; 3refnum : array [0..size_waitlist] of integer; 1end; $t_eheader = record (* event header *) 2send_pid : longint; (* sender's process id *) 2event_type : longint; (* type of event *) 0end; $t_event_text = array [0..size_etext] of longint; $p_r_eventblk = ^r_eventblk; $r_eventblk = record 3event_header : t_eheader; 3event_text : t_event_text; 1end; $p_s_eventblk = ^s_eventblk; $s_eventblk = t_event_text; $time_rec = record 1year : integer; 1day : 1..366; (* julian date *) 1hour : -23..23; 1minute : -59..59; 1second : 0..59; 1msec : 0..999; /end; $chn_kind = (wait_ec, call_ec); $t_chn_sts = record (* channel status *) 2chn_type : chn_kind; (* channel type *) 2num_events : integer; (* number of events queued *) 2open_recv : integer; (* number of opens for receiving *) 2open_send : integer; (* number of opens for sending *) 2ec_name : pathname; (* event channel name *) 0end; {configuration stuff: } #slot_array = array [1..3] of integer; #minfo = record .cpu_board, io_board, memsize: longint; +end; {of minfo} { Lisa Office System parameter memory type } #pmByte = -128..127; #pMemRec = array[0..63] of pmByte; #cd_position = record 3slot: pmbyte; (*slot number*) 3chan: pmbyte; (*channel number*) 3dev: pmbyte; (*device number*) 1end; #ConfigDev = record 1pos: cd_position; (*device position*) 1nExtWords: pmbyte; (*number of valid extension words*) 1Extwords: array[1..3] of integer; (*extension words*) 1DriverID: longint; (*ID of driver controlling device*) 1DevName: e_name; (*device name*) /end; #cd_infobuf = record {defines internal driver image} 2cd_driverid: longint; 2cd_perm: boolean; 2cd_drvrname: e_name; 2case cd_devt: devtype of 5diskdev: 8(cd_start_block: longint; 9cd_fs_start: longint; 9cd_ejectable: boolean; 9cd_removable: boolean; 9cd_preload: boolean;) /end; {of cd_infobuf} (* File System calls *) "procedure MAKE_FILE (var ecode:integer; var path:pathname; label_size:integer); "procedure MAKE_PIPE (var ecode:integer; var path:pathname; label_size:integer); "procedure MAKE_CATALOG (var ecode:integer; var path:pathname; label_size:integer); "procedure MAKE_LINK (var ecode:integer; var path, ref:pathname; label_size:integer); "procedure KILL_OBJECT (var ecode:integer; var path:pathname); "procedure UNKILL_FILE (var ecode:integer; refnum:integer; var new_name:e_name); "procedure OPEN (var ecode:integer; var path:pathname; var refnum:integer; manip:mset); "procedure CLOSE_OBJECT (var ecode:integer; refnum:integer); "procedure READ_DATA (var ecode : integer; :refnum : integer; 7data_addr : longint; ;count : longint; 6var actual : longint; count : longint; 9var actual : longint ); "procedure WRITE_LABEL ( var ecode : integer; act_family : boolean); "procedure Kill_Process (var errnum : integer; proc_id : longint); "procedure Terminate_Process (var errnum : integer; event_ptr : p_s_eventblk); "procedure Make_Process (var errnum : integer; var proc_id : longint; :var progfile : pathname; var entryname : namestring; :evnt_chn_refnum : integer); "procedure Sched_Class (var errnum : integer; non_preempt : boolean); (* Memory Management system calls *) "procedure make_dataseg(var errnum: integer; var segname: pathname; 9mem_size, disc_size: longint; var refnum: integer; 9var segptr: longint; ldsn: integer; dstype: Tdstype); "procedure kill_dataseg (var errnum : integer; var segname : pathname); "procedure open_dataseg (var errnum : integer; var segname : pathname; :var refnum : integer; var segptr : longint; :ldsn : integer); "procedure close_dataseg (var errnum : integer; refnum : integer); "procedure size_dataseg (var errnum : integer; refnum : integer; :deltamemsize : longint; var newmemsize : longint; :deltadiscsize: longint; var newdiscsize: longint); "procedure info_dataseg (var errnum : integer; refnum : integer; :var dsinfo : dsinfoRec); "procedure setaccess_dataseg (var errnum : integer; refnum : integer; ?readonly : boolean); "procedure unbind_dataseg (var errnum : integer; refnum : integer); "procedure bind_dataseg(var errnum : integer; refnum : integer); "procedure info_ldsn (var errnum : integer; ldsn: integer; var refnum: integer); "procedure flush_dataseg(var errnum: integer; refnum: integer); "procedure mem_info(var errnum: integer; 5var swapspace, dataspace, 9cur_codesize, max_codesize: longint); "procedure info_address(var errnum: integer; address: longint; 9var refnum: integer); (* Exception Management system calls *) "procedure declare_excep_hdl (var errnum : integer; ?var excep_name : t_ex_name; ?entry_point : longadr); "procedure disable_excep (var errnum : integer; ;var excep_name : t_ex_name; ;queue : boolean); "procedure enable_excep (var errnum : integer; :var excep_name : t_ex_name); "procedure signal_excep (var errnum : integer; :var excep_name : t_ex_name; :excep_data : t_ex_data); "procedure info_excep (var errnum : integer; 8var excep_name : t_ex_name; 8var excep_status : t_ex_sts); "procedure flush_excep (var errnum : integer; 9var excep_name : t_ex_name); (* Event Channel management system calls *) "procedure make_event_chn (var errnum : integer; 0-bgU@g*W@`I`E^ѯ`ip?G` mbfE^Ѥi0vPGޒ9JToӰM lT(M`PZmH4]ic @ll(i-idx ڼ!Z }PGnޒ9[Fooߣ94i|摼!A?-o֘ 0-7hT0-h T|Pwޒ9|摼!ig<i- ٗ|٫dx ڼ!`^|ڼ!-I?gF-H5i]xcg.il}H|ڼ!`~}Hڼ!|H`@BRdx ]odm5Zcgx;PACE to continue) (Err# 9o|zmgH|-J.g.0i .f @Jo` .f #o财0iNum>ber too largeBadumeric input9;iBG` BFhonޒ9G?-iQxȴGoݴG?Write to disk failed9[F4I G8\@m @?0X@.iH- HB@0-AT 9ՙٙ"G"i ?mT0-'nJGf/ΐL0c @.f&dxcJ@^@/c>JGf`z 0c @-;f`f.xT|<JFO..$tARBF)g8.cGnGn(-.dx ۼ!Pn޿9_i@dx |ݼ!G|omPGޒ' already exists. Overwrite it? (Y or N)9(.i-*5"B-ɥD$Vo|moo|dPm}|ڼ!E_ox?*uzkg.i?-;-?--4@-BN2-@}h]hg k|@ρH@J@ T4H׻40-mlRmҹ9i0<!K(H-)ɥ? BG/?-?-ȇ0Bge_@gg(g>grTW@g^`v.//<(Fp( %/yo?-0-TX;_/o?-(0-mP@ρi@mT\;_`^;md@p`Nd6`D-5g0B B^` )0B @l0BT0 X\ _=   W‚ 6WA*/RFNHno8 .Oi  =g>0 `FHnoSTJTo0iF8  BG`f 0 f@] 0Ff.]"lUA=A<`]F/RFHnoST` 0 f  HnoBF0 BG`6 06fBDIDFRD DfoPFI/RFHnlo8JTo 0iFn2 9'ׇ&HqBG;i0 BF`>tZf\Zg_=Z Z^V8RFHno8JGovxLnޒ9Փ``zv`~K/hJ_" =/Txj(Hqj<.ۼ BG`vp#Zjo`Wj`NZ jfF-g@Rp2 xJf,/lZf" m fd/<F/<F/<FFdo8`hRTQ0-\П+@X mO- e܅Tp2 xeJf,/|`4?i]TxLB-na9՞s;B0NЭ&@ -мF\ Tf + f 8^z/`t~0<T8nio8.i  BF` 0 /fL>RFHnoh^o6z-0]HsFxLni΢Hp-ixL8^ 5gfi>`^ 3 fTz0G< Fo<<]HsF-xL]=T `v?B3FRni ?no蠼8~5SGJGl 50p] FR8^ PfE8?*b`,RP0NmЭ&@-0]TxL-0]HsFixLz?iTn29ՙUriB-0-NЭ(@>mB @mEEPHk`Hk0-]HtFxLtmnޒ9<(>.i-.?U@kV @nNH0;$NBF".:0k @6nH0;$NFxz3xTdxj-5`REKd- L- 5@ `4hO`$-56`^`%;|;|B;|DE8?-.}:-p E4QxE8?-.xSޣ9[FE8E._E.?:rxJm8oE8E.xP`Pm-:;m"<;m$>;m&;m( B;m*DE8?-.}:-p E4QxE8?-.xSޣ9տ4Zi>}w(H`Zi>}|(HY/J ^f&/>REBUdx }]p ڼ!`8k|fnOAIk <4f`-T ݓEٖxHJ;l` ,j]D\ =l$EٖxH` ,ijD\ ٓEٖxHw8k|fnA~Ik hQxc-g*-5g`E80<  ? }?n|G;@+?mnρc;@;nޣ!Can't getetri cs forystem font9Ub1I ܤ?$(}Q쾨{QQxdPd(GLnޣF9~'Zif}}CU}w,` Zif}\C},Y/``-$;m&;mB(;mD*--E8?-"jJm8ol0-"g2`^;|";m"`U`6``.`U`&` ```U````%U`K9`벏 Gi.io?-|Nm/.Jmm ?-xSJmoE?-oLhf}CV`hf}C:Y/lٳlEx^ Pn)=gP0g`lCIlCldx ?k"/^EUpVdx u}Vp ڼ!EE?:/cxo&E$dx $?"Z/Jmo$do?- /0-߼*gg4`JdQ/<F/<Fd`2dp /<F/<F`dp /<F/<F0-gZ߼gR/d VQ/<F/<FdfQ/<F/|F|UG }can't be opened -serial- not configured Driver for Port BPort ARS232BRS232A9|F|UGҹ9[FJmoE?-#oL;ni;m&&Jmo\0-м*gg4`JdQ/<F/<F`2dp /<,F/<Fh`dp /<F/<%FNE?-оL m>|SF|Gҹ9[FJm?oE2?-oLb;ni;m(Jmo0-Ҽ߼gRp/d Q/<F/<FddfQ/<F/<'Fd6/|F|Gҹ9[FJmoEH?-oL;ni;m*EH?-ԾLҹ9վiCBg~gg_@gY@g`CVژICBϴiCBggrggjY@JW@Y@g\/<ٔٔx}<^Z<)=g0<"P6pڵ! .?f n 0n`,`*| ACp S@n0/. HnN n JPN^ _PONJECTVOL-SCAVENGE SCAVENGESCAVENGE%_CAT %_CAT .FS_UTILIFS_UTILILOOKUP LOOKUP PJoNV nCJp"S@n2HzHnHn?<NACp S@n0/. HnHnN n JPo`< .?f n 0n`*`(|B.ACp S@n0/. HnNN^ _PONCAVENGE-INIT_VOL INIT_VOLINIT_VOL%_SRCHK %_SRCHK %_CAT %_CAT ZUNITIO UNITIO L$1000000GETDEVIC FS_UTILIFS_UTILILOOKUP LOOKUP |JoHNVHH nCJp"S@n2 n CJp"S@n2 nCJp"S@n2Hz^HnHnH?<NAnCHp S@n0/.HnnHnN nJPo` .f n0n`|ACp S@n0-nACp S@n0BnACp S@n0/.HnN nJPo` ../.A?< N/HnnN nJPo`d/.?.nAx/p//Hnj<BgN nJPo`8Ax м*rЁ(@B/.?.nAx/p//Hnj<<NLN^ _NNIT_VOL-VERIFYVO VERIFYVOVERIFYVO%_SRCHK %_SRCHK n%I_DIV4 %I_DIV4 R0%_CAT %_CAT FUNITIO UNITIO $1000000GETDEVICxLOOKUP LOOKUP hJoJNVJH nCJp"S@n2 nCJp"S@n2HzXHnHnl?<NAClp S@n0/.HnHnN nJPo`. g n0` .f n0n`HzHnHnJ?<NACJp S@n0/.HnHnN nJPo`. g n0` .f n0n`l 0l n0p`V`R/.p/N-_-n .Ю (/./<N >:.BF/.A?< N/HnN nJPo`/.A?< N/HnN nJPo` S@Fm G"SA@l S@"SAA>/.?./.H/H/Hn<BgN nJPo`z/.?./H/H/Hn<BgN nJPo`P-n-D =@Bn n"n g n0q` ` XXXn0.S@nnG`:LN^ _NERIFYVO-MAKESECU MAKESECUMAKESECUMAKE_SECMAKE_SEC4JoNV/./. /.NN^ _ NAKESECU,KILLSECU KILLSECUKILLSECUKILL_SECKILL_SEC4JoNV/./. /.NN^ _ NILLSECU,OPENSECU OPENSECUOPENSECU%_ADJ %_ADJ &OPEN_SECOPEN_SEC4RJoNV/././.B@. ??<?<N?<T/.NN^ _NPENSECUJRENAMESE RENAMESERENAMESERENAME_SRENAME_S8JoNV/././. /.NN^ _NENAMESE0VERIFYPA VERIFYPAVERIFYPAVERIFY_PVERIFY_P4JoNV/./. /.NN^ _ NERIFYPA,CHANGEPA CHANGEPACHANGEPACHANGE_PCHANGE_P8JoNV/././. /.NN^ _NHANGEPA0 INTERFACE "USES ${$U Syscall.Obj } syscall, ${$U Psyscall.Obj} psyscall; "procedure EJECTVOL(var errnum:integer;devname:e_name); "procedure SCAVENGEVOL(var errnum:integer;devname:e_name); "procedure INIT_VOL(var errnum:integer;devname:e_name;volname:e_name; 4password:e_name); "procedure VERIFYVOL(var errnum:integer;sourcedev:e_name;destdev:e_name; 6buffaddr:longint;buffsize:longint); "procedure MAKESECURE(var errnum:integer;var path:pathname;var passwd:e_name); "procedure KILLSECURE(var errnum:integer;var path:pathname;var passwd:e_name); "procedure OPENSECURE(var errnum:integer;var path:pathname;var refnum:integer; 7manip:mset;var passwd:e_name); "procedure RENAMESECURE(var errnum:integer;var path:pathname;var newname:e_name; 9var passwd:e_name); "procedure VERIFYPASSWORD(var errnum:integer;var path:pathname; var passwd:e_name); "procedure CHANGEPASSWORD(var errnum:integer;var path:pathname;var oldpasswd:e_name; ;var newpasswd:e_name); IMPLEMENTATION  !n ^x̃{t TRANS|̃ ^ # :a$kTk ^!n$4#"##"#! Lr.V fpsane S.Lfpelems TNdfpreal UnpfprealioVa fpdecstrWP Bcorrbd Y(mathlib ZvJfinance [nmatrix \L(double ]„mathsort^R4solve _ʾMATHLIB FPLIB ؛\hPASLIB FPLIB MATHLIB UCLASCAL/BLKIOINTfBLOCKIO gPASHEAP hPASLIB1 fpsane Sfpelems Tfpreal UfprealioVfpdecstrWcorrbd Ymathlib Zfinance [matrix \double ]mathsort^solve _PASIOLIB`SgPASinibMATHLIB INTRINSIC ; INTERFACE {$C Copyright 1983, 1984, Apple Computer Inc. } USES {$U- } {$U LibFP/NewFPLib } FPLib ; CONST RandModulus = 2147483647 ; LSigDigLen = 30 ; TYPE RoundPrecision = ( ExtPrecision, DblPrecision, RealPrecision) ; FP_Type = ( TFP_byte, TFP_integer, TFP_longint, TFP_Comp, TFP_real, TFP_Double, TFP_Extended ) ; Free_Format = record MaxSig : integer ; Sig_FForm, Trail_Point, Int_EForm, Plus_EForm : boolean ; end ; P_QR_Record = longint ; LongSigDig = string[LSigDigLen] ; LongDecimal = record sgn : 0..1 ; exp : integer ; sig : LongSigDig ; end ; procedure ASinX ( var x : Extended ) ; procedure ACosX ( var x : Extended ) ; procedure SinhX ( var x : Extended ) ; procedure CoshX ( var x : Extended ) ; procedure TanhX ( var x : Extended ) ; procedure Abs2X ( x, y : Extended ; var z : Extended ) ; procedure ATan2X( x, y : Extended ; var z : Extended ) ; function NextRandom ( lastrandom : longint ) : longint ; procedure ClearXcps ; procedure ClearHlts ; procedure SetPrecision ( p : RoundPrecision ) ; function GetPrecision : RoundPrecision ; procedure Math_Sort ( first, last : integer ; function sorted ( i, j : integer ) : boolean ; procedure swap ( i, j : integer ) var error : boolean ) ; function SignOfX ( x : Extended ) : boolean ; function FP_New ( n : longint ) : longint ; procedure FP_Size ( x : Extended ; var sgn : integer ; var class : NumClass ; var size : FP_Type ) ; procedure FP_Free_Ascii ( x : Extended ; width : integer ; form : Free_Format; var s : Decstr ) ; procedure Fin_Npv ( first, last, net : integer ; rate : Extended ; var Npv : Extended ; procedure payment ( i : integer ; var pmt : Extended ) ) ; procedure Fin_Return ( first, last : integer ; negperiod, posperiod : integer ; negrate, posrate : Extended ; var ncs : integer ; var ret : Extended ; procedure payment ( i : integer ; var pmt : Extended ) ) ; procedure Mat_Mult ( n, p, m : integer ; overlap : boolean ; var error : boolean ; procedure afetch ( i,j : integer ; var aij : Extended ) procedure xfetch ( i,j : integer ; var xij : Extended ) procedure bstore ( i,j : integer ; bij : Extended ) ) ; procedure QR_Factor ( n, p : integer ; pivot : boolean ; var QR : P_QR_Record ; procedure afetch ( i,j : integer ; var aij : Extended ) ) ; procedure QR_Condition ( QR : P_QR_Record ; var cond : Extended ) ; procedure QR_Determinant ( QR : P_QR_Record ; var det : Extended ) ; procedure QR_Solve ( m : integer ; QR : P_QR_Record ; var error : boolean ; procedure bfetch ( i,j : integer ; var bij : Extended ) ; procedure xstore ( i,j : integer ; xij : Extended ) ) ; procedure QR_Residual ( n, p : integer ; m : integer ; procedure afetch ( i,j : integer ; var aij : Extended ) ; procedure bfetch ( i,j : integer ; var bij : Extended ) ; procedure xfetch ( i,j : integer ; var xij : Extended ) ; procedure rstore ( i,j : integer ; rij : Extended ) ) ; procedure QR_Improve ( m : integer ; QR : P_QR_Record ; var error : boolean ; procedure afetch ( i,j : integer ; var aij : Extended ) ; procedure bfetch ( i,j : integer ; var bij : Extended ) ; procedure xfetch ( i,j : integer ; var xij : Extended ) ; procedure xstore ( i,j : integer ; xij : Extended ) ) ; procedure QR_TranSolve ( m : integer ; QR : P_QR_Record ; var error : boolean ; procedure bfetch ( i,j : integer ; var bij : Extended ) ; procedure xstore ( i,j : integer ; xij : Extended ) ) ; procedure QR_TranDeterminant ( QR : P_QR_Record ; var det : Extended ) ; procedure X2LDec ( f : DecForm ; x : Extended ; var y : LongDecimal ) ; procedure LDec2X ( prec : RoundPrecision ; x : LongDecimal ; var y : Extended ) ; procedure Math_Solve ( est1, est2 : Extended ; var result : Extended ; procedure f ( x : Extended ; var fx : Extended ) ) ; IMPLEMENTATION FPLIB INTRINSIC ; INTERFACE {$C Copyright 1983, 1984, Apple Computer Inc. } CONST SIGDIGLEN = 20; DECSTRLEN =255; TYPE Single = real; Double = array [0..3] of integer; Comp = array [0..3] of integer; Extended = array [0..4] of integer; SigDig = string [SIGDIGLEN]; DecStr = string [DECSTRLEN]; Decimal = record sgn : 0..1; exp : integer; sig : SigDig end; Environ = integer ; RoundDir = (TONEAREST, UPWARD, DOWNWARD, TOWARDZERO); RelOp = (GT, LT, GL, EQ, GE, LE, GEL, UNORD); Exception = (INVALID, UNDERFLOW, OVERFLOW, DIVBYZERO, INEXACT); NumClass = (SNAN, QNAN, INFINITE, ZERO, NORMAL, DENORMAL); DecForm = record style : (FLOATDECIMAL, FIXEDDECIMAL); digits : integer end; procedure AddS (x : Single; var y : Extended); procedure AddD (x : Double; var y : Extended); procedure AddC (x : Comp; var y : Extended); procedure AddX (x : Extended; var y : Extended); procedure SubS (x : Single; var y : Extended); procedure SubD (x : Double; var y : Extended); procedure SubC (x : Comp; var y : Extended); procedure SubX (x : Extended; var y : Extended); procedure MulS (x : Single; var y : Extended); procedure MulD (x : Double; var y : Extended); procedure MulC (x : Comp; var y : Extended); procedure MulX (x : Extended; var y : Extended); procedure DivS (x : Single; var y : Extended); procedure DivD (x : Double; var y : Extended); procedure DivC (x : Comp; var y : Extended); procedure DivX (x : Extended; var y : Extended); function CmpX (x : Extended; r : RelOp; y : Extended) : boolean; function RelX (x, y : Extended) : RelOp; procedure I2X (x : integer; var y : Extended); procedure S2X (x : Single; var y : Extended); procedure D2X (x : Double; var y : Extended); procedure C2X (x : Comp; var y : Extended); procedure X2X (x : Extended; var y : Extended); procedure X2I (x : Extended; var y : integer); procedure X2S (x : Extended; var y : Single); procedure X2D (x : Extended; var y : Double); procedure X2C (x : Extended; var y : Comp); procedure L2X (x : longint; var y : Extended); procedure X2L (x : Extended; var y : longint); procedure S2Dec (f : DecForm; x : Single; var y : Decimal); procedure D2Dec (f : DecForm; x : Double; var y : Decimal); procedure C2Dec (f : DecForm; x : Comp; var y : Decimal); procedure X2Dec (f : DecForm; x : Extended; var y : Decimal); procedure Dec2S (x : Decimal; var y : Single); procedure Dec2D (x : Decimal; var y : Double); procedure Dec2C (x : Decimal; var y : Comp); procedure Dec2X (x : Decimal; var y : Extended); procedure Str2Dec (s : DecStr; var index : integer; var d : Decimal ; var ValidPrefix : boolean ); procedure Dec2Str (f: DecForm; d: Decimal; var s: DecStr); procedure S2Str (f : DecForm; x : Single; var y : DecStr); procedure D2Str (f : DecForm; x : Double; var y : DecStr); procedure C2Str (f : DecForm; x : Comp; var y : DecStr); procedure X2Str (f : DecForm; x : Extended; var y : DecStr); procedure Str2S (x : DecStr; var y : Single); procedure Str2D (x : DecStr; var y : Double); procedure Str2C (x : DecStr; var y : Comp); procedure Str2X (x : DecStr; var y : Extended); procedure RemX (x : Extended; var y : Extended; var quo : integer); procedure SqrtX (var x : Extended); procedure RintX (var x : Extended); procedure NegX (var x : Extended); procedure AbsX (var x : Extended); procedure CpySgnX (var x : Extended; y : Extended); procedure NextS (var x : Single; y : Single); procedure NextD (var x : Double; y : Double); procedure NextX (var x : Extended; y : Extended); function ClassS (x : Single; var sgn : integer) : NumClass; function ClassD (x : Double; var sgn : integer) : NumClass; function ClassC (x : Comp; var sgn : integer) : NumClass; function ClassX (x : Extended; var sgn : integer) : NumClass; procedure ScalbX (n : integer; var y : Extended); procedure LogbX (var x : Extended); procedure SetRnd (r : RoundDir); procedure SetEnv (e : Environ); function GetRnd : RoundDir; procedure GetEnv (var e : Environ); function TestXcp (x : Exception) : boolean; procedure SetXcp (x : Exception; OnOff : boolean); function TestHlt (x : Exception) : boolean; procedure SetHlt (x : Exception; OnOff : boolean); procedure ProcEntry (var e : Environ); procedure ProcExit(e : Environ); procedure Log2X (var x : Extended); procedure LnX (var x : Extended); procedure Ln1X (var x : Extended); procedure Exp2X (var x : Extended); procedure ExpX (var x : Extended); procedure Exp1X (var x : Extended); procedure XpwrI (i : integer; var x : Extended); procedure XpwrY (y : Extended; var x : Extended); procedure Compound (r, n : Extended; var x : Extended); procedure Annuity (r, n : Extended; var x : Extended); procedure AtanX (var x : Extended); procedure SinX (var x : Extended); procedure CosX (var x : Extended); procedure TanX (var x : Extended); procedure RandomX (var x : Extended); function GetHltAddress : longint ; procedure SetHltAddress ( HltAddress : longint ) ; procedure InitFPLib ; function SANE_Environ : longint ; IMPLEMENTATION IntrinSgfpsane XPWRI XPWRI \ADDS ADDS ADDX ADDX SUBS SUBS (SUBX SUBX 0MULS MULS DIVS DIVS tI2X I2X S2X S2X L2X L2X S2DEC S2DEC D2DEC D2DEC PC2DEC C2DEC (X2DEC X2DEC DNEGX NEGX NEXTS NEXTS ĂCLASSS CLASSS <SCALBX SCALBX PROCEXITPROCEXITЂSTR2DEC STR2DEC SETHLTADSETHLTADGETHLTADGETHLTADSANE_ENVSANE_ENVINITFPLIINITFPLIABSX ABSX CPYSGNX CPYSGNX HFP68K FP68K |SUBXXXX SUBXXXX ,%SANE_AS%SANE_AS`SCALBXXXSCALBXXXSUBD SUBD  NEXTX NEXTX ȂDEC2X DEC2X dTESTXCP TESTXCP 8LOGBX LOGBX MULX MULX DIVD DIVD lX2S X2S TNEXTSXXXNEXTSXXXX2C X2C <CLASSX CLASSX @ADDSXXX ADDSXXX DEC2S DEC2S `CLASSD CLASSD 4D2X D2X TX2X X2X XSETRND SETRND  CLASSC CLASSC 0GETRND GETRND SUBC SUBC C2DECXXXC2DECXXX$I2XXXX I2XXXX GETENV GETENV S2XXXX S2XXXX S2DECXXXS2DECXXXX2I X2I LSETENV SETENV DIVC DIVC hMULSXXX MULSXXX PROCENTRPROCENTR̂ADDXXXX ADDXXXX CLASSSXXCLASSSXX8RELX RELX ؂CMPX CMPX DADDD ADDD SETHLT SETHLT TESTHLT TESTHLT 4MULC MULC SUBSXXX SUBSXXX $REMX REMX ܂DIVSXXX DIVSXXX pDEC2C DEC2C XC2X C2X ,X2L X2L PX2D X2D HSETXCP SETXCP SQRTX SQRTX RINTX RINTX PROCEXTXPROCEXTXԂDIVX DIVX xMULD MULD D2DECXXXD2DECXXXLL2XXXX L2XXXX ADDC ADDC X2DECXXXX2DECXXX@NEXTD NEXTD DEC2D DEC2D \%SCAN_DE%SCAN_DEdNN4NN NtNNNN@NlNNNNNpNNNNN8NNNNNhNLNHGNuH044D400>FpJkpNufpNufnmbegeFpJjpNuJCg2NuJCgNua44P`JCgNua(4Pa0JkfJf`SڅلjNuJk g p4` p`p?@?2nNu8AaDNug CfNu Cfx`ao Btarff&HAJfbeJj JjD@Nu* NuJjB(` CfNupJkp CfNu0 @@dR@@8@"F$G.,B$އ݆CDeއ݆C (zSCrA6ABއ݆׃ՂAއ݆׃ՂAڅل@SE@dօՄ@`TES@f, . fSErHWSAf`B CfF8|B*Nu CfNuB?( jD8|@`bJCgNu&n`ppJk g U@ CgR@JgD@&n 6NuL >;pNp*48>nDJ^r.R0` 2BP`2`!Q`"` Q``0VD`g``(O:E8RFHFBF/ Hl pE?a~BBBlHTHl ?<afV/ HT?aZHTHl ?<aLh"HTHl ?<aJga a(HFF8FHS/. ?a$` 6&&]Nu`gr@Jj @g ``  f `JCj `C a`Hk HSpJCjp?aVJVǀDgRJg8 `gDNQ#|B02JAgS@3@HiHSBgalNY`0 @g Nu@- @Xˏ' :7@KPflAedpByi >AEWưR8J5FAYSpUaKe jĆԍf&~r 0jD@ @ed @e0<EذReJZJRg>gJRo0` g(JRl$/ ?* JZjRW`SW/*/$Oa PT$_T`TaYSAf E$JjHRHQ?<aLNu2""]]Nu?@@@@ @@P@$@@ @k(@ @#C@@&ԥ@**@- 0XB&,.&Ja0 (n&O|JBg4XNa (a`pr0 9o^S@fNuJCgp0 CgpI@`"2A?HAAJ@jR@k^FaBJf, gRCk&<#$|pAaRـX$IB|څل@&$2څل@څل@ڃقAJ@g 0BRSf`N^Nu%FP68K NV,_ _?<N&N _?<NN _BgNN _?<0NN _?<NN _?<NN _?<NN _?<0NN _?<NN _?<NN _?<NN _?<0NN _?<NN _?<NN _?<NN _?<0NtN _/R T./@ g g ?< NJ`?<N@f`h`n`VDN _ ./@r?<Nifr` nr`rN _?< NN _?<(NN _?<NN _?<NN _?<0NN _?<NN _?< NN _?<(NN _?<N|N _?<NpN _?<0NdN _?< NXN _?< NLN _?< N@N _?<0 N4N _?< N(N _?< NN _?< NN _?<0 NN _"_?< N2N _?<NN _?<NN _?< NN _?<NN _?< NN _?<NN _?<NN _"W?<N`( _"W?<N` _"W?<Nv` _"W?<0Nh0BQJ@jRQD@S@N _?<NLN _?<N@N _?<N4NNVHn?<N" nN^\N%SANE_ASNV,_ _?<NN _?<NN _?<NN"_2YA`HWaWWHW?<NTN"_HWa0<`_X?NBA`r"_HoaH7VDNJ/g _TH>HW?<NzTNBA`r"WHWal/HJ/f`HW?<NHPNN^Nu%SANE_A2NVH n P"H&n Z$K gB -f` +fBABB 9nJ 0n*g .gT`8 0g"HS` 0Wg`RAABA 0m nRA` 9o"HS .ft"HBB 9nh 0l@``0WfRAABA`0SDWgSD`BB 0mnRB` 9nJAffƘB`"HSJgjA Ef^BA -f`$ +g`"H 0HHҀ @o2<@ 0m 9ogDAAh 8<@gDDS` If" Nf Ff"HI` Nf Af Nf"H (f ` @A0 0m 9o )gS`"HJf2<N0 9o^0 9o^$n$$n$$n $E0 f5|0`@ n-nL?N^Nu%SCAN_DEIntrinSgfpelems ELEMS68KELEMS68KLOG2X LOG2X 0ANNUITY ANNUITY COMPOUNDCOMPOUNDRANDOMX RANDOMX 4XPWRIXXXXPWRIXXX@SINX SINX 8ATANX ATANX LNX LNX ,COSX COSX EXP1X EXP1X EXP2X EXP2X %ELEMS_A%ELEMS_AHTANX TANX <EXPX EXPX $XPWRY XPWRY DLN1X LN1X (dNN2NNN2NNNNNNtNNNNNNVNVHBGA6jJ(X(f 6 * t Cg Da4`4X* 6`HPHn?<|0.jD@@Nut(P 6* Ea2Hn?<|Wl E"LaP/HTBg|`Wl/HT?<|`D0@0;NPPPPff&&Lzv |  t""2QNu0HQHP?<|HRHP?<|PTHQHPBg|S@nPTNup` p`p`pUHW?<|HW?<|TJNup`p` p`p`p?HW?<|`p`p` p`p`p?HW?<|`=|G')')7aJlHz HS?<|JjDna a.lHz j`HSHn?< |JjDnHnHP?< |NuHnHz :?<|NuSj JAjp$`f JgJAk`bJgHTHz ?<|be` LCaHz HTBg|Hz \HT?<|o HTHz @?<|c I"Laha`p LCaVHQ?<|Q LaQHz HT?<|oHz DHnBg|Hz ^HT?<|Hz (HT?<|a&HnHTBg|fHz HT?<|`HTHn?<|0.jD@Y@fNuS@g Hz a`l LCaHz HTBg|HTHQ?<| IHQHQCa?<| LC EatHnHT?<|AC EaVaHnHT?<|aNuA ``$A d`A @`A D`aA l`a~A l"La`(BBTQadHn?<|LN^NuELEMS68KNV,_SgnJAk`ga<`a^a>ga JAjaa`fa(Hz HTBg| LCa(` LCarHQ?<|aHQHT?<|Nu LCaLHz ,//HT?< |HTHQ?<|HQ?<|HQ?<|HT?<|`TSngJAk` Sg"JgHz HT?<|aHaP`daX` JfataTga6JAja`a@Hz Hn?<|g(Hz HTBg| LCa.Hz HT?<|a`Hz HT?<|fNuC LaRHQHQ?<|AC Ea@HnHT?<|AC Ea"HTHn?<|Hz JHT?<|HnHT?<|ab`" D4gSn&BeBjJj Jj`Jj`0jD@ @ba.`?/Hn(?< |a0jBd` LCanaRJBk I"L``AxCaVafafHnHT?<|NuavanHnHT?<|0jD@a`A2Ca` HTHT?<|Hd HTHQ?<|J@fNu LCaHQ?<a/HQ?<|HQ?< a I"L`JAkap`Xap%`Jg DCaHQ?<|afHzHQ?<|HQ?<|Hn?<|aa.gT`TSfSgJBj aA`AX"L`"jSf`nSjHz,HT?<|gX</Hn?< |aVa,a|Vf4.0jD@ @oVaaJkNuHz/?<|mnSf`x DJk|``Sgn SgbAk`jC Eav0 @?mHQ?<a/HQ?<|HQ?< `/HQ?<|HQ?<araZ I"La*`8p&` HzB/?<|mfSgJBj`Sf`Sn*m "L Da`JBjHz/?<|gn`Jj(Ak ECaHQ"LAaHQ?<|`C Ea0 @?m0HQ?<a/HQ?<|Q Q@m E P@l`HQ?<`/HQ?<|QHQ?< afQ/HQ?<|afaf IaWfa`UgazA"La` EaHQ?<aC DaHzHQBg|HQCHQ?<|QHQ?< aQ`p!tSgkaPfaZ`aBUBkTaaHTHn?<|0.jD@]@fa`tp!tSf`0HzHT?< |@NuELa6HTHR?<|HRHP?<|HPHT?<|NuaHRHP?<|Nu LCaHQHQ?<|JAaHPAaHP?<|NuE.aHRHP?<|Hz2HR?<|n.Hz,HR?<|HRHP?<|"LaHzHTBg|NuHzHT?<|HP L"JafHzHQ?<|HQHT?<|HT?<|HQHTBg|THzHTBg|Nup!tSkg*aa6Zd.T LCaHQA"LaHT?<|angT`REa LCaHRHQ?<|HQAHP?<|Hz HR?<|nHzHQ?<|HQHPBg|`VHP LCaxHzHQ?<|HzHQ?<|HRHQ?<|HQBg|HzHR?<|HRHQBg| IHPHTBg|NuSlA"LaBT`f`aBT`ptHzHT?<|c"t LCaHQA"LaHQ?<|//?QHzHT?<|nEaHPHT?<|` LCaHzvHQ?<|HQACapHQ?<|Hz~HQBg|HzrHnBg|Hz6HT?<| LCa4HnHT?<|HnHQ?<|Ea HPHT?<|HzHTBg|HnHTBg|C2##HQHT?<|JBfTNuHzfHTBg|NuHzlHT?<|HzhHT?< |Jj HzVHTBg|`?FF;?2!Ma?ܗDx?9FWk:Fܚ@?5 ^?> y?\'/@ӺE@ q ?@HpKZ@ ua.?@@ @?????ڢ!h5?ڢ!h5@ N@?3d?3d@TXJ?ry?:,j?*_db?0j?@ظDZ0@I y# @&c+PC@vfk QĪ@ĩ?@jߖ@ǧe]k@n{R~צX@d~2r -@VXkE@IhRz@$ U BWb@ ᐓ vf3cכ(8?q>L͎$e}@6pK6?*]@yLس@7ph@ͤY@ULV?@;l0@Y=:Ho@h8EN^Nu%ELEMS68NV,_ _?<NN _BgNN _?<NN _?< N|N _?<NpN _?< NdN _?<NXN _?<NLN _?<N@N _?<N4N _?<N(N _?<NN _?<NN _?<NN _?< NNN^Nu%ELEMS_A\IntrinSgfprealioF32%R_R F32%R_R FP%STRANFP%STRANFP%OUTPUFP%OUTPU %W_E %W_E %W_F %W_F  NNHNNN JJoNV/ (n(l llRl0, nC(_N^.NuPPC JoNVH(n/,`B@=@0.Q@g@gf@gg``"0,lJ@o@/,<?<x/,< ?<x/,<?<xJloSl`Sl n,HN\`$=l~` A A RGinopApA/,HnBg/,HnBg/,HnBg0,R@=l>` ARGinopA/,HnBgBlBl n,HN`^/,g=| /NP`D/,gJlfBl` =| /N*`JlW n WgRl`/N LN^.NuUMP JoNVHB"H-_BnBnO ./",Jnf/N`=|pAHnHnHnHnנ.g./N=|pAHnHnHnHnנ`/. nn-|N11 n]2.ڲn]gJ_f?<ՠHHnHnޠ`-n LN^.Nu32%R_R JoNVB.=| /././.N^ _ NP%STRANJoNV/ np0A A V nr0B B-Vg/.< ?<xSn n@2. @=A~`/.< ?<xRGino/./.Bg.N^ _ NP%OUTPUJoNVH8. Dnx` Do8< DlBE` _@:Bg/. Hn<Hk @nH0;NJnf=|0`-|-0 .@>JEo0 R@"RAE=A<` A RFino R@E> R@"XA=A<` A RFinop"XAA`nB. R@=@ no=|=n/./. HnؠJ.fBG`~pA- R@rA0BAJEofRG R@A.=n|` FA0`AARFino0.R@"RA=A<` FA0RFino EZ@> W@AE0.nS@=@Jnl U@A-` U@A+ S@2.jDAH |0A 2.jDAH HAJA|0ApA`/. ?HnN/.?.HnNLN^ _ NХW_E JoNVH(n/,/, Hnࠦ.@<6`@ @?fB,`J.fBl`9|pA-Jnmb=F~` l6pAARGinol0,R@2.l=A>` A0RGino0.l`\ D@nmRl0,A0`>0.F=@~` l6pAARGino l2.@9AJloRl0,A.Jnm80,R@2,l=A>` A0RGino0,l`N D@nm0,R@2.F4,A=B>` A0RGino0,Fn9@=F~` l6pAARGinol0,R@2,l4.A=B>` A0RGino0,l2.@9A`0.Fl:0,R@2,n=A>` "G6BARGino0.l0,R@2,l4.A=B>` A0RGino0,l2.@9ApALN^.NuFROME JoNVH>. =nJnlBn Go><JnW G]g~Jn^"n A]g0.V@ @n 0.V@>` W@=@Bg/. Hn<Hk @nH0;N~~Jnf=|0`-|-0 JnoR.@=@0.R@2.RA4.A=B<` A RFinop2.RA4.AA`>|=n/N.@J@fB.=|/N`/. ?HnNl/.?. HnNLN^ _ NХW_F  րIntrinSgfpreal %F_ADD %F_ADD %F_SUB %F_SUB 4%F_MUL %F_MUL (%F_DIV %F_DIV %F_EQ %F_EQ %F_NE %F_NE 0%F_GT %F_GT %F_GE %F_GE %F_LT %F_LT $%F_LE %F_LE %_SQRT %_SQRT \%_EXP %_EXP H%_LN %_LN L%_SIN %_SIN X%_COS %_COS D%_ATAN %_ATAN @%F_ABS %F_ABS %F_NEG %F_NEG ,%I_FLT %I_FLT 8%_ROUND %_ROUND T%_TRUNC %_TRUNC `%_PWR10 %_PWR10 P%R_R %R_R <pNNVN*NnNNNNNNNNNvNN NXNNHNNNNNNHNVHn Hn?<|HnHn?<|HnHn ?<|-nN^XNu%F_ADD NVHn Hn?<|HnHn?<|HnHn ?<|-nN^XNu%F_SUB NVHn Hn?<|HnHn?<|HnHn ?<|-nN^XNu%F_MUL NVHn Hn?<|HnHn?<|HnHn ?<|-nN^XNu%F_DIV NVHn Hn?<|HnHn?<|gQ`P.-n N^\Nu%F_EQ NVHn Hn?<|HnHn?<|fQ`P.-n N^\Nu%F_NE NVHn Hn?<|HnHn?<|nQ`P.-n N^\Nu%F_GT NVHn Hn?<|HnHn?<|lQ`P.-n N^\Nu%F_GE NVHn Hn?<|HnHn?<|eQ`P.-n N^\Nu%F_LT NVHn Hn?<|HnHn?<|cQ`P.-n N^\Nu%F_LE NVHnHn?<|Hn?<|HnHn ?<|-nN^XNu%_SQRT NVHnHn?<|Hn$HnHn ?<|-nN^XNu%_EXP NVHnHn?<|Hn,HnHn ?<|-nN^XNu%_LN NVHnHn?<|Hn8HnHn ?<|-nN^XNu%_SIN NVHnHn?<|HnHnHn ?<|-nN^XNu%_COS NVHnHn?<|Hn HnHn ?<|-nN^XNu%_ATAN NVN^Nu%F_ABS NVnN^Nu%F_NEG NVHnHn?<(|HnHn?<|N^Nu%I_FLT NVHnHn?<|H0. @@lB _=PPHnHn?<(|0@n`n0LN^Nu%_ROUND NVHnHn?<|HB _=PP`HnHn?<(|0@n`n0LN^Nu%_TRUNC NV,_Bg.NVBn=n ||1HnHn?< |N^Nu%_PWR10 NVHB/.-_LN^Nu%R_R hIntrinSgmathlib SIGNOFX SIGNOFX <FP_SIZE FP_SIZE ,GETPRECIGETPRECI0SETPRECISETPRECI8CLEARXCPCLEARXCPCLEARHLTCLEARHLTFP_NEW FP_NEW (NEXTRANDNEXTRAND4ASINX ASINX ACOSX ACOSX SINHX SINHX @COSHX COSHX TANHX TANHX DABS2X ABS2X ATAN2X ATAN2X FP_FREE_FP_FREE_$JN *NNN NNNN NNDNNN*N NNLNV nV . -nN^XNuSIGNOFX NV,_NVH8 n"n $n&n0]DH0(+*+ @gJk,JfJfJmB`d`^S@څلjJ@n`L@? @n> @m8aD@o A4n*4B2@n An @n4B@n`LN^ _NJgJEg2<?`2</HEMUNuJDg2<`2<HDLUNu8|"JfJfJDk`gB`JDka An`~ A4nv`nJl JAf @ lS@ @n @nB`L`D @n`6 @>n`&N^NuFP_SIZE JoNVHppN0.H  mH | |A<` H |0<p0.HH@J@  mH | |A<` H |0<pHn/. dLN^ _ NREATENAJoNV/Jn f~`>. ?/./N6Bg<.N^ _\ONRRORNANJoNV/ n>JGl| |?=@ .N^.NuETEXPONJoNVB-_ n0H@@N^NuETPRECIJoNVB-_ n.H@HPPN^ _TONETPRECIJoNVB-_ nPN^NuLEARXCPJoNVB-_ nPN^NuLEARHLTJoNVHn/.J_f-n `B N^.NuP_NEW JoNVH..J_ \g/<p/".//<",//<" //<A"*//<"(//<A" П-@/./<"-_//<" /./<"".//<""Ҁ .Ё.Jl޼-G LN^.NuEXTRANDJoNVHn?<HnAC 0/.Hn0/.Hnꠦ HnHnꠦHnꠦ nC""2HnHnxHn <Bg<BgBgHnHn蠦@ f>Bg/.Hn蠦@Hk|nAJ2IDA0 <gN?<"HnN?. nC 0N^.NuSINX JoNVHnꠦ?<HnAC 0/.Hn0/.Hn젦 HnHnxHnHn ?<Hn<Bg<BgBgHnHn蠦@ f>Bg/.Hn蠦@Hk|nAJ2IDA0 <gN?<"HnN?.ꠦ nC 0N^.NuCOSX JoNVHn nC""2HnꠦBgHnN _lB?<HnꠦHn꠨?<HnHnHn HnHnHnꠦx`,Hn꠨$?<HnHnHnxHnHnꠦ0?BgHnN<Go>AC 0AC 0 D@?Hn֠ D@?HnࠦHnHn֠HnHnࠦ<BgHnHn֠ Hn֠?Hn֠?.ꠦ nC 0LN^ _ NBS2X JoNV nCJ""2 n CJ""2Hn̠AC 0HnHnؠxBgBg8gNBgHnؠHnHnH`<Bg<BgHnؠ BgHnNg6? l0p@ @0fSG`l^D`JlfB`"> l0p@ @0fSG`l^D`f l0,R@0A=A n5\D n5f<> l0p@ @0fSG`0,T@Gn|` l0,0AAg|<<>, l0p@ @9WDg l 0` l "l1pARASG   G]@ggRl lp1`*> l0p@ @0fSG`lo << lpLN^.NuOUNDS JoNVH(nJlfBl`x0,jD@>9|JGo* H H@J@|02,A9 H >Rl`Jll0,@9-Rl`,g0,@9+Rl0,@9ELN^.NuORMATEXJoNVH nCJ""2 n CJ"2Bg_Hn젦HnHnHnHnNd.Hk @nH0;NZZ8 n_JnWg n00` n -0 `Jnf n Inf` nC 0` nn n NaN`d/.Hn/.( np0A A f/.?<?<"` n@noJnf n NaN` nCH 0` .n|Bn/.HnHnȠD nCp S@n0 n@>.g n0p@ @0fSG` n@G=@ nm.g=|`=| n mRn0.ưnl`RG n E.gRG n + n mRG n 1RG n 2.H HAJA|0 np n@2.@n_D@`XB.=|BgHnN=_Jn] n>^g =nJ.fRn0.no=n0.no=n nl=|.HgS@gS@gS@g`,|`$BgHnN_`BgHnN @.g < `. /.HnHnȠDBg<8gr. gD.@<B.6`@ @0f 9` 6`ASA|SF.g.@R@8p !0.S@=@B.. g\.@8:. Eo:< nS@:0.D=@0.E @\. @gn^Jn^nWgJnm=n`*=nnl=E.g=n` 0.n=@ no=|nn6@@ @!f S@=@ nm n=@/N n@>nJnoR R@2.G=A<` n 0RFino np2.GHz/.0.GR@?"<` D@no<` n Gn"n1`ASF Fl D@n<` n 0SF Fl np2.DA n/Hz/.Hn?<" _Cp@ S@n`Hz/.0.GR@?"< n@> n0p@ @0fSG` GfB.`@. g n0p@ @.fSG np n@"RA@\D@. g=E0.no=n no=|nn6@@ @!f S@=@ nS@=@=n=n/N nnl n=@=n/N0.nfHz/.?<"< n@> n0p@ @0fSG`. g n0p@ @.fSG0.GR@=@<.` n0.F"ASF Fl np2.G nfHz./.?<" .Ȑ//NRBgHnHn@ g S//N&HnHn⠦0p//N .R.AC 0l^HƾlH //NDl?<HnHnHn AC 0HnHnxnl 0.H*` R@H*H.?HnA g/ PN-GȺl$S/NW.@g.gRȾfHnHn젦 p//N`@ R//NBgHnHn@ g R//NHnHn젦 .S.AC 0o\HƾoH //NBn\F\g?HnA g/ PN`AC 0HnHnؠ HnHnؠ nC 0LN^ _NO_NPV JoNV nCJ""2Bg_Hn. ?.?.?.Hn/.A/ / N?.N^ _NIN_NPV JoNV/ nCJ""2 n CJ""2HnҠ0.H.0.H/HnޠAC 0HnHnԠ HnHnԠxHnԠHnԠ(HnHnԠxHnԠ?.Ҡ nC 0.N^ _NIN_2RETJoNVBg_?./. "n"iA g/ PN. N^ _ NEVAL JoNV?./. "n"iA g/ PN n h0(H2.H/HnHn/. N^ _ N1EVAL JoNV/ (n,g&?,0,S@?0,S@?HlHlHzh/N栴?,?,?,HlHlHz/NRlnBgHlHl@ f n,HN ,gAC 0AC 0AC 0BgHlР0|@?HnHn< HnHn⠦0< HnHn젦 Bg BgHn⠴A*C> 0=n=n`.?.HnA g/ PNBgHnHn@HgS@gS@gU@gS@g` n Pg=nRnX?.Hn n PfB=n=n nBP=nHA4C 0A C 0HnHn `j0.nHfHnHn4 ` HnHn> HnHn0.nHfHnHn ` HnHn* 0.ng nRP=n` n0Rni 0.no n Pmj?Hn*xHn*Hn 0AC4 0Hn>HnР Hn>HnРxHnРHnР(Hn HnРxBgHnLHnР V/BgHnHn@ Hk|nA4JDB0 <Wg?.?.Hn4Hn>HnNp n PW nXWg`ZBnn|/NAC 0AC 0A C 0AC 0AC 0AC 0AC 0HnHnxAC 0HnHnР0BgHnLHnР gACL 0/N BgHnڠ.(n lܾP^ l2l]g 0,HѬ` lܾP] l2l^g 0,H` lܾPf n "lT 0` n C 0LN^ _ NAYPROC JoNVH nCJ""2 nCJ""2HnꠦHn=| B0.$H2.&HR2.H//"࠴(*Jf n0`DBgHnȠ-E n0=n$>.&`?HnA g/ PNBgHnHnؠ@HkV @nPH0;N>>>.. n PVn Wn"W‚D` n PVD` B n0g6 n Pf =G nBP(n8 LTC 00.HѮ=GRGino> nJPmRHnܠ80.&n _2. n$_gX?.?.?. HnHnHz/N&-E(n<BgHl< g LTC 00.HѮܼnf0.&n"_2."n$_gdHnȠ?.?.?."HnHnHz/N-E(n<BgHl<g LTC 00.HѮܼnfHnȠ-E(n<n f HnHl n"f HnHl 0.HѮܼnf-E?.?././.Hz/N nJPl ?<'/.Hn8?.ꠦLN^ _ NIN_RETUހIntrinSgmatrix MAT_MULTMAT_MULTQR_FACTOQR_FACTOQR_DETERQR_DETERQR_TRANDQR_TRAND$QR_CONDIQR_CONDI QR_SOLVEQR_SOLVE QR_RESIDQR_RESIDQR_IMPROQR_IMPROQR_TRANSQR_TRANS((NN N NNNN(N NJoNVH(n?,?<Hl"nA g/ PN?<?,Hn"nA g/ PNHnHl=l(~`T?,?Hn"nA g/ PN??,Hn"nA g/ PNHnHn젦HnHl RGinoLN^.NuRODIJ JoNVH&n :.&8.* n(]D g.$g6HnBHp //"H/"࠴(,JWD g R@H/p /"=D=|`XHp //"0.H/" І.=E=|`/Nxp ހ(GA"L""2Rni 0.noRni 0.no=D=|`^Hp //"0.H/" І.=E=|`$p ހ(G?.?./ A g/ PNRni 0.noRni 0.noHn8`X=D=|`B=E=|`&/N?.?.HnA g/ PNRni 0.noRni 0.noLN^ _$NAT_MULTNVH(mT0. H//," Ь2.H//,""Ҁ&AA"K 0LN^.NuETCHQR NVH(mT0.H//," Ь2. H//,""Ҁ&A n"K""2LN^ _PONTOREQR JoNVH(mT&n~ +g|`| .rЁHH2+H//""R//")@H0+H//")_H)GLN^.NuNITQRGLJo8NV"H8.(mTHn=| H-D.gT n] D]g nB`6 n/B0.H//."0.H/" rЁ/(  _ nJg n&P67nnB+?<Hk n/NBgHnjnl=D`=nB.i=n6z` Ef0.gAtCj 0=|=n4~`A~Cj 0=D2|`>??HlA g/ PN??HlNHlHlꠦHlHn~ RFin2oBg?Hn~NBgHntHn~ fAtC~ 0=G9GBgHn~9_?`?=l S@??NLHlHlꠦHlHn~0BgHn~0.>_ @ o@A~Cj 0=D*<`$??NHlHlꠦHlHn~ RFin*oBg?Hn~N*BgHntHn~ fAtC~ 0=G=n<~BgHn~=_RGin,o.g^ngX=D(|`>??.NnAtC 0??NX??.HlN??HntNRFin(o+ @<.i??NAC 0 R@=D&<`??NAC 0BgHnHn@ grAC 0HnΠAC 0HnĠAC 0HnHnؠAC 0HnHn⠦HnHnؠ HnؠAC 0HnHnHBgHnHnΠJfzAC 0HnHnxAC 0HnHnxBgHn< gHnBgHn<gHnAC 0n@`\AC 0HnHnxAC 0HnHnxBgHn< gHnAC 0??HnN R@=n$>`??N2A@C 0??NATC 0AJC@ 0A^CT 0HnHnJHnHn^Hn^HnJ0??HnJNAJC@ 0A^CT 0HnHnJHnHn^HnJHn^ ??Hn^NRGin$o2AC 0RFin&oZBgHnHn@ W/Bg<8 g.g?,`>A~Cj 0=D"|`2??HlA g/ PNHlHlꠦHlHn~ RFin"oHn~?`HAC 0GfAC 0`dAC 0 R@=F8`D??N?/N8HlHn栦HnHnĠ FfHlꠦHlHn RDino??NBgHlHn@Hk|nA2IDA0 <f nC 0`HlHnĠxHnĠAC 0?/NHn栦HnHn Ff4HlꠦHlHn BgHnHnJfAC 0SG GlBgHnHnJfAC 0RFinot nC 0Hn/.xHn/.x?.Hn8LN^ _PONR_CONDINVH(n0,H2.H4,H6.H//"$ԁ//" Ь&@ n "K 0LN^ _ NETCHX NVH(n0,H2.H4,H6.H//"$ԁ//" Ь&@ n "K""2LN^ _ NTOREX JoVNVFH(mTHnhHnj=| -nV nV=P nV=h0.nl=n=n` =n=n /0.H2.H//""-_d n d]D n g/.N0. Hdl 0. H-@dB0.H//.d"0.H/"࠴(-_0.H2.HR//" ?<Hn=|\0.\H".dҀS=A^0.^n o=n ^=n^T<.\`F n\R@:=nR~`(??HnA g/ PN??Hn/NRGinRoRFinTo=nP~` S@=@0.no=n=nNx`??NAC 0BgHnJ_ofBgHnHnZ@ gn@AC 0AC 0HnHnȠAC 0HnHn0Hn`RGinPo=n^J<.\` n\R@:0.nl\BgHnx0.R@=@H>.`< nV(g?.`??Hn/N R@=nF8`d??Hnn/N??NBBgHnnHnZ@ V/BgHlHnZ@  VgHlHnnHnnHnܠ0RDinFoBgHnHnZ@ g4??NBgHlHnZ@ f BgHnܠ` HlHnܠx??Hn/N nV(g?n0o>.0?.?. nR@?A(/ / Hz/Hz/Hzh/N nR@?/.,/.(Hz/HzF/N=G:.`l nR@=@=nx`L??HnA g/ PN??.Hn/NHnHn ??HnA g/ PNRDinoREino R@=@0.ްn0o Hn8?.蠦LN^ _*NR_IMPRONVH(n0,H2.H//" Ь&@ n "K 0LN^ _ NETCHX NVH(n0,H2.H//" Ь&@ n "K""2LN^ _ NTOREX JoNVH(mTHnHn=| -n n=P n8(no =D:.`=n: /0.HH//""-_ n ]D n g/.N>B H/(-_0.H?<HnҠ=n =|`p n(gb=D~`R<?`> n(g?`?Hn/N R@=E<`0?Hn/N??NHlHnHnHnܠ0RFinoBgHnHn@ g??NFHlHnܠx?Hn/N n(g?.g.??A g/ PN Є&@6. Є(@0H*` Є&@6RioHn8LN^ _NATH_SOR,IntrinSgsolve MATH_SOLMATH_SOLN HJoNV nCJ""2 n CJ""2HnHn젦BgHnHn젦_N^ _ NRELX JoNV nCJ""2Hn/. "nA g/ PN nRhBg/. Hn@Hk|nAF2IDA0 <f"n iC 0 n,HNzN^ _ NVAL  JoNVH(n BgHl(=_AC 0/ HnΠ0AC2 0Hl(Hnؠ0HnHnΠxBgHnΠ _lHl(HnΠ`6BgHnΠ<_AC( 0?<HnΠ.gHnΠA"L 0HnHn⠦0BgHnHn @Hg"S@gS@g`VBgHnHnHn`>A"L 0?A"L 0?A"L 0?`THnHn ?.JGl D@>=|1p"H HAJA|0 n 0 H >JGg2p"H HAJA|0Hn/. ?<"< H >`Jnl( n /Hz6/. Hn?<" _Cp@ S@n.N^ _ NNT2STR -JoNVH n CJp"S@n2J.g n0-` n0 p6AA0gAgTA g4[AgT`r n//.HzHn?<" _Cp@ S@n`@J.g nCl 0` nCX 0`.@=@ no=|BF=nz`.6P@=@ @2.@< n9n|0`|7REino n//.HzHn?<" _Cp@ S@n HH@J@<JFf|=| n0."H HAJA|0 H <SnJFf np0A A0f/.?<?<"``( n//.Hz:Hn?<" _Cp@ S@n`J.fACp S@n0.@> nS@:8. Do8<GoRG A0`pAHzHn?<"0.G8`.0.D@.A@of n//.HnHn?<" _Cp@ S@nHz6/..@2.@RARA?"< n@>0.G2.@8` n//.HzHn?<" _Cp@ S@n.@2.@DA=Az`, n//.HzHn?<" _Cp@ S@nREino n//.HnHn?<" _Cp@ S@n n@>0.G2.@8 Do8<GoRG n 0` npLN^ _ NEC2STR ,00..???.???ENaN(000) INF-INF0.0JoNV n CJp@"S@n=|HnHn/.Hn nn n!|N11N^ _PONTRTODECJoNVH<. &nIBJFm R@=@`=|,@=@8.`4@@ @0VGRDino Fm4`@ @0VD`B< +Hg6S@gS@gS@g`\B.`VJW"@`F W"@`4 FlB.`(4`@ @6\4`A A5W@@LN^ _\ONOUNDUP JoNVH n CJ""2Bg_HnР.נ /.HnHnܠDp6A A?f<Bg< B.=|/.HnHnܠDBg<8g0HnHzpHn?<" ACp S@n00.S@=@.נ .f0.D@no.@2.@0.A<Bg?/Ng Fn=|10.D@=@`|.@=@>` 0RGinoz S@>`4g. 6pARA6p@ @9^Dg 0SG Glgp10.R@=@`: Fn=|00.D@=@`".@=@>` 0RGino/.Hn/.N?.РLN^ _ N2STR 1JoNV/. Hn/.Hn/.NN^ _ N2STR JoNV n CJ""HnHnT/.Hn/.NN^ _ N2STR JoNV n CJ""HnHn,/.Hn/.NHN^ _ N2STR JoNV n CJp@"S@nHnHnNHn/.`N^ _PONTR2S JoNV n CJp@"S@nHnHnN`Hn/.\N^ _PONTR2D JoNV n CJp@"S@nHnHnNHn/.XN^ _PONTR2C JoNV n CJp@"S@nHnHnNHn/.dN^ _PONTR2X  :IntrinSgcorrbd X2LDEC X2LDEC LDEC2X LDEC2X (NDNHJoNVH(n &nBG` @BtRG G o8 9| BG`B3pRG G'Bo6'B7|'BLN^ _PONDZERO JoNVH(n B0.H<JFlBF F!o<<!0< FR@=@0.Tl=T>.` @JtVDRG G o0< F=T>` @"FA9SGinl TS@=@ n o=| =n>` @BtRGino T=@ nl=|0.HH@J@=@~`0,@4A =n:< `F S@@4Ag @24H| @9` @24H @9SEinl TJ@f0,H9@RGinot,E@ "g 0,DR@9@DLN^ _\ONRIGHT JoNVH(nBF=T>,`: @"A44tF: Eo| |"A9` BF @9SGinlJFg0S@80@9LN^.NuTIMES2 JoNVH(nB.0. lD> Gn9GD`P |9@Dz<< g0SF @24RA> G^Dg @Bt` @9`̼Tl|8LN^ _\ONINC JoNVH(nBG=T<,`2 @24 G: HH@J@"A9 H>SFinlJGg0S@80@9LN^.NuTIMES10JoNVH(n0< TR@@<0@>4 GlSFG`=F LN^.NuWIDTH JoNVH(n&n 0,ko /.0,k?NN| 7l`B, LN^ _ NUFLOW JoNVH(n n>(D @gSG H@gUG H@@ n1GD/.?<N @,, @ ,Hg8S@gS@gS@g`6B`2 n JW"` n W"` ."g0Bg?</.Ng/.?<ND n 0(R@ n 1@LN^ _ NROUND JoNVH(n&n 0+l^D@ , g|J,W ,WJW ,W Wg~`BG l7@/.0S@?N0S@=@|` /.N: npGhD n1@DRFinoLN^ _ NOFLOW JoNVH(n :.B0<'BER@>`J4pVFRG G'Bo0<'BE=T>` EpSGinl TS@=@>`B4pRGinog ,'FHR@@'FLN^ _\ONRIGHT JoNVH(nBF=T>,`04pH4pH@F: E o| | p`BFpSGinlJFg0S@80LN^.NuTIMES2 JoNVH(n&n 0,ko /.0,k?N| 7l`B, LN^ _ NUFLOW JoNVH(n&nJ,'FVD,'EH:,'D@@JEV@@++ @ +HgDS@gS@g"S@g`RB`N n JWJEV@`6 n WJEV@` E^ EW$.@g`~<<'Ag,SF4`HR@=@ n ^DgB4````мTl& +f0 n 0(R@ n 1@`8LN^ _ NROUND JoNVH(n&n*. E0(l^D@ , gn|J,W ,W EJW ,W E WgBG`~0,R@G E1@ @R@20R@<`  `RF F'@oLN^ _ NOFLOW JoPNVNH n CJp"S@n nBG` nB0pRG Go nB( nB( nB( nf n"n3h` n@tfJ n0(R@ n1@=nP~`&0.PH H@J@ np0.PH =@PSGJGl`HzBG` @JvWRG G og n"n3h`0.R@8JDm|` Hr@<HnHnRN=| | =@BG` @"FAA1RG G o S@@@ n0R@ n1@JDo*HnRNHnN>SDJng.HR@@Bn`0.RAVJ0f"HnN"n n0(S@ n1@`Bn n (f0<'BnRR@ n2TAA<` n0D@<JFl\>.R` FAVCVpAVB0pRG G'Bo nR=@R |'C>`HnNAVpBnRG G'Bo`HnR?NV nR=@R n h n1@B=nN>.` @AJpVERGinNog .HR@@HnR/./.NHnR/./.NJHnR/./.Nj>.R` n nRCVpRG G'@oLN^ _ NIN2DEC Jo>NV6H n CJp "S@n nBG` n @BpRG G o nB( nB( nB( n0HH@J@r@=A@ n@fBn@ nf n0.@h n1@` n'fp n0(R@2.@@ n1ABDBG`  6pH@8RG GoJn@f n1D`& H n1@ HH@J@@ n1@`zzBG` J6pWRG Gog n"n3h`NHnHnDN< n0R@ n1@0.R@=@Jnm@0.S@=@` R@nAHpRG Go=|Dpn=@F0.FnDl=nDF0.@AJpf0HnDN,.HH2.AA1 n0(S@ n1@`B.HBgHnN n0T@<@JFl@ D@=@:~`,HnN:HnDN=nB.HHnB=@B.HRGin:o` Hn?NV n h n1@B=nF8>.D`AHJ0pVERGin8o=nB.C@ "g 0.BR@=@Hn/./.NnHn/./.NHn/./.N n0HH@J@<JFg npFh n1@ n0S@H2.@<=n6>` @ n"FAC1RGin6oLN^ _ NEC2BIN JoNVH n CJ""2(nAC 0BF`p F6H:JEl| @=RF F o0.H0.HH@J@@2.@|?9ABG` @BtRG G oBG`pG@"A9RG Go l@f9|@tLN^ _PON2BIN JoNVH n CJp"S@n0.|>.H@"H@=A HH@J@@2.HHAJA@=A=n=n n] GWgnBG`pG@<6 Fm|pRG Go n LN^ _PONIN2S JoNVH n CJp"S@n0.|W@> GW n]gBG0.HH@J@=@.H@"H@=A HH@J@@2.@=A|` S@@"A=RF FoBG` @:6 Em|pRG Go nC LN^ _PONIN2D JoNVH n CJp"S@n0.|?>.H@"H@=A HH@J@=@|`pF@"A=SFJFlBG`p G@:6 Em|pRG G o nC 0LN^ _PONIN2E JoNVH n CJ""2(nBg_HnHnHnN.HgS@gS@gS@g`B.`|`|`|=n=|=|'.HgS@g ` |`B.HnHnHnNp<.<.<. nf 9|0` n'f|BG`J6pW.@RG Go.g9|I`j)|N BEBG`  6pH@:RG Go~`: HH@J@8 D n "|0` "|7 H:SG Gl`N|n\J6`WgSF`=FBG` R@6pH|0RGinop"RA0.ҐF9@?.LN^ _ N2LDEC Jo|NVzH n CJp "S@nBg_}Hnڠnp6AA0gAg"[Ag8` =|BG`B6pRG Go`J=|'BG`B6pRG Go`0=|'BF.@ @nX.@ @o.@S@8`x.@=@z>`"6p@|0: Em_E @E<RGinzo`*~` 6p@|0: Em_E @E<RG GoJFf|~` H H@J@p H <SGJGl~`B6pRG Go`Z0.|=@.@>`"6p@|0"|.BBSG Gl.@r@>`B6pSGJGl.}HgS@gS@gS@g`B.`|`|`|.Hg2S@gS@g`:=|=|=|`&=|5=|=|`=|@=|=|?HnHnHnN<.<.<..Hg>S@g S@g`@HnHnN0/./.`&HnHn~NHn~/.T` Hn/.N?.ڠLN^ _ NDEC2X  TEinit %LTESCROLL'TEwork1 (Ff:TEcold *openclos<7,%access >4_swapaccs?^x!Dfrecovse@!LCUT TM 2TEENV RECOVERY1SCHEMA 8.LABSCAN CzSCAN HrVLTREE NCZCOMPACYHEAP ]POOLER `DBDECL1 zdLOWLEVELx4hPASLIB UNITSTD GRAFUTILUNITHZ STORAGE QUICKDRAHWINT FEDEC FONTMGR EVENTS WINDOWS FOLDERS MENUS FLDUT WMLSTD WMLCRS WMLGROW WMLSB INTERNATALERTMGRUNITFF UNITCS UNITFILEUNITFMT UUNIVERS TEENV (TM )FMGRUTIL*PMM +PMDECL ,UNITFIGA-SYS1LOCK.UCLASCAL/LCUT 7RECOVERY;LOWLEVEL<DBDECL1 =POOLER >DBENV ?HEAP @VLTREE ACZCOMPACBLABSCAN DSCHEMA ESCAN FFIELDEDIGSCRAP IFILERCOMKPRSTDINFMBLKIOINTfBLOCKIO gPASHEAP hj"PASLIB1 LWWORK OTHRWORKACTIVATEOPENSEG1INcold NEVER alert WMcold SMcold SUcold "TEinit %SCROLL &TESCROLL'TEwork1 (TEcold *UT 3openclos<access >swapaccs?frecovse@SYSINIT APMMSeg CWORKSET DGRAFSEG EFEcutCopFFEcold GSBcold HOPENSEG2IMOVERS KALRTDIALNOPEN1LW OPASIOLIB`SgPASinibLCUT ,INTRINSIC; INTERFACE uses (*$U libsm/UnitStd *) UnitStd, (*$U libsm/UnitHz *) UnitHz, (*$U libqd/Storage *) Storage, {$U libqd/QuickDraw } QuickDraw, {$U libfm/FontMgr } FontMgr, (*$U libdb/dbenv *) dbenv, (*$U libfe/FEdec *) FEdec, (*$U libfe/fld *) fieldedit, (*$U libos/SysCall *) Syscall, (*$U libte/teenv *) teenv, (*$U libpr/PMDecl *) PMDecl, (*$U libpr/PrStdInfo *) PrStdInfo, (*$U libwm/events *) events, (*$U libsu/scrap *) scrap, (*$U libsu/unitFile *) unitFile, (*$U libsu/unitFmt *) unitFmt, (*$U libsu/unitCs *) UnitCs, (*$U libsu/unitFF *) unitFF; (*$SETC LCUTdebug := not teProduction *) CONST LCUTAllOk = 0 ; LCUTNoData= 1 ; LCUTTabProb=2 ; LCUTWidProb=3 ; LCUTNoHeap =4 ; (*$IFC LCUTdebug *) TraceLCUT = false (*$ELSEC *) var TraceLCUT : boolean; (*$ENDC *) procedure WriteLCUT (tblCharWid : integer; Tblfntid : TLfntid; var status : integer ); procedure InitLCutProcs ( CellBlank : ProcPtr; CellInfo : ProcPtr; CellValue : ProcPtr; FinalDataSnip : ProcPtr; GetSnipId : ProcPtr; RgInScrap : ProcPtr; SnipWidth : ProcPtr; SwitchTable : ProcPtr ); IMPLEMENTATION TM INTRINSIC; interface uses {$U libsm/UnitStd } UnitStd, {$U libsm/UnitHz } UnitHz, {$U libqd/Storage } Storage, {$U libqd/QuickDraw } QuickDraw, {$U libfm/FontMgr } FontMgr, {$U libdb/dbenv } dbenv, {$U libfe/FEdec } FEdec, {$U libfe/fld } fieldedit, {$U libte/teenv } teenv, {$U libsb/WMLstd } WMLstd, {$U libsb/WMlsb } WMlsb; {$ifc teProduction } {$SetC tmdebug := False } {$elsec } {$SetC tmdebug := True } {$endc } {$SetC TMSDebug := tmDebug } const {$IFC NOT tmdebug} traceSMgr = False; tracetmgr = false; traceXtmgr = false; fwriteln = false; {$ENDC } ascCR = 13; maxString = 130; splitDh = dhSkewer; splitDv = dvSkewer; maxrun = 5; type cellSelType = (selectCell, selectContents, PutCaretAtEnd); {$IFC tmdebug} var traceSMgr, traceTMgr, traceXTMgr, fwriteln: boolean; {$ENDC } procedure ChgRgBorders (newRg: range; shoMarquee: boolean); procedure DumpSel; procedure EndRgBorders; procedure FindTblPt (hv: point; var PrtOfTbl: tblPart; var rg: range; var virtRect, screenRect: rect); procedure getCR (var rg: range); procedure getEditCell (var theRow: idType; var theCol: idType); function grayOfBand(aKind: snipKind; aP: pixel): fract; procedure growBand(aKind: snipKind; aP: pixel; var newP: pixel; var result: BGrowResult); procedure LDtmgr; procedure LDtmLoFreq; procedure NewRgBorders (newRg: range; useMarquee: boolean); procedure NewRgImg (rg: range); function PtIn1CRg (hv: point; targRg: range): boolean; procedure ReBldTbl (initRg: range); procedure ScrBand( aKind: snipKind; aP: pixel; scrScale: ScrollType; scrDir: ScrollDir; scrFract: fract; var didMove: boolean); procedure setCR (rg: range); procedure shoNewRg (oldRg: range; newRg: range; just: rgJust); procedure ShoNewWid (aKind: snipKind; loSnip, hiSnip: idType); procedure ShoTbl(shoRgnH: rgnHandle); function snipAllInBand(aKind: snipKind; aP: pixel; snipId: idType): boolean; procedure SplitBand(aKind: snipKind; var atP: pixel; var didSplit: boolean); procedure tmCurVwPt (var vwPt: point); procedure tmCurVwSet (vwPt: point); procedure tmFAct(fActivate: boolean); procedure tmInit; procedure tmLoadBands; procedure tmLoadNextBand(aTmBand: tmBand); procedure tmLoadState(atmstate:tmstate); procedure tmNewPars; procedure tmNewSnips(aKind: snipKind; priorSnip: idType; scrollit:boolean); procedure tmNextBandRg(var bandsnip : snipKind; var bandloId, bandhiId : idType); procedure tmReDoViews; procedure tmReSize; procedure tmSaveBands; procedure tmSaveNextBand(var aTmBand: tmBand); procedure tmsavestate( var atmstate:tmstate); procedure tmSetRgFB(cRg: range; useMarquee: boolean); procedure tmShoBreaks; procedure tmShoNewTbl; procedure TurnOffMarquee; procedure TurnOnMarquee; function underEdit (aRow, aCol: idType): boolean; procedure visRgOfView(aPt: point; var aRg: range); procedure InitProcInfo ( CellInfo : ProcPtr; CellRun : ProcPtr; CellValue : ProcPtr; FoldedFormula : ProcPtr; GetSnipId : ProcPtr; mmBreakSnip : ProcPtr; mmMapSnip : ProcPtr; SetSnipWidth : ProcPtr; SnipLT : ProcPtr; SnipWidth : ProcPtr; FatalError : ProcPtr ); PROCEDURE boldflds( var status: integer); Function CellChanged: Boolean; PROCEDURE ChangeCellFont; PROCEDURE ClearSel( VAR status : integer); Procedure CopySel( VAR status : integer); PROCEDURE CutSel( VAR status : integer); Procedure DoSelAct (Activate: boolean); PROCEDURE DoSelCR(aRg : Range; VAR timeout : INTEGER; hilite : cellseltype); PROCEDURE DoTblSel(P : point; VAR Nbh : Rect; VAR Timeout : INTEGER); PROCEDURE DoWavSel(P:Point; VAR Nbh :Rect; VAR Timeout: Integer); PROCEDURE EndCR; PROCEDURE EnterSelection(VAR Status:Integer); PROCEDURE EraseWav; PROCEDURE ExitSel; PROCEDURE ExtendSel(P : point; VAR nbh : Rect; VAR delta : INTEGER); procedure GetSelKind(var theSelKind: selKind); PROCEDURE InitSelMgr(wavActFlg : boolean;maxLenWav: integer; growdata:integer;growrun:integer); PROCEDURE InKey(ch : char; shiftflag : boolean; cmdflag : Boolean; resetrun:boolean; VAR Timeout: INTEGER; VAR status: INTEGER); Procedure LDsmgr; Procedure MovePointer(P: Point; var pRg: range; var nbh: rect); PROCEDURE MseUp( P : Point; VAR delta : INTEGER); PROCEDURE NewNbh(P : point; VAR nbh : Rect; VAR delta : INTEGER); PROCEDURE NewNbhWav(P:Point; VAR nbh:Rect; VAR delta : Integer); PROCEDURE NewTimOut(VAR delta : INTEGER); PROCEDURE NewWSel (P: Point; Pnl:PnlIndex;VAR Nbh : Rect; VAR timeout: integer); PROCEDURE NullCR; PROCEDURE NullSel; Procedure PackSMGR(hndsusdata:hnddata;offset:integer;curlen:integer; var leninstalled:integer; var newlen:integer); PROCEDURE PasteSel(pasteruns:boolean ;PasteLimit:integer; var status : integer ); Procedure PointAtRg(P: Point; var pRg: range; var nbh: rect); PROCEDURE reDrawSel(showselect:boolean); PROCEDURE ReInitSelMgr; PROCEDURE restoreRgFB (var timeout: integer); PROCEDURE ReSelCR(VAR timeout : INTEGER; hilite : cellseltype); PROCEDURE restoreflds(var curtimeout:integer); PROCEDURE resizeflds; PROCEDURE SelAllTxt(VAR timeout : INTEGER); PROCEDURE SelNewCell(P: point; hilite: cellseltype; VAR nbh: Rect; VAR timeout: integer); PROCEDURE SetAnchorCell (RowId, colId: idtype); PROCEDURE SetCellStr (str:str40 ); PROCEDURE UNDOSEL( VAR status : integer); Function ValidCoord(rg:range): Boolean; PROCEDURE WhTblSel(rg: range; var nbh: Rect; var timeout: integer); PROCEDURE unboldflds(var status : integer) ; Procedure UnpackSMGR( HndSdata:Hnddata; offset:integer); {$IFC tmDebug } procedure startTMtime; procedure stopTMtime; {$ENDC} implementation TEENV Intrinsic; INTERFACE uses {$U libsm/UnitStd } UnitStd, {$U libsm/UnitHz } UnitHz, {$U libqd/Storage } Storage, {$U libqd/QuickDraw } QuickDraw, {$U libfm/FontMgr } FontMgr, {$U libdb/dbenv } dbenv, {$U libfe/fedec} FEDec, {$U libfe/fld } fieldedit; {$SETC teProduction := NOT FDbgOK } {$SETC teSym := FSymOK} {$SETC TEDEBUG := NOT teProduction } {$SETC doTraceTE := TRUE} {$SetC fTraceTE := doTraceTE AND fTRACE} const OK = 0; OutOfMem = 1; InvalidCell = 2; rmDel = 3; rmOk = 4; rmReName = 5; parseErr = 6; undoErr = 7; badField = 8; cvnotenuff = 9; crnotenuff = 10; nullSnip = 0; pInfSnip = -2; mInfSnip = -1; nullTimeout = 0; dfltTimeout = -1; cFolderpnl = 0; cCellPnl = 1; cTblPnl = 2; cWidePnl = 3; cDialogPnl = 4; cScrapPnl = 5; nullPnl = -1; cBitmapH = 720; cBitmapV = 20; {$IFC NOT TEDEBUG} TraceFmgr = FALSE; {$ENDC } type bitptr = ^Bitmap; PnlIndex = INTEGER; Panel = RECORD PnlPort : GrafPtr; Offset : Point; PnlRect : Rect; END; panelptr = ^ Panel; pnlHandle = ^panelptr; STR40 = string[40]; str9 = string[9]; str100 = string[100]; pixel = integer; idType = integer; rgKind = (aNullRg, a1CellRg, aRectRg, aRowRg, aColRg, aRowGrid, aColGrid, aRowHedRg, aColHedRg, aWTBoxRg, aTblHedRg ); rgJust = (topJ, botJ, leftJ, rightJ, botLeftJ, topLeftJ, topRightJ, nearJ); rgX = ^range; range = record rKind: rgKind; loRow: idType; loCol: idType; hiRow: idType; hiCol: idType; END; fract = INTEGER; snipKind = (rowKind, colKind); SelKind = ( aNullSl, aCellTxtSl, a1CellSl, aRectRgSl, aRowRgSl, aColRgSl, aRowGrdSl, aColGrdSl, aRowHedSl, aColHedSl, aTblHedSl, aWTBoxSl ); TblPart = ( outOfTbl, cellArea, rowGrid, colGrid, rowHandl, colHandl, rowHed, colHed, whTbBox, tblHed); TableRecord = RECORD SplitTable: BOOLEAN; RectBorder: BOOLEAN; Marquee: BOOLEAN; ColHandles: BOOLEAN; ColGrids: BOOLEAN; ColGridHandles: BOOLEAN; ColRangeOk: BOOLEAN; EditColTitle: BOOLEAN; InsertCols: BOOLEAN; EdBlankCol: BOOLEAN; RowHandles: BOOLEAN; RowGrids: BOOLEAN; RowRangeOk: BOOLEAN; RowGridHandles: BOOLEAN; EditRowTitle: BOOLEAN; InsertRows: BOOLEAN; EdBlankRow: BOOLEAN; EditTable: BOOLEAN; ShoFormulas : BOOLEAN; Preview : BOOLEAN; RectRgOk : BOOLEAN; FieldPad:INTEGER; scrollincr: ARRAY [rowkind..colkind] of INTEGER; END; tmBand = RECORD tmbKind: SnipKind; tmbLoP: pixel; tmbHiP: pixel; tmbHideP: pixel; tmbLoId: idtype; END; cellParType = (cRecord ); idModeType = (mmfirst, mmlast, mmnext, mmprior, mmfraction); mcType = (mmRight, mmLeft, mmUp, mmDown, mmNone, mmRange, mmBegOfRow, mmBegOfCol,mmRightPeg,mmLeftPeg); IOModeType = (mmRead, mmWrite, mmIONull); errRecord = record errSpot : interval; mess1 : str40; mess2 : str40; status : integer; END; cellRecord = record align : integer; font : Tlfntid; protected : boolean; hiLite : boolean; NumRuns : integer; dim : boolean; END; BGrowResult = (BSame, BGrew, BWent, nxtBWent); ScrollType = (incrScroll, pageScroll, jmpScroll); ScrollDir = (ScrollBak, ScrollFwd); TMstate = Record marqsaved : boolean; rg: range; isSel: boolean; isOn: boolean; isBorder: boolean; end; VAR {$IFC TEDEBUG} traceFMGR : BOOLEAN ; {$ENDC } dfltNbrhood: Rect; nullNbrhood: Rect; TblPars: TableRecord; FolderPnl : PnlIndex; CellPnl : PnlIndex; TblPnl : PnlIndex; WidePnl : PnlIndex; DialogPnl : PnlIndex; ScrapPnl : PnlIndex; PROCEDURE AdjRect(Pnl:PnlIndex; VAR r:rect); PROCEDURE AdjToPnl (Pnl:PnlIndex; P:Point; VAR relPoint:Point); PROCEDURE allocPnl(thePnl:PnlIndex); PROCEDURE ChgPnlSize(P:PnlIndex;Width,Height:Pixel); PROCEDURE FreePnl(thePnl:PnlIndex); PROCEDURE GetPnlBits(P:pnlIndex; VAR b:bitptr); PROCEDURE GetPnloffset(Pnl:pnlIndex; VAR offset:point); PROCEDURE GetPnlRect (PNL :PnlIndex; VAR aPnlRect : Rect) ; PROCEDURE InitPnls(var status : integer); PROCEDURE MovePnl(P:PnlIndex;Offset:point); {$IFC TEDEBUG} procedure prntClip; PROCEDURE PRNTPORT; procedure prntRect ( aRect: rect); PROCEDURE PrntRg(s:str40;rg:range); {$ENDC} FUNCTION ptInPnl(portptr:grafptr;loc:point;hipnl:pnlindex):PnlIndex; function rgEq (aRg, bRg: range): boolean; Function SectPnl(Pnl:pnlIndex; portptr:grafptr;updrgn: rgnhandle; resultrgn:rgnhandle) : BOOLEAN; PROCEDURE SetPnlPort(P:PnlIndex); procedure setRg (var aRg: range; aKind: rgKind; aLoRow, aLoCol, aHiRow, aHiCol: idType); PROCEDURE SetUpPnl(P:PnlIndex; portptr: grafptr;width, Height: pixel; loc:point); IMPLEMENTATION 0RECOVERYintrinsic; interface uses {$IFC OSBUILT } {$U libsm/unitstd.obj} unitstd, {$U libdb/dbenv.obj } dbenv, {$U libin/INTRLIBp.obj } international, {$U libdb/dbdecl1.obj } dbdecl1, {$U libos/syscall.obj } syscall, {$U libos/psyscall.obj } psyscall, {$U libdb/lowlevel.obj } lowlevel, {$U libdb/pooler.obj } pooler, {$U libdb/heap.obj } heap, {$U libdb/czcompact.obj } czCompact, {$U libdb/vltree.obj } vltree, {$U libdb/scan.obj } scan, {$U libdb/labscan.obj } labscan, {$U libdb/schema.obj } schema; {$ELSEC } {$U OBJ:dbenv.obj } dbenv, {$U INTRLIB.obj } international, {$U OBJ:dbdecl1.obj } dbdecl1, {$U OBJ:syscall.obj } syscall, {$U OBJ:lowlevel.obj } lowlevel, {$U OBJ:pooler.obj } pooler, {$U OBJ:heap.obj } heap, {$U OBJ:czcompact.obj } czCompact, {$U OBJ:vltree.obj } vltree, {$U OBJ:scan.obj } scan, {$U OBJ:labscan.obj } labscan, {$U OBJ:schema.obj } schema; {$ENDC } const WarnIndex = 0; WarnNoSchema = 1; WarnOldSchema = 2; BadFileDesc = 3400; BadFileSchema = 3401; procedure FileRecover(var ddresult : integer; var warnings : elemset; oldprefix, newprefix, pfname, pnewname, precname : ptrpathname; procedure ECheck( EC : ecstr; ftype : integer; var Check : checkinfo; var result : integer); procedure indexmake(var ddresult : integer; ifilename, filename, tempdir1, tempdir2 : ptrpathname; temp_ldsn : integer; nisort, nikeys : integer; piflds : ptridesc; duplok : boolean); procedure MarksRevenge(var result : integer; var warnings : elemset; lsid : integer); ToolsMarketCode : integer); Implementation LSCHEMA intrinsic; interface uses {$IFC OSBUILT } {$U libsm/unitstd.obj} unitstd, {$U libdb/dbenv.obj } dbenv, {$U libin/INTRLIBp.obj } international, {$U libdb/dbdecl1.obj } dbdecl1, {$U libos/syscall.obj } syscall, {$U libos/psyscall.obj } psyscall, {$U libdb/lowlevel.obj } lowlevel, {$U libdb/pooler.obj } pooler, {$U libdb/heap.obj } heap, {$U libdb/czcompact.obj } czCompact, {$U libdb/vltree.obj } vltree, {$U libdb/scan.obj } scan, {$U libdb/labscan.obj } labscan; {$ELSEC } {$U OBJ:dbenv.obj } dbenv, {$U INTRLIB.obj } international, {$U OBJ:dbdecl1.obj } dbdecl1, {$U OBJ:syscall.obj } syscall, {$U OBJ:lowlevel.obj } lowlevel, {$U OBJ:pooler.obj } pooler, {$U OBJ:heap.obj } heap, {$U OBJ:czcompact.obj } czCompact, {$U OBJ:vltree.obj } vltree, {$U OBJ:scan.obj } scan, {$U OBJ:labscan.obj } labscan; {$ENDC } const indexfile = 0; fileschema = 1; queryCheckPoint = 2; not_needed = 0; via_only = 1; on_only = 2; on_and_via = 3; new_index = 4; type isegment = packed record aord : 0..1; field : 0..32767; end; ptrisegment = ^isegment; idesc = array[0..0] of isegment; ptridesc = ^ idesc; ientry = record lab : labelentry; iduplok : boolean; isort : integer; ikeys : integer; iunique : uniqueid; iflds : idesc; end; ptrientry = ^ ientry; procedure filldesc(var ddresult : integer; pfile : ptrfiledesc); procedure makefile(var ddresult : integer; pname : ptrpathname; pfdesc : ptrfiledesc); procedure openindexes(var ddresult : integer; var viafile : integer; scanid : integer; ifilename : ptrpathname; intent : integer; labelusage : integer); procedure cvt_scan(var ddresult : integer; scanid, sintent, sviafile : integer); procedure initpool(var ddresult : integer; first_time : boolean; heap_ldsn : integer; nbuff : integer; dheapsize : integer; pheapname : ptrpathname; dstype : Tdstype; pagesize : integer); procedure flushscan(var ddresult : integer; scanid : integer); procedure closescan(var ddresult : integer; scanid : integer); procedure openscan(var ddresult : integer; onname, vianame : ptrpathname; var scanid : integer; sintent : integer); procedure makedescfile(var ddresult : integer; pname : ptrpathname; pfdesc : ptrfiledesc); procedure clonefile(var ddresult : integer; sourcefile, filename : ptrpathname; needtomakefile : boolean); procedure makeformfile(var ddresult : integer; pform : ptrdata; pfname : ptrpathname; needtomakefile : boolean); procedure quick_label_scan(var ddresult : integer; scanid : integer; sintent : integer; var lscanid : integer); procedure get_header(var ddresult : integer; scanid : integer; var head : header); procedure getform (var ddresult : integer; scanid : integer; pdesc : ptrdata); procedure deletefile(var ddresult : integer; pfname : ptrpathname); procedure deleteindex(var ddresult : integer; piname, pfname : ptrpathname); Implementation {$SETC debug := false } LABSCAN intrinsic; interface uses {$IFC OSBUILT } {$U libsm/unitstd.obj} unitstd, {$U libdb/dbenv.obj } dbenv, {$U libin/INTRLIBp.obj } international, {$U libdb/dbdecl1.obj } dbdecl1, {$U libos/syscall.obj } syscall, {$U libos/psyscall.obj } psyscall, {$U libdb/lowlevel.obj } lowlevel, {$U libdb/pooler.obj } pooler, {$U libdb/heap.obj } heap, {$U libdb/czcompact.obj } czCompact, {$U libdb/vltree.obj } vltree, {$U libdb/scan.obj } scan; {$ELSEC} {$U OBJ:dbenv.obj } dbenv, {$U INTRLIB.obj } international, {$U OBJ:dbdecl1.obj } dbdecl1, {$U OBJ:syscall.obj } syscall, {$U OBJ:lowlevel.obj } lowlevel, {$U OBJ:pooler.obj } pooler, {$U OBJ:heap.obj } heap, {$U OBJ:czcompact.obj } czCompact, {$U OBJ:vltree.obj } vltree, {$U OBJ:scan.obj } scan; {$ENDC} {$SETC debug := false } {$IFC PRERELEASE } var labdebug : boolean; {$ENDC } procedure lfetch(var ddresult : integer; scanid : integer; which : integer; nsearch : integer; plabrec : ptrlabelentry); procedure linsert(var ddresult : integer; scanid : integer; plabrec : ptrlabelentry; size : integer; newticket : boolean); procedure ldelete(var ddresult : integer; scanid : integer; which : integer; nsearch : integer; plabrec : ptrlabelentry); Implementation {$IFC DOLLARD } ,SCAN intrinsic; interface uses {$IFC OSBUILT } {$U libsm/unitstd.obj} unitstd, {$U libdb/dbenv.obj } dbenv, {$U libin/INTRLIBp.obj } international, {$U libdb/dbdecl1.obj } dbdecl1, {$U libos/syscall.obj } syscall, {$U libos/psyscall.obj } psyscall, {$U libdb/lowlevel.obj } lowlevel, {$U libdb/pooler.obj } pooler, {$U libdb/heap.obj } heap, {$U libdb/czcompact.obj } czCompact, {$U libdb/vltree.obj } vltree; {$ELSEC} {$U OBJ:dbenv.obj } dbenv, {$U INTRLIB.obj } international, {$U OBJ:dbdecl1.obj } dbdecl1, {$U OBJ:syscall.obj } syscall, {$U OBJ:lowlevel.obj } lowlevel, {$U OBJ:pooler.obj } pooler, {$U OBJ:heap.obj } heap, {$U OBJ:czcompact.obj } czCompact, {$U OBJ:vltree.obj } vltree; {$ENDC} function SParmsBad(scanid : integer; which : integer; nsearch : integer; pentry : ptrdata): integer; function scanidbad(scanid : integer) : boolean; procedure pstack_validate(var sresult : integer); function keysize(fileid : integer; pentry : ptrdata) : integer; procedure einsert(var sresult : integer; var offender : integer; scanid : integer; pentry : ptrdata; size : integer; newticket : boolean); procedure efetch(var sresult : integer; scanid : integer; which : integer; nsearch : integer; pentry : ptrdata); procedure eupdate(var sresult : integer; var offender : integer; scanid : integer; which : integer; nsearch : integer; pentry : ptrdata; pnewrec : ptrdata; size : integer); procedure edelete(var sresult : integer; scanid : integer; which : integer; nsearch : integer; pentry : ptrdata); Implementation NVLTREE intrinsic; Interface Uses {$IFC OSBUILT } {$U libsm/unitstd.obj} unitstd, {$U libdb/dbenv.obj } dbenv, {$U libin/INTRLIBp.obj } international, {$U libdb/dbdecl1.obj } dbdecl1, {$U libos/syscall.obj } syscall, {$U libos/psyscall.obj } psyscall, {$U libdb/lowlevel.obj } lowlevel, {$U libdb/pooler.obj } pooler, {$U libdb/heap.obj } heap; {$ELSEC} {$U OBJ:dbenv.obj } dbenv, {$U INTRLIB.obj } international, {$U OBJ:dbdecl1.obj } dbdecl1, {$U OBJ:syscall.obj } syscall, {$U OBJ:lowlevel.obj } lowlevel, {$U OBJ:pooler.obj } pooler, {$U OBJ:heap.obj } heap; {$ENDC} Const noflow = 0; treeempty = 1; rotate = 2; coallesce = 3; pageempty = 4; isplit = 5; function entrysize(firstfld, lastfld, doitfld, isize : integer; pedesc : ptrrecptr; prec : ptrdata) : integer; function quickinsert( fileid : integer; pagetype : integer; pnewrec : ptrdata; size : integer; pfptr : ptrfileptr; canmove : boolean; index, buff1 : integer; var ipage : fileptr; var iindex : integer) : boolean; function quickDelete(var kresult : integer; onfile : integer; qpage : fileptr; qindex : integer) : boolean; function quickUpdate(var kresult : integer; onfile : integer; pnewrec : ptrdata; size : integer; qpage : fileptr; qindex : integer) : boolean; function splitORrotate(var kresult : integer; fileid : integer; pagetype : integer; pnewrec : ptrdata; size : integer; pfptr : ptrfileptr; canmove : boolean; index, buff1 : integer; leftsib, rightsib : fileptr; var buff2 : integer; var ipage : fileptr; var iindex : integer; ps : ptrstackrec; var sibpage : fileptr) : integer; procedure firstleaf(var kresult : integer; fileid : integer; pagetype : integer; pnewrec : ptrdata; size : integer; var ipage : fileptr; var iindex : integer); function pagedelete(var kresult : integer; fileid : integer; pagetype : integer; buffer, index : integer; closestsib : fileptr; var rbuff : integer; var dpage : fileptr; var dindex : integer) : integer; procedure findduplicate(var kresult : integer; fileid : integer; pedesc, psdesc : ptrrecptr; nsearch : integer; is_insert, duplimpossible : boolean; pkey : ptrdata; var buffer, index : integer; var stackinvalid : integer); procedure nextprior(var kresult : integer; fileid : integer; var buffer, index : integer; which : integer); procedure find(var kresult : integer; which : integer; nsearch : integer; fileid : integer; psdesc : ptrrecptr; pkey : ptrdata; var buffer : integer); procedure findkeyed(var kresult : integer; which : integer; nsearch : integer; fileid : integer; psdesc : ptrrecptr; pkey : ptrdata; var buffer, buffindex : integer); procedure insertkeyed(var kresult : integer; fileid : integer; pkey : ptrdata; size : integer; var ipage : fileptr; var iindex : integer); procedure deletekeyed(var kresult : integer; fileid : integer; pkey : ptrdata; var dpage : fileptr; var dindex : integer); Implementation CZCOMPACintrinsic; interface uses {$IFC OSBuilt } {$U libsm/unitstd.obj} unitstd, {$U libdb/dbenv.obj } dbenv, {$U libdb/dbdecl1.obj } dbdecl1, {$U libos/syscall.obj } syscall, {$U libos/psyscall.obj } psyscall, {$U libdb/lowlevel.obj } lowlevel, {$U libdb/pooler.obj } pooler, {$U libdb/heap.obj } heap; {$ELSEC } {$U obj:dbenv.obj } dbenv, {$U obj:dbdecl1.obj } dbdecl1, {$U obj:syscall.obj } syscall, {$U obj:lowlevel.obj } lowlevel, {$U obj:pooler.obj } pooler, {$U obj:heap.obj } heap; {$ENDC } {$SETC debug := false } Type states_de_compact = (no_try,first_try); Var pheap_segment : longint; heap_segment : integer; heapsize : longint; czone : zonedesc; compact_state : states_de_compact; {$IFC PRERELEASE } debug_compact : boolean; {$ENDC } procedure heap_compact; function init_compact_state : states_de_compact; function retry_compact(var error_code : integer; var local_state : states_de_compact) : boolean; Implementation 0HEAP intrinsic; Interface Const noerror = 0; nomem = 3411; lhead = 2; uhead = 10; free_overhead = 12; allocover = 8; Type _ptr = ^ integer; ptrptr = ^ _ptr; heapptr = ^ heapblk; heapblk = record case boolean of true : ( size : integer; prep : heapptr; next : heapptr); false : ( blk : array[0..0] of -127..127) end; zonedesc = record avail : heapptr; heapmin, heapmax : _ptr; lastdiff : integer; availsize : integer; end; ptrzonedesc = ^ zonedesc; procedure init_heap(pzone : ptrzonedesc; initsize : integer; where: _ptr); function grow_heap(pzone : ptrzonedesc; growincr : integer) : integer; function nnew(pzone : ptrzonedesc; reqsize : integer; pdataptr : ptrptr) : integer; procedure ndispose(pzone : ptrzonedesc; pdata : _ptr); Implementation POOLER Rintrinsic; Interface uses {$IFC OSBuilt } {$U libsm/unitstd.obj} unitstd, {$U libdb/dbenv.obj } dbenv, {$U libin/INTRLIBp.obj } international, {$U libdb/dbdecl1.obj } dbdecl1, {$U libos/syscall.obj } syscall, {$U libos/psyscall.obj } psyscall, {$U libdb/lowlevel.obj } lowlevel; {$ELSEC } {$U OBJ:dbenv.obj } dbenv, {$U INTRLIB.obj } international, {$U OBJ:dbdecl1.obj } dbdecl1, {$U OBJ:syscall.obj } syscall, {$U OBJ:lowlevel.obj } lowlevel; {$ENDC } Const {$SETC NOSWAP := FALSE } {$SETC debug := FALSE } {$IFC PRERELEASE } {$SETC debugpool := TRUE } {$ELSEC } {$SETC debugpool := FALSE } {$ENDC} V0myprod_vers = 0; myprod_vers = 1; nilptr = -1; nilval = -1; fisbtree = 0; fhasnull = 1; fmaster = 2; fdetail = 3; ffileok = 4; fdata = 5; writenon = 5; noerr = 0; notfound = 1; duplkey = 2; eos = 3; fileempty = 4; nobuffs = 3404; ioerr = 3405; noroom = 3406; inconsistent = 3407; badscanid = 3408; ticketoverflow = 3409; ticketchanged = 3410; badrecaddress = 3412; oddrecsize = 3413; badnsearch = 3414; badwhich = 3415; illegalscan = 3416; rectoobig = 3417; notdbfile = 3418; wrongfile = 3419; badversion = 3420; hasschema = 3421; badpagesize = 3425; DBVersionMismatch = 3426; DBTooOld = 3427; DBTooNew = 3428; empty = 0; clean = 1; dirty = 2; readonly = 0; update = 1; labelreadonly = 2; labelupdate = 3; first = 0; last = 1; approx = 2; exact = 3; current = 4; prior = 5; next = 6; touch_by_vltree = 0; touch_delete = 1; untouched = 2; leaftype = -26215; nonleaftype = -26729; labeltype = -25701; freetype = -25187; labelkeys = 3; labelflds = 4; labelbnd = 3; Type uniqueid = uid; filelabel = record check_1_it : integer; DBvers : byte; USERvers : byte; updateversion : integer; flags : elemset; firstpage, lastpage : fileptr; nrecs : fileptr; pagesize : integer; nfields : integer; nkeys : integer; nsort : integer; vflds : integer; kvflds : integer; depth : integer; root : fileptr; freelist : fileptr; labellist : fileptr; labeltickets : fileptr; tickets : ticket; ticketfld : integer; funiqueid : uniqueid; check_2_it : integer; end; pagedesc = record nkeys : integer; ptype : integer; case boolean of true : ( prior : fileptr; next : fileptr ); false : ( free : fileptr; ) end; ptrpagedesc = ^ pagedesc; vacttype = (undone,del, split,split_replace, rot,rot_replace, irot,irot_replace, merge,merge_replace, NoSibEmpty); stackrec = record numkeys, index : integer; page : fileptr; rec_lpage, rec_rpage : fileptr; case vact : vacttype of irot,irot_replace : ( unrotPt : integer; insindex : integer); del,rot,merge,NoSibEmpty : ( delsize : integer; delrec : ptrdata); end; ptrstackrec = ^ stackrec; pagestack = array[0..0] of stackrec; ptrpagestack = ^ pagestack; labelentry = record ltype : integer; enum : fileptr; seq : integer; varfld : vfld end; ptrlabelentry = ^ labelentry; offsets = array[0..0] of integer; ptroffsets = ^offsets; ptrscandesc = ^scandesc; ptrfiledesc = ^ filedesc; filedesc = record check_1_it : integer; DBvers : byte; USERvers : byte; updateversion : integer; flags : elemset; firstpage, lastpage : fileptr; nrecs : fileptr; pagesize : integer; nfields : integer; nkeys : integer; nsort : integer; vflds : integer; kvflds : integer; depth : integer; root : fileptr; freelist : fileptr; labellist : fileptr; labeltickets : fileptr; tickets : ticket; ticketfld : integer; funiqueid : uniqueid; check_2_it : integer; openid : uid; pnext : integer; pkeyfiles : integer; readers, writers : integer; fstatus : integer; scans : integer; frefno : integer; pedesc : ptrrecptr; pkdesc : ptrrecptr; pfldset : ptrbits; firstvfld : integer; lastvfld : integer; lastvsfld : integer; end; scandesc = record onfile, viafile : integer; fnext : integer; touched : integer; intent : integer; position : integer; ptrcos : ptrdata; cossize : integer; keypage : fileptr; qpage : fileptr; keyindex : integer; qindex : integer; ufldset : bits; end; lmhandle = fint8; diffdesc = record diffid : integer; realid : integer; on, via : integer; vpage : fileptr; vindex : integer; curhandle : lmhandle; have_an_update, reversescan : boolean; whichway : integer; pdfilter : ptrdata; pkfilter : ptrdata; plow, phigh : ptrdata; nlflds, nhflds : integer; CheckPtSize : integer; nullset : bits; end; ptrdiffdesc = ^diffdesc; QChkPtDesc = record CPtSize : integer; CPtLowSize : integer; CPtHighSize : integer; CPtDfilterSize : integer; CPtKfilterSize : integer; CPtnhflds, CPtnlflds : integer; CPtwhichway : integer; CPtvpage : fileptr; CPtvindex : integer; CPtcurhandle : lmhandle; CPtreversescan : boolean; hasVia : boolean; Clear : boolean; Good : boolean; viaUniqueid : uniqueid; end; ptrQChkPtDesc = ^ QChkPtDesc; buffdesc = record pbuff : ptrdata; state : integer; locks : integer; pfile : integer; page : fileptr; priority : integer; end; pool = array[0..0] of buffdesc; ptrpool = ^ pool; filetable = array[0..0] of ptrfiledesc; ptrfiletable = ^ filetable; scantable = array[0..0] of ptrscandesc; ptrscantable = ^ scantable; difftable = array[0..0] of ptrdiffdesc; ptrdifftable = ^ difftable; Var {$IFC PRERELEASE } pdebug : boolean; {$ENDC} psize : integer; popenobj : integer; pfiletable : ptrfiletable; nfiles : integer; pscantable : ptrscantable; nscans : integer; pdifftable : ptrdifftable; ndiffs : integer; lab_desc : array[0..labelbnd] of flddesc; pstack : ptrpagestack; curdepth, maxdepth : integer; pbuff_segment : longint; buff_segment : integer; buffpool : ptrpool; ticks : integer; lastbuff : integer; uiddesc : flddesc; isleaf, isnonleaf, isroot : integer; dont_use_freelist : boolean; {$IFC DEBUGPOOL } labwrites, datawrites, datareads : integer; {$ENDC } {$IFC PRERELEASE } procedure dumpbuff(first,last : integer); {$ENDC } procedure lockbuff(var presult : integer; var buffer : integer); procedure relbuff(var presult : integer; buffer : integer; relpriority : integer); procedure dowritenon(var presult : integer; fileid : integer); procedure getpage(var presult : integer; var buffer : integer; fileid : integer; rpage : fileptr; noinconsistent : boolean); procedure putpage(var presult : integer; buffer : integer; fileid : integer; wpage : fileptr); procedure checkpt(var presult : integer; fileid : integer; newstate : integer); procedure doclose(var presult : integer; fileid : integer); function no_room(presult : integer) : boolean; procedure force_out(var presult : integer; fileid : integer; wpage : fileptr); procedure PageInvalidates(fileid : integer); Implementation DBDECL1 intrinsic; Interface {$SETC OSBUILT := TRUE } Uses {$IFC OSBUILT } {$U libsm/unitstd.obj} unitstd, {$U libdb/dbenv.obj } dbenv, {$U libos/syscall.obj } syscall, {$U libos/psyscall.obj } psyscall, {$U libin/intrlibp.obj } international; {$ELSEC } {$U OBJ:dbenv.obj } dbenv, {$U INTRLIB.obj } international; {$ENDC } {$SETC PRERELEASE := FALSE } {$SETC DOLLARD := NOT fSymOk } {$SETC doTraceDB := TRUE} {$SetC fTraceDB := doTraceDB AND fTRACE} Const lt = 0; gt = 1; eq = 2; wordsize = 2; elemsize = 16; halfelemsize = 8; maxrsize = 1000; ascending = 0; descending = 1; ftypnull = 0; ftypint1 = 1; ftypint2 = 2; ftypint4 = 3; ftypint8 = 4; ftypfptr = 5; ftyptick = 6; ftyppack2 = 7; ftypstr = 8; ftypvstr = 9; ftypvnull = 10; ftypsvstr = 11; ftypsvnull = 12; ftypes = 12; nullint1 = -128; nullint2 = -32768; nullint4 = -2147483648; fnilval = -1; dbleft = 0; dbright = 1; dbcentered = 2; dbwordwrap = 3; dbnullok = 4; dbdescend = 5; dbisvisible = 6; none = 0; ss = 1; chk = 2; zip = 3; ph = 4; dol = 5; num = 6; tim = 7; dt = 8; lets = 9; tick = 10; OEMtick = 11; OEMFlets = 12; OEMSVlets = 13; OEMFGen = 14; OEMVGen = 15; OEMSVGen = 16; ecstrBnd = 40; Type short = -32767..32767; ptrinteger = ^integer; ptrlongint = ^longint; fileptr = longint; ptrfileptr = ^ fileptr; ticket = record high : integer; low : longint; end; ptrticket = ^ ticket; fstring = packed array[0..0] of char; ptrfstring = ^ fstring; fint8 = record high : longint; low : longint; end; ptrfint8 = ^ fint8; vfld = record size : integer; offset : integer; end; ptrvfld = ^ vfld; svfld = packed record offset : 0..1023; size : 0..63; end; ptrsvfld = ^ svfld; bitrange = 0..15; elemset = set of bitrange; bits = array[0..0] of elemset; ptrbits = ^ bits; fieldrange = ftypnull .. ftypes; ptr_field = record case fieldrange of ftypnull, ftypint1, ftyppack2 : ( ptr : ptrdata); ftypint2 : ( pint2 : ptrinteger); ftypint4 : ( pint4 : ptrlongint); ftypint8 : ( pint8 : ptrfint8 ); ftypfptr : ( pfptr : ptrfileptr); ftyptick : ( ptick : ptrticket); ftypstr : ( pstr : ptrfstring); ftypvstr,ftypvnull : (pvfld : ptrvfld); ftypsvstr,ftypsvnull : (psvfld : ptrsvfld) end; bitoffset = record nbits : bitrange; sbit : bitrange; end; flddesc = record offset : integer; direction : byte; ftype : byte; case boolean of false: (size : integer); true : (bo : bitoffset) end; recptr = array[0..0] of flddesc; ptrrecptr = ^ recptr; V0header = record space: integer; version : integer; nfields: short; nkeys: short; nsort: short; keybytes: short; recsize: integer; flags: elemset; end; header = record space: integer; version : integer; nfields: short; nkeys: short; nsort: short; keybytes: short; recsize: integer; flags: elemset; MarketCode : integer; end; checkinfo = array[1..5] of integer; ecstr = string[ecstrBnd]; ptrdbfield = ^dbfield; dbfield = record fldsize: integer; name: short; display: short; highval: short; lowval: short; defval: short; editcheck: checkinfo; fldtype: integer; options: elemset; reptype: short; offset: integer; case boolean of false: (size: integer); true: (bo: bitoffset); end; monthstr = string[9]; longstr = string[255]; procedure movelg(p1,p2 : ptrdata;nbytes : integer); procedure moverg(p1,p2 : ptrdata;nbytes : integer); procedure movelf(p1,p2 : ptrdata;nbytes : integer); procedure moverf(p1,p2 : ptrdata;nbytes : integer); function extract(pbyte : ptrdata;nbit,sbit : integer) : integer; procedure deposit(value : integer;pbyte : ptrdata;nbit,sbit : integer); function mult424(m4 : fileptr;m2 : integer) : fileptr; function comp44(s1,s2 : fileptr) : integer; function comphand(var s1,s2 : fint8) : integer; function div424(m4 : fileptr;m2 : integer; var r2 : integer) : fileptr; procedure setset(pset : ptrdata; lastelement, nelements : integer); procedure clearset(pset : ptrdata; elements : integer); procedure clearbit(pset : ptrdata; bit : integer); function inpset(pset : ptrdata; bit : integer) : boolean; procedure setbit(pset : ptrdata; bit : integer); function pintersect(pset1, pset2 : ptrbits; setelements : integer) : boolean; function compare(desc1, desc2 : ptrrecptr; nfields : integer; prec1, prec2 : ptrdata) : integer; procedure extractkey(pdesc1, pdesc2 : ptrrecptr; nflds : integer; pentry : ptrdata; pwhere : ptrdata; vflds : integer); function findchanges(pdesc1 : ptrrecptr; nfields : integer; pbefore, pafter : ptrdata; pset : ptrbits) : boolean; PROCEDURE GetRepType(var result : integer; DataType: INTEGER; CheckArray: CheckInfo; VAR RepType: Short; VAR Size: INTEGER); PROCEDURE ValidRepType(var result : integer; DataType: INTEGER; CheckArray: CheckInfo; RepType: Short; Size: INTEGER); Implementation zLOWLEVEL&intrinsic; Interface Uses {$IFC OSBuilt } {$U libsm/unitstd.obj} unitstd, {$U libdb/dbenv.obj } dbenv, {$U libdb/dbdecl1.obj } dbdecl1, {$U libos/syscall.obj } syscall, {$U libos/psyscall.obj } psyscall; {$ELSEC } {$U obj:dbenv.obj } dbenv, {$U obj:dbdecl1.obj } dbdecl1, {$U obj:syscall.obj } syscall; {$ENDC } Type ptrpathname = ^ pathname; Var prefix_length : integer; prefix : pathname; passwd_length : integer; password : e_name; procedure setprefix(newprefix : ptrpathname); procedure setpasswd(var newpasswd : e_name); procedure prefix_name(fname : ptrpathname); Implementation {$IFC DOLLARD } IntrinSgTEcold FREEPNL FREEPNL TSETUPPNLSETUPPNLT@GROWBANDGROWBANDTLDTMLOFRLDTMLOFRTNEWRGBORNEWRGBORT$SETCR SETCR T<SPLITBANSPLITBANTDTMFACT TMFACT THTMSHOBRETMSHOBRETLTURNONMATURNONMATPBOLDFLDSBOLDFLDSTDOSELACTDOSELACTT EXTENDSEEXTENDSETMOVEPOINMOVEPOINT PACKSMGRPACKSMGRT(POINTATRPOINTATRT,REINITSEREINITSET0RESTOREFRESTOREFT4SETANCHOSETANCHOT8UNDOSEL UNDOSEL TTUNPACKSMUNPACKSMTXWHTBLSELWHTBLSELT\WRITELCUWRITELCUT`TN,NNjNNN"NTNNXN bN N N N NNXNNNNfN N NNJoNV ng m/( m0.@At/0N^ _TONJoNV/ m0.@Ct q(P(HlBgBg?.?. ()n(_N^ _NJoNV nCJp "S@n2 n CJp "S@n2 nCJp "S@n2 m/(PN^ _ NJoNVH(. (mAC 0lPDB.?.P&_<+=k.+$ G=h G:( D.H@C21AFPo n/ N/??PP`z D.H@C21A APl n/N/ ??PP`D D0nf nB`2 n/ ? D?PP/ D.H@C21P??PP nJg/,ҠNHn.Bg<P&LN^ _ NJoNVN^NuJoNV n CJ""2Hn.Bg<P&N^ _\ONJoNVH(nHl Nl mH(CA&Hg SA$&H`&$ m)h$ m!LLN^.NuJoNV nCJ""2 mAC 0N^.NuJoNVH...*. (mJf GB`lB E?P&_ kf GB`P EH @C21AkP^ EH"AC41B2+BP]g GB` E?N GLN^ _ NJoNVH. :.&mB?P.-_H @A20A=A(n=l. nf G=hBg/P8`.0,lEf<Bg?.HnP>BD` lR@8(G0.EH"AA40@l]"nl^ nVg6=l/?,?PP?.H @A20l??.?P/+ҠNLN^.NuJoNV/ (mA-H. g n( g P\|`B,`,gNB,(_N^ _TONJoNV/ (m m?(ΠP$/,ҠPAC~ BgHnP <g,HnBgBg?Bg?/,B/,Bg l P?( ?\<Bg?/,/,N&p=_ LN^.NuJoNVH(m&m ,W , W ,WgD?+РP$/,/,N.  HlP?+̠P$/,B/,<.  LN^ _TONJoNV m(HkN @ nHH0;N,,,@,/./. /.P`P/./. /.P4N^ _ NJoNVH(m/.HnHnHnHnPTB n HS@g(S@g$S@gS@g` .W .WRg~`~g2?,6?,8?.?./.J.WDHnHn/. /.PH"LN^ _ NJoNVH,. (m l P0(| lB P2(@ l P"lB"Q0)hA F0 l P( @g FRP lB P( @g FRP0.n FPl,B/./. F0n?D F0n n0` n0 n&P m6 m7h m7h m7h m7hl l l l; 7l7l7lt7lX7lV7lT7lR7lv7lxl[ lZ!A"Cl A*Cd A2CF A:C 0 lN PCDp"S@n2 l< PCfp"S@n2 l PCp"S@n lB PCp"S@n l P*( n0.HАм. E// l Pp?"L l PpHހ lB P*( E// lB Pp?"L lB PpHހ l P(( D// l P?("L l P( @g l P0(R@ l P1@ l P0(Hހ lB P(( D// lB P?("LLN^ _NJoNVH&m/.Hn/. HnHnPT(n H_@g S@g S@g```/. BgBgBgBgBgP( nC n 7h6 n 7h8LN^ _ NJoNV/ (m9|vB,BlBlA-H nB nBh nBh nBh nBhHl\BgBgBgBg(B,;(_N^NuJoNV/ (mA-H?,?,HnP?,?,HnHlHlNP_B,;g lN PBhB,;BgP lN P|! l< P|!/,/,NBgBgBg&0/,B/,N>N?NBNBN NCN NDNDNENNNRNNNNINNNNNNNNNHNNNNNNNNJ|NNNNNNNNJhNRNMNlNSNTLNU NUBNURNNNNUNVNXNXBNNNYN]Nb|N8NN*2N+ N,ZN>N.LN.bN.N0jN0N1|N2xN2N3PNcN3NcN4H _"_/N _"_/N _ _N^NJoNV/ m0.@Ct q(P0.l n1@0. l n0(_N^ _ NJoNV/ m0. @Ct q(P/.?,?,(_N^ _\ONJoNVH&n ngr m0.@Ct q P-H n0.h7@ n0. h6 nI0+ll7l0Tl60+lo7l0lo6LN^ _ NJoNVH>. <. m0. @At&pJGlBGJFlBF SI9F9G SCP""LN^ _\ONJoNV m0. @Ct q P PT"n"N^ _\ONJoNV m0. @Ct q P"n"N^ _\ONJoNV n"m0. @Et"r"QP N^ _\ONJoNV m0. @Ct q P!nN^ _\ONJoNVH~B  n_gB?/. HnN m @At(p T fBg/. THh\`BRG`g S@=@`=|LN^ _ NJoNV n CJ""2 nCJ""2..W2.nW2.nW2.nW2.nWD@N^ _PONJoNVH&n>.(m?HnN?HnNBgHn n PHhHn @Ct q P WgP/ Hn/ /. / / @Ct q P0(D@? @Ct q P0(D@?|`B.LN^ _NJoNV/ m0.@At(p T/ T0(D@? T0(D@? THh(_N^ _TONJoNV/ (n9n9n 9n 9n(_N^ _NJoNV m/(zNN^ _ NJoNV m/(~NlN^ _NJoNV m/(NNN^ _NJoNV m/(N0N^ _ NJoNV n CJ""2 m/(NN^ _\ONJoNV m/(NN^ _\ONJoNV m/(NN^.NuJoNVHB.N(_ m.H(CA&HB  g"J$f~` k$0(n o~`&k$`)k$$'L$9n 9n B / ?.?.N9n 9n/ ?,?NLN^ _PONJoNVHB m. H(CA(HJ$V" g l$0.hl~`(l$`-L LN^.NuJoNV n"n"i 0(iR@=@ N^.NuJoNV nCJ""2.Hg [@gS@g`B.`2Hn<?.?. ?.?. NRBgHnHnHnN_N^ _PONJoNVH(n :.8. Hl Nl Dfz`Bg?Bg?N\:9l0,ER@>=D9DA ,0,R@Go|B/ N8&_ F 7n9k 7G nf9k0,G| 7@`$Bg?.N|7_<Bg?.HnN0+GR@>A ,B,Nd`|LN^ _PONJoNVH n CJ""2.B mA-H nHS@gS@g S@gS@g`H n.W n( /BgHnN+   n( W n(   gNHn<NvLN^ _\ONJoNVH>. <.(m ng m?(NHl/,N* mHh䠊0?<?<4?<(JFo??,??,JGo.??,??,/.??,??,֠(?NFLN^ _ NJoNV mBh mBhN^NuJoNV/ (n |JfJfB.`(` TJ$fB.` T($(_N^ _PONJoNVH&m| (nJfA()k`0BgHlBN gBg/ BNpg A)H`B. LN^.NuJoNV/ (m<<Bg?.HnNzA-HA-HBgHnBNg&Bg?.?./.N _g Hn/,ҠN`(_N^ _TONJoNVH(m m?(N.,,gjBg/,N6,H[@gS@g `A-H`A-H`BJgBgHnBNtg /.N ``,g A-HBgHnBNFg n(gA-HBgHnBN g n(g/./.HnNHnHnN Hnޠ/,NvB`~H @,6HA0pH@ v:(B F?(N!&_ g F0(S@?/ Hn?NB F?(N!|&_ g&k g F?(/ Hn?NpR o|`*`AC 0B,B,LN^NuJoNVHnHnHnHnN m h P=h<?.?. m h P h/Hn/.N<?.?./.<Hn/.N nJPf(NHn<?.?.?.?.NPHnNN^.NuJoNVH.. (nJ.f9l`9lB.?,N J)_&l l P-H S0,hl G0 lB`" n0,ho G0 lB` G0 nBg?+ n?(XBg0+k? n?(\/,N%B n?+0+k?/, N%&LN^ _ NJoNVH(m&n nBgHk/N..<Hk/N,.7k7kAC AC m(g 0.l=@ m(g 0.l=@ nJf`Bg/.Hl\g m(g nB`Bg/.Hnࠊ\BgBg?.HkHkN gH n n1l n1l n "n 7| n0 n1n`zBg/.Hn蠊\Bg<?.HkHkNgH n n0 n1l n "n 7| n1n n1n`Bg/.Hlʠ\g~ n n1l n1l/. Bg0,H?0 n/Bg"n ?"G"Q?)X0 _0 n/Bg"n ?)"G"Q?)\0 _1@`xBg/.Hl\g* n n1l n1l7|`BgBg??+N* g(B/ ?N.B/ ?N,///.HnNr&k$`(l$`ZLN^ _PONJoNV n"m"i"Q m?(/. N&N^ _PONJoNV/ (m n0 n0 l P"n2 l P h"n "(_N^ _NJoNVH>.JGf n"mC 0`@(nJ.f9G9n 9|9|`9|9|9G9n LN^ _ NJoNV n CJ""/. n?( n?( n?( n?((N^ _PONJoNV/ (mlB,,g Bg/.N v(_N^.NuJoNV m(g m|Bg/.N HN^.NuJoNV/ nCJ"" n CJ""(mA-HHn/.N ,?< ( n"n) ( g Hl0`Hl0 n0.nV( gh?<?<4 nH_@gS@g`$Hn?. 8. GgB< m0(n ?N&_B/ ?N,Jg((F0,lDg??BgBg l?XNZ`>(KBg<?N:??BgBg lS@?X0E?N(/ ? R@?N<??NPLN^ _\ONJoNV|=|=n =|=n Hn?.NN^ _\ONJoNVH nCJ""2(m.HS@k @nH0;N~Bg?.?.NvgBgHnHlNrgB m?(NAC~ BgHnNVgbBg nHh nHh HnNgBHnHnNHn栊/,NdHnN:, ,gHnHn/,N`g .f HnN`HnN`HnNLN^.NuJoNVH nCJ""2(m/. HnHnHnHnN.HS@gU@g8S@gnW@g S@gU@g`BgHnHnNH_BgHnHnN6`z .W .W2.nW2.nW,g|~`@ .W .W2.nW2.nW,g|~`BB.LN^ _PONJoNV/ nCJ""2(mN NB.=l=lBnBgBgHnN:=_HnN|=l=lBnBg<HnN =_HnNBnHnN(_N^.NuJoNVH nCJ""2~ m(h gBg<?, ?.N2 gBg<?.?,N g m&h gtBgBg?+ ?.N gVBgBg?.?+N g>B/ ?.N,B/ ?.Nr*g m?(NzB// m/(Nl&k$`(l$` .f0,nf`B`"0,lW2,lWg`` GC 0` GC 0JfB.`|LN^ _ NJoNV nCJ""2J. f=n`=nN^ _\ONJoNV/ n CJ""(n n9h n9h n9h  n9h (_N^ _PONJoNVJg m h/(/. m h/(N^.NuJoNV/B`4BBgHn mH (CA/Ng /.N`R o.N^NuJoNVH&nI AC 0( mCA""2Jf=k=k m (VD`=k=k m (VD kV kV$@@,g Bg mHhHnHnHnN 4_,g nW"g<Bg?.HnNTBg mHhN0._gz`BEB/ ?.N 0. G h9@B/ ?.N . G"G0)h9@JW m (W W m (WgBBg mHhNN0._f G0(U@9@` G"G0)hS@9@0,V@9@LN^.NuJoNVH nCJ""2 n CJ""2&m..gz|/.?.?.?.?.( n hfN(n+H]@gU@g`:/.?<Bg0`*0,R@2+H@9A0+H2,@9A` nC B.LN^ _ NJoNV/ nCJ""2(m m?(NެAC 0n BgHn. N_N.g . /,N|(_N^ _ NJoNVH n CJ"".(m?<?<4Bg n?(/,N6g|`HA0pgB``j?./.HnNp?.?.HA0p?./.HnNJH4pH4H(H @@A&Hp0?.?.LN^ _NJoNV/ n CJ""(m m(gBg nHh nHh HnNBg nHh nHhHnN.gF/,Hnؠ/,Hnࠊ/,/,/,/,/./,AC `/./,AC HnHnNHnHn/,N(_N^ _ NJoNVH8.(m Dg m?(NvA-HBgHnBNg<<Bg?HnN(Bg??./.N: Eg/.HnNNHn/,N<,p#H"@> R@r#H@<??,??,0,G?0,l???,0,G?0,l? l?0,l???, l?0,l?`LN^ _TONJoNVH&n .(m W. nVg:<Bg?.HnNBg?.NX0T@2+k@o=n`B f/ ?.HnHnNP`BnBg?+Bg?+H4HAA?0\X=_/ HnHnHnNp/ ?.?.NdLN^ _ NJoNVH&n :. |B/ ?NF(_ g$0,klB`0,lko~`B`Bg??+NRgB`~g?/ .NLN^ _PONJoNVH nCJ""2 n CJ""2.(m m?(NHnN.HS@k~ @nxH0;N:V:V:V|/.?.BgN/.?.BgN`6/.?. .WDN`/.?. .WDN ,f/,ҠNB,LN^ _ NJoNVNN^ _\ONJoNV nCJ""HnHnN$ m?(HnNb/./.HnHnBgBN^.NuJoNV/ (n .g n f BgBg?. Hn NZ/ ?. BgNd`lBg?. N٦0T@2,l@l,/ ?. Bg?. Nل0,lH2@?Nd`$ .f/ ?. <N` / ?. BgNd`" .f/ ?. BgNl` / ?. BgNd(_N^ _ NJoNVHB. ?. N&_B/ ?.N(_ fB.` 0,k\2,lk_D@LN^ _\ONJoNVH nCJ""2 nCJ""2.J.WJ.WgB.`BgHnN<BgHnNx:BgHnN8BgHnN\=_Bg??N Bg?.?NgB.`FBg??Ng n 0` n 0Bg??.Ng n0` n0|LN^ _NJoNVHB. ?.N؊&_B(k J V" g0,lnm~`(l `-L LN^.NuJoNVH n (h B VJWg0,nf~`(l `-LLN^ _\ONJoNV m"n"N^.NuJoNV/ (mBg?. 0,X@?X9_Bg?.0,X@?X9_(_N^.NuJoNVH. (mN<Bg?. HnN.H (CA-HBgHnBNg&nBg/.Nצ=_?+HnHn/,N0.W@g S@gDS@g"`/.?.BgN/./,ҠN X`/.?.?.N/./,ҠN X`|B/.?. N(Jgh D,( Jg^B*/.HnN F?(?+HnNv/?.?.?.?.ܠ$/.?.?.Nb/./N X/$`.gr nf<Bg?.HnN ngNJfHn<?.?AC AC Hn蠊/.NBg m h/(d gBg?.?.N g HnNF`^HnࠊBgBg?.?.HnHNͤ l&P7|7k Bg?.?. l P h/Bg l PHh HnFNͤ n Ff l P"l"Q3h nFV l PJh ^gBgHnJHn*Hn(,?.JB@.L??<?<"?<T m nV( nVg/T2/N,.Rg mHh䠊0?< (Hn,.Og&,?<?<4Hn?<?< Р,` nFfHn mHh䠊,g8Bg?.?.HlNzg",  m(gHnHn/.N~RLN^ _ NJoNV/ (m l< P(!, lN P(!g|`B.(_N^NuJoNVH(m&m ,W ,W ,W , Wg?+N/,/,NBg&?+N/,B/,.(mHl<?.<.HnBgBgBg<?NBgBg?Nޠ(?.?.HnHlHlNN`H0gS@gS@g`|`|BgNH0gS@gS@g,`.<. Gf"??HnN ??HnHlHlNNv`& Ff ??HnN??HnHlHlNNNBgN`,?+NZ/,/,NBg&?+ND/,B/,."<.$ nC GfBg?.?. ?Hn/N=|`T Ff <?.?.?Hn/Nd=|`.<?.?.?Hn/NDBg?.?. ?Hn/N.nWnWgz` Ffz` Gfz`zBgBg??.N|g 8=n`8.=FBg<??.NVg =G=n` =n=G/. ??.?.?.NJLN^ _NJoNV m"nN^.NuJoNVH..:.(m&m ,fN/. NJ|?+N/,/,N& Efd  "g/,/,NHn`D  g/,/,NHn`( g/,/,NHn`/,/,NHn&`.gN ?/,/,NHn&,g?+N/,B/,<& Efd  "g/,B/,.(mNHHl<??`N`NLN^ _NJoNV mnZ mB([/../. /.NLN^ _NJoNVH nCJ"".. <.:.(mBgBg??HnNj G P&P=k mhBg?? k/<HnHnNt n W,gx @nnRD` @=@ m/( G P P/(?.D m/( lB P/(?.D G P&P7n lB P1nBg?? k/<HnHnN G P P1n G/B.&HnBgBg0.n?0.n?( G/BHnޠ& G P PB( lB&P=kBg?? k/<HnHnNf7n /,BB<& m?(HnNt/,BBHn &B+Jno G P P=hBg?? G P P h/HnHnN n W,gtp=@ m/( G P P/(?.D m/( lB P/(?.D G P P1n lB P1nBg?? G P P h/HnHnN^ l P1n lB P1n lB P=hBg?? lB P h/HnHnN`D l P1| lB P1| G/B?.?<Hn̠&(/,BB?.?<Hn̠&( G/B?.?<Hn̠&(/,BB?.?<Hn̠&( EW FWg G/B?.?<Hn̠&( G/B.& G/ n/& EW FWg/,BB?.?<Hn̠&(/,BB.& /,B/,<& m?(NxHnҠ G P PC"" n/(Hnޠ.gh,?<?<4Hn?<?< Hn?<?<0,?<(Hn?<?<  n/(,|;`B,;9E9F mBhLN^ _NJoNVH nCJp "S@n2(m ,f l&P.@7@ A, FR,0+ S@=@BG` F"k"QppRGino/,/,N&0+ S@=@BG` k P"lB"Q"i"QppRGino lB P1k /,B/,<& lN P|! l< P|!BgN(LN^.NuJoNV nCJ""0.n n1@0.n n00.n]2.n^2.n]2.n^g n B` n N^ _NJoNV/ (m/,/,N?<?<Hn&(/,B/,Bg?/,/,NHn&4>Bg lB P?( ?\<Bg?/,B/,<&p=_ LN^.Nuf2IntrinSgTESCROLLGRAYOFBAGRAYOFBANSCRBAND SCRBAND N SHOTBL SHOTBL NTMLOADBATMLOADBANTMLOADNETMLOADNENTMLOADSTTMLOADSTNTMNEWPARTMNEWPARN TMSAVESTTMSAVESTN$TMSETRGFTMSETRGFN(TMSHONEWTMSHONEWN,NNvNNxNNNN*NVNNJoNVH(n&l l0k2,AAH9@=l LN^.NuJoNVH&n ,.(n F Pg F=P0D@=@Bg/N _^ nVg40.R@/Bg?.P2 @=A<Bg?.HnP>`Bg/N< _oBg?.?\>nSBg/N _oT<Bg F?HnP> nf`6 F0Bg F?P>RGBgBg n?X6 nS=@`LN^ _NJoNVHB. ?.P(_0,H.0,H"/</"0,H"/" =@ LN^.NuJoNVH&n(k ~ V GWg00,nf 0,l>`0,n f 0,S@>`(l `¾k]k\g~=GLN^ _PONJoNVH(n&n>.Bg?P0T@2,lA6 n 0JSlV<Bg n ?/. P> n PfBgBg n ?/. P>BS`0R@/Bg n ?P2 @6` n PfBSLN^ _NJoNVH(n&n <. l =h l 0,hD@S@2.@6Bg?,?Pg> nVnVg*Bg?.P0SR@6<Bg?.HnP>``< nVnVg*<Bg?.HnP>Bg?.P0_S@6`0D@6JSm>`0D@>0,lGl n` nBLN^ _NJoNVH(m&l l)h$B$B -K LN^ _TONJoNVH(m&lV lV)h V&B -K LN^.NuJoNVH..(m GJg G&PJ g&k `'lV G)PV GBLN^.NuJoNVH.B?.P(_ lV lVghBg/ P:Bg?,P0R@E=@Bg?,Bg?, m"mH1pH@A?0\X=_Bg mH @?00.lH?\8B?.P.&_=k=lBn.HgS@gS@g` .f&nm<Bg?,HnP>` D=@`ZJEoBg??\ _=@`B<Bg?,HnP> nf=l`BgBgBg?.P0D?X=_` <?. ?.HnP>`0.l=@ .f^Bg?.?\=_0.k=@0+k2.TA@l.<Bg?.HnP> ngBg?.P0n`PBg?0.k?\=_=n Eo.<Bg?,HnP> ngBg?.P0nBg0.H?0.n?X<Bg??.X<=EBg?.P0R@=@ .fx0.n=@nnn n lBnBF`PnBn=n<Bg?.HnP> nf=n0.U@=@BFBg?.P0R@=@`b=nnnnBF`Nn=n<Bg?.HnP> nf=nBnBF`Bg?.P0R@=@=nJFn/ HnHnHnN6/ ?.?.N m"nLN^ _NJoNVH&n (m m?(ΠP$B./ HnPBgHnHlHnB,B*/?.?.?.?.$/?.?.?.?.$Hn/ ?. ?.HnHnNA -H nhBHA0H(CA. G.($0+R@H4HB= JV" gF G0(R@ GH4HB= /.HnРPlBgHlHnHnڠP!gx G.($` n,(,gJf<<Bg?,HnP>`Bg<Bg?,HnP> n0.hX@k^ n2.hYAk] n2(XAk^ nWg |/PHnHl4.g|Hn`@Jf Bn=n` =nBnJnVJnVD@Hn?.?./ mHh4/ ?. ?.P| ,W. gB,,HgS@gJS@g`J/,NB,`( mCA"" mH0HA<6??HnP4jHn?0 H2.@?0.R@"H@?HnP4j, GlHn mHh젊` ,HnLN^.NuJoNVH nCJ"".(m mA-H n hV n hVgHnHnPHn/,ҠP#,H @*6HA0pH@ v<(Jn m&B?. P.&_&k ?. / Hn?P'`( E&h g0+S@8?/ Hn?P'&k `LN^ _NJoNVH&n. (mH @AJpoXH4PH@24A>0+GHk<H @AEC ? G?HnP4j,HnLN^ _\ONJoNVH&n(mAC Hn?nl n D@S@@=p` n D@@2. p=A n0.D@@2. pn=A n/BgHnHn?| >/| n0 _0.N^ _NJoNVH gj/.Hn?. /.<|p nJPfJ m h0.@A(H&T n f'n`'n9|/.?. m?(|LN^ _NJoNVH:.(m n< nJhf l @ p.(*` n.( nBP f =|`Hn/. ?/<|p EW EWg\JnfT nBP EW n]g8.`xHn?A/A/?Bg EWD/./. /.Hn|\`v EfpJnfj l @ p0(| =@ l"n 0@&p.+ n0 g,Hn n ?Bg|JnfHn/. ?/<|p` n0LN^ _NJoNVH(n&n6 JlfJSW SWgHn?Bg/ /, /./. NX`XHn?<Bg/ /, /./. N: nf4Hn?/./. ?<|Jnf =|6` nf6`~ lfTHn/.?/,<|pJnf6 n 0Hn?/./. ?<|Jnf6` nf6`"Hn/.?/,<|p n 06 n0LN^ _NJoNVH>.(mBg|x_Bg?.??. /.|=_Jnf l0.@&p GW GWg~ l0@ p-HHn??. / /.HnHnN nf:Hn?HnHn?<|Jnf=|=|` nf=|` Jnf=|` GW GWghHn/ HnHnHnN nnH GfSn` nfRnHn?HnHn?|Jnf=|` nf=|`: GfHn/ HnHnHnN\`=GHn?Bg/ BHnHnN no6 nf*=|J g mA//+ |B Bk Bk`8JnW nWg J g mA//+ |B ` l0@ p-H l0.@(0 n0(HЄr, F0.D@@20H҄-A F0.D@S@@"F2.DAA40q:Bg mA/?A/|=_Jnf`/./.?|J g mA//+ |7E'n ng=| l0.@'p 7n7n 7|Hn?.?,|Jng=n n0Bg/.Hn|fLN^ _NJoNVH&mHn?.?.?. /.NJnfBg|x_ k0.@(pHnHn?/,<|pJnf k0@ p0(| 8 k0.@H"Ұ, F.( f F.(BgHn?? Ef mA//, |B BlBl `9|)n9n9| BgHnHn|f n0LN^ _NJoNVH>. (mB,Bg|x_Bg?.?<Bg/. |=_ @g=| UJnf2 l0.@&p.g0 l0@ pA., F f =| Q` F"n #PBg mA/?A/|=_Jnf/. /.?|Hn?<Bg/ /.HnHnNJnf&=|Hn?.?,|Jng=n` nf Hn??~ BgA/ @?A/|=_Jnf0.nl8BgA/0.n?|t=_JngA//.|`=noBHn?+ /Hn /Hnʠ"JngA//.|`D'n /?.~h Ѯ0.noBgA/0.n?|t=_ S@lg0,R@=@nl=E/,/.0.@?|A//,|)n .Ь-@0,R@"SA=AR<`T l @A-HN nNBh nNBh nN1| nNp!@ nN1| nN 0,HѮRFinRo S@9@l0Hn?+ /Hn /Hnʠ"Jnf'n n0LN^ _Nassholes"Copyright 1983,Apple Computer Inc.JoNVH>. 8.&m n BP k @(pBg L\/?<| DW lRWg /. ?N DW DWg 0,RS@9@R` 0,PS@9@PJlPWJlRWg k @,0Hn?~Jng n 0JZg mA//,Z|J^g mA//,^|kf7lL`6:+ k @ p-H nhLf F"n3hLL` n:(L` mA//|LN^ _PONJoNVH&m k0.@(p>,N9|N Gg0 k @(p<,NHn??<NrJng n 0>`LN^ _\ONJoNVH<. m h @(p n BP m h0,@&pkVf7lV`8 m h0+V@.0 Ghg m h"G0)@.0` G1l0,Tg/. ?,?,NHn??,NJng n 0J g mA//, |LN^ _\ONJoNVH>.(mBg?|g n 0 P`2/. ?N l @&p mA// | l @BLN^ _\ONJo NVH&n/. ?+XHn""ADC| BkT7|V7|N7|f7|j0+S@=@BG`D kZ I , m* kff7Gf7Ghkl7Gj`7Ghkl7GjRGinoLN^ _PONJoNVH,.&mB.!/. NHn mHhHn?:^ mHhڠ"Jn lBn Jn g ni f =| O ` ` ni f Hn mHhHn""Jn f F0 F Pgp k"F0@(pBgA/A/?<AD/A|/| _f2Bn nW nWg 0,RR@9@R` 0,PR@9@P`z F0L`=|i `h-k0+S@=@Bn` nJf F0`XRni 0.noBg mA/0+R@@?A/|=_ Jn f/+/.0+@?| mA//+|'n k0+@B F0RkBg mA/?<lA/|=_ Jn f(n9nX nW nWg BlP9|R` BlR9|PHn Hn|Jn f0|! k0.@*0Hn ?,X//<HnBgB"HJn g =| M `//.?<D|Bg L\/?<| g =| O ` TV lBVg =| Z ` ,g$=| d J,f=| b ` J,l=| Z `b0,ko =| a `NBbB^p8Bg mA/?AZ/|=_ Jn f-lZ EAD-H-|.<Hľl$/./.?|H 8 nAp-H`/./.?| ,.0+Hl0+H.Jg0Hn ?,X//HnBg/."H߮-EJn g=| M ``JftHn ?.?<|B.!Jn f@Hn /.NVJn f.0, ko7l k"F0@!9kL F7P`F mA//,Z|.!gHn ?.?<| mA//.|Hn ?."4 n0 LN^ _NJoNV0.S@HR@@=@ N^ _TONJoNVH&n m h0.@(pBEJ^f. <. m h @(p m h0@&pJFW FWg 0+PR@7@P` 0+RR@7@R/.?N@ m h0.@&p9kV7GV9n9FB BlBl LN^ _ NJoNVH&mBg|x_Hn?</.HnNJnf" k0.@,0 n/ n/"_(FBg L\/?<|_x.g Bn=n`=| nf*JlRfTnBg?,N_. g =| X`-k0+S@=@BG` nJgxXRGinoBg mA/0+R@@?A/|=_Jnf8/+/.0+@?| mA//+|'n k0+@BRkBg mA/?A/|=_Jnf(n89n9| F9hV F1GVB BlBl k @!Jno,HnHn?/.?.?.NLJng Hn?N`vHn??.?.NnBgA/?<|g8 F0(R@=@ F1n F:(N Eg k @(p9n:,N` n 0`Hn?.?<NBgHnHn|f n0LN^ _NJoNVH(mBg?.|g =| P` l0.@&pBg l0@ p\/?<| g =| P`r<*,0,S@=@BG` EJgXRGinoBg|x_Bg mA/0,R@@?A/|=_BgHnHn|fJnf/,/.0,@?| mA//,|)n l0,@BRlBg|x_Bg mA/?< A/|=_BgHnHn|fJnf&n67F l @ p-H7n  n f n0(PR@ n1@P` n0(RR@ n1@R n7hV n1GVB BkBk l @! n0 n0LN^ _ NJoNVHn?. ?<HnNJnfv=|Hn?.?<?<A/N:Jnf* m h0.@ p h A //.?<|` nf=|Hn?.NJng=n n0N^ _ NJoNV/ Hn?. ?<HnNRJnf=|Hn?.?<?<A/NߌJnfdHn?.?<BgBNrJnf< m h0.@ p(h Tf r Ё//.?,|0,HѮ` nfBn` nf=|Hn?.NJng=n n0(_N^ _ NЁ%ԀIntrinSgswapaccsGETREPTYGETREPTY~VALIDREPVALIDREP~<NO_ROOM NO_ROOM ~4PUTPAGE PUTPAGE ~8FORCE_OUFORCE_OU~DOCLOSE DOCLOSE ~HEAP_COMHEAP_COM~ KEYSIZE KEYSIZE ~$MAKEFILEMAKEFILE~,CLONEFILCLONEFIL~MAKEDESCMAKEDESC~(MAKEFORMMAKEFORM~0DELETEFIDELETEFI~ DELETEINDELETEIN~!D~NhN N NNlN"N^N68`2BS8`(BS8`6 8`0.n> Gn 68`6 Gn 68`& G n 68` Gn 68` F0*`60.n> Gn8`B Gn8`6 Gn8`* G n8` G n8` Gn8` F0*`^68JT_ T^g F0*`@6 8`6BS8JT_ T^g F0*`6 8`6 8` F0*LN^ _NJoNV n CJ""2/.?.HnHnHnN nJPfP0.[@gS@g`"0. nV2.n]g n0*` 0. nV2.nVg n0*N^ _NJoNV/>. GrW GWW GW G:W GPWD@ .N^ _TONJoNVH(mz><&l=lBF`"Jkfk\k]g>+pRFinoؾlo>,:0,G2<@nol&l=lBF`*JkfJkgkoBk` 0+G7@pRFinoLN^ _TONJoNVH>. m h @(p m h0.@G/.?|4 nJPf /.?,X/0,H/HnBg/." nJPg*Bg n?Ng n0 N`9| OT n0 M`D m hm?<N mRh7G'n 7| n0T n Pf nBPLN^ _ NJoNV/ nBPBg?. /.Hn|> GV. g& m h @ pg/.??. /.N.N^ _ NJoNVH>.&m/. ?Bg| k @(pHn?,X"4Jng n 0 k @BLN^ _\ONJoNVH n U(@0HЌ]&@ T n LN^.NuJoNVH&m mA-H nJg` n.(-GBnBg/ n/(|J_f<(GJTl0n` 0jD@]@A-H n 0HѮ0jD@A.`*+0+S@=@BD`T EJgH E PAZ/N" E PJ^g* E PA^/N E P"E"QpHШ^ E P!@b/NXRDino-k0+S@=@BD`4 nJg$ n PJ g n PA /N/.NXRDino,+0+S@=@BD`r FJgf F PJg F PA/N^ F PJg F PA/NF F PJ&g F PA&/N. F PJ"g F PA"/N/NXRDino KQ/NA/NA/NA/NA/N n.(Bg/ n/(|J_f<(G0jD@A-HJTo"0]@A-H n쾐g/ n/?|..` n n(P0.D@8BB n.(0.D@ G0LN^NuJoNVH(n&mHlHl?,/,<|pJlf ,W , WgHl?,Hl| b`HlHl?,/,<|pJlgHn?,?,|`l k0,@A)H l)P0,HЬ)@ ,U)@ l9P k0,@A)H l)P0,HЬ)@ ,U)@LN^.NuJoNVH(n=l m h0. @(00,HЄ, U-@ n0.D@@:0 F=P n0.D@@A-HJlf >,&l`n m h0,@&p lf6Bg l?(f l?(j l?(j l?( l/(Z/ |D>XG`0,HЋU-@ n"n0(Q>H Ѕ/H ЅHЇ/ n0E?|/. .U/0.n??|H Ѕ-@ lf0 l/(Z l/(Z l?(/ .X/ l?(|P` / /.?|Jlg-n m h0,@"n" F0R@ F0,gHl?,?,|B,LN^ _\ONJoNVH(mB,B. l0.@-p n0(| =@Bn=l l"n0) A&HA"Kp S@n+HS@k @ nH0;N,\\Hn?.Hn| bJnf l0.@A-H n1| n-P0.HЮ-@ .U-@ nBP nBP n!k n!k Jnf n1|` n1|?./NHn?.| TJnfJnfXHn n/( n/( ?<?.?.xJnfHn n/( n/( ?<?.?.xJnf|`hHnHn?./+<|pJnf?./Nj l0.@1Hn?.?.|Jng```/N4JnfN0+nl/././.?+| `/././.0+n?| Bg?.?. n?(| F_ +f ?./N n.( n!G,+Hn?.| Hn?.?.|JnfJnfHn//?<?.?.xJnf`8/N^Jnfx0+nl/././.?+| `/././.0+n?| Bg?.?.?+?.|=_ +f ?./N n1| n1|Hn?.?.|Jnf|`/NJnf +f8/./.0.S@?Bg?.?.| /././.0.S@?| `,/./.Bg?.?.?.| /././.Bg| n1| n1| +f( +f/././.?+| ?./N`& +f/././.?+| ?./NHn?.?.|Jnf|`/NJnf + f: +f=k`0.S2+@=A/././.?.| Sn +f0S@:` 0.SR@:0.E=@ n D@@A( D0HЮ//. n0.D@@"D20Q?|//.?. D0D@?| n1| n.( n!G n!k n,( n!F n0 n0 n"n3h +f ?./N` ?./NzHn?.?.|JnftJnfHn//?<?.?.xHn?.| TJnfD|=nRn=n=lpJ+f$.gHn?.?.|Jng8Hn?.?.|.gHn?.?.| n 0 n1| OTLN^ _\ONJoNV/ m h0. @(pBg?,f?,h?,f?,/,^/.|D=_(_N^ _\ONJoNVH&m k"n0@(p nA,>,N:,ngx k @(pBg//,b?|gTHn?/. HnHn|$Jng9| OTBg?/.N68Hn?/.?HnHn|Jng9| OT>,N`LN^ _NJoNVH.. (m&mJg*,0,S@=@BD`P EJgD E P ШZ E P!@Z E PJ^g$ E P Ш^ E P!@^ E P Шb E P!@b EߐXRDino-l0,S@=@BD`8 nJg( n PJ g n P Ш n P!@ nߐXRDino,,0,S@=@BD` FJgt F PJg F P Ш F P!@ F PJg F P Ш F P!@ F PJ&g F P Ш& F P!@& F PJ"g F P Ш" F P!@" FߐXRDinoz߬߬߬߬߬Jl/+ Ы/?.|`/+ Ы/?.|߫ Ы'@ Ы'@ Ы'@LN^ _\ONJoNVH&n(mHnHn|Jnf4/. x4HnHlHlڠ"JnfHnHlHkX?:Hlڠ"JnnHn?+XHn""JnfA:C| p> |D|HH'@ K\/?<| K\/Bg|B7| p'@"'k p'@&p'@*B.p'@4Bk267|B m h0.@*0/ /?<D| m0(|D<Fl<(+Z/ EAD/?|B DA`( +-@ m0(H l m0(H-@ Hn?+X//. HnBg/." . ѮJngBg?.Ng=| N`=| M`^FJGg mhl<` m<(//?|JGf\Hn?.Bg|JngHn?+X"4HnHlHlڠ"`6Hn?+X"4HnHlHlڠ"Hn?.Bg|Jng=n n0LN^ _ NJoNVH>. =|-nHn??<?<A/x$Jnf\ m h @ p(h ,W TWgHn??<BgBx `=|JnfHn??<BgBx$` no n0LN^ _ NJoNVH&mB.B.HnHnР|Jnf k0.@*0Hn/./.Hn?<x0Jnf.g k"k0.@"q0@ p=hXHn?./pD/HnBgB"HJnf2/. x4Hn mHh mHhڠ"Jnf Hn mHhHn?:> mHhڠ"Jnn|-E n-hB .(0+Hl0+H(Hn?.//HnBgB"HJnfJJf4(n9| )l p)@&p)@*B.p)@4Bl2Bp)@"Hn?.//HnBgB"Jng Bg?.Ng=| N`=| M`ٮ .f>Hn?.Ҡ"4B.Jnf. G0Hn?.?<?</x$Jng nnBn`v k0.@(p,, =l//?.Ƞ|Hn/. /. Hn?<x0Jnf2Hn?.?<?</x$Jnf"| k0.@ p,( F-h`B. nnHn?./?.<x(Jnf G-hHn?.?<BgBx$Jnf" k0.@(p,, =l F Pf>` nfBn`.//?.Ƞ| G!nHn?./?.Bgx(JngJngHn?./.N`.gHn?./.NHn?.ҠxJng=n.gHn?.Ҡ"4Jng=nJng /. x4Hn mHh mHhڠ"Hn?.ԠxJng=nHn?.Bg|Jng=n n0LN^ _N JoNVH&n(m m7h|Bk K\/?<| ko n0 Y`:/./. / Nh nJPf$/.?+X"4 nJPgHnHlHlڠ"LN^ _ NJoXNVVH(m/.AX/?<|.gBg|x_BgA/?<lAj/|=_ n Sg4BgA/p\?An/|=_ n SfA//.j|BgHnHn|fJnf nj!nnZ njn[ nj1nf njB nj1n\ nj1n^ nj1n` nj1|8 nj1nd nj1nb,.n&n0.\S@=@VBD`N F1k F0 Fk F/BgC/ ?<| _@ kf nj1D8\0HRDinVoHn/. /.jNA//.j|A//.n|JnfHn/. /. Hn?<x0JnfBg m h"m"i0.@"q0@ p\/?<|g0=|~Bn=| =|AX/A/?<|Hn?.?<?<A~/x$Jnf*| m h0.@ p-h z nz-h`B. nnHn?.A~/?<<x(Jnf:.X~JEohH߮ Edo~d`>G=G0.R@=@/.A/?|Hn?.A~/ | ?Bgx(JngHn?./.N` `.gHn?./.Nv`=| ZHn?.xJng=nJnV.gHn mHh mHhڠ" n0LN^ _NJoNVH.././. /. Hn?<x0 nJPfBn/.?.?<?<A/x$ nJPf m h0.@ p(h JTfA&H0,@Jg G// "fN/ x4/. mHh mHhڠ" nJPf@Jg$Hn?.?<BgBx Jng n0`/.?.?<BgBx$`VHn?.xJng n0LN^ _ NJoNV/. /.BN n Pn /.x4/. mHh mHhڠ"N^ _PONJoNV/././. N~ n Pf n0N^ _ NЁ!<IntrinSgaccess DOWRITENDOWRITEN|4LOCKBUFFLOCKBUFF|RELBUFF RELBUFF |ЂGETPAGE GETPAGE |pCHECKPT CHECKPT | PAGEINVAPAGEINVA|INIT_COMINIT_COM|xRETRY_CORETRY_CO|ԂQUICKINSQUICKINS|ȂQUICKDELQUICKDEL|ĂQUICKUPDQUICKUPD|̂SPLITORRSPLITORR|FIRSTLEAFIRSTLEA|hPAGEDELEPAGEDELE|FINDDUPLFINDDUPL|\NEXTPRIONEXTPRIO|FIND FIND |dINSERTKEINSERTKE|DELETEKEDELETEKE|$FINDKEYEFINDKEYE|`SCANIDBASCANIDBA|؂SPARMSBASPARMSBA|PSTACK_VPSTACK_V|EFETCH EFETCH |<EUPDATE EUPDATE |HEDELETE EDELETE |8EINSERT EINSERT |@FLUSHSCAFLUSHSCA|lINIT_HEAINIT_HEA||NDISPOSENDISPOSE|NNEW NNEW |GROW_HEAGROW_HEA|tENTRYSIZENTRYSIZ|DEXTRACTKEXTRACTK|PCOMPARE COMPARE |FINDCHANFINDCHAN|XDEPFLD DEPFLD |(EXTFLD EXTFLD |LEXTRACT EXTRACT |TDEPOSIT DEPOSIT |,COMPHANDCOMPHAND| COMP44 COMP44 |MULT424 MULT424 |DIV424 DIV424 |0CLEARSETCLEARSET|SETSET SETSET |CLEARBITCLEARBIT|SETBIT SETBIT |܂INPSET INPSET |PINTERSEPINTERSE|BSEARCHVBSEARCHV|MOVL_INCMOVL_INC|MOVR_INCMOVR_INC|MOVELG MOVELG |MOVERG MOVERG |MOVELF MOVELF |MOVERF MOVERF |_|N^BN"N]N]PN\NYN\N@N\^N\N]NNQNINRNXnNNN\(NXN\ NZN%NBN,NnNU~NNWN~NWN]|N5NRN^N^N^N^N^dN^2N\NVN'NUN NN]fNHNN NNNNNFN]N\NF@N~JoNVH&m k0.@(pJlTfj L\/?<N\/. ?,X k0.@/0pD/HnBgB"Hn?,X"d n JPWJnWg9|T` n 0 M9| OT` n BPLN^ _\ONJoNVH(m|:<&l=lBG`km Jkf:+<pRGino=FLN^NuJoNVH.. G/BgN0 _0 G Pf n 0 L` m h"G0@I lft/. ?,N m h0,@&p/. ?+X/0+H/HnBg/, " n JPg.Bg n ?~4g7| NT n 0 N` n 0 M7| OT9|Blp)@ n BPLN^ _PONJoNVH(. &m km?<~Rk k0. @IJlf DBP` k0,@ p"D2T D Pf DBP0,S@9@JlfJlfp)@ 9|`Jnlj<<.+=kBE`4 GJhW GJh^g Gh^n Vg G<(pހREinoJF_ FWgBl` S@9@`"0<nkn?.~0.k9@LN^ _PONJoNVH(m|:< n&l=lBG`8 + f0+nf nB<` km Jkf:+<pRGino=FLN^ _ NJoNVH..<. G/Bg?/. HnN^0 _0 G Pf n0 L`~ m h"G0@I.g lfd/.?,N m h0,@&p/.?+X/0+H/HnBg/, " nJPgBg n?~4g7| NT`7| OT9F)n m h @&p/.?+X/0+H/HnBg/, "H nJPgBlp)@ 9| n0 M``( m hm?<~ mRh9|9|` 0,R@9@ m h @ p"n2T n Pf nBP`8 n P OW n P NW.gHn G?BgNJng n0LN^ _NJoNVH<. m h @(p m&h m=hBG`kfr kfL/. ?NnHn?,X/0,H/HnBg/+ "JngBg?.~4g9| NT`9| OTJkg7nJkf p'@ 7|pRGinoz l OTf n 0 O` l NTf n 0 N` n BPJlTgt lTf L\/?<NVHn?,X m h @/0pD/HnBgB"Jng n 0 OHn?,X"dJng n 0 O n JPfBlT` n BPLN^ _PONJoNVH(m&l=lBG`"0+nfBk7|p'@ pRGinoLN^ _TONJoNV mJ(f m||`B.N^NuJoNVH(m n W n P SWg~ |Jlo ,T>0<Gll n 0 S`$/. ?,0,H/Hn0,H/Hn" n JPg n 0 SB.B,`B .,H <l 0<GH, n /BgC/ ?NOL0 _0)n` n BP`B. nJgB,LN^ _PONJoNVH>. Gg$ m h @(p ,fBl>,`LN^ _\ONJoNVH(n&n<.0SlLBg R@?A g/ PN>TBg R@?A g/ PN:_ GjD@2T@oRF``V`L0SoDBg?A g/ PN>_Bg?A g/ PN:S GjD@2S@oSF`` ``86`\=FLN^ _NJoNVH>. (nll$ l D@S@@"l"DAA40q=B`0lf=l `" l D@@"l"DARAA40q=BLN^ _\ONJoNVH.. ,.:. F D@@A&H F D@S@@A(H0HЮ/0HЮ/ F"G0D@@20T?NT, G0S@ G0/ / G0E?0T?NSLN^ _NJoNVH m h0. @A( m h0. @A-H D*0.HЅr (@ U-@ n0D@@A. n-P0.HЮr &@ U-@ n0D@@A, G"F0P| 2TRAA@=A0.ްnoB.`V D1| n1|| FJPg8/. G0HЅ/ F?NS .U/ U/0S@? G?NR0T8LN^ _\ONJoNVH:. &m k @(p>, &W+@gfBg/, pGH/NPf _f=| N`DHn/.NJnf2 k"n0@A-H n1E n!l H Ь )@ `>Hn/.?/,&<NPJnf" k"n0@H"Ұp , F)h& n0LN^ _ NJoNVH&m k0.@IJlf2/. ?.?,/, ~8 n JPg k0,@ p!l ` 9| n BPLN^ _\ONJoNVH m h0."@(p m h0.@A-H n,=l0.ސ| =@&F U* E0D@@=p E0.D@@80|$0.| 2TAA@0.AnnB.$?,V n/( N n"n " n0H Є/H Є2.HҀ/0.D?NP E0D@@A/ E0D@S@@A/0n??.NP0H Є.0R@6 n fD.g/./?.NPF`/,Z/,Z?,/. X/?,NI-G n"n"`0.g/./?.NP`/,^/,Z?,/./?,NI n1|LN^ _NJoNVH(mB./.Hn?./. <N nJPf l0.@.0 G:( l0.@(0H Ѕr &@ U, F0D@@"F2.DASAA40q F0.D@@20B0R@@A"| H@nH/// ?.N G?(V/. N l0.@1 kf G (S G!@|/.?.?,NFLN^ _ NJoNVHB./.Hn?./. <N nJPf m h0.@(p=l m h0.@&p0.HЋr ( U-@ n0.D@@A-H .T-@ .U-@ D=PJnf D fj`*Bg/,Z/,Z?,/. n0HЋ/NH _f>0.S@nf D f$`(Bg/,Z/,Z?,/. n0HЋ/NH0.G n2@< n0.D@@:0 G=@ F2.RAA@:JFl20.| HEnH Ї/H ЇHІ/?.NM$`,JFo( | nntH Ї/H ЇHІ/?.NM"/. n0HЋ/?.NL/./.0.nS@??NLV?,V/. N m h0.@1|/.?. m?(NLN^ _NJoNVH>. (nllZll$ l D@S@@"l"DAA40q=B`. l D@2,@SAA"l D@4,@B00q =@`hlf=l `ZSGll$ l D@S@@"l"DAA40q=B`. l D@2,@SAA"l D@4,@B00q =@LN^ _\ONJoNVH<.(. m h0.@H"Ұp &A U-@ m h0.@H"Ұp (A U-@=T:0.S@> n0.D@@=p n D@@20n0. A=@0.nf D0.P=@` D=PRG0. n0.nBgHnHn?HzB/N>| T@@2.@A]"nGRAA4.AB]g~=GJGm D0LN^ _NJoNVH m h0. @A-H n(P0.HЌ-@ .U&@ m h0.@A-H n-P0.HЮ-@ .U-@ n: S@=@ n8 En S@=@ n> D@@A-H n D@@A-H n D@G@A-HJGot D@@<3/ n0HЮ/?NIt U/ .U/ S@? n?NHH І// n0F?NI> D@@A// ?. D@?NH`vJGlr D@> n"n0Q</ H І/ n?NI /.0.D@@A/??NH n0HЮ// ?NH/./ S@? n0D@?NH< n00. R@ n0 n1| n1|LN^ _PONJoNVH&n..,.(n l4f<,(g//?. NH@`/+Z/+Z?+/ X/?+NA* l*"E"`,,(g//?. NH`/+^/+Z?+//?+NALN^ _NJoNVH&m k0.6@-p k0.$@A-H n=h0.Ɛ| =@ n?(V n/( Nf n4f=k`=kB. n =| gvHnHn?.6/. <NXJnfnBg?.?.$?.$Hn&?..?.N~=_JnlHn?.?.NtJnf.` n0=n$| VJn]g~HnHn?.6/.<NJnfBg?.$?.?.$Hn&?..?.N=_JnlHn?.?.NJnf` n0|=n$ n Jnm n?(V n/NJ g n 1n&0.&nn k0.@A-HSn` k0.@A-H0.&nS@=@&Bg?.?.?.?.N^=_J g0(n |9n k0.@)p  k0.@)p n,0.HІ. U* E0.&D@@80 n"n" n0& E0.&D@@80H Є/H Є2..HҀ/ E"G0D@@20D?NEB E"G0D@@A/ E"G0D@S@@A/ G0n&??..ND G0R@ G0/.H Є//.0?../NJHn?.?.N,=n$=|< n0` n,0.HІ. U* E"G0D@@=p E0.&D@@80Hn?.6/.NrJnf| k"n0@A-H n-P0.HЮ-@ .U-@/ G??.&?..HnȠx G0n n0 E0.D@@A-H E0.D@S@@A-H0.&nn n"n" n0& n0HІ//. n0.̐P?NC/./. n? n0D@?NBH Є/H Є2..HҀ/ n0D?NCp/./.0.Ȑn&??..NBH Є-@`0.&n=@ n"n" 0.S@ n0 n0HІ//. n P?NB/./. n? n0D@?NBP E0.&D@@A/ n0.D@@A/ n0n? n0D@2..@?NBH Є/ n0.D@@20HҮ/0.̐D?NBP n"n0D@@20HҮ-A0.R@ G0/././.0?../N(n n4g G)h n)h 9n4Hn n?NJngd G0.&Pl///?.&N:`/././. G0.&P?NBg?.$ n??.N_ nBh n"G#h` n1|J g(n | n)h  n)h n4gz n"G#h  n g`HnHn?.6 n/(<N.Jnf> k0.@I0.HД-@ n"n#h 9|Hn?.?+NF=|LN^ _\ONJoNVH m h0. @(p&L U. G0. D@@<0 n0.D@S@@"n2.DAA40q:8 G D@@A-HH І/H ІHЅ/ n0F?N>P/. .U/ n ??N= n0.D@@20HҮ/ G0. D@@20HҌ/?N= R@6LN^ _NJoNVH(m l0.@(0 D=h0.| > l0.@A&H-SH Ю, U-@ D?(V/+ NF/././?.N0.| H=@ n"F0D@@"F2RAApn] VgP F (f =nHn/.?./.<N` n0HnHn?./.<NJngHn?.?,N*` l0.@A&H l"n0@A-H-SH Ю* E=P D?(V/.NHBg?. n??.NRg nH А-@ n"E#h n 0.nf n0`0.n n0=|$Hn n?NHn E/(/+ ?<?.?xHn?.?,NBJng=n`0.nfT n n0 n-PH Ю* U-@/./.Bg F??.?N/././BgN`T n"n " 0.R@ n0 U-@/./.0.S@?Bg n??Nf/././0.S@?Nx7| n1|Hn?.?,N`JngHn n??,NH=|$` FJPg2Bn$ n n07|Hn?.?,NBn`=|$ n p F-h F-hHn?.N.Jnf nf Dp!@*` D (" f Dp!@"`j l"D0) A-H n!n n!n Hn/./.?<?.?xJnfHn/./.?<?.?x=|$ n 0LN^ _NJoNVH(n&mHl l??+NJlfHHl/,?,&/,<NފJlf* k"l0@)p0,HЬ)@ ,U)@LN^.NuJoNVH&n 8.(m l0.&@ p0(| =@ l"n0@-p0.HЮ-@ .U-@ nJPf =|` n0PfB.`6Bg/./."?/. n0D@@20HҮ/N3& _VD@ l"n0@,0 -FzBn.g n0JSlv n-h fBS`N/NJnftBg/./."?/. n"n0D@R@@20HҮ/N2> GfBS`,. n0S@6`,Bg/./."?/. n0D@@20HҮ/N2L> GfRS` Gf BE.fSS`:` nBP n0PfN n-h gz/NJnfBg/./."?/./.N1>JGW.fH,.BS`,Bg/./."?/. n0D@@20HҮ/N1> GfBE` JGgRS`jf n0 l"n0@ g -F/NJnf=E n(0LN^ _$NJoNVH.. (m l0.@ p-H l"n0@"n2)HҰp &ABn nf$ GJPl,+ f=| GBP``, GJP\ G2S]f,+ f =| G0`jHn n??,NfJnfRHn/.?./<NJnf6 l"n0@"n2)HҰp &A nf 0S@ G0` GBP n0LN^ _NJoNVH(m n fBn`& l0.@ p-H n=h nf=l`=l n0(| =@ l0.-p l0.S@A-HHnHn?. n/(<NJnf l0.@,00.HІ. U( G"n2 G0S@=@Bn`F D0.D@@20H҆-A n fHn?.?.N n1n`"Rni 0.noHn?.?.N״Jnf0.U@:=l Em Ef=l l GJn W2SAk^ n WJk^gHnHn?./+<NJnf l0.@,00.HІ. U(Jn f 0+R@7@` 0+S@7@ D0+D@@20H҆-A n-P l R@!Hn?.?.NֺJnf R@2.UA=A=@`HnHn?./.<N(Jnf0.HІ. U( l0.A-HJn f nBh` G0S@ n1@ G"n2 D"n0)D@@20H҆-A n-P l0.R@!Hn?.?,NJnf2Rni 0.no:``SE`.=| O n1| OT``H n 0LN^ _PONJoNVH&m k0.@(p=l=l0.nl=n0.nl=n0,| =@ "f =|` kA. G!l"=k=l z`rHn/.?. G/(<N֜JnfX k"n0@(00.HЄ, U-@ F"G2l lBn F PoX nm>Hn X/ .U//. F0S@??.Hn/,Z/.N0.gRn` nf F0S@=@ G1n n0.D@@20H҄-A n"k R@#Hn n??.NJnfv=k`^ nmJnfBgHn?.?.8.&m Do =| Y` k @(pHn?/.HnHnN nff k0, A,Bg?? n"G0)D@S@@20HҮ-A=nHnHn?. n/<N n-P Jng"Hn?.?N Hn?.?.N` l0.@A-H l0.@A-H n-h  n"n#h  n!n Bg?.?.?+N$gNHn?.NHn?.?NÀJng=n nf n| ` n|=|`8 n-PH Ю-@ .U-@ n-PH Ю-@ n=P0.nf,/./.Bg?.?.?N/././.BgN`> .U-@/./.0.S@?Bg?.?N/././.0.S@?Nʖ n1| n1|-n n"n0(Q=@Hn?.?NdJngHn?.?.NNHn?.?N@Jnf( nf n|` n|=|`. n0LN^ _NJoNVH m h0.@(pHn?./.HnHnNn ngJnf<, m h A&H m h0.@A-H n0,HАr -@ .U-@ n0+D@S@@"n2+DAA40q7B'nHn?.?.N6Jnf ~ Fof m h S@A-H n PoD n"n0S@hf n.( n*( 'E 'G` n.(*'E n'h  m h A&HBgHn?.?.<.*.8.&m k @(p Gf<,Jf*,ZHn???//./. N k0, "n20,lVl]JnW nW‚ GW GW‚g.Hn?/,Z/?Bg GWD/./. /.HnNX n0LN^ _NJoNVH&m nBP k"n0@ p>(N n:(< Gg k @ p-H/.?/.HnHnN nJPgHFgD k @(pBg?/.~$8Hn?/.?HnHnNJng9| OT<,N`Gf n n0 n>(N`dLN^ _NJoNVH&m nBP k"n0@ p>(N n:(< Gg k @ p-HBg?/.~$8/.?/.?HnHnN< nJPg> n0Fg4 k @(pHn?/.HnHnNlJng9| OT<,N`ȺGf n n0 n>(N`^LN^ _NJoNVH(.&m n BP k"D0@(p DA-H D:(>,N=l GV n JPWg k @(pBg/./,b?.Ng/. ?/.HnHnN n JPffBg?/.~$</. ?/.?HnHnN n JPg8 n0Bg?/.~$<Hn?/.?HnHnNJng9| OT n JPg//./.?~Gf n n0>,N`LN^ _NJoNVJn\ m2.h]g m h0.@JWD@ `| N^ _TONJoNVH<.&mBGBg?.Ng>< P`JF] F^g>< W`r FW FWgb. @JW@g>< T`F Ff@ k0.@(p lmz` k0,@ p:(Jn _n ]g>< V=GLN^ _ NJoNVH(n&n6 JlfJSW SWg"/.?Bg?,B/, /./. N`0lfB` m h0,@ p.(^/.?<Bg?,//, /./. Nx n Pf.&mBg?.??. /.N =_Jnf GfH k0.@(p lf2=l JnW nWg=|` ng=|`dHnNJnfTBgNl_ k0.@,0 k"F0@-p k"F0)@-p n0(| U@=@(F GW GWg0lfB` n-h^Hn??. ?,/./.HnHnN nf. ,. Bg?.?<Bg/N=_ @g=| UJnf\HnNJnfLBgNh_ m h0.@&p m h0@(p l8V.g~ lZ0,8A-H n:( n=PA2 \HŐ-@=| Q S@=@BD` n 0@gBnRDino n Qg/.0.HІ/?N J g< + U-@ P@ nPn-k `Bg mA/?A/N=_`Bg mA/?A/N=_Jnf n0Hn?/?HnHnNJnfHn/./ /HnHnNJng4Hn?/HnHnNJng m h0@ p1| OT` + gJ g mA//+ NP//.?N 7G'n 7| 'n7n7|.g* m h0@ pI2 ,R)@Jf0R@8Jng + g mA//.NBgHnHnNVf n0LN^ _NJoNVH*. (mBg?.Ng E0 P`n EBP l0.@ p>Bg l @ p\/?<N  l @&pHn??<N>+NJng E0 GW"AgLN^ _\ON"_ 2 _/ H08t gRAPABl26h1C nDBB$C"P& gz6ACm:&IJf `(i)KJg(i)K6'i'i7C`DJCn*C& f&) g2&CB`*&)%Cg &C'i`$I"i& fL ?| SNuh2 I1 @T L BoNuB#PJQmDQJg$P%I $I5QNu "_ _/" U0hJfa`fcJil$I0R3R"J`a$IUg8TJRl2Jg j!j` Jg j!j0Q I1Q$ANu "_2 _1ADA !I2BBU!I2 @N"_0 _/ J@m "h" 3@!I2"AXa4BoNu"g"AQl?| SNu2@ AogBQA2`2U2!IhBoNu0/ JomF o2/"o2/o/ ( m4 ( m 41 B?B`q \Q$gR@ _r>NH808/"$o(&o$0R2SB@*@N0`D2`@"`<""`6BA*BB*NBB+N ``h``````\``X`6`4``\\SDfL  _pN02@?I0A2/4I@22B`022/20P2AJ@go`0+S@f`H808/ $o&&o"0R2SB@*@Nz `I` g nR`\g~nJ`TgvbB`LBA*BB*N>6 IBB+N0@`0*2`0* gb `S@f`4B@J*f8R@`4B@J*g,R@`(``````````F`V``\\SDfN0<L  _r>N02@?I0A24A?J2B*  g `020P2Q`<020P2QA@c0J@g gbZ`bS@fNqDg|bF`N/ Bg// ??<,0$_`H< Bo*:/$$o&BCBD0R"H B@*@Nb gx`tIgr`nBA*BB*N IBB*?Nܰ_gN`J0* fBS@f`>g`6g4`00* fS@f`$|*`````````````^`>`Z Df o0/HBDBC`RD\SEfNo$g o0L< _rN02@?I0A24A?@fJ2B` 0Yf0P2QJ@g `H"_20 _/$a$>NB0A&40 hBNuBA40 FBz6Bh@2Nu??H02/ 4/"o0/NL _p N "_ _gb`gbBW @N> @N> @N _gb BWN>N>N _2 /4H@Ђ$.N _"_B2/ 0/HA2H@2X.N"_0S@H _BXQN"_2SA0S@ _H04J@IBJBg 6<0SBfv@0.8&n<(n@BB6.:SCCnF8CLBg//?/ 0@D@04 nDHpNL0 @gn 6SCCo` p` 4RBCo8B@ n40 nHLx _p N/aH4 A3Q$ _p N2/ 0/"o oNu/a4A2Q`"0"_ _/S@mQNu"0"_ _/S@m QNu"0"_ _/2oHgS@"Qg2gNu"0"_ _/J@oHd Hd3 S@m# QNu_IntrinSgfrecovseFILERECOFILERECO!NHJoNVH,.BnBnBn F&hZ F0(S@=@Bn` +VJk_g =| H `"+@BG+Hk @ nH0;N 0H`x` kg>< H` kV@g>< H` kV@g>< H` kV@g>< H` kV@g>< H`z ko>< H`l+H+H@ A^J+] +^J+]@g>< H`0 kV@g>< H` kV@g>< H`>< HJGg=G `=S +f0 +o0R@:`0T@:+H+H@ AnRn`0+S:0.S@=@BG` F hZ I ,f +fH0SW,H,HA+HB],H+H+HCA^g =| H `,`T=T ,o 0R@=@`0T@=@,H,H@ AnRn0.n]n^g =| H ``0,Tn^T^g =| H `RGino F0.hl no=Eno=E\Rni 0.no: F h8V F"F2(8i\ F h8] F2(n] F2(n]g=| H `( F h8g F hZ"F0)8 0g=| H LN^.NuJoNVH m h0.@&p(kZB.0+S@=@BE`l , o^0HЮ -@ , n n> n<(` n0@?> n0H@<JG]JGVk]6. FG]Äf\REino|LN^ _PONJoNVH(mACp@ S@nBF,@> GmA0p@ @-f<SG`SG`pA,@F:.@E=@AH І/A/ R@?|pA R/AH ЅR/.@?|BDHnHn"\JnfHnHnHn"tJnfJGfA/A/.@R@?|`Jp.AGRAA R@A-A R/AH ЇT/.@?|HnHnHlڠ"Jno8.pA`N nPfBnJnf=D n 0LN^ _PONJoNV/ (m/./:N@A/A/,@R@?|p.ATAA.@S@A$.@ADHnHnHlڠ"Jn^ n~Vg n0(_N^.Nu$IJoNVH<. *.8.Hn?Hn""Jnf..NBg//|J_f.BB /?Hn|0?|.ޟHn?/.H/HnBg/"H nW nPWfHކ`̺fB`4HƞHn?/.H/HnBg/"H nV nPVf` n0-GLN^ _NJoNVH<. B.(..(g@HnHnĠ|Jnf m h0.@-pH Юr -@|` n BH Юr &@ U-@ m h0."@ p=P m h0.@ p=hBHn?.$/.?/.NT.Bg//| _gJngB.( n `0+@g@g` | 2RAAA=@ n=PJnVJS_S_Jn_fj0S@=@Bn`(n0.D@: n0.D@S@@=pn E ] E^.A2.Ȳn^@f l W"| l\Jl\ VgJTf=| MJ, ] , ^Jl_2,l^2,n^f0,S@=@Bn`0.@24AnlRni 0.ְnoA 2,AHҀ=AƺnoT0.HЌ-@ n@"nƲ@o4Hn/./.BB?<?,?,A/, A g/ PNJng n*"n*pQ0` Tg.&gB TWJlW l\g(/ A/?<|=|=| BnzA(HHn?."/ ?Bgx(Jng nf`Bg/,/.| _f-lRni 0.ذnoHn?."|lJnf>`".(gBg//| _gHn?.$/.H/HnBg/"H nqW nWHƼWgBnJngB.( n ` n hgHn?.$/.H/HnBg/"Jng B.( n `xH؆ n hf^Hn?.$/.H/HnBg/"Jng B.( n `:Bn-n-n-n-n-K&n U-@``H؆`Bg//| _ggDHƞHn?.$/.H/HnBg/"H nqW nWHƼWgBn`NBHn?.$/./<HnBg ./"H nqW nW WgBn.(gHn?.$"Hn?.$"8`ZBnR m h0.@ p-HBg/. n/(.| _f n!n..(g n .gHn?.Bg|Jng=n n.0LN^ _*NJoNVH<.BBn m h0.@ p8 m h @(p=l l8VD@.g< lZ0,8CA"2AC 0BnA0.H"\-AH Юr &@ U-@Hn?./.H/HnBg/. "H nqW nWHƼWgBnJ gbJng` kfx | 2RAAA=@ n>JGVJS_S_Jn_fD0S@=@Bn`(H Ю-@ D@: n0.D@S@@>0Gn] E^"An^@fBg/.??Ng.g:=| Q0.S@=@Bn` n0. 0gBnRni 0.ȰnoJnfHnHn?./.?Bg|@Jng nV n QVfJnW.g:BgA/A/?</./.|J_f0.HЮ//.?.|Rni 0.ʰno . fRB Hn?././<HnBg ./"H nqW nW WgBn`FHƝ Hn?./.H/HnBg/. "H nqW nWHƼWgBnHn?.|lJnf|Hn?."Hn?."8=n`Bn m h @(p. g ,R)@4`& .R-@Jf 0.R@=@A2C 0Hn?|4 n0LN^ _NJoNVH>. (m/.x4HnHlHn?:8Hlڠ"JnlBnJnV niV nhV nkV njVfHnHn|Jnf m h0.@&pH Їr (BHn?./.?/ N*Jg\BHn?./.?/ N,Jg.Jng`\ D hW D hWgDHڇHn?./ H/HnBg/"Jng Bg?.~4g=| N`=| M`ڼfNBHn?./ /<HnBg ./"H nqW nW WgBn`@HǜHn?./ H/HnBg/"H nqW nWHǾWgBnHn?."dJnf2Hn?."Hn?."8=n`HnHlHlڠ"Hn?.Bg|Jng=nHn?."4Jng=n n0LN^ _N JoNVH*. (m&mBHn?.A/pD/HnBgB"H nqW nW DWgBnJng =| H`L  g8A/?<|Hn?.A/pD/HnBgB"Hn?."d=| HJn^ m2.h_ nW nW .WJ.W‚Jn^2.n\2.n\Jn^2.n\ n_r|D|HHWgfB. .g ||<.Bg|x_BgA/?A/|=_JnfHn?./.H/HnBgB"H nqW nWHƼWgBnJng =| H` .rDЁ-@BgHnN=_Jnf-npn=@Bn/.x@Hn/A/~, nzf,Hn?.H/?./NLJnfHn/A/~,Jnf"Hn?."4JngHnHlHlڠ"A//.|BgHnHn| g n HV@fh/.x@/.x4HnHlHn?:pHlڠ"JnlBnJnV niV nhV nkV njVf~`g Hn?."4 n0LN^ _N JoNVH>. GfB.`0(n @ nA4ASBG]@@ n0LN^ _ NJoNVH(n &n<. FfB.`| @f>, lf~0GFm~ l mrH І-@ l n* n> n hfRJG]2FYAG]D@`4 n0@?> n0H@ @fJG]2FUAG]D@`B.6LN^ _ NJoNVH8< IBG&n m h0.@(p0,S@=@BF` lZ CA"2&n kg 0+HЋ-@0.| Gm=S.@.HkV2+nV2+nV@fNBg?+ / HnNhf8Bg?+/ HnNRf"Bg?+/ HnN<f Bg?+/ HnNfBg?+/ HnNf0.SG] kWJk_ k ^f0+HЋ* E@ @(n/A/ E@R@?|.glHn?+HnHnA g/ PNJnfX=|`0.@2.A46´s f:Rn noHn?+Hn?+?+~. p-@=|-nHn??<?<A/x$JnfT m h @ p(h Tf: ,fHn??<BgBx `-l`Hn??<BgBx$` nnBn n0LN^ _ NJoNVH|=|Hn?.?<?<A/x$Jng nnBn`~Bn m h0.@(p&l -l=l< m h @ p0(|=@(+JkV k]g=| I`~ r Ё/A/?<| m h @(pJn_.A2.lV2.lV2.lV2.lV2.lV@g=| IJnfBg|x_Bg mA/?.A/|=_BgHnHn| gJnfZBE=|HnHn?/.<|pJnfRnHn?HnHn?<|Jnf m h0.@-p0.HЮ-@&n n0.D@@ SfRg.+`F=| I0+nV2.kA^f& r Ё/H Ю/?+|Rnk`R nfBnJnfHn?.Bg|Jng=nJnWnVg=| IJnf(Hn/.?.?A/ / 0.nWDN~ mA//.| n If BHn?./Nd.Jng=n`2JnVD@JnW VgBHn?./N&.` n IV Wg n0nLN^ _NJoNV n$0 MN^ _ NJoNVH..&(m n6BP/.2x@/.*x4HnHlHn?: Hlڠ"JnlBnJnV niV nhV nkV njVfBgHn?./.2/..//."N_Jnfr/.2x@/.*x4HnNJnfRHnHn|Jng`/HzʠAF/HzA/HzxA/Hz|A/Hz\ mCvA"" mCA""BHl?<Bg< m(?<Bg?<<&8)_LN^NuFFFFFFFFFFFFFFFFAA55AA55AA55AA550000000000000000FFFFFFFFFFFF0000FFFFFFFF00000000FCFCFCFCFCFCFCFCF0F0F0F0F0F0F0F0#Copyright 1983, Apple Computer Inc.JoNVH>. (mnJGo|9n @HnBgBgBgBg(BHn?,@?<<?<?.?<<&8)_B?<")_NBHn?,@?<<?<?.?<<&8)_BB?<")_HnHz>*< mPJhn mP/B?.?<d*H  _!@ mP"n2N^.Nu System.Pr.JoNV mPA-H n nn n1n n1n  n1n  n1n n| nB( nB N^ _ NЁFIntrinSgPr QUEUEINUQUEUEINU؂QUEUEFREQUEUEFREЂPRVBAND PRVBAND PRHBAND PRHBAND xCLRBITMACLRBITMAFCLRBITSFCLRBITSMOVEBLK MOVEBLK 0FEQBLK FEQBLK PRAND PRAND hPRSHRIGHPRSHRIGHPRSHLEFTPRSHLEFTPSCALLINPSCALLINPSCALLOUPSCALLOUPSCALLCLPSCALLCLPSCALLOPPSCALLOPPBCALLDUPBCALLDU<PBCALLCHPBCALLCH8PRCALLPRPRCALLPRlPBCALLSCPBCALLSC@INITDEBUINITDEBU$GETFILENGETFILEN PSNONPREPSNONPREPSPREEMPPSPREEMPȂPSCOPY PSCOPY PSCLOSEPPSCLOSEPPSINPORTPSINPORTPSOPENPOPSOPENPOPSOUTPORPSOUTPORPSPORTNAPSPORTNAPSPORTTOPSPORTTOĂPSYIELDCPSYIELDĈPSNUMTOSPSNUMTOSFCLRBITMFCLRBITMQUEUEINIQUEUEINIԂENQUEUE ENQUEUE DEQUEUE DEQUEUE INSERTBEINSERTBE,INSERTAFINSERTAF(UNQUEUE UNQUEUE QUEUELENQUEUELEN܂QUEUEPEEQUEUEPEEOPENBLOCOPENBLOC4PFSETPOSPFSETPOSdPFSAVEPOPFSAVEPO`WRITEBLOWRITEBLOREADBLOCREADBLOCPBCLOSE PBCLOSE DPBDUMPBAPBDUMPBAHPBHRULE PBHRULE LPBOFFSETPBOFFSETPPBOPEN PBOPEN TPBTEXT PBTEXT XPBVRULE PBVRULE \PRDOCENDPRDOCENDpPRDOCSTAPRDOCSTAtPRPAGEENPRPAGEEN|PRPAGESTPRPAGESTPRSPOOLAPRSPOOLA(NN @N N NNbNtNN N ^N:N NNNN$NlNNNNNN xN DN8NXNvN N$N$N%N4N$N'NN0N,N(N$NNNnNN NNN*NNNNBN NN N N TN tN  o Pg _NBg/<"԰_` _"_"QNNVH| n"n$n 0.H:.SE<.46f`,JFgxKBKAQ`xKBQxKAQ‘QL>N^ _NPrVBand NVH| n"n 0.H2.SAx$Ht V[QKQRQL>N^ _ NPrHBand _$ "_$Q0)2) igBZUn$BNNVH|"n2)Qg,SA4)ig JSB"n $Q0)6J20fQQ|`B.L>N^ _PON _""_$_Sf$@N _""_$_ fSf`B$@N _20@>N _20h>N _20h>N o.gNNuJoNV/ (m0,gAC 0Hl0Hl?<@(_N^Nu-PrinterJoNVH(n 8.p4A:>`:BgBg?. S@@?h?<T< F o^F DGR@"|0SG Glp"DLN^ _PONJoNVH-|[P =|]B.B.(nB?,Hn?<NP?,Hn?<N@~Hn/ ?"<.@@Hn/ ?"<.@@Hn/ ?"<.@@Hn/ ?" l&PBg?.?<ȠX0k(7@( m/( l P/( l P?((DLN^ _TONJoNVH(m< l P"l"Q0(&i$m6 l&P0+$|7@$ m/( l P/( l Pp$?DLN^NuJoNVH&m k P"l"Q @2100ll R@??/.NN`f k P"l"Q @2100lW k P"l"Q"A4120 l]g R@??/.N` ??/.NLN^ _PONJoNVH&m< m hI:8,B m/( k P0(&@?-_ S@=@>` k(P-L? n/(NBF0,&S@=@Bn`6 l P0.CA"""2nf Bg?/N2RFRni 0.no S@=@Bn`\ l P"n"Q0.@21Hp k P/( n"l"Q$n$R0.@221H@/0 NRni 0.noRGino k(PBl&Bl* m/(/.절LN^NuJoNVH8. m(hB&_B*JDmHnBgBg??<(`Hn?BgBg?<(Hn?,2?,0/ Hn젊 m h/(/ /  ST-H n>( n<( SHhNH/ $/$Go??,0 G?N m h h2 m h1@2LN^ _TONJoNV/ nCJ""(m< lgHlHnHl` LQC (_N^.NuJoNV m<1n m<1nN^.NuJoNVH nCJp"S@n&m mBg0,l?0.n?X9_Bg?,?.\9_0,l9@`DRGinoPN m< h&PI k P0+&AC 00+&R@7@&LN^ _\ONJoNVH8. m(hB&_B*JDmHnBgBg?<?(`HnBg??<Bg(Hn?,2?,0/ Hn蠊 m h/(/ /  S>( S<( SHhNH/ $/$Go8Bg?Bg?,BgXX=_Bg??,\=_?,2? G?N m h h0 m h1@0LN^ _TONJo NV H(. (m@BnBB/.Hn"BgN  g/.HnHn" nBP .̐n/.?.Bg//." n P:W".̒^DgR lo:J,f4Bg mP/(?< <Bg<:|JEfN h` N 9| m0/(Hn(Jn_" @JfB=|'/.HnHn "D`BgN  @LN^ _NJoNVH(m@J,fXB|BgBg?HnX  g2.@ @.W/Bg?.?<N2  AWDRF`g|lLN^NuJoNVH(m@,g`| gp)@HlN9|'&n m0/(/,0,H/0+H/0+6H/D` /./. NVLN^ _PONJoNVH(m@BBBB9|p)@B, n1n  m0B(nB,B~B,BgNt gBnGAB"K""2'|. n7hBnGHn/ /+/+HkHk?+<" n5f m0/(Hn(BnGHn/ /+/+HkHk?+<"Jn^Jn^gB=|HnHnHnޠ"DNDJn_JnW/BgN @gvJnVDBgNtJf  gHn m*(9|xB/, ,м/B?<@Bg/p/p/p/&)_ m!l&n / Al'HhHkl8At'H n(H?BB/,?<)_ l PGBBB/,?<Р)_9|BlBl n9h GBB/<"'_7kBkBgN/. m!E`NBgNJg /. /.N  "ALN^ _ N PRDATASEGJoNV nCJpC"S@nHn?.",N^.NuJoNV/ (m@ loHn l/0,S@H/?,N^9|(_N^NuJoNV m0(g m$/(( m0B(N^NuJoNVN^ _\ONJoNVH(m@NHlN߈A-H nCp@ S@nHnHl?:NJn_D <PмPXXмм?//<",BgHn?,/HnN g$gHnHlؠ"BBgN gNGGgXNBHnHl?,NHnA/p/?,N BHnHl?,NHnA/p/?,NLN^Nu JoNVH(m@BgN.JfBnNHn n/Jg` l P0,@GN HnHl?,NX ,ʐ'@/,pB0,HH@J@J@W,g/. ND`P n G0,k\D@/.`|/./. NN~LN^ _PONJo NV H(m@BgNJJfBn NHn n/Rl n G0,S\2,k_DGg@ ,fnHn ?,Hn" .JF//<"* <Pм//<",l&BgHn ?,/HnNZ g/. N J,fBgN @A"n#HRl/,/,0,@?D l P0,@G lo&`NFHn / ?,NB m(( m!l n A$/?<NvB n Hh$)_ n/(?<?<?<}?<}$ m!D`&n BA0'H`B.BgNg /./. N LN^ _PONJoNV/. ?.NxN^ _\ONJoNV m0(  m@(g6 m$/(Hn&<Hn< mP/(?<<x m0|N^NuJoNV m@|N^NuJoNVH(m@Jno.BG lmN&n l P0,RlRGnfLN^ _\ONЁ(IntrinSgPrBtn XDLGIDLEXDLGIDLEXDLGEVENXDLGEVENXDLGEND XDLGEND XCKCMD XCKCMD BTNADDCHBTNADDCHBTNBIND BTNBIND BTNBKSP BTNBKSP BTNDRAW BTNDRAW BTNERASEBTNERASEBTNFILL BTNFILL BTNPTSP BTNPTSP BTNSETSPBTNSETSP(BTNWRITEBTNWRITE0BTNVANISBTNVANIS,BTNREAPPBTNREAPP$MUERASE MUERASE FMUHIT FMUHIT MUPUSH MUPUSH MUSHOW MUSHOW CKFMADDCCKFMADDCHFCKFMHITFCKFMHITxCKFMKEYSCKFMKEYSLFCKFMNXTFCKFMNXT|FCKFMSELFCKFMSELCKFMSETUCKFMSETUPCKFMSHOWCKFMSHOWTCKFMSP CKFMSP XCKFMTRKMCKFMTRKM\CARETFLICARETFLI8CARETBLICARETBLI4CARETMOVCARETMOV@CARETKILCARETKIL<CARETSYNCARETSYNDFDLGDONEFDLGDONEDLGEND DLGEND `DLGEVENTDLGEVENTdFDLGEVENFDLGEVENDLGINSTADLGINSTAlDLGMAIN DLGMAIN pDLGOPEN DLGOPEN tDLGIDLE DLGIDLE hFMSEINFLFMSEINFLPAUSEEVTPAUSEEVTPRSTRTONPRSTRTONPRNUMTOSPRNUMTOSPRCKEVENPRCKEVENPRCKTRKMPRCKTRKMxNNlNNFNHNNN N N N ,NTNNNNN NNNNVNTNNNNN@NNNtNNNNN FN N N :NNNN4NNN NN o.NJoNV/~` nHh<N0?< NBRG G o n,HN^.N^.NuJoNVHB"H-_ n CJ"""".g"HnN4 n P@=@0.H@U@gS@g:`H n\ n0] n9^JnW n0Wg/N,` nm/N`/NHnHnHnN8 n P0.R@ n Pp2.RAHnHnHnNJng/.?.0.n?N00.n/Bg?.2 A??.䠊?.4 m/(0.n??.NdO ./",LN^ _\ONJoNVH&n(mLH@=@B.B.g p.@g p.@BgHnHlHnJnW" gSBnBgHnHlHnJnW" g"00H@J@g0H@ @gp+V@@?4+V@@?4ؠ4?<(0H@k|nAr2IDA0 <f mHh䠊0` mHh젊0`,H@?B@.??<?<"?<T?<LN^.Nu JoNVH nCJ""""(mL.g n P@>JGgHnNN n P0p@<Bg?:HnHnHnNHn0.nE?0.ސl?0.n?0,n?(Hn栊 n Pp"SAHnHnHnNP Gg/.?.0.n?N| m/(0.n??.NLN^.NuJoNV nCJ"""".gBHnN`HnHnHnN?.?.䠊?<.@?4?<N^.NuJoNVH nCJ"""".gHnNHnHnHnNf0.H@J@g0.H@ @gAC 0.H@ @f0.nY@=@0.H@g S@gS@g `DHn蠊`:Hn蠊`00.n@T@H> R@H<Hn???.?.䠊 n/PLN^.NuJoNV nCJ"""".gHnNHnHnHnNd mLA-HBg?. n0.P?\=_Bg?. n0(n?X=_Bg?.?.栈\=_Bg?.0.n?X=_Hn蠊N^.NuJoNVH n CJ"""".(mL&m.gHnN(AC Bg n/:0.H@ @f 0.EY@=@0.H@ @fgHnNN`L0.H@J@g,Hn.V@@?4.V@@?4ؠ00.H@g S@gDS@g"`g Hn蠊H` HnHk`g Hn蠊@` HnHk`0.n.VAA44B@BTBH…> R@H<g>Hn.V@@24A A?.V@@24A A?P`@Hn.V@@24A A?.V@@24A A?HkLN^ _\ONJoNVH nCJ""""&n ,.(mL F/Bg"n/0 _00.H@gS@gDS@gXS@g`0.H@J@g 0.V@.VAA44@7B`7n`b0.n FPH7@`J0.H@J@g" F0.PW@.VAAt7@` F0.P7@` F0.P7@A-H n>(0.H@ @g H>0.n n2@GH6LN^ _ NJoNVH>.(mLHn?.0. l?0. n?0,n ?(JGg6B&_JGl n=@` n=@Hn?Bg/ / $LN^ _PONJoNV/ nCJ"""" n CJp"S@n2.gNBg.@R@?.@?\>p"SAHn n/?"L.gHnNHnN .N^ _ NJoNV/ n CJ"""" nCJp"S@n2.gJBg.@R@?.@?\>p"SAHn n/?"LHnBgNBHnN~.N^ _PONJoNVH. n (P, f /. H @tLN^ _\ONJoNVH n (P.H@G+fSS, g.H@HtNLN^ _\ONJoNVH n(P, g(, H=@BG` @HtNRGinoB, LN^.NuJoNVH n(PB.Bg/. / \, gX, H=@BG`DBg/. @Ht\g* @G0H@J@g+g | n` RGinoLN^ _ NJoNVH. n (P f, , V, g4 , g, H@Ht<Nj gH @Ht<NRG LN^ _\ONJoNVH n(P, gF, H=@BG` @HtNTRGino , g, H@Ht<N| LN^.NuJoNVH>. n (P ,W , WRg,H@ t P, H@CA"""" Gf HnNF`N G W G Wg4Bg/. HlHl N.g,H?, H? mL/(N` Hn?NLN^ _\ONJoNVH. n &P. H@ s (P f, , WD@LN^ _PONJoNV/ n (Pn n ,W , WgN`n. H@ t P.H@CA"""" n PpB0HnBgNdHnNHnHnHnN4 m/(0.n??.N(_N^ _PONJoNVH*. n&PB.k B`H @ s (Pl B`nH @A-H n0(H@k|nAj2IDA0 <W, EW n^ E^‚g E n|`Ri.oRi.olLN^ _ N JoNVH(nB. l&Pk B`.BgH @/3 /,/,Ng l | ` Ri.oLN^.NuJoNVHB.BG n P h P( H<Bg/Nrgjz | n H@g6 n P @/0 N n H> n P @ p P( H< n P"n H@/0 nN`4zBg/. n P/\ g n P @/0 N~B.?,HnBg0 g6LN^ _NJoNVH n &P. g || k B`H @ s (P,Hk|nA 2IDA0 <WD@ . g>B, Jf| `l l B`H @APPRi.o`, gH @/3 Nl B`LH @A-H n0(H@k|nAF2IDA0 <f n h PpB0Ri.oRi.o LN^ _PON JoNVH n (Pl B`,H @ t &P+ . gH @/4 N@Ri.oLN^ _\ONJoNVH. n P.H@ p (P f, .g n pB0 n //. H @"t/Hn^?<" _C^p S@n0 n "n @0A A fh n "n @0A A f n p"n ASA` n //. H R@@"t/Hn?<" _Cp S@n0LN^ _NJoNVH n (P|Bg/.HnNg4l ~`$BgH @/4 /.HnNg| ` Ri.o?,LN^ _PONJoNV/ (mL/,HnHnBg0.D@??<?.(Hn?,?,HnHB8)_, @(_N^NuJoNV/ (mLJgB8 jD2,HlNd(_N^NuJoNV/ (mL , V2,²n V2,nVgN:9n 9n)n N(_N^ _PONJoNVN mLBN^NuJoNV mL( gNN^NuJoNV m$/(Hn. @N^NuJoNVH(mLB8.,gNJg m$/(젊./,NB8 jD oBgBgBgBBBN?<,/< hLN^ _TONJoNV nCJp "S@n2 mLJg m$/(젊Hn mL/(NN^.NuJoNVH,./<hB<HBx&_ g(S m$ W lW mL( lW@g$~ F"Sp S@n0 m$"F"/ &@`| lf / &@`j0,k|nA~2IDA0 <f@ l_/B8"  mLjD ]g/ &@`<N:` B/ &&_`(g FHhG LN^.Nu*JoNV mLA-H n n!n n!n n!nN^ _NJoNV mL/B8  _!@BgN| g&BgHnNfgNDHnN`N^`N^NuJoNV/ (m$?.Bg/,젊BgBg lHh lHh mHh(_N^ _TONJoNV/ (mLJg m$/(젊/,NF,gN(_N^NuJoNV/. /.Bg n/ n /(`_N^ _PONJoNVH/<hB. Bx&_ g8(S0,k|nA42IDA0 <f | `` B/ &&_`LN^.Nu JoNVB8-_B8 jD2.H]/Bg/N^ @gN^ _TONJoNVH n CJp"S@n2(nBT.@<=F~`p 6pA|0@8RGinoLN^ _PONJoXNVXH>. npB0JGgpJG]Dg D@>p"H HAJA|0 n/Hn/.Hn?<" _Cp S@n0 H >JGfg* n/Hz./.HnX?<" _CXp S@n0LN^ _\ON-JoNVH nCJp "S@n2(mL&m$ .ְfv/+젊0.S@g U@g:W@gD`\Bg/,/.HnHnNg.H?.H?/,N`(/,?.N`/+L/,BgN/+LLN^.NuJoNV mL/( m$/(N@N^NupIntrinSgPrwork ENUMERATENUMERATPRWAITDAPRWAITDA PRMGRDSBPRMGRDSBPRMGRDSUPRMGRDSUPRPRFDEFPRPRFDEFFPRPRFVAFPRPRFVA PRLFNTIDPRLFNTIDNNNFNNN&N`JoNVH&nB/ S(P g(Bg/ /.A g/ PNg T(P`-L`/ LN^ _NJoNV m0J(W m0 Vg`N^NuJoNV/ (mP nBPRl lf(,g/.?,"`/. nJPo(_N^.NuJoNV/ (mP nBPJlo"SlJlf/.?," nJPo(_N^.NuJoNVH,.N,HnNRJn_Dg mP hJVDg( F"mP"i"i"QC4p3 S@n0HnNX` F/B4  _"@p3 S@n0 F0 &FIBTBlBl9|B,LN^.NuJoNVHB. n P fDHnNJnn* mP(h nCp3"S@n2BN&_HnN VD@ LN^.NuJoNV/ (n nh8n (_N^ _ NJoNVH(n&n T0(HkVD@LN^ _ NJoNV/ B mP(hB/, Hz/A/N@-_(_N^NuIntrinSgPrMgr PRACCEPTPRACCEPTPRCALL PRCALL PRCLOSECPRCLOSECPRDEFERTPRDEFERT PROFFER PROFFER 0PROPENCHPROPENCH8PROPENCAPROPENCA4PRIDTOPAPRIDTOPA$PRJOBCOUPRJOBCOU(PRNOTIFYPRNOTIFY,PRPRINTRPRPRINTRDPRPRINTSPRPRINTSHPRSENDMEPRSENDMELPRSTUFFDPRSTUFFDPPRWAITMEPRWAITMEXPRUPDATEPRUPDATETPRBGDDLGPRBGDDLGFPRINSDLFPRINSDLPRPRFDLGPRPRFDLG@PROTHERAPROTHERA<FPRPRFEQFPRPRFEQ xNN :NJN`NNNFNNNNN6NN N6N.NXNN^NNJoNVHB. (n9|T9lVHnHlTHlA/"Jnn A&HS LN^.NuJoNV/.HnNvHnHzrHn?<" ACp@ S@n-n-n-n -n/.Hn.N nJPnpA/.HnBgNN^ _N.KJoNV/ (nHn?,"0Hn/ "(_N^.NuJoNVH..(m0 VJVgJHn/.BBBBN Jnf.,g`|HnB"Bg",g`LN^ _NJoNV/ (n BDBlHnHn?,A/HlDHlJ"l(_N^ _\ONJoNV/ (n B"/ NB,Hn/ "Hn/ HlHl." (_N^ _\ONJoNV/ (n B"/ N/ ?<@?Hn"ACp S@n0HnHl/."@/ HzFHn?<" A"Lp@"S@nHn/ "Hn/ HlHl<" (_N^ _PON.KJoNV n o^n n0 =n N^ _\ONJoNV/ np~`T npGH瀀BgH瀀BH瀀B/. "ADA?X"L/r/<"L?/Nx2LSGJGl.N^ _PONJoNV nBP VJ Vg@Hn<NH/. < BBBBN*BgHnNb  f n0HnN,N^ _PONJoNV VJVg4/.HnN-n-n-n -nHnHn.NhN^ _NJoNV/.</././. /.NN^ _NJoNV/.< /././. /.NVN^ _NJoNV/ (n B,/./ HlHlBg" nJPn/. .NHn?,"0(_N^ _ NJoNVH&n >. (nn  G$o@/ Hl?<&"LHn/.<Nn/. r&Ё/ |&?0.R@?N`/ Hl?"LHn/.<N0LN^ _ NJoNV VJVg/.HnN^Hn/. ?.BgN:N^ _ NJoNV/ B. (nB,Hn/ HlHl<" JnnBg/.N._ Hn?,"0`B,(_N^.NuJoNVHn m0/(< BBBBN.VD gNB,n/<BBBBN ,g*J,f, nCp3 S@n0Hn`~`VLN^ _ NJoNV/ (mP lg Hn?,",BB,Bl9|(_N^NuJoNVH(mPACV 0/.HnHlHn?< "| nJPn/.?,Bg"p)n&l)SLN^.Nu System.PrDataJoNVH&n>. .(m0HnB"Hn"gHn/.?<"tBn,g m$/((B,gBg/ ?. <=_`N. HU@gU@g8S@g*S@g`6Bg/ ?<=_`&Bg/ ?<(H=@`/ ?<X`/ ?<pgHn/.?."tLN^ _ NJoNVBg/. /./<Π_N^ _PONJoNVH&n mP h!Kp-@ g S f\ m0/(</ BBBN`B.޼_ S W m0 V/B" ^g`(S m0 ,fp)@-l LN^.NuJoNVH..&n G PIF0,kW k6W4,$k6W‚R@LN^ _ NJoNV/ B mP(hB/, Hz/A/-_(_N^NuJoNVH..&n G PIF0,kW l$VR@LN^ _ NJoNVH..&n G PIF0,kW l$V2,$k6W k6W‚R@LN^ _ NJoNVH(mPB. Bg/,?<< _fB&lACp S@n| l/(<BBBBN lJ(WD@ LN^.NuJoNVHB mP(h|B,BJfB/, Hz/A/&_ fB/, Hz/A/&_ g -KB,~`@ ,f mP/(?< <pB,|~`B,Bg/N g|~`tLN^Nu p$$$$$$$$$$ $ $ $ $ $$$$$$$$$$$$$4O 9999 NOMPNQORPSQTRUSVT WU XV YW ZX [Y\Z][^\_]`^a_b`cadbecfdgehfigjhkiljmk nl!om"pn#qo$rp%sq&tr'us(vt)wu*xv+yw,zx-{y.|z/}{0~|1}2~3456789:;<=>?@ABCDEFGHI      !"#$%&'()*                                          O       !" #!$"%#&$'%(&)'*(+),*-+.,/- 0.!1/"20#31$42%53&64'75(86)97*:8+;9,<:-=;.></?=0@>1A?2B@3CA4DB5EC6FD7GE8HF9IG:JH;KINL?OM@PNAQOBRPCSQDTREUSFVTGWUHXVIYWJZXK[YL\ZM][N^\O_]P`^Qa_Rb`ScaTdbUecVfdWgeXhfYigZjh[ki\lj]mk^nl_om`pnaqobrpcsqdtreusfvtgwuhxviywjzxk{yl|zm}{n~|o}p~qrstuvwxyz{|}~                                  ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x  y  z   {   |   }  ~                   ! "  #! $" %# &$ '% (& )' *( +) ,* -+ ., /- 0. 1/ 20 31 42 53 64 75 86 97 :8 ;9 <: =; >< ?= @> A? B@ CA DB EC FD GE HF IG JH KI LJ MK NL OM PN QO RP ‚SQ ÂTR ĂUS łVT ƂWU ǂXV ȂYW ɂZX ʂ[Y ˂\Z ̂][ ͂^\ ΂_] ς`^ Ђa_ тb` ҂ca ӂdb Ԃec Ղfd ւge ׂhf ؂ig قjh ڂki ۂlj ܂mk ݂nl ނom ߂pn qo rp sq tr us vt wu xv yw zx {y |z }{ ~| } ~                                                         ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T