IMD 1.17: 11/11/2014 13:38:08 PASCAL COMPILER  PASC PASCAL COMPILER 0420-S@mJ`N4Z1FILENAME AFIX ePDOLRLIBFILENAMESAEG PASCAL GET FILE NAME RUNTIME ROUTINE (11/6/80)2IP$FNAME )F3 _"_"iIBCB ) 8fR<#azE*rabJf,<:ahB2a$<.a\TF3 raF<.aPra<<.aFra2>NBJf<0RJg HA0RBAHA`&3 aSfNu gaSfNuRCNu4Q1LOOKUP AFIX ePDOLRLIBLOOKUP SAF# Pascal File Lookup Routine (11/11/80)+2IP$LOOKUP p.PALSTS p.PEDTFIL )H3@ "_ _B0$O8D:NI (JfS< TJ@g S@f O O"< 0H3 @1|!m:1m> !m@ !mD!A!A1|SABH,H @NI NF3 "Lxf f  g`r$-(;FH+G0Bm4 `J(H$HG`+Kp&B+K+Ll2<0<BX@YAb&Jr`BYfAv%H,A6%H0A%H8A%HJf @fpBNNCK& CCaZJfR@  g ;fz;@" ;fXa =fag ,f  g. Zg( Ae" [dCK( -fDDHGj7a  fJgaf()  clքBABBBBhBh B!|SEG2 pNAfA!CBB1| B!|SEG2 1| pNAf薄`Ba,iK0<=%U@f.N*O$iG`+Kp&B+K+i l&Jr`BYfA%H,At%H0A%H8A%HH|+o t <+@xa:` H@0-4H@,NABBIT am zn ,g4k6 -f`g0g` =fRa`  f@`NuB:< &J $g am zn 4g`6 am zn 4k6g(քցSEf am zn 4j  f" am zn +Nu:< am zn  am zn 4kfg_郆SEf`z@@ P@  @HRğ b OH pNNO .HNu.L2*(-0a a+D0Nu"_. H&g&<(QRD$OĵldElel؊az!OEP/JE8/JA??B$O eTgv`gvC)C BjBBjBL@O(-0fgA@a Jf<gJ-(gaat`agJ-$gaa\`aga`8m"b"?S@@@,J5Lg gaa$` ga`agNq5A+D0NH؞M$gpS@@@,A|B(@AJaH$Lyg/p(NNg g%m6*HBB|gBN Nupa|&8%m:*NuH瀀A$0NCgNN *&o|&BjFB*K*E f|'` f|'`|'BjDLNu.L2*a4adB f fpj& g fa T g4/ &Ja X5 c 5a *a*H?a X2&_g*8 gA0NBgNN` apj&a AB5ANup`n.L 2*a~ fFa pj&aV*8 &g, g&A$0NCg f0NCf0NCgNNa (BA a >CO%I5ANup`.0/2RA/7 A H,o,nM$a2Lx$W$ja~&gp(NNfg0.f %m@0%mD4` g%m6*NuH./$T$ G0@AX@ @fB@C "*jDJjD$&H@HA(HBHDԁ"HABA҃BBHBтVJjDFʁ[ DLNuH./ T a( DLNuH./ T ajD DLNu G0@AX@ @fB@C "fpNN&jDJjDtBdR`dЁSdF"jDF‚[Nu.LRaF Nu.L8SDaa NuHH.L8v / BJjt-DSDGLdSCnCSDadJgalJCg(+r0eR`aR(SCn0aB &_Nu;B@'d 0/8/`8/0/./ G 2RAA sL@aJ@g aS@n &_$_ON.L8*Rcg !a0R`a& Nu.LgRa Ta NuH2*fpDNNggS` g `S` %IA0NBg gNNa`CO%I"jLNuJDo  aSDnNufazRIRNu./ L 8+ gp`" fa8+gp"NN VD&_Nu./ L 8+ gp` gB`a 8+VD&_Nu./ L 8+ fa8+gp"NN7D +Rѓ&_BNu./ L 8+aa& &_Nu fa68+gp"NNBNuRf`Rf7DNuH2+$KaHgS`R@ЫS'@fpCNNA0NBgz gt gNNA7A gXa55cJa7AR55H5 J /g RB5 J /fRBa2*aT5AL `J`8$k +gJf ` Jg0+HSЊ'@7AL NuA$0@NCgNN$-0*)+B0Nu0<f0*NugH瀀A$0NCgNNLNuaA?* 6Nug0<$`g0<(`+OSH@@,NuA JHM$aLpag/p(NNNup`B@ _.8@gAa"OUDg"YDnm2N"_. 0H`"_. (at$O"gSn`Ug$Ynm4N$_. 0H`$_. "JaJN8$_. 0H`$_. "RA w"Oa$O8N$_. 0H`$_. "OaO8N&RC(gSn`UUg SnJg0JgNua^WDNa`WDNaNVDNaPVDNa>UDNa@UDNa.SDNa0SDNaRDNa RDNaTDNaTDN$o0H`$o . &RCCA8փUUgfSnJgIfJg _O8N$_. 8TDa"OUDg"YDnm2N."Ga(` ."GaB8R.vl(X"mQ$I&)g""Cn  lX%Q`*""`""mEH bpNNEQ$"$+J Nu.a@ YNu.a2Y"mQc""ib g Бb I"ip +HNuOO bpNNNu.praA0ANu.Jka@0a@ `pSNNNuHp mpC6 S@f+Hpp p +H0<aR@ 0<aF@ LNuB+/ *m4H|+_a$m0ta@0X X0@NNBg/Qfdhj@?@ OOdbpNNH\<N&mBX+KB8D:/8\D8DD8\?D>_HGC&oG0{pN `Jf\ 'o B+afa *f)HDD4| H`j'o B+)HDD4| a`:'o B+/ o`HE>;PG>;PGa"f&H&/HE>;P:;PH$oWfN` Gf4`$`/ o`dHE>;PG>;PGafH&H&/HE>;P:;PH$ofWDGN` Gf6`&`'o +@`'o B+`'o B+`'o B+/ m`afaLf)HDD4| / o`x\Ha8/ g a H`d'o B+)HDD4| Lv/ o` g Haa $H`'o B+a4faf) o`Ha`'o B+,-B/f,&mBE <<><N&mBT+KB8/ ,-BU`HH/HME&oadg܄+FB`n'o B+|afV$$Ha6f*@ &JE f <`<>߃8 < : HBކ,CޅCބC8HFHB: ؅C: ؅C: HA؅CHFHGDHGHDDHFCHF8*܄C8 ܄CHA8 ܄C86 HA؃vHECHEHFDHFHDDHECHE8ڄ"$&@H@@ Jm S@ @fJfJf S@L8J_gNuaNuL8 fff `.ek ``k `Nu+f `Jk `Nu+f `Jk `Nuax`>+f `B@2IP;NuNuNua0WaJfJg`ag`a0g`a&`,f <<` S@jNuL8,f&<<` SCjNuB@)HAA;o a8<Nu HpB@)f&H@@0| p<`H0{N*Ln$Dd0\ 8d@HPx A`(A`"A`A `A`A` A`A) fV fT` m ` m$` m(` m,` m0`| m4`t m8`l m<`d m ")HHE02HҀ+A `B m$")HHEr02HҀ+A$` m(")HHEP02HҀ+A(` m,")HHE.02HҀ+A,` m0")HHE 02HҀ+A0` m4")HHE02HҀ+A4` m8")HHE02HҀ+A8`v m<")HHE02H fRҀ+A<`H)HHE~02H m +H `()HHE^02H m$+H$`)HHE>02H m(+H(`)HHE02H m,+H,`)HHE02H m0+H0`)HHE02H m4+H4`)HHE02H m8+H8`h)HHE02H m< fR+H<`<&mBE <<><N&mBT+KB0) H m `&mBE <<><N&mBT+KB0) H m$`&mBE <<><N&mBT+KB0) H m(`&mBE <<><N&mBT+KB0) H m,`&mBE <<><N&mBT+KB0) H m0``&mBE <<><N&mBT+KB0) H m4`4&mBE <<><N&mBT+KB0) H m8`&mBE <<><N&mBT+KB0) H m<`&mBE <<><N&mBT+KB<) >FHH_JGmGO05pH` GO 5pІ m `&mBE <<><N&mBT+KB<) >FHH_JGmGO05pH` GO 5pІ m$`,&mBE <<><N&mBT+KB<) >FHH_JGmGO05pH` GO 5pІ m(`&mBE <<><N&mBT+KB<) >FHH_JGmGO05pH` GO 5pІ m,`|&mBE <<><N&mBT+KB<) >FHH_JGmGO05pH` GO 5pІ m0`$&mBE <<><N&mBT+KB<) >FHH_JGmGO05pH` GO 5pІ m4`&mBE <<><N&mBT+KB<) >FHH_JGmGO05pH` GO 5pІ m8`t&mBE <<><N&mBT+KB<) >FHH_JGmGO05pH` GO 5pІ m<`&mBE <<><N&mBT+KB0) H @`&mBE <<><N&mBX+KB i ` mB&mBE <<><N&mBT+KB0) H` mB&mBE <<><N&mBT+KB<) >FHH_JGmGO05pH` GO 5pІ`T)HHE02H&mBE |> GfRGNA @fRR@&mB+KB<`p<`p<`p<`&ip a2<LNu/ @?f (㌈f ``P @f0(f  `f ``f `(NuNuLNu(g+D Df `Nu+gaJg 0<aZ` 0<aNNu <?B$+Nu <BBNu <?BBNuaNu(NuaaЀNuaaԀNuaNu0<aNu0<aNu0< aNu0<aNu+fa` JjaNu2d,6@JTzG,HFE;` Gl *E;@{p<;`(N`$Nu (^^vv^^fvv^nvv^^vv^R (R D (D((R (R0 : : ((:(0 :NNNNNNNNNNddT d^T~(TTTTTTTh     bX          @`@`&@`J@`B8P?`BgLD@؀ D(*H8+0 ;@pJfff 0`.e 0USjpRSfƎg0L Jk S@ @fJfJf S@J_gNua NuHG8D L@BAOg2$%X%XBOdH+|a_LJG`LNu  @P$ k(!$C@'ԥ+*. 1_15ɿ8.; k:v@?#BxŬbE&zIx2nLh? WOSYQa@VoYˏ' :]?9x `6 cgNfo|@E"jŭ+pxIϦGɀR~ގ Ivuu ;]=]5&`R ffLv~)(HDD;@jaZ` GlO8;@N@` GlWGO8;@ N@` ~XUGknf6?a6f]@j `f|~H $ON$@&H`0`2/af]@j `f|~H $ON$@&H` `6af]@j RO`Xf|~H $ONRO$@&H``8z) Gf Eo0< az``M5P>aNu Gg+0E:TE{pmJja6{pm+fl+f` `J<+gJkA|L````JjA`L```` `p`*A0ppfS@`0< a|+gJ`D`2+fa+f`aZ`JfR@$H@B@/af]@j `f|~H $ON$@&H` `f@&H@HA0HB2(zE|FDBHaf]@j `rf|~H $ON$@&H` `R&H@HA0?HB2HaZf]@j ` f|~H $ON $@&H` 0NuJGf? <`& Gf(" <`(BHB2 2pHgE oS``&HEf <`<N)HI&o"0{N,88 "tvH@HH@ @f@0QQQQQ4HB2<g+f&`L @f<(g(R@+gJm S@J`a`0<` aa~`0"/$/vHH@ @?f&g+f`: @f.(g"+gJm S@J`aN`aFa`dHH~a`T2H~az`F"~an`:"o)H $i Caa`H@@@H@<`<OLNuLp~>Dj DG@AB GAcJkV` DSGkUĆQ(k(j@xd0D@`(fd0D@`D@@`D@@ԆӅdfUĆR@(f(Jk0<+ f`JkJkxAS@J[aNu|rtxEJ1Pf REQNu1P&(ԄӃxԆD1P&(ԄӃxԆDRQNuz~ a0<?Jm S@J`Nup f <  f <?B$) Nu  f`  f`)()i Jf0<BBNuz~a gDB5Ba^/ H) c p aތ:<>*E++gDGab_$%_%_vgJj 0<`0<@`Jk aJ`ax"_v @?cL @dDJ@j"+g ``a&`+g ```NuH Go><(JGf><(N@F/</</<JGkSG`DGGJjG?`P//</<?<`:`6````$/</</<Jk?<`?<` JfJf`?+|H f 2<`J@j D@@@|HJ@W0<FJfJg``Z$%| %|H@aܴJga&gBA`|@JjDAL8BgJGj |DGn|` Fo|`<JGj Do8zDF0G>[jDGa>$%o%o BRH @vH@B@H@Jk a>`aLJg7o++J/jH >aJfJk `(*,a?BHp*f aܞ`aJof f6LRWRD` f>/SGa2HRo`4>/SGaJof$J/ja> f6LRWSD`6*gp`0*a OHGHFHEHDp2/jDAf0` pAY5Aa0/S@Jo[J/[+abf]@j `6f|~H $ON$@&H` 0$%_%_7_Nuaf]@j `"f|~H $ON$@&H` 0Nurtvxz|~`8< AmHGHFHEHDHGHFHEHDSjtR2g0<HAdHGHFHEHDHGHFHEHDHAQNuJj paVNqNuz~v,<@@d R@/pff fe.Jk `<@  l ` `$Jk `<@  l ` f``SJk `<@  l ` Jk6SJk `<@  l ` ReN`0"$&ކV Jk S@aVNqNu @L<<8HRDo:Jf"ff v`|dv`vއUS@SD`dR@SHHl`Hf*d`:fd`,f f`$%F%GRH0@N`"$&f 0<`Jm S@J`vNzNuaNu _"_"i$OC8$$.NL(_/N8| N8T0BN8A0g`N8R0H@ @fJfJgnJf`tJg&N8| N8RN8A0Aof`J2*IfB* f"*g @m, @n&N8R` @m @nN8RNuNV. H@AL pf . N. H2AAL40RB1Cd40SBBN^$_XNNV=n. .a. .aN^ _XNNV-n. .an. .ab. .aV. .aJN^ _\NNVNN^NuNVJ-{gx<?<Eav<< a<?.a^J-zg@<?.aL=|=n`<0. n 0aRni 0.nl` <BgaRN^ _PNNVJ-{g<?. a</.aRN^ _\NNVJ-{g6<?.a|<.HS@6aLR. .oRN^ _ NNVJ-{gJR-n< n?(ab< n( a n( ``< n( a< n/( aH`< n(a`< n(a< n(a`< n( a~< n/( a`< n(aZ< n/( a< n/(a`\< n/( a`H< n(a< n( a< n/( ap`< n(a< n/(aL`< n/( a8< n/(a(< n( a|< n"h.HS@1axR. .o`< n(aX n(`< n/( a`=|< n"h0.S@1aRn no`< n"h?)aL=| n"h=i` < n"h0.S@1aRni 0.nl`h=|< n0.S@0aRn n o`AN`NP`rp AN`NPRm\;mdB-c-s -{-zB-sB-tN^NuNV|s - cm;|`| c`R-c-cH@A61-cH@A61RmN^"_TNNV0-`m\laRmHmN ***Error---?< Nr0-dNz/?<* /<**?<N;mdRm\N^NuNV|t - cm;|`| c`R-c-cH@A61-cH@A61RmN^"_TNNVANlJg J-gB-ANlJg(J-f J-gPHmN; Source Lines Intermediate Code Errors WarningsBgNNPa(ANPHmN#**** Error, end of file encountered?<-NNPHmN#**** Error, end of file encountered?<$NNP/<- NLY0-R@H//<N ?NBgNN`;| J-f8AN0Jf" ml0-ACANRm`AN`6AN0Jf" ml0-ACANRm`ANBm0-A ;mPRB-NB-UB-VRmJ-{g?-/?NN^NuNVJ-g@J-ygNJ-sfJ-tgN&J-fSmJmf Nn;|dNRm0-ʰmWDA4-Ap N^NuNV?<N* -,g -*g -}gah`N^NuNVaZ -=ga`DaJ -1f |a8`, -2f |a$` -4f |a`azN^NuNV n B"nBa -+f n a` --fa` na2N^ _PNNVHnHnaJ.f nN^ _XNNVHnHnaJ.f n "nN^ _PNNVHnHnaVJ.f( -g ?<N`J.g|`NߺN^NuNVa -=ga`Fa-HA 0gah`*N pr-  m`g n `a0.H m1@n0.H =@2.4(B0Rni 0.ްnl=|0.B6Rn no m (-fU?<Nh_U m0(h?NN_ m0(R@??(?<a?< m?(?<aHn-HnHnHnNPJ.g(?<N8=|0.B6Rn n oB..` |`*|`"|`?<NNJg g g`A"m""2+mN^+_Nu/-NV+N|BnB.|+BnB'<B'HnHnHnap=n -.fa -.f||`r -)f||`\-HA 0g ?<N.`> no=|B'JnWD<HnHnHna0.D@=@| no0.@=@=| no=|0.nn=n=n-HA 0EfZ|a -+g --f ma-HA 0g ?<N\`B'<B'HnHnHna(0.n @o?<N*=nJ.ga`aN^+_NuNVBm|| m -PaRm mn n0-S@J-f -'fJ-g ?<N`a -'gSm mf n(HH+@`( mo?<}Np;|+m n1mN^NuNV|aV -=f |aD`|N^NuNV|a* -.f |a` -)f |a`|N^NuNV| a -=f | a` ->f | a`|N^NuNV | a -=f | a`| N^NuNV-HABp-HCqadN^NuNV|4|?<|N8aB nBN^"_XNNVB.J-f$J.fa - g?<N|`J-fa`|N^NuNVa -*fj m B(a -$fa -*g$ -(fa -*f ?<NDa`a -)f m J(gaLaz nB`& -.f||aZ` | |N^ _XNNV m B(a4 -$faz -}ga -{f ?<N` m J(gaa nBN^"_XN/- NV+N |J-gB-m|a`-HA 0 fa`-HA0`naT`a`ab`a`~a4`val`na`fa`^Hna`RHnaP`FHna`:?<NN  nJmHAAN|J.gN^+_ NuNV .An|A `* .Jf|I ` .Sf|R ` .S@ N^ _TNNV .Zm|Z `* .If|J ` .Rf|S ` .R@ N^ _TNNV nln ` 0.@@ N^ _TNNVJ.m .H=@ `.H@=@ N^ _TNNV . o-n `-nN^ _PNNVJg n (f-h mWD"mWD$m"WD@ N^(_XNNV m&WD"m*WD$m.WD@ N^(_XNNVU/.alU/.a@ N^ _XNNV n "P-i Hn/.Nt n "P#n "nJg$P*` n "P|` n "PB)` n "P-i "nJ)f$P%i #P$P|| `t n-h"n!i #H $n (R)i #RJ)f (R|` n "P| n (f "nB)` n| n "P|` ?<NNJgJ g$ g,` n "PJ)WD"nN^ _PNNV n "P-iHn/.N2 n "P#n"nJg$P*` n "P|` n "P|` n "P-i"n )f$P%i #P $P|| `x n-h "n!i #H$n (R)i #R )f (RB,` n "P| nJ(f"n|` n| n "P|` ?<NNJg$ g< g$` n "P )WD"nN^ _PN/-NV+N nJf0"n $m -P(n|(nB (nB`j m "h /)/$n(R/,/Ng ?<eN$`< m "h /)/$n(R/,/Ng/./. a` /./. aN^+_ _PN/- NV+N B.-HA-pHnHna-HA!N^+_ "_XNNVB.J gZJ.fT n /(//-/-Ng|`0 n /(//-/-Ng n -h ` n -h ` n N^"_PNNVB.-R@J.fJ-oS--HA-pJ.fJg n/(//-/-Ng< n . ".(g |`J-wg ?<gN~ n-h`2 n/(//-/-Ng n-h` n-h `f`:J.fvJ-wgp?<hN".g-m`V.g-m`F.g-m `6.g-m`&.g-m`.g-m`-m n N^"_ NNV-n n (f"n "$n$ ` n B"m2f$n$` mf"n "$n$`d mf"n "$n$`D m"f"n "$n$`$ nJ(fJg"h$n$` nBN^ _ NNVJ-g n` nC""2 nC""2rN.`( n`hN8nN8n`N8n`\N8nN8n`N8n``N nHhYa4 _"_"`8Ya& n HhYa _"_"`?<NNJg g g`/. a:N^+_ _XNNVJg$ nJg/a n +H"n-i`N^ _XNNV m-h"n-Q"#nN^NuNV-n n-h"n!i#Q" 3n| #h N^$_\NNVRm n0Hna-n n1|? n| n0-H!@ nB n "n" N^$_PN/-NV+N m-h-n nJg$ n"h iVg"h ig"h i:f n"h iVf6"h"+h"h!i h(f1|` n1|(` n h(fL"h if/.?<(a`0/.Hna/.?<(a n1| n0.H!@ `V n hfJ"h if2/.Hna/.?<aD n1|( n0.H!@ ` /.?<a` n-PJfN^+_Nu/-NV+NB.B. n B-n"nJg~$Q jf-Q$n"%i#J5| n/HnaJ.g n"P/a< n"P"+P"P  nJg"P iAWD"P iBWD@ nJgh/(HnaFJ.g* n"h/a n"h"+h"h!i nJg""h iAWD"h iBWD@J.fJ.g n0(` n -\"-`(g""hJ)l"h$h*HBB` n"hJ l"h$h * D#@ n `:J.gzJ.gt n -\"-`(g:<"hHi"hHi"PHi"hHiHna.  n `" n"h$h(P , Ъ #@ "n `zJ.ga n -\"-`(fX"h i3fp"h$h(P$, Ԫ #B "hJ l"h$h$* D#B "h3|`& n"hJ f"h"+h"h!i n ` n"h ifn"h$h(P * #@ "hJ l"h$h * D#@ "h3|3`& n"hJ f"h"+h"h!i n `\ n| n"n$Q!j J o3|3`$ nJ l1| ( D!@ ` n  n/a" nB`>J.g8J.g2 n"h$h  WD$P  WDHH#@ `4J.g n"h  fa`J.g n"PJ fa n ` n"h ) m"h ( m "n ` ?<N` n -\"-`(gJ(("hHi"hHi HnaJ.f n"h| "hh"n `, n -d"-h(g (fpJg"h#m"m+Q` n"hAN n"h$i5|"h$i"hi"h| "h|"n ` n (fx (fp nf"h$i0*R@=@=h` n"h$i0.S@ Rni 0.nl n"h$i5h"hh"n ` n"hh"n ` n"h$h * #@ "n ` J.gJ.g~ n -\"-`(g:<"hHi"hHi"PHi"hHiHnaJ.  n `0 n"PJ g$"h$h(P", * N#@ "n ` HJ.gJ.g n -\"-`(g6< Hh"hHi"PHi"hHi Hna.  n `: n -d"-h(f&"h$h(P$, WDHH#B "n  n Jg"n$i| $i|` n"hJ f(1|/(aN nB n/a< nB`" n "n/)a n"n!QB` 4J.gJ.g n -\"-`(g6< Hh"hHi"PHi"hHi Hnar.  n `: n -d"-h(f&"h$h(P$, _DHH#B "n  n Jg"n$i| $i|` |J.gJ.g n -\"-`(g6< Hh"hHi"PHi"hHi Hna.  n `: n - d"-h(f&"h$h(P$, ]DHH#B "n  n Jg"n$i| $i|` n"h$h ( Ъ #@ "n ` n"h iAf`"h3|F ( f "h| ` n"h| "h#h n"h$h ( Ъ #@ "hh"n ` ,J.g8J.g2 n"h$h  WD$P  WDHH#@ `4J.g n"hJ fa`J.g n"P  fa n `J.g6J.g0 n"h$h(P", ( NDЪ #@ "n `( n"P if^"h$P"* ( ND") !A"h ) o."hJ mJm n"h#h "P"+P"P ` n"P i3f\"h$P"* ( NDЩ !@"h ) l0"hJ lJl n"h#h "P"+P"P `PJ.gJ n"n$Q"* ) ND!@ 3|3| |/a< nBJ f "n `HJ.gJ.g n -\"-`(g6< Hh"hHi"PHi"hHi Hna.  n `: n -d"-h(f&"h$h(P$, \DHH#B "n  n Jg"n$i| $i|`J.gJ.g n -\"-`(g6<Hh"hHi"PHi"hHi Hna.  n `: n -d"-h(f&"h$h(P$, ^DHH#B "n  n Jg"n$i| $i|`J.g6J.g0 n"PJ g$"h$h(P", * N#@ "n `J.g|J.gv n -\"-`(g8B'"hHi"hHi"PHi"hHiHna.  n `( n"h$h(P", * ND#@ "n ` J.ga`J.gJ.g n -\"-`(g6< Hh"hHi"PHi"hHi HnaF.  n `: n -d"-h(f&"h$h(P$, VDHH#B "n  n Jg"n$i| $i|`P n -\"-`(g>"hJ)l"h$h*HBB` n"h$h*H@@` n"h$h * D#@ n ` n"h$hp #@ "n ` n"h$h * HH#@ "h|"n `J.gzJ.gt n -\"-`(g:<"hHi"hHi"PHi"hHiHna.  n `" n"h$h(P *  #@ "n `xJ.gp n -\"-`(fZ"h i3fp"h$h(P$* #B "hJ l"h$h$* D#B "h3|`& n"hJ f"h"+h"h!i n ` n"h ifn"h$h(P , Ъ #@ "hJ l"h$h * D#@ "h3|3`& n"hJ f"h"+h"h!i n `^ n| n"n$Q!j J o 3|`$ nJ l1|3 ( D!@ ` n  n/ar nB` n -\"-`(g:B'"hHi"hHi"hHi"hHiHna.  n `* n"h$h(h", * ND#@ "n ` n"h iAf`1| ( f| ` n| n"n!i  n"n$i!j ih /)a n"n!QB``4<rAm6AC8D{@ng 4SB`2RA`8;@N@0, n$"(*6,35:>=C"DLOSbUVWr|X`& n h5f8"h i3f("h ) Ш !@ "h"+h"h!i` n h3g hf n"h i3g"h if n"h$h(h0,hWDSHH"( NDЪ #@ "n $hJ l>$h j3f $h5|` n"h3|3 n"h$h * D#@ `& n"hJ f"h"+h"h!i n h(f "n JfaN^+_ _PNNVJg-n/.N n/(a n/a n ( g ( fB n (g (f n"h"+h` n ( f"h"+h n +nN^ _XN/- NV+N J-{gT-m mڱg>"n/)HnaJ.f n/(a$` n"h/)a n-P`+mN^+_ NuNVRm n0N^"_XNNVJ-{gBHnN-n n1n n| nn n!n /.NN^ _PNNV .". -  m`fN`N^ _PNNV n D m n "n "`& n m n "n "` n "N^ _PNNVB nB -l"-p-  m`f"?<2N -l"-p//a4 -l"-p-  m`g2 f mf-m2`lAN -n n| n0-hmH!@-g mhfRm0-hmH n -mAN n"m" n N|`lB. - f:pr`-g. f |`| .WD@N6B-J-f/<BHnN-n n-h"n"J.gU/.NJg& .f n-PHnHna n `pU/.NJgV .fLAN -n n"P$n$$4UU"nN40@?N n"n"` ?<iN(NL``:`6?<NN nJmH@ANNN^ _ NNVJgfpr.  m`g nJ(f6( HöWDC`0J. f& nJ(g/-/-/(/( N@`B.`B.N^ _\NNVB. Jg n (fU/( /-2B'a_ N^ _XNNV .JlD2-hHN-@Jf-n `.Jl0-hH".-A `0-hHЮ-@ N^ _XNNV m"h " -t"-x-  m`f"?<N -t"-x //a -t"-x-  m`gt  fLm-HAJ0gS-`AN -n n B(BBnN˞J-fdAN-nA"n"" n!n n!n n0.H!@ n|/.NFRn-nN6` ?<N . ". -  m`f ?<N . ". //a -g> n!nn nn n  - fNʰ` ?<Nz`B.BJ-ff/<BHnNHNz n (f6-H-hU/.ajJg ?<N"`| n-h` n-h`@ . ". //HnHnaU/.aJg?<N`|J.g,Jg$ -fN` ?<N/./. HnHna`Z m"h o?<NF mB`6 mAN m-h"n|0-f@H"n"#hN^Nu/-NV+NB -|"--  m`f"?< N -|"-//a -|"--  m`g0&-t(-x  m`g/./.HnaD` -faZ` -fBN| -"--  m`f"?< N. -"-//aJ -"--  m`g``2ab`Taf`Lap`DaV`R--HAA-HJ.g ` nB nB nB(` ?<N . f$/<BHnapJ.f n!n`/<BHnaLJ.f n!n -fNJ-fdJ.g ?<zNZ/<BHnN: n-h"n#nJg J-g"npr)f ?<NN2`,?<N nB m ("(//a`J.f ?<{NJ.g n"m #h`L n-hJg.-n n (f"m )ꐨ!@ n-h` n"m !i -fN` ?<NL -#fJ.g ?<N2`L n|# m !hAN m "h-HE#r"h#h"h"N -fN` ?<N m ("(-  m`f$?<N m ("(//aͰ` nB(#AN, . f-H@Ad!`-H@AdB m /(/(</.Ng?<l-Y m /(a|aN^ -f gn g g`||BN^NuNVJgJ g m6g"m"gU/.N~JfU/. NlJf n (l/HnHnN /. HnHnN .l-n`-n .o-n`-n .l ?.Nn`(J-|g"U/. a_?< ././.axN^ _ NNVJ g n (f-h U/. a_U n/a_..g?<.ar n N^ _PNNV.. ln `n N^ _XN/-NV+NU n/a>_U n /a._U-U..aa_ . fJ-f .g .f| .`F-m`h-m`^-m"`T-m&`J-m*`@-m.`6?<NN nWmH@AN..o?<.aF n ..o?<.a& n N^+_ _PNNVB.mJ.f(J.o".H@Ad"pWDAS.`n N^ _XNNV m n| `" m n| `| N^ _XN/-NV+N-n n+h|(`p`` nJ(fB-h+h`d n (f?<B</(ah`Jg-n`"J.g ?<Nv` ?<Nv-mm|`N n"m>WD$n JfJ.f:?<QBaP m ("( ///.aJa?<<Ba n J.gnN^ _NNV - f|N`B. m (Pf-m|` -mB./.Hn.HnB'aJg4 m (g ?<tNu` m (UfJ.f ?<tNuv m (Pf=|+` m (Vf=|]`=|Y?.aDJ.g - fNV` ?<Nu N^NuNV m2f?<<<a+mBN^NuNV - f|N`B. m (_f-m|` -mB./.Hn.HnB'aJg m (g ?<tNt -ftJ-g ?<NuN m ("( //N-aa$Jg, m (g ?<tNt"`?<<B m/a@?<a m (_f=|p`=|q?.aJ.g - fN` ?<NsN^NuNV - f|N`B./-Hn<Hn<a m (SfJ.f ?<tNslJ.g nJg "h-i`BU/.a_ - f m (^f ?<tNs -fN:J-f m ("( //aNaJ.g6?<<BaJgU/-aJg,?<B< m/a?<<Ba~?<ga` m (f*?<B</(aV?<<BaH?<fad`U/-a_ .f ?<daB` .f ?<ba.`v .f ?<ca`d . f ?<ea `R . f ?<ha`@ . f ?<ia`. .f ?<`a` .f ?<_a` ?<Nq`bU/-/.B'aJgB?<QBa-n nJ(f?<A(/(aN`?<F< n(/(a?<<Ba&?<ZaB .g .f(?<5.B n/aN?<. n/a`R?<5.Ba/-/.?<aU/-NJg-n/-Hna?<U/-a\a?<QBa-n nJ(f?<A(/(aj`?<F< n(/(a?<<BaB?<+a^` ?<NpN -VD m @JfN\ m J(g J.g m (Sf ?<ma`?<a - fN` ?<No` m (Sf ?<ma` ?< NoN^NuNV - f|N`B./-HnB'Hn<a m (TfJ.f ?<tNorJ.gf nJg "h-i`BU/.a_ m B( - f|"m )Xf ?<tNo -fN2 m J(fJ.g< m ("( //N(V-mJgFU/.af_av .g .f?<.B n/a`?<.Baf|| -f@N m ("( //N'aB.?<ta?<<Ba -fZU/.NJf ?<|NnN4 m ("( //N'laB.?<ta?<<Ba m"f2J.g ?<B</< a?<< Ba?<a` mf2J.g ?<B</<aR?<<BaD?<a`` mf2J.g ?<B</<a?<<Ba?<a$`` m&fXJ.g ?<B</<a?<<BaJ.g ?<B</` ?<Ni` m (Tf ?<a` ?< NhN^NuNV - fN|` ?< Nh?<QBa޲ m ("( //aaj?<<BanBBnBJgB-m n (f&Jg"h-Q"h )f "h-i ` ?<tNh: -fB.N|P m ("( //HnHnaRnJf?<Ng` n (g?<Ng` nJgU/.aJfU/.N~0Jg ?<Ng`xU n"h/)/.B'aJgR n-h -PBJ.f8Jg2-n n .f-P-h|` n-h `` ?<tNg$` m (\f?<T/.a` ?</.a - f N{` ?<NfN^NuNV - fNz` ?< Nf?<QBaܨ m ("( //aJg2 m (faN?<<BaR?<Pan` ?<}Nf^ - fNzz` ?<NfDN^NuNV - fNzX` ?< Nf"?<QBa m ("( //a^Jg2 m (faߤ?<<Baں?<na` ?<}Ne - fNy` ?<NeN^NuNV - fNy` ?< Ne?<QBax m ("( //Na?<ta?<<Ba*?<%/<a4 - fNyX` ?<Ne"N^NuNV - fNy6` ?< Ne?<QBa m ("( //NXJg@U/-F/-B'a&Jf ?<tNd` al?<<B m/a?<aؘ - fNx` ?<NdzN^NuNV - fNx` ?< NdX?<QBaF m ("( //NJgPU/-J/-B'a~Jf ?<tNd`0a?<< Ba m (af ?<a`?<a - fNw` ?<NcN^NuNVJg2U/-NzdJgBgU/-af?<U/.aԎBa -fNv` ?<Na m ("( //N,afJg(U/-NxTJgHnHma` ?<}Na| m (9f?<jU/.aaՠ`&?<U/.aBa(?<^U/.aax+m.N^NuNVJf +m` mJ(g?<}Na+m`U/-NwJg?<}N`+m`pU/-ar_ .g .f?<.<a6 m ` +m`2+m`*+m"`"?<NN g g g`N^NuNVJg`U/-NvJgU/-a_`?<}N`0|J-|g?< .B/<aD?<.<aԌ+m2N^NuNVJg$U/-NvdJf mJ(g ?<}N_ m (1f?<U/-aR/<aԄ`$ m (2f?<3U/-a,/<a^N^NuNVJg` m (g ?<}N_Z?<<Ba, m (Ef ?<"a<`&U m/(a g ?<}N_?<#a+m6N^NuNVJgU/-NuJf ?<}N^ m (3g?<U/-alBaӢ m(`P=|x`x=| `n=|&`d=|}`Z=|G`P=|`F=|``B=|7`8=|<`.?<NN 8n  4mH@AN?.U/-a"aѼ+m6N^NuNVJgU/-NsJf ?<}N]L?<U/-aBa?<RU/-aah+m.N^NuNVJg m (g ?<}N\N^NuNVaaJg?<<B m/a -g ?<N\`Z -fRNp m ("( //NaNatapJg?<<B m/aѤ?<sal`N^NuNVa@a`a`a`a`a@`.a`a`a`a$`?<NS .". //a"`l?<NN On,mH@AN&.>FNVVfnnnnn66~f^fff^ffv .@m .Bo - fNf` ?<NRV`aN^+_ _ NNV?<NR2BN^NuNVB.J g& n (WDU//.B'a`@N^ _PNNVB-U/. NhJg0U/. ap-l+n -f+m"`+m` +n +nN^ _PNNV -"--  m`f&?<:NQj -"- //aB -"--  m`g<`/<\BHnNlNe@ n (f./. /./a|Jg m (f+h`L n (f-H/(/(a`./. /./.aѾJg-m n (f+h`V/-/-aNd`@/-/-a~Nd`*/-"/-ahNdx`+m&B-+mNd^`+m*B-+mNdD`+m.B-+mNd*` mf+m2`4AN -n n|0-hmH n !P+nB-+mNc`nNc .". //N  - fNc` ?<NOl`2Nc/. /.aa?<V<aÈJg m6g?<NO,B`NcHBBB.B.B.AN -n nB n | -f+nB-Nb` .". !//N,Jgd mJ(g?<NNB`HU n/(/-B'aJg$J-fPU/-NdJg?<1NNNB+m`,U/-/-2B'aJg - -@`-mJm ?o?<0NM`J.g ng?<NM`J.f.rt lB`b .䰮ort   lBFFŮî`< .R@n` .rt lBR.i .ݰ.l`.rt lB| -f -m-n`aJ.gJ.g ?<2NMU/-/-B'aRJfBU/-a_ .g*?<.<aR .f?<</< a` /-HmahJ-|g?< <B/<?a?<waJ.g ?<ar`|B. n!m+n` ?<NLD -WD. @JgJ.f ?<2NL -VD.  m @JfN` m J(g -f N_` ?< NK m !nJ.g2JfJg$"m#H?<B< /ah?<a|`+m`@?<NN nJmHBA N( &@Z2 .". -  m`f"?<NK -"- //a0`N^ _PN/-NV+N . ".//a> - f4a|AC"""mN^ . ".//aaHJgJgU/.N`U/-N`@U/.Na U/-Na@J.gv .fnJ-f4?<U/-a< a?<U/.a< a+m*`2?<U/-a< aj?<U/.at< aT+m&`J.g HnHma.`J.g?<OU/-a6a` U/./-aVJg ?<9av`a.`J.g?<U/-aa`a `J.g?<U/-aap`a`tJ.g?<LU/-aaN`a`R m6ff?<<a(`a`,?<NN nJmH@ANTvU/-N_*Jg+m.`B`N^+_ _PNNVB.B. - f2 -g -f" -WD@|@N\nB- .". //a/.HnHnNa .f  ?<6B'/./.a`?<NETB`?<NEDB` mgU/.N[Jg U/-N[JgHnHmaT` m (fNU/.a$Jg?<<< n/af+n` m2f?<<<a:-mB`X n (fLU/-aJg?<<< m/a -m` m2f?<<<a+mBU/./-B'aJg n-P(`U/.a_`p"<.g ?<NC|`p"< .g ?<NC| `|`U/.aJfp"<.g ?<NC|`pp"<.g ?<NCx|`L?<NCdB.`:`6?<NN nJmH@AN"Fjt.`F=|D``=|C`V=|,`L=|*`B=|S`8=|$`.?<NN nQmH@AN .f?../.a|` ?..a` ?<NB+m6|N^+_ _PNNV m ( "(@///.aX -fJgJ-f m (n -faAC"""NV0 m/(/( arJg m (o -ga`aJgLJgD m (f,U/.aJg?<<< n/a(+n`, n (f "m2f?<<<a+nU/./-B'aJg/./-?<aU/-NWJg /.Hma n(`ZHna`z -f?<M n/a`?<< n/a`L?<N@`>`:`6?<NN nJmH@AN` ?<N@` ?<3N@tN^ _XNNVpr-  m`g@m.HAJ0gS.`n.HA-pJgtJ.fn-nU-/.aJgL|..f0 nJhf HhN~?< n0(H/aN~ ` ?<N?` n-P`J.oS.J.fJ.n\J.f ?<N?pNS` ?<N?^N^NuNV m ( "(//N -"--  m`f VD m CJfNS* m J(g -,f$U-WNT_WmWY|VNR` ?< N>N^NuNV m ( "(//aHnN}^aLJg m6g ?<N>v?<(0.H/a^N| -3fNR|` ?<4N>F m ( "( //N --fZHnN|?<0.H/aN|^?<?0.H/aNR m/(/( N\?<?0.H/a`?<?0.H/aN^NuNV m (   "(//a aH-mU/.a _Jg` nJ(fU/NSJg?<N=PB`8/.HnHnNY .g .f?<.<a|BHnN{HnN{HnN{HnN{HnN{HnN{?<.0.H/aN{ -/fNP` ?<NNu?<?0.H/aN^NuNV m-h"n )f?<B</)a` n (f?<F<(/(a$N^Nu/-NV+NBnJ-f/<BHnNQ`?<N6-m-n n-h|J(fB.h-h` |BJg( n (nU/NLJg?<N64BU/.a_J-fNJ@`" m ( "(@//Nu( -fNJ a m ( "(//a@JgvJgp mJ(g ?<N5`ZU/./-B'NxJg:aD/./-?<aHU/-NKJg /.Hma&Hna` ?<N5H`&?<3N5< m ( "(//NtV <r-  m`g& 1f?<)/<a`?<)/-HAA-H|!m "m )ذo#m` ?<N0` ?<N0 -VD m @JfND m J(g4 -0f ND` ?<6N0L m/(/( Nn+nN^NuNVJ-g ?<N0pr-  m`g@ m -hJ.f^JgXU- n/(NvJg4| nJPf/Nn?< n0H/a n| ` n-h`J.f ?<N/|NC`t <p"<-  m`f ?<N/L`J m Jg6"hJQf/ Nm?< m "h0H/a m "h| ` ?<N/NmVN^NuNVAN -n nBP"m!i$m !jB( %nN^NuNV m -h"nJ) g?<?0H/a n"m #hN^Nu/-NV+NBpr-  m`g&m.HAJ0gS.`.HA-pB.J.fxJgr-nU-/.NtJgN nJ(g ?<N- nJhf HhNl?<? n0(H/a n||` n-P  `pr-  m`g2J.f ?<N-~NA -fNA` ?<N-^`&J.g NAz -fNAl` ?<N-6 . ".-  m`f?<N- /./. Nl4 -"--  m`g -&-  m`ga|`B.-`Z/<xBHnNGB'aN@ n (f/./. /a` /.aNj`JJ-UfmWXU-WNA_W|UN@`a`B'aN@La`B'a~N@8aP`J-UfmWXU-WNAd_W|UB'aHN@a"`N?a`J-UfmWXU-WNA _W|UN?a`~B'aN?a`jB'aN?aF`VN?a`H?<NN 6nA VnmN$%&*'j(X)*+6J.gaT <p"<-  m`f?<N*/./. Nj N^+_ _PN/-NV+N m J g"h =i$II((`BnAC"" m BBBBAN +m mBBHnNi HnNi?.-?././.aRJ-}fJ-~g?<a$|O<a|B-N;mPR-m m -hJg-n?<QBa?<A n(/(Nh?<<BaBnJ-fDJg>-mJg2 n/(/"n/)/Ng n=h n-h`?<B<0.H/a:?<<Ba, n"m>f=|`Bn nJ(fPnB. mf |Tn` mf |Rn?<B<0.H/a?<<Ba?<B< n"h$i/a?<<Ba?<0aJ.gJ?<QBa?<A n(/(Ng`?<<BaP mf ?<pab`?<qaXNf n-h`J m B . ".//a -"--  m`f VD m CJfN< m J(g -,f$|VU-WN<_WmWYN;` ?< N' m -hJgH-n?<QBa?<A n(/(NfT?<<BaD?< a` n-h`-HA-pJgz-n nJ(f`N'tHmN 168 Label: BgN"nJ)gHm/)/) ?<?<NNP` nr0( ANzNP n-P`?.0-H/NY .JlD/Nn-_?./.N-H@A"0l! m J f?<aZNd -ѭBN^+_ _PN/- NV+N BB-mBJ-g: -fN <Q-HH/NJ<I-HH/N6B-|v -f N9a -f N9aZ -f N9a -f N9ap"<(-  m`gBN9.a&` .".-  m`f"?<N%4 .".//NdRJ-g -$g ?<N% -"--  m`g Jg-n n"hJf>N%HmN 117 Type: BgN/"n/)/?<?<NNP`P n"h$i *f n| nB( nB( n|0-f@H n!m n!m+n/-/-/N -m> n!m20-f@H n |ABN -mB n| n !|N^NuNVAN -n n B(BBnmB-. R@n`nAN-n.H@ADC$n$$"n#n"n#n"n|"n0.H#@/.N6-nRnR.i ..lAN-n. H@ADC$n$$"n#n"nB"nB)/.N6j n!n-n nN^ _XNNVAN$-n. H@ADC$n$$"nB"nB"nn "nn"nB)/.N5N^ _XNNVAN-n. H@ADC$n$$"n#n"nB)/.N5N^ _\NNVmB-A*N -m* n B(< /-*azA.N -m. n B(< /-.aPAN-nAL"n"" n!m& nB n| nAN n-h"n|=|0.S@ nB0Rn n o/.N4|@.<aLR. .Bo|4.<a.R. .8o<O<a|`.<aR. .boAFN-mF n| nB AN-nA"n"" n!mF nB nB(/.N3BBn.R@HAA-HBB|| AN-n.H@ADC$n$$"n#n"n|"n0.H#@.` nHhY<<a _"_"`~ nHhY<<!a _"_"`` nHhY<<a _"_"`B nHhY<<av _"_"`$?<NN gz g g g`/.N2-nRnR. .o0.H mF -HC!qB-AJN -mJ n |HhY<#<+a _"_"AN-nAT"n"" n!mJ nB nB(/.N1B-nN^NuNVAdNLTRUE ATNLMAXINT ADNLNIL A\NLFALSE ALNLINFINITYAlNLCHAR AtNLBOOLEAN A|NLINTEGER ANLREAL ANLTEXT ANLDREAL ANLXREAL ANL$AMODE ANL$PREC ANL$SINGLE ANL$DOUBLE ANL$EXTEND A,NL$RMODE A4NL$NEARESTALNL$DOWN ADNL$UP Aa< /-&a|,.<a:R. .3o|9.<aR. .?o|C.<aR. .No|P.<aR. ._oJ-faR--HAA-HBBB(N^NuNVAN-mA"n"" nB nB(AN-mA"n"" nB nB nB n|AN-mA"n"" nB nB n|AN"-mA"n"" nB nB( nB( nB nB( nB n|A N-m A"n"" n  B nB nB n|AN$-mA"n"" nB nB(# nB nB( n1| n| n| nB("AN$-mA"n"" nB nB nB(# nB( n1| n| n| nB("N^NuNV=|0. Rn no|yB-|B-z|{|vB-|w||B-B-B-B-B-sBmB-tBmB-c;|f;|hB-xBBBBBB-~B-}B-N|O;|PBBB-| BmBn0.A Rn noB-BBmBm||+|jBnBn0.@ABRn noB-B-A-HBBB(BB;|dBmdBmZ;|BbBm\;|^;|:`|AWN^NuNVBl+|p -l"-p+@t+Ax+@|+A+|+|@+|+|/B+| @B+|Q+|@B+|BB\+|`Bd+|#hN^NuNVANLIF A NLDO ANLOF ANLTO A$NLIN A,NLOR A4NLEND A|?|@B-AB-BB-EB-FB-G|H|I|KB-M|OB-T|fB-gB-h|nB-z|}B-~B-B-|B-B-B-B-N^NuNV+|||l+|UUUUB-m+|?|n+|3333B-o+|*|p+|$I$|q+||r+|q|s+||t+|Et|u+|UUU|v+|;|w+|I$|x+|B-y+||zN^Nu/- NV+N a0aRaaaa N^+_ NuNV. H@AFJpgJp^D"nN^ _\N4<rpAdNtrpANtr pANtrpANtrpANANANL 2.30 ?<NHmN+ Motorola Pascal Compiler Phase 1 Version BgN//-/-?<?<NNPHmN# Copyrighted 1982 by Motorola, Inc.BgNNPANPaa2aHmN*Jmo|JmlB-aaaHmHm?0-`m\ @ lNrp AN`NPrp AN`NPHm/<** /<**?<NJmfHm/<NoBgN`r0-ANzHmN Error(s) and ?<NJmfHm/<NoBgN`r0-ANz  HmNWarning(s) detected?<NNPrp AN`NPJmfJmgZHm/<** /<**?<N/NLast error line was BgNr0-dNzNPrp AN`NPHm/<** /<**?<Nr0-Nz//;FH+G0Bm4 `J(H$HG`+Kp&B+K+Ll2<0<BX@YAb&Jr`BYfAv%H,A6%H0A%H8A%HJf @fpBNNCK& CCaZJfR@  g ;fz;@" ;fXa =fag ,f  g. Zg( Ae" [dCK( -fDDHGj7a  fJgaf()  clքBABBBBhBh B!|SEG2 pNAfA!CBB1| B!|SEG2 1| pNAf薄`Ba,iK0<=%U@f.N*O$iG`+Kp&B+K+i l&Jr`BYfA%H,At%H0A%H8A%HH|+o t <+@xa:` H@0-4H@,NABBIT am zn ,g4k6 -f`g0g` =fRa`  f@`NuB:< &J $g am zn 4g`6 am zn 4k6g(քցSEf am zn 4j  f" am zn +Nu:< am zn  am zn 4kfg_郆SEf`z@@ P@  @HRğ b OH pNNO .HNu.L2*(-0aa +D0Nu"_. H&g&<(QRD$OĵldElel؊az!OEP/JE8/JA??B$O eTgv`gvC)C BjBBjBL@O(-0fgA@aJf<gJ-(ga Bat`agJ-$ga *a\`aga`8m"b"?S@@@,J5Lg ga a$` ga`agNq5A+D0NH؞M$gpS@@@,A|B(@AJa\$Lyg/  p(NNg g%m6*HBB|gBN Nupa|&8%m:*NuH瀀A$0NCgNN *&o|&BjFB*K*E f|'` f|'`|'BjDLNu.L2*aHaxB f fpj& g fa  g4/ &Ja 5 c 5a a>H?a 2&_g*8 gA0NBgNN` apj&aAB5ANup`.L 2*a fFapj&aV*8 &g, g&A$0NCg f0NCf0NCgNNaBA aCO%I5ANup` f?*8 &g pj&W5@&0Nu/(-0fBg<`"g<`BR ft bf cp@NNB B)(NuBBIr&H6<%Bak$ #f` ff&@Nu`akBfg .f R n` :f@` (f` )f@`g JffggfF*H Kf  am zn (g24f.f. gD g .fR`*R`D` 6<Ga&4<ak``&< am zn 4k^f0fR *g2  am zn 4kR .f`J ց` f4 .f6<` g 'c` =C ` `4<ak 6< G aN4<ak n& f| 6< Ga(4<ak (g 6<Ga 4<a~k (fBBBC am zn 4kD )gg8 Pn2AKAB`Bg Bn Bc=C `JB Bc`.R6<Gap4<ak$< G &&&&6Bn $B|g4B|gJNuJCfBA`$ am zn SC /f <`4Nu4HBgF am zn 4k.f(f @`< *fSCn`$HBCf`< (*f<*`SCnNuJj`QBgQB`BgNug g ga Nu%| 8%| .f %m@0%mD4` g%m6*Nu.LRa& Nu.L8SDa~a NuHH.L8v / BJjt-DSDGLdSCnCSDaDJgaLJCg(+r0eR`a2(SCn0a" &_Nu;B@'d 0/8/`8/0/./ G 2RAA sL@aJ@g aS@n &_$_ON.L8*Rcg !aR`a NuH2*fpDNNggS` g `S` %IA0NBg gNNaCO%I"jLNuJDo  aSDnNufazRIRNu.$P f/ &had8+gp"NN &_ JNu./ L 8+ fa88+gp"NNRmng 7D` &_NuH2+$KaHgS`R@ЫS'@fpCNNA0NBgz gt gNNA7A gXa55cJa7AR55H5 J /g RB5 J /fRBa2*aT5AL `J`8$k +gJf ` Jg0+HSЊ'@7AL NuA$0@NCgNN$-0*)+B0Nu0<f0*NugH瀀A$0NCgNNLNuaA?* 6Nug0<$`g0<(`+OSH@@,NuA JHM$a|Lpag/p(NNNup`B@ _.8@gAaB"OUDg"YDnm2N"_. 0H`"_. (a$O"gSn`Ug$Ynm4N$_. 0H`$_. "Ja.N8$_. 0H`$_. "RA w"OaO8N&RC(gSn`UUg SnJg0JgNu."Ga(` ."GaB8R.vl(X"mQ$I&)g""Cn  lX%Q`*""`""mEH bpNNEQ$"$+J NuTT.ah$PB mQbVB("b "H h`%H#J"gҐb ؊ $H#J" ҄bJf $P+J`" ґ$ @!JNuOO bpNNNuNuNVJ~;|:?-:NA(?. NNN^ _XNNVJDg n D"mD+iD` nN(, n-P"n#m6"nBBBN^$_XNNVJg-n/.N90 n/a n/(a n ( g ( g ( fB n (!g (!f n"h""@+h"@` n ( !f"h""<+h"< n!mD+nDN^ _XNNVB.-mnJgJ.f n-h"n$n*)f\0*ifR *fHg< n"ngJg-h` n"ng $n-R`|`|` n-P`n nf"n#h"nJfB n"n0) HS1@ 0) HJf^nf mn+PnJnfBj n r+Hr`8-mn n"ng-P` n"n"Jf+Ij n r+Hr`. n"n0) HS1@ n$n!jf#nN^ _XNNVJgL nJg/(a` nJf hFg hAf/.aL n!mD+nD n-P`N^ _XNNV&|B-|B-{HnN>0.HJg J^D@|0.HJg J^D@{N^NuNVB-B"BBBn+|8r|yB-}B-{B.B*B&BB6+|e2BDB@B+|B+| F+|@J+|N+|R+|V+|Z+|^+|b+| f+|@j+|~+|+|+|+|+|?+|+|+|+|+|+|+|+|?+|+|+|+|+|+|+|+|?+|+|+|+|+|+|+|+|?Bn0.AvCJB1EIB4Rn no|w|y|zB-~B-B-||B-B-|B-B-B-B-||||||B-|B-B-B-B-||B-B-B-B-B-|||B-|B-|B-B-|B-|B-B-B-|B-B-B-B-B-B-B-B-B-B-B-B-B-B-B-B-B-B-B-B-B-B-B-B-B-B-B-B-B-B-:B-B-B-B-B-B-B-B-B-B-B-B-B-B-B-B-B-B-B-B-B-B-B-B- B-*B-+B-8B-B-B-B-B-B-B-B-B-,B-/B-1B-4B-7B-9B-B-B-%B-GB-HB-IB-5B-|||a|L||K|6|e|U|c|e|o|u|z|||||||||||||||R|Z|a|f|g|h|i||||-HH f |Y|j|||`-HH f`Bn0.AJJ0gCB1Rn no|N^NuNVAVN( +mVN-mV nB nBB-HH f`-HH f`N^NuNVHnHnN(0.H g?././.N/R*0.H fN^NuNVHnHnN(r0.H n f"n"+@ZR*`,0.H g?./.N/R*` /<a0.H g0.H n fN^ _PNNVHnHnN'0.H g?./.N.R*0.H fN^NuNV mH+h6J2n+|d2J-|fa:/-HN. mH"h""@+h"@!mD+HDN^NuNVHmHa /-HN'R* mH hEfS2a`| mH hXfP-H QfBJfB-`6 n f|` n f|` /<]a/-HN.2 mH h g !mD+HD mH hWD@x h gJg"h *f0J(f "h#J!J|0( HR1@ ` n-P` n-P`J.fJjg,Jrf mjN(` mj r"mr+Qr mj+Pj`&Jrf AjN(`+mrj mr+Pr+mjn-mj n!n n!n n1| nBB(N^ _XNNV-mnJg n| n-P`N^NuNVHna/.N%lR* n hWD@x hEf +h6S2-n n0(Cv1`l n hFg hAf/.aJ`dYa n "P#n hg h  fF n (!g ( !g (!fa `" n ( g ( g ( fa` n0(CJ1ga`Ya n "P#n HhYa _"_" n"h#n h$g* h*g" h,g hCg hDg hSfD n (!g ( !g (!fa\` n ( g ( g ( fa:` n0(CJ1ga"` ?<NNJg g g$`-nN^NuNV mV!n mVJf$AN( mV"h"+hV mVB` mV+hVN^ _XNNVB. n n nJgpJ.fj"P) "P$i"n )*WD$P(j)!,!WD$P(j")WD$P(j lFWD@Jf$P `N^ _PNNV-mnJgX n"h$n*)f8"h iFf,"h *n"h(j ,ЪSm| n-P`N^ _XN/- NV+N |Ya+_H mH h f /Hna4+n^+nf+nbB-} mHB mH h)fR. mH hEf J.ga`FB./-Ha0 mH hf/HnahJg n|` mH hMf/a mH0(CJJ1gBN^+_ NuNVJNgV+mNR mVRg"mRHiN mR+hR`J.oNFN"-HH m fN^NuNV . o-n `-nN^ _PNNVJjg mj rJng+mnrBnBjN^Nu$.4<rpAN4<rpA NtrpANANtrpANANAN 2.30 HmNB# M68000 Pascal Optimizer Version BgN //-/-?<?<N N XHmNB# Copyrighted 1982 by Motorola, Inc.BgN N XAN X;|:?-:N.2aa(a.Hm Hm ?CDG0OJR0SW^0j0orJwx0|J}00N^ _XNNV.`dRf`- igRfTf`x-igRfXf`d-igRfPf`P-igRf f`8`4 nSmH@AN -fD-@ N^ _TNNV nB/N n-P"n3|"n|"nHi!U"m /)a _ nHhY n(!a  _  n!| n"m $i!j n(h f (n"h "` n"h $n#R m "n"$h(n%T N^$_XNNV n B/N n -P"n3|"n|"n$nj!!"n#j"n(m l#h "n i "lf n"n $h $` n"h $n #RN^ _PNNV m JfAN( m !h"hB `( m "hAN( m "h$i%I !i m -h"n" nB!hN^$_\NNVB. m !hJ.f( m "h$nf|` m "h!i`N^ _XNNV m "n " n "P$Q"n )g$P `N^ _PNNV m !h m Jg-h"h!iAN`N^NuNV n0(Cv1`P n hfHn/ah n"P$P *S#@`8 n/a`. n/a n/(a`?<NNJg g g`N^ _XNNVB. n hf(!( o "PJWD@ N^ _XN/- NV+N BBBB-mnJg" n0( H o-h n-hJgB-w/./.HnHnHmwa ngU/aJJf nJ gn"h if"h $h *R#@/( a`Hna/.-waJHn/.a nJ(g/ab n-h/.N` n-h/.a ` n-hJf, n-hJf n-P`aN^+_ NuNV-n n hBWD".WD$-n&-r(! VD@N^"_PNNV m "h -Q$n/*N" n/N n1|B n| nB nB nBN^NuNV m "h -Q$n(R lBf-j%R$N^NuNV m "h -Q$n/*Nޚ m "h $Q%mD+QD$n(R Q)h "N^NuNVB.-n n hBfL -n"-r(!g<|.H@A"n")f|$n ` R. .oN^ _PNNV m "h -Q$n(j lBf/*N nB`" n"P iBf/Nݺ n B n1|U n|N^NuNV m "h -Q$n/*Nx n1| n.HH!@ n| nBN^ _TN/- NV+N n -P"n iOg ig irg iLf n0(` n -n"-r(!gxaU n/(BaRJga`ZU n/(/<a4Jga`U n/(/S@mJ`NL"i$j)f~*N)NktJjf#j**| 8`TfBFpg#j**pg3j..pg#j00#j44#j88#j<<f3o@AN _ NLpE2gmRA`SA2SfN _;_4N"_$_$j2*(-0N+D0A$0NCgNNNPAS2y P23CSEG2$@&IpANAf.HB "K*O,OBH(+I6H0@+B:;C>;FH+G0Bm4 `J(H$HG`+Kp&B+K+Ll2<0<BX@YAb&Jr`BYfAv%H,A6%H0A%H8A%HJf @fpBNNCK& CCaZJfR@  g ;fz;@" ;fXa =fag ,f  g. Zg( Ae" [dCK( -fDDHGj7a  fJgaf()  clքBABBBBhBh B!|SEG2 pNAfA!CBB1| B!|SEG2 1| pNAf薄`Ba,i~K0<=%U@f.N*O$iG`+Kp&B+K+i l&Jr`BYfA%H,At%H0A%H8A%HH|+o t <+@xa:` H@0-4H@,NABBIT am zn ,g4k6 -f`g0g` =fRa`  f@`NuB:< &J $g am zn 4g`6 am zn 4k6g(քցSEf am zn 4j  f" am zn +Nu:< am zn  am zn 4kfg_郆SEf`z@@ P@  @HRğ b OH pNNO .HNu.L2*(-0aa d+D0Nu"_. H&g&<(QRD$OĵldElel؊az!OEP/JE8/JA??B$O eTgv`gvC)C BjBBjBL@O(-0fgA@aJf<gJ-(ga at`agJ-$ga a\`aga`8m"b"?S@@@,J5Lg ga Ra$` ga`agNq5A+D0NH؞M$gpS@@@,A|B(@AJa\$Lyg/p(NNg g%m6*HBB|gBN Nupa|&8%m:*NuH瀀A$0NCgNN *&o|&BjFB*K*E f|'` f|'`|'BjDLNu.L2*aHaxB f fpj& g fa  g4/ &Ja 5 c 5 a a>H?a 2&_g*8 gA0NBgNN` apj&a PAB5ANup`.L 2*a fFa Vpj&aV*8 &g, g&A$0NCg f0NCf0NCgNNa BA a CO%I5ANup` f?*8 &g pj&W5@&0Nu/(-0fBg<`"g<`BR ft bf cp@NNB B)(NuBBIr&H6<%Bak$ #f` ff&@Nu`akBfg .f R n` :f@` (f` )f@`g JffggfF*H Kf  am zn (g24f.f. gD g .fR`*R`D` 6<Ga&4<ak``&< am zn 4k^f0fR *g2  am zn 4kR .f`J ց` f4 .f6<` g 'c` =C ` `4<ak 6< G aN4<ak n& f| 6< Ga(4<ak (g 6<Ga 4<a~k (fBBBC am zn 4kD )gg8 Pn2AKAB`Bg Bn Bc=C `JB Bc`.R6<Gap4<ak$< G &&&&6Bn $B|g4B|gJNuJCfBA`$ am zn SC /f <`4Nu4HBgF am zn 4k.f(f @`< *fSCn`$HBCf`< (*f<*`SCnNuJj`QBgQB`BgNug g ga Nu%| 8%| .f %m@0%mD4` g%m6*NuH./$T$ G0@AX@ @fB@C "*jDJjD$&H@HA(HBHDԁ"HABA҃BBHBтVJjDFʁ[ DLNuH./ T a( DLNuH./ T ajD DLNu G0@AX@ @fB@C "fpNN&jDJjDtBdR`dЁSdF"jDF‚[Nu.LRaF Nu.L8SDaa NuHH.L8v / BJjt-DSDGLdSCnCSDadJgalJCg(+r0eR`aR(SCn0aB &_Nu;B@'d 0/8/`8/0/./ G 2RAA sL@aJ@g aS@n &_$_ON.L8*Rcg !a0R`a& Nu.LgRa Ta NuH2*fpDNNggS` g `S` %IA0NBg gNNaCO%I"jLNuJDo  aSDnNufazRIRNu./ L 8+ gp` gB`a 8+VD&_Nu.$P f/ &had8+gp"NN &_ JNu./ L 8+ fa88+gp"NNRmng 7D` &_NuH2+$KaHgS`R@ЫS'@fpCNNA0NBgz gt gNNA7A gXa55cJa7AR55H5 J /g RB5 J /fRBa2*aT5AL `J`8$k +gJf ` Jg0+HSЊ'@7AL NuA$0@NCgNN$-0*)+B0Nu0<f0*NugH瀀A$0NCgNNLNuaA?* 6Nug0<$`g0<(`+OSH@@,NuA JHM$aLpang/p(NNNup`B@ _.8@gAa"OUDg"YDnm2N"_. 0H`"_. (a$O"gSn`Ug$Ynm4N$_. 0H`$_. "JaJN8$_. 0H`$_. "RA w"Oa$O8N$_. 0H`$_. "OaO8N&RC(gSn`UUg SnJg0JgNua^WDNa`WDNaNVDNaPVDNa>UDNa@UDNa.SDNa0SDNaRDNa RDNaTDNaTDN$o0H`$o . &RCCA8փUUgfSnJgIfJg _O8N."Ga|(` ."GapB8R.vl(X"mQ$I&)g""Cn  lX%Q`*""`""mEH bpNNEQ$"$+J NuOO bpNNNuNuL$jE*""""""NNV. H@A pf . N.. H2AA40RB1C40SBB$nN^(_\NNV. Hna. Hna n0N^"_\NNV. Hnap. Hnad. HnaX. HnaL n N^"_\NNVNBAC""B'HnNR..g n` nB|B'HnN&.H6.g nR. .o|B'.H@AHpa0.H@A.HHҰ!R. .o+|N^ _XNNV</. a</.aN^ _PNNV</. a|<.HS@ nHpNZR. .oN^ _PNNV-n</.N2< nHhN n(``< nHha< nHha6`< nHhN `< nHhN< nHhN`x< nHhN< nHha`R< nHhNr< nHha< nHha`< nHha`< nHhN(< nHha< nHhaR`<Hna n.HH!@< nHha"`< nHha< nHha< nHhal n| nHhN n"h3||< n"h.HS@HqNZR. .o`< nHhN8 n(`< nHhaf` nHhN@=|< n"h0.S@HqaRn no` nHhN< n"hHia=| n"h=i`"< n"h0.S@HqNRni 0.nl`h=|< n0.S@HpaRn n o`-n nB nB nB n| n0C1`H`X nHhYa _"_"`D nHhYan _"_" nHh YaZ _"_"`?<NNJg g g`-nN^NuNV. `4 \D _D@`>J\D _D@` \D _D@`J\D _D@` ]D ^D@` \D _D@`JWD@` .JlD WD@`pJ-ug -pWDA`||u+np`@|`6?<NN nJmH@AN6XzN^ _\NNV. `R0. nWDA`f n$WD nSWD nDWD nCWD n,WD n*WD@` n1WD n2WD n7WD n<WD n>WD@` nWD n:WD@` n3WD nWD n4WD nWD@`JnWD nUWD nVWD@`Z n9WD nWD@`<|`2?<NN nJmH@AN/./. aJ-wg n/("n /)aJ-wg n/( "n /) a` JWD@wN^+_ _PNNVJ g, nB( n /("n/)a n /( "n/) aN^ _PN/-NV+NJ g n J(g0@C-q n-PB-vB-u/./. a J-wf n-hJ-wfJfJ-wf"NP-CODE NOT MATCHED N ` n !n/./. a n /(aR n /( aFN^+_ _XNNVJ g> m(H@C#R($n /*(n/,a n /( "n/) aN^ _PN/-NV+N|.H@ABR. . o| n "h//anN^+_ _XN/-NV+NJgLJ-fF n/(B'a n/( <a nJg"J-f/aj n"h?). NN^+_ _\NNVJg-n nJ g/( a np"<8(g> (g (f n"h"+h` n ( f"h"+h n!m +n n-h`tN^ _XN/- NV+N Ya-_/.ax/.B'a n PWD@/a*J.fJ-gN^+_ NuNV n (f -"- FF ­$-@-A`RU< n (NJg -"- FF­-@-A` -"- FF(­,-@-AB.JfJg:B. ."..g n HCB1 WDBJf&.H 10fJWD WDCJ.g n ` n .HCB1(WD$1WD1(WDA`p n (` n .HCB"1 WD(1_DA`.HAB"n )0WD@JgVBnRn n 0.S@.HCB@1 0WD@Jg n (HAE42JBlDBnf`FB.`>?<NN nJmH@AN$$$$$$XXX`h n .HCB1(WD$1WDA`4B.`,?<NN nJmH@ANZJ.fR.J.f .fJ.g: n.rt lBFFŭíHCB1RnN^ _PNNVnn-nn-n UHn/.a_N^ _NNV -"- FF(­,-@-AB.JfJg$.-B&.-C B. ."..gLHABA -H (g (f* n (f ( \D". \D@J.fR.J.f .fJ.gL n .HCB". $n$.tv  lCFFǭŭ1RnN^ _ NNV . m .oV .lN.HABA-HJ(o (S@ nJ(fJf.rt lBN^ _TNNVJ.o0 . n&.H@A2A-HJ( o ( S@ nJ( f (gt ( gl (gd(rt lBFFŭí(HCBB1(HJ1f(rt lB n| n (gd(rt lBFFŭí(HCBB1(HJ1f(rt lB n| nB(N^ _TNNVJ.o.H$AbA-HJ( g(a n(a nJ(gV-=(f,JoS-=` NHW STACK UNDERFLOW N,` NHW STACK MISORDERED N .H=@-SH=A`.0.$Ab2.$CEIp(QRni 0.nlJ-oS-` NEXPR STACK UNDERFLOWNN^ _TNNV -2l$R--H$AbC>Ep$Q` NEXPR STACK OVERFLOW N6N^NuNV nHCB1HAE=r no=| nHCB 1oUN|_ nHCB 1orHn<<BNUB'?.HnHmN5H nHCBH1S-HHEIp(Q` nHCBJ1g -"-(­,JfJgpHn<<BNTUN_B'?.HnHmN4 na-HAB"nHEIp(Q` nHCB1N nHCBrt lB N^$_XNNV m "h Hia m "h i )n$<?<HmHmN3 m "h | m "h +iB<)H@E?2HmHmN3 m "h )HEBE-Ji *g *f n| n"n -Щ !@ `, n| m "h )rt lB N^NuNV m "h U/)HmHiaJfbUN_ m "h +iB'?<HmHmN2-HABHp<B'B</-NR m "h B m "h m"h |N^Nu/- NV+N n f m oa*` n f* m oa ` n Jf`d n f$Jg m oa`6 n f,Jg m oa` n N^+_ _XNNV. H@A2A-H-H f ( l(HCB.1mh<?</.HmN1( n(rt lBFFŭí(HCBB1(HJ1f(rt lB n(rt lB (HCB|BN^ _XNNV.H@A2A-H(HCBB1(HB1(rt lB(vx lDFFŭíJ( flJ( od| |J-f| `|U< n/NhJg Hn<.< n/NO`Hn<.<BNO|U n/HnHnaNJf -"-(­,JfJg8UND_-HABHp<B'B<"n/NO` n(H@C?1HhHnN,R`x n ( g"B'(H@C?1HhHnN,$`JB'?< nHhHnN, nhhXB'?<HhHnN+ nn .gnB'?<HmHmN+` .f.a n (g8(HCBJ1f(rt lB n| n (g8(HCBJ1f(rt lB n|N^ _TNNVJ.o-.m.H$AbA-HJ( g(HAC2 1VDB ( A J( gz| (HAE(H(( ( g* (g"(HEB(H2 R n (g"(HCB(H1R`$ nm n"n)H@E2!r n(ap nB( nB( nJ(f| J( g (fR g f$<?</.HmN) nB` nhB'?<HmHmN)`N n ( f@hhB'?</HmN)Z nnB'?</.HmN)<`U< n(NJgJ-;fJ-9g(<> n(H@C?1/HmN(` n(H@C21JAlDAH+Am n< ?<HmHmN(`< ?<HmHmN(mN7<> n(H@C?1/HmN(\`"B' n(H@C?1/HmN(8 n(a" n(a n -"-(g(HCB1 av n -"-(g(HCB1 aL nB( `h nJ( g.B'N@ n(`B' n(H@C21JAlDA?/HmN'r` n"n )X!@/ aB'?</.HmN'B n"n )Y!@/ aB'?</.HmN'` n"n )\!@/ aB'?</.HmN& n"n )Y!@B'?</ HmN& n"n )U!@/ aJB'?</.HmN&`J.fDJfJg8| ."..f R.`.HAB0aL|J.fl-m-mB.R..H$AbA-HJ( g6h ."..gHCB 1 WDC.aHJ.g.rt lB&(FFǭɭFFŭí HABA-H|B|nN^NuNV .mB. ` .R@ N^ _TNNVJ.f| ` .S@ N^ _TN/- NV+N .n .o nU.a n `nU.az_U.a_..f n"n `: -"-.f.f n"n ` n"n ` .nU.a$ n"n ` -"-p-@-AB.B.B.| .nPJ.fJ ."..g R.Ua .".VDBJ.fU.av_R.`J.f6J.fUa@_.a>`B. ."..fR.` nU.a n N^+_ _ NNV m (H$CbC-IJmJ)f n-h`. n-(g"( -A` n -Ш-@ m o nB|U/.HmHha4JfLUaF_+nB'?<HmHmN<-HABHp<B'B</.N6~ nm n| ` n!n nJ(f | ` n-(f |` n| U< n(B<BHha,JfUa_ m Hh<< <"n)PHH/N5B'?< m HhHmNH nm n(HCBHq<(B<BN5|N^NuNVBn n HCB 1n$nH 1o< n HCB 1o/a nHCB 1o/a޼ n HCBJ1gRn nHCBJ1gRnJnoBnB. -"-.gRnR. .o0.nn: n HCBJ1g/a2 nHCBJ1g/a`L n HCBJ1gH1aP nHCBJ1gH1a* n HCB$nHrt lBvx lD N^(_PNNV n n&HCBJ1gH1a`z nHCB 1oUap_ nHCB 1ozHn<<BN2N"0<>?-HnHmN nHCBH1S-HHEIp(Q` nHCBJ1g -"-­JfJgvHn<<BN2PUa_N!x<>?-HnHmN na-HAB"nHEIp(Q` nHCB1a" nHCBrt lB N^$_XN/- NV+N .H$AbA-HJ( g(H@C2 1VDA ( @ J( g| (H@E(H(( ( g* (g"(HEB(H2R n (g"(HCB(H1R n(a nB( nB(`B nm n"n)H@E2!rJ. g)a״ nB( nB( n(`F nJ( gPUHhHhaҐJg,J. g nHha n| | B( ` n!h` nJ( gJ. gHha`z nJ( gXJg/aH`JU nHh nHhaJg,J. g nHha٘ n| | B( `a\` nJ(gmB` nJ( gn (fVUHhHhaіJg" nJf!| ` n`a n| n| nB( ` n!h`h nJ( gFJg/aR`8U nHh nHhaJg n| | B( `ax` nJ(gmB` nJ( gAN HnHnN7U<B'B</. nHhaӨJgxU<B'B</. nHhaӆJg4J. g nHh nHha n| | B( ` n(aԨ n| n` n` nJ( gJ. g HhHhah` nJ( gJg /a`U nHh nHha϶Jg n"n )X!@UHiHiaϐJg> n"n )Y!@J. g HiHia n| | B( `, n(a n| n"n )Y!@a`a` nJ(gmB` nJ( grUHhHhaJgHJ. g nHha J-;f n` n n| n| nB( ` n.HH!@` nJ( gJ. gHha` nJ( gvJg/ax`hU nHh nHha8JgJJ. g nHha^J-;f n` n n| n| nB( `an`: nJ(g0J-;fJ-9f ` n nm nB`v nJ( gJg /aظ`a` nJ(gmB`. rt lB.xz  lEFFą„+B+A`HJ.fBJ.g<. rt lBFFĭ­.xz  lE+B+AmJ.ot.H$AbJ0 gZA-H. (fn`@ n. (fn`* n.(fn ` n.(fn S.`. HABCEr 4Q.HC-IC$np 4QCEp 4QN^"_XNNV -"- m ( f(H$CbC0-I)WD) CJf(H$EbJ2@ g  lIA r@.HAB(m ,H0P0@fZ.H,H0P0@f<.H,H,0P@f.H,H0P0@g<?<Hn m HhNp. m (a m |` m (H$CbC-IJ) g( )g)f|`B. m ( HCB.1mqJ.g.H@E2 2f(H$Ib/4 /4 /2/2Ngf..a.H@A2 0g"m )H$Eb2aj m (H$Cb.HAE2IA ` .B'aԴ -"- m ( g.aբ`B.R..H$AbA-H"m ).gJ( g.a m ( HCB.1g -.n m ( HCB.1g NFREE UNALLOCATED REGNN^Nu/- NV+N HnB'. <BN% . n|` . n|`|B..H$AbA-HhJ( g(HCBq nJ( fJ( g n (fB( aV n g f$<?</.HnN n(a˘`V n f(B'U/(N <H?/.HnNp`$ n. (gB'?</HnNJ n. (g(a*`aJ.f n(a n(aB. . n n fVB=| n0.S@0H=AJAln n"n )2.HЁ!@Rn no n n fUB'/(NJg ||J.g<?</.HnNZ` B'.H@A?0/.HnN8`J-9g,<>.H@A?0/.HnN | `Nj nJ(g<>.H@A?0/.HnN nJ(gd(H@C21JAlDAH+AgRm n<?<HmHmNv`<?<HmHmN^| J.f. rt lB&(FFǭɭ n (f  `. rt lBFFŭí A"n"". HAB"nECr"Q"n| "n| "nJ) g.a nJ(g B(S-=B( nB( nB( N^+_ _XNNV.H$AbA-H ( f -;f.<a`x nJ( flJ( g (g\HnB'<<BN!2 n(`d|Uaj_`|Ua_`n|Ua_Ua_`P|Ua_` n(H@C?1/HnN`N<> n(H@C?1/HnNr nJ(gd(H@C21JAlDAH+AgRm n<?<HmHmN`<?<HmHmN n (f.rt lB A"n"".HAB"nECr"QJ.g"n )l n ( fJ( gR.HCBHq<B'B</.N.HABHp<B'B</.N`,.HAB"nECr"Q"0X! n| n| nJ( g .aJ nJ(g B(S-=B( nB( nB( N^ _TNNV0.@AFJpfAN .P =|0.A;Rn noHmHm?<?<BgAN /-/-/-/-N0.@AF1J-`gFN@r/p AbN t/N XREF 8:BgN$/AN ?<?< NN dHn<< <BN<=?<HnHmNU?-N=_0.@A1|U?.Nϲ=_0.@A2.ACF1N^$_TNNV| n m| N^ _XNNV nJf$"n 0 EzE-JJjg2 n f n 0 CͮJqg 0 0`N^ _PNNVJf nNP` n "m+i N^ _XN/-NV+N m B-m͔-m (Ю-@BnJ( g|"m=iHnHna||Jg m J( g""n )f0.QfB.BB.`D n .萨 o0 B.-|| .萮 o-| |J.fnHna-n nn n!n nB nB( n "m Jf#n` m "h#n m !n"n-iJ.g m Jg0B-h-n n"n .Щ!@ .萩 o )f|\B. n-h Jf .Ѯ m -h|-n nJ( fB.J(f"P .쐩 o|` n"P ( o|J.gH n| B.B. m -h-n n"n )X!@-i JfXX n-h JfNJ.g6J.gN^+_NuNV m Jg-h|CE$$C힐E$$|Hn< <<BN| m J( f*UN=_0.H-@<"BgHnHmNf-n nJ( g:UN0H-@ n"P?"P)?NN<"BgHnHmN n-h Jf"m -i-n nJ(g"P=Q"PiHnHnaUN0H-@?..?N n (f<#BgHnHmN`(B'?<HnHnN<(#HH!@Jl (!@ n"n)"H@H"nЩ!@ n| n| .f<Nn|-<N?.a\?. a .g .g <NV-H$AbCEp$Q-NaN^ _XNNV-<Nϰ-<Nې-S<Nϐ-SB'Nn-U<Nn-UNN?.a?. a-NT-NJaN^ _XNNV-<N-<N?.aF?. a-NaN^ _XNNV-<N-< Nڲ-SB'Nδ-S<Nڐ?.a?. aL-N-WD@aJJ.g -H$AbCEp$Q|N^"_XNNV-<N*-B'N -S<N -S< N-UB'N-U<N?.a?. a-N-N-WD@avJ.g -H$AbCEp$Q|N^"_XNNV-<NV-<N6-S<N6-SB'N-UB'N-U<N?.a@?. a-N-N-WD@aJ.g -H$AbCEp$Q|N^"_XNNV-<N̂-<Nb-S<Nb-SB'N@-U<N@-U<N-WB'N-W<N?.aH?. a-N-N-N-WD@aJ.g -H$AbCEp$Q|N^"_XNNV?.a?.a8-H$AbA-H (g (N nn  n B( B( J(gS-= nB( n| n| nB( nB( n(HCBC-IHi<B'B.BN n| nB"n$n*HIBAEp$Q. rt lB N^ _ NNV-n n0`R n0S`t n0$`h n0*`\ n0,`P n0C`D n0D`8?<NN @SnA TXnmN$*,CDSN^ _XNNV-n n0`>`h n0,`\ n0*`P n0D`D n0C`8?<NN @SnA TXnmN$*,CDSN^ _XNNVN-H$AbA-H/<.<BN n| n| n|.HABA-H||.rt lB N^"_TNNV.`|( `|% `|4 `|1 `|. `| + `|' `x|$ `n|3 `d|0 `Z|- `P|* `F?<NN 4n$mH@ANfpzN^ _TNNVHn Hn a*J. f(0. AzCE$$$CE$$`&0. AͮCE$$$CE$$0. H-@ .>oaJJ.f.BgHnHmN`Z -T n.BgHnHmNؚ`0 -X2-AHЁ n.RBgHnHmNb`|AힸC""A히C""J.fT ."gL .>m -|`-|.BgHnHmN-| <"BgHnHmN`2 ."g*U.a_-| .BgHnHmN״B.B'?<HnHnNלHn< <B'BN|<?<NN @>n@1m@AN-B'NL n(H@C=qa.?.-H$AbHpHmNv-H$AbJ0g0.J@lD@?a2-NN^ _XNNV-B'N-H$AbA-H(H@C21SA=ABJ(g2JAg.mH+A<BgHmHmN0.R@?a`J nJ( g0.HШ!@/NJ` nJ(f -N.<BgHm/.N~-N N^NuNV| .f .fH fB.`4Jf. .f|`|AC""AC""` .fJfB.` .f&Jf|AC""AC""``J.fZJf2 .f |`|AC""AC""`"U</.N Jg .f|J.g.?<HnHnNJN^ _N/- NV+N .WD@B..H$AbA-HJ( g&"HE$$"HE$$XHnN` nJ( g2C힨E$$C힨E$$AN HnHna` nJ( g6Hn<(<BNHn< n(<BN`bJ.f .f-S.Nº`H-SH$Ab"-$-0f(UN_.N-S.NpaR<D?.-H$AbHp-SH$HpNǶ-H$AbJ0g0.J@lD@?ar-N4-N*N^NuNV-B'N-<N-SB'N-S<NA n0`|% `*|( `"?<NN @$g @*g @Cg @Sg``U< n(N}nJg |( `~ n0`F|% `j|( ``|+ `V|. `L|1 `B|4 `8?<NN @SnA TXnmN$*,CDSN^ _XNNV-nU< n(N|JgJ-;f n0`F|H `j|K ``|N `V|Q `L|T `B|W `8?<NN @SnA TXnmN$*,CDS`U< n(N|Jg> n0`|$ `*|' `"?<NN @$g @*g @Cg @Sg``~ n0`F|$ `j|' ``|* `V|- `L|0 `B|3 `8?<NN @SnA TXnmN$*,CDSN^ _XNNVU/.a_J. g.?. B'.aD`^J.gU.ab?. B'.a$`>UN=_.?.<B'a<"?. B'B'a?.<BgNXN^ _ NNV. adU/.a_-H$AbA-H .>oa^J. fJ.gU.a_.?</.HmN<?</.HmNJ. f$J.f+|<?<Hm/.NN^ _ NNV|-n U< n(NyJg /. a`XU< n(NyJgB.J-;faT`a`*U< n(NyJg /. a`/. a:/. ?. ..aN^ _PNNV-SH$AbA-H"n )g8J( g-H$EbJ2 f nJ( g*-H$CbJ1 gUNV_/. a`/. aUN8_/. ..<aN^ _\NNVJ-;faR`aUN_/. ..B'aN^ _\NNVJ.f/. a/. aUN_.aN^ _\NNV-n -SH$AbA-H"n Q$g QSfR-H$AbJ0 g "nJ) g-H$AbJ0 f "nJ) gUN2_/. a`/. a|UN_/. ..<aN^ _\NNV-n U< n(NwzJg/. .a `XU< n(NwTJg/. .a`2U< n(Nw.Jg/. .a` /. .aN^ _\NNV-H$AbA-H-SH$CbJ1 gJ( fUN&_/. a`/. aUN_.aPJ.g|'`|$-H$AbA-H.?</HmN<?</.HmNN^ _\NNV/. alUN_.aJ.g|H`|K-H$AbA-Ha.?</.HmNN<?</.HmN8N^ _\NNV-n AX HnN nJ( ghh`. nJ( g (X!@/N` nJ( g!n nJ( gJf<?<HnHmN`B'?</.HnN nJ( gnN^ _ NNV.H$AbA-H -;fB'?</HnN^`~ nJ( g,aƸ<> n(H@C?1/HnN(`H nJ(g`\ nJ( gRB=| n0.S@0H=AJAln n"n )2.HЁ!@Rn no nJ( gJf<?<HnHmN`B'?</.HnN| n ( oX HnN nJ( g (X!@/N`Z nJ( gPB=| n0.S@0H=AJAln n"n )2.HЁ!@Rn no nJ( gJf<?<HnHmN`B'?</.HnN n ( fX HnN2 nJ( g (X!@/N`X nJ( gNB=| n0.S@0H=AJAln n"n )2.HЁ!@Rn n o nJ( gJf<?<HnHmN`B'?</.HnNN^ _ NNV-<NX-NR+n -H$AbA-H(HCBqU</. Nl JgR.` .fn ..H@A?0Hm/.N<.a\<6?.B'B'aN^ _ NNVNinvalid pattern typeNBN^NuNV-<Nv-Np-H$AbA-H(HCBq . mVJ-;f&N<EBg/.HmN< NƢ`(-<NA-SN-<N"-Np?<NT?<N-NzN@N^NuNV<NTN^NuNV-m nJg-H$CbC-I-B'NJ-;f|U< n(NkJgd n"n)(gRU<(Nk`Jg -N\`$UN._-Nw--N n"ni-Nr-Ny$N^NuNV m=h-<N-N| Jnl |Dn-H$AbA-H(HCB1HAE=r nf . f<?.//N` nn$0.H+@.?.Hm/.N` nnD+|.?.Hm/.N0.Q@H+@.?.Hm/.Nh`Hn<B'B<0.H/NϰUHnHmNqJfPUN_0.H+@<?<HmHmN|-HABCEp$Q-Nu.?.Hm/.NN^NuNV-m n(H@C21JAlDAH-AU<(NiJg0 -o-SN2J-o -NJ n-h.gR+nm| U</.NeJf| .?<HmHmNR-=Nw-H$AbA-H|m="ni (g (f n"n!iN^NuNV?<?<?<?0-͠ Aͮ"00-@HU m.?-͠<B'Nx`nJm͠f UN;_͠+|U.NрBgHmHmN|?-͠<BgN+| <?<HmHmN`B-N^ _TNNV-H$AbA-H"m )gU< )JlD/NbJg m ( n (f <?</.HmN<N| m (D+@Jo | +h.?<Hm/.N m (+@<?<Hm/.Nn m+h .f| (D+@`|.?<Hm/.N,`h m+h<(H@C?1Hm/.N<+a m+h< (H@C?1Hm/.N<1aN^Nu/-NV+N-m n-h-hh-B'N"-H$AbA-Hh -N .f\ n+|p| <?<Hm/N2<+a+|<?<Hm/.N <1a`&-|-| n(HCBq .f-|-|` .f-|-| .f ".gJf .fa(<+ab`~ .f2a<+aL+n<?<Hm/.N@<1a(`D .f <?</.HmN<N8+n<?<Hm/.N` fZ .fa<.a`> .f2an<.a+n<?<Hm/.N<1a`a<` .f` fa <4aZ`DJfa <1aF`0+n<.H@A?0Hm/.N,<1a`FJf .f2a<1a+n<?<Hm/.N<+a`t .f <?</.HmN<N<?</.HmN .D+@<?<Hm/.N<?</.HmNj` f@ .f2a<4a8+n<?<Hm/.N,<+a`a`@ .f2+n<.HAA?0Hm/.N<+a`aN^+_NuNV?< ?< N4N^NuNV?< ?<?< ?< /ӭ m<:?<HmHmNr`<;?<HmHmNZ`Da<!?<HmHmN>U?-Nxl=_0.@A1V` nJ(gzJlvaf<!?<HmHmNU?-Nx=_0.@A-H1U?.Nw=_0.@A"n"D1T`Da<!?<HmHmNrU?-Nw=_0.@A1VN^+_NuNV-m nhh-B'N-H$AbA-H .n| .n .oP..or nJ(g -Nf`X nJ( fJ( gH-<NB n"n.H@E22Hҩ.H@42H’!A/ Np` nJ( f-<N-N n(HCB1.l .f <?</HmN<N.`f n(HCB 1f<?</HmN`,<?</.HmN<?</.HmN<N` nJ( g .N` . mv . m nh`\J-;f nh`J-<N-<N-NxAUN_.Ne-.N-H$Ab"m` -NBnRn0.@A2J0 g n f0.@A2J0 g NTOO MANY COMMON EXPRNnT-H$AbA-H(HCBJ1g(H1NmJ n (g((HCBJ1g(H1Nm n ( m (o2 n(HCB(rt lB n (g.(HCB(rt lB0.@A2A-H"m -H$EbIC""B( "m )S@ iN^NuNV-<NJ-ND-m n+h-H$Cb1HEBr| U</-NSJg| ` .f nh..H@A?0Hm-H$CbHqN.N2N^NuNV-m< n/((0-ͦH"(?NN^NuNV-H$AbA-HJ( g HhNL`V nJ(g"-<N&<-B'B'NB`*-<N-N<-B'B'N<B'NN^NuNV?<?<?<NFN^NuNV mh.H@C=q . m<B?<?< /NgZHmb/
AN |.H n"h2SAR. .o--n +|`D+| Hmx<< < n(PHH/NB'?<HmxHmN| oZ+|<BgHmHmN^ .+@m< U/NH?HmHmN(|` .D+@<BgHmHmN fB'?<HmHmxNm n (nJJ-fD/.HmNHmHm?<-H?BgAN /-/-/-/-NN^+_NuNV-<N-<NNppN?<"?<"UNt2<<N@N^NuNV-<N-<NNp"Nt?<#?<#UNs<<NN^NuNV/-<NN^NuNV-NfN(+|<?<HmHmN m f/<?<N$`/<?<N-NZN^NuNV?<&?<?<&?< /-H$AbA-H"mi|$n *Ш!@/NX nB( nB( n| N^NuNV/-<NN^NuNV/-<NpN^NuNV<B'NN^NuNV<NN^NuNV+| | <?<HmHmNN^NuNV/-<NN^NuNV-m n VD@-Nx -N-H$Abp.HCB 1n><?<HpHmN>.HAB-H$Cb-SH$AbA-HJ( g( (f U</(N@tJf n|` n (l|J.g| n (`j+|`+|`+|`~+|`r+|`f+|`Z+|`N+|`BB.`: nA TXnmN~ @-H$AbA-HJ.g@"n )f -N < n(H@C?1Hm/.N` n (f"n )gU/(N: ff-NNQ8-H$AbHp<B'B<"n/)N-H$Ab ?<?< /|B--N@"-N@N^NuNV mh.H@C=q . m<A?<?< />` -N>2<N`2 nf< Nr<N`?<?< /< N-H$Ab ` . fB-B'N[-<Ng-S<N[-S<Ng`-<N[-<NgA?<o?<oUNL<<N`R-<Ne(A ng-<NRn-Nbh-H$Ab0HCB 1f<?<HpHmNc< ?<-H$AbHpA-H/.Ncf<Nv`||-<NQ-H$AbJ0 gp..HnHnNJ^-.N]-H$AbB0 -.N]fA-H$AbJ0g-SH$J0g -N_-SB'NN-SN^-SH$AbHpN- n(` n (f-H$CbJ1 g `~-H$AbJ0 gjp . m&UN?d_.N&-.NZF`6-H$Ab 0g-H$ 0f-.NZ-H$AbJ0 g:Jf4<"n)H@E?2-SH$HpHmN_<`>B' n(H@C?1-H$EbHr-SH$HrN^`--SH$Ab/0/0N&` n-H$Cb1(gP 1 m -N]@`$UNC_-N%--NY-H$Ab"n--SH$Ab/0/0N`B' n(H@C?1-SH$EbHr-H$HrNZ0`-S-H$Ab/0/0NX` n-SH$Cb1( gT 1 m NXp`(UN>B_-N -S-NT0-SH$Ab"n-S-H$Ab/0/0N` П-@JoH2. Az _D@rHH .N X4-@Jn-|| .onnߪ-n/.<NP|HnHnNK|?..BgN/;|J.g;|-``2aF`,a`&ah` ?<NNJg g g g`J-gN. m!mN^+_Nu/-NV+N-m n-h-h-m n0H-@J-f NXLa`> -f6 -Rl*+@". A"n$0/?-NUB` n-h -g -f m . /?-NUJ-g>-n -f-m0-ͦH". Az 0/?-NT`z-m n(H@C=qh+nJf<?.HmHmND`<?.HmHmND<%0-ͦH".?B'<NkV+n . A"0VD@Jf8-m"m+i"n#m+n䪜J-f<"?-B'B'NjN^+_NuNV?<?<NcN^NuNV?<?<NePN^NuNV?<?<Ne:N^NuNV?<?<Ne$N^NuNV?<?<NeN^NuNV?<?<NdN^NuNVJ-;f?<?<Ne`-<N2.-<N>-S<N2-SB'N=-U<N1-U<N=-WB'N1-W<N=A-UN-S<N1-SNh-<N1-NP-N -N ?<N] ?<NEN\N^NuNV-WB'N0-WN-U<N0-UN-S<N0r-SN-<N0V-N-N V-N L-N B?<N\j?<NDN[`N^NuNV?<?<NcnN^NuNV?<?<NcXN^NuNVJf nNP` n "m+iN^ _XN/-NV+N-m n0-ͦH"( CJg-<N/tHna-n-H$AbA-H"nh -N?B nHhUN+0 _0 n0(H+@"n2-ͦH$)0i$nj*HIBt!m+n<"BgHmHmN@,-NNRN^+_NuNV/- m0-ͦH"(?B'NN^NuNV/-Ni@<% m0-ͦH"(?B'<Nfj-N`N^NuNV/-Nid<% m0-ͦH"(?B'<Nf,N^NuNV/-Nm6<L m0-ͦH"(?B'<NeN^NuNVNn<% m0-ͦH"(?B'<NeN^NuNV/- m0-ͦH"(?<NN^NuNV/-NhB<( m0-ͦH"(?B'<Nel-NbN^NuNV/-Nhf<( m0-ͦH"(?B'<Ne.N^NuNV/-Nl8<I m0-ͦH"(?B'<NdN^NuNVNm<( m0-ͦH"(?B'<NdN^NuNV/-B'NN^NuNV/-B'NN^NuNV/-B'N4N^NuNV-NN/-NP-<N,J|<?<-H$AbHpHmN=-N*/- m?( N@N^NuNV-SNNf-<N+-<N7-N/- m?(NN^NuNV/-<N-m n+h| Pg Pf| U< n/(NZJgR.. n(H@C?1Hm-H$EbHrN< n P4g Pf <6 n0-ͦH"(?B'B'Nc-NN^NuNV<NZN^NuNV m Pf <N>` <N2N^NuNV/-<N-m| nJl|. n(H@C?1-H$EbHrHmN;-NRN^NuNV/-<N< m(H@C=q$m=R-H$IbI-L nUf<?./ HmN;@`Jnf`<?./.HmN; UN&`=_<4?.<<Na<?./.HmN:?.<BgN#`+|<?<Hm/.N:-NZN^NuNV< NN^NuNV/-<N2 m(H@C=q<?.-H$EbHrHmN:L<?.NN^NuNV/-<N-SB'N(-SH$AbJ0 f-SN8| m P 9f|.-S-B'Nj-Nh-N^N^NuNV/-<NH-S<N("-SH$AbJ0 g HpNb`$-SN7<-SB'B'Nj <-S-B'Ni-N-NN^NuNV/-<N~-SB'N'-SH$AbJ0 f-SN7j<-B'B'Ni<-S-B'Nij-NF-Na`6a`.ap`&a`aJ`aX`a`a`a`a`a`a`a`a`a`a`a~`a`a`a``a`az`a `aP`za`ra`ja `baJ`Za `R`Nax`Fa`>a`6a`.a`&a`a(`a`a`a `a`a`a`a`a`a`a`a`a`a`a`a(`a`an`a`a`~a`va`na.`fa`^a`Va>`Na`Faj`>a&`6a`.a`&a`a`aV`ad`av`a4`ax`a`aà`aî`a`a`a`a`a`a`a`a`a`a`a`~a`va`na`fa `^`Za `Ra$`Ja2`Ba@`:a`2a`*a`"a`af`at` a`az`aL`ah`a`a8`aϤ`a$`a`a`a`a(`aּ`a`at`a܂`aܞ`a`zaݚ`raB`jab`baD`Z`Va`Na `Fa.`>a&`6a4`.aB`&aP`a^`a\`a`a`a`a``N`a`a`a `aL`ax`a`a`a`a"`aN`av`a`a`xa`pa`haT``a`Xa`Pa>`Ha`@a`8a`0a`(az` a ``?<NN @nJ@m@AN (08@HPXXX\dlt| (08@HPX`hpx (08@HPX`hpx $,4FNV^fnv~N^+_ _XNNVRmZAbN dAbN dHmbN'M68000 Pascal Compiler Phase 2 version BgN$//-/-?<?<N//< BgN$//-|/-x?<?<Nrp.N t/?-?<?<Nrp N t//-/-?<?<Nrp N t//-/-?<?<Nr"p N t//< n(HHЮ-@-H"n-i!mͪ+HͪJf". /HmN6HmHm-H??< m AN/-/-N>N^ _PNNV m ho6(g*0(@C=qSha m 1n1|`a m RhR(` m 0(@C2(AE3` m 0(@C21 Ez 2/HmN5: m 0(@C3Sm` m 0(@C21 Eͮ 2/HmN4 m 0(@C30(@E2-͠rgSm`T m 0(@C21 Ez 2/HmN4 m 0(@CBq0(@E50(@I9ThT` m 0(@C21 Eͮ 2/HmN4& m 0(@CBq0(@E50(@I9ThT`| m 0(@C21 Ez 2[/HmN3 m 0(@C30(@E50(@I90(@C3VhV` m 0(@C21 Eͮ 2[/HmN38 m 0(@C30(@E50(@I90(@C3VhV`|`x m 0(@CC-IBh m 0(h@CBqRh m ho m ThHnNʺ m "n"|$n0* Iz#t0* ) (f?*B'/(a m T` m 0(@CC-IBh m 0(h@CBqRh m ho m ThHnN m "n"|$n0* Iͮ#t0* ) (f?*</(a m T`& m Bh m 0(h@CBqRh m ho m VhHnNz m (S"n"|0(@E22 Iz#t22 )V` m Bh m 0(h@CBqRh m ho m VhHnN m (S"n"|0(@E22 Iͮ#t22 )V` m 0(@C21 E 2/HmN0X m 0(@C3Sm` m 0(@C21 E 2/HmN0 m 0(@CBq0(@E50(@I9ThT`d m 0(@C21 E 2R/HmN/ m 0(@C30(@E50(@I90(@C3VhV` m Bh m 0(h@CBqRh m ho m VhHnN8 m (S"n"|0(@E22 I#t22 )V`^?<NN nJmH@AN BVBBnn$nZU m ?(a` m 1_N^Nu/- NV+N -m Bn=m0.@Ap .fa=|0.@ABpRn no0.@A=pU?.a=_0.@A=p=|B-Hnf=| .D-@/.HnN-HmHm-H??.AN/./.N6(U?.ab=_0.@HѮ` .f.a.0.@A?0/.B'aRU?.a =_` .f.a0.@A?0/.<aU?.a=_`T .g( .g .g .g . g . f Nbad obj at writebuf a`a0-ngJ-gF.g4U?.aD=_S0.@A2.AC1B0Sna(;n溴+n޺0-mWDAN^+_ NuNVJ-fa0HmHmaa6aN^NuNVJ-fa ;m;maa~N^NuNV0-mf J-fa`80-mo2<@mnla`0-ml2-@nlaf0-mm2<@mnl0-ml2-@nmN^ _TNNV<!?<HmHmNSU?-a0@AA-H1n J. f` nJ-`gaJ. f$0-ͦn =@rpLAbN tr0.N `"0-͢n =@rpTAbN tr0.N n l=|`& ndl=|` nl=|`=| . f60-͠n f,2.p AbN t/N SET *BgN$N d`*2.p AbN t/N EQU *BgN$N dJ. f&0. AzA-H |1n`$0. AͮA-H |1nB-m͔Jgt-n n0. PfP. (fFJf+h͔HnHna-m͔`$ n"n!iHnHnab n-h`-n n-h`+n͘N^ _\NNV mͤf$Ntemp label overflow aBn` Rmͤ=mͤN^NuNV|AC""Ua=_0.H-@<"BgHnHmNBB.Ua~0H-@ m͔?(?a<<"BgHnHmN J͔WD@Jf m͔"- d]DAJ.g?.<BgaB-J͔fB͘N^NuNV-n n(QH=@``rpDAbN t"nr)N `rpAAbN tr0.N `Hmb/<(ABgN$r0.N rp)N t`tHmb/<(ABgN$r0.N //<)+BgN$`HHmb?N^ _XN/-NV+Nr p AbN t=| m (HC2.SAA 1 g=nr1AbN tRn no m hfHmb?< /<.BBgN$` m hmJ(fHmb?< /<.LBgN$`z m hfHmb?< /<.SBgN$`X m hfHmb?< /<.DBgN$`6 m h fHmb?< /<.XBgN$`Hmb?< /< BgN$ nlpn2p AbN t m /(a m "h Jgrp,AbN t"m /) arp AbN tN dN^+_NuNVJnm noNBAD DATA IN HEXWRITEaTJ-`gH m (!g<-HC2.HE-RH2.HHAT-N^ _TN/-NV+N/.HnN ?. a$=|=n `@0-@AA-HB0. n@1v?(a U?-a;_Rni 0.nlB-0. HѭJ-`g m (!gR-N^+_ _\NNVJnln0. @@2. AAnH-@/?<a$N^ _\NNV0.@@2.AAA2. AA2. AAnH-@/?<aN^ _ NNVJnln0.@@2. AAA2. AAnH-@/?<aN^ _PNNV n m g  fx n-hJl n (l (H=@` n(H=@0.@H-@ n (fR .Ю-@/?<a` n-h f2 m n/.?<a` /.?<a` n f"m if/.?<a` np"<gX/.?<av m (=f<"n f2J-`g,-|-HHA*S  l`< n fJ-`gZ-H"m 2)AA @oBEIpQAN | m | n ($CbC-I=|$m 0*H=@`f n0.@2UA0HH-BS@0HH-AJlJl .Ю/?<a6J-`gS-Rni 0.nl`* n  g f m J(f B/.?<a n  fF ( CzJ1gU?-aܬ0@A`U?-aܒ0@A`H n ( CͮJ1gU?-ab0@A`U?-aH0@AU?-a00@A"n1VJ-`g<-WH=@-XH=A`0.A*Rni 0.nl\-N^ _XNNV n  lp (f NA/D/FNONE IN SUB REGaװ`D n (l (H=@ `, n (l(QH=@ ` n(H=@ ` n`r n m nBn `=| `v=| `l=| `bNaddressing mode-reg a`@=| `6?<NN n mH@ANvN^ _XNNV n`zBn `=| `=| `=| `=| `=| `|=| `r=| `hNaddressing mode a>`F?<NN nJmH@ANpxN^ _XNNV m Jh]D@JhlDhB(B(J-f8 (!g0 (<g(J͔g""m͔"-4-B6<BHòoa m "h f$h gJf m BhJ-`g$ m (!g ( ga֎rp AbN tN^NuNV m hfBh` m hf1|` m 1| m (` m 1|Bh` m 1| 1|` m 1| 1|`z m 1| 1|`f m 1| 1|`R m 1| 1|`>?<NN n_mH@ANj| m "hp"<gR$h gH??(?(U/ a^U m /( a$a m /(al m "h m/ aX`` m "h f` hf1|` m 1| m ?(U/( a m ?(U/(aU m /(aaj m /(a` m "h fH (g@?(U/ al m ?(U/(aU m /(aLa m /(a` m "h fn (fNto memory compare a m ?(U/(a m 0(X@?U/( aU m /( aa m /( a`NMEMORY/MEMORY +-ETC aҀN^NuNV m (` m Bh` m 1|` m 1|` m 1|` m 1|` m 1| ` m 1| ` m 1| `r m 1|`d m 1|`V?<NN :n"mH@ANT|n` m Bh"h  f )U1@?< m ?(?(a m "h  g|U?-a*0@AA-H"m $i1j  f` m "h f8 ) EͮJ2g0-͠HVD@(n` n `R m "h  f& ) EzJ2g (n` n `Nbcc addressing mode azJ-`g -WHA*-UH*N^Nu/- NV+N aT.` 0.` =|`,=|`$=|`?<NN @g @g @g`?.U/. aU/. a0U/.a&U/.aa/.amB-N^+_ _ NNV.H=@J@ln0.H=@2.HHA=A @ l @0@` 0.@7@ n l0.@0@` 0.@7@N^ _TNNVJ lD ||`B.=|"< . N =@ . N -@ JnlnJ.g(J.gJnf=|`SnB.0<n=@0.S@@ n1Rn noN^ _PNNV-n n hmF"n /NN n Nd=|0.S@ n0aRn no nBh n"n0)R@1@0)S@N^ _ NNV-n n"n0)R@1@0)S@A N^ _\NNV-n /. /. n(a*=| n=h`$/. /. n0.S@C1aRni 0.n l nBhN^ _PNNV/. ?<3aP=|/. Bga@Rn no/. ?.a( n B(N^ _\NNV n0. h @o*//. a,Jnf/.?<2a` /.?.azN^ _ NNV=|/.0.S@@?6aSn nlN^ _ NNV=|/.0.S@6H?avRn n oN^ _NNV-n nBh nBh nB( n1|N^ _XNNV m /(z0.S@"m1 00.1 0H?aN^ _TN/-NV+N?<a?<a?<aN^+_ _PN/- NV+N nzJhg //.va/.z?<1a/.zAlN a/.z?.jaz/.z?.han/.z.fH?a^=|/.z0.6MH?aDRn no/.z0.RH?a$/.z0.RHH@?a=|/.z0.6SH?aRn no=|/.z0.6[H?aRn no=|/.z0.6cH?aRn no/.B/.>a/.J/.Fa=|2 no0.S@ 6 f=@`0.S@ 6 fBn=|=n`/.z0.S@6 H?a,Rni 0.nl/.z/.vaDN^+_ _rNNV n,Jhf /?<2a`" n, (2g//.(a/.,?<2a0.&`0/.,/.(?< Bga/.,Bga/.,/./.a/.,/. /.a n,"n,0)R@1@` /.,/.(?<BgaB/.,0.$@?aF/.,AN a/.,/./.aZ n,"n,0)R@1@`/.,/.(?<Bga/.,0.&@n$?a/.,/./.a`t/.,/.(?<Bga/.,0.&@n$?a/.,AN a/.,/./.a`(/.,/.(?< Bga`/.,0.&@n$?ab/.,AN a n,"n,0)R@1@`/.,/.(?<Bga/.,0.&@n$?a/.,/./.a:/.,0."S@?a`/.,/.(?<Bga/.,0.$@?a/.,AN a&/.,/./.a/.,0."S@?a`6?<NN @ nJ@m@ANjj>>N^ _(NNV nJhf /?.a`. n (3f .(g/./.aN/.?.a=n n ( f//.a&/.?.a`/./.?<?.a/.0.S@@ n ?0a/.0.@ n ?0a n"n)R@Tn0.nlzN^ _NNV n&Jhf /?. a`6 n& (3f ( g .!(g/.&/."ad/.&?. a=| no0.@JvfSn`0.@JvfBnJng nfr=| no0.S@2A4.vf=@`Jnf.0.S@@JvfBn`0.S@@ voRn``0.S@@ vlRn`=|/.&/."0.R@n??. a< n&(rHHT@=@(HH…HBvB=C=|=|=C` Rni 0.nl n&0.S@C1Hn n&"n&)R@0.@2.SAAAn=@/ ?a=|=n`/.&0.@?6aRni 0.nl=n`/.&0.S@@?6ahSn nlN^ _"NNV nJhg //.al/.?<4a,/.?.a nl/./. /.a>/./.a0N^ _NNV n Jhg //.a -n nJhoh0(R@=@`0.S@ nB0Rn no n/ nNN nNd=|0.S@ n0aRn noN^ _PNNV-n nnn B(!nN^"_NNV-n nn!nn !nN^"_NNVANP-n n1nnnnnn!n !n -nN^"_NNVANP -n n 1n !n-nN^"_ NNV.BnBn0.@AHpYYB'?.<<< < <BBa*?.Ba~ _"_"RnRn noY<?<<<< < <BBa-_0Y<?<<<< < <BBa-_@YB'?<6<<< < <BBa-_LY<?<<<< < <BBah-_\YB'?<W<<< < <BBa@-_lYB'?<V<<< < </.0Ba-_4YB'?<V<<< < </.LBa-_PYB'?<V<<< < </.\Ba-_`YB'?<(<<< < </.0Ba-_8YB'?<(<<< < </.@Ban-_DYB'?<(<<< < </.LBaD-_TYB'?<(<<< < </.\Ba-_dYB'?<(<<< < </.lBa-_pYB'?<<<< < </.0Ba-_|?|@B-A|CB-EB-FB-GB-H|I|JB-KB-LB-OB-PB-Q|R|S|UB-W|YB-^|pB-qB-r|xB-|B-B-B-|B-B-B-B-HmB'<<BaHm<<<BaHm<<<BaHm<<<BaHm<<<BaHm<<<BaHm<-<Ba|Hm<-<BafHm< <<BaPHm< <<Ba:Hm< <<Ba$Hm<<<BaHm<<<BaHm<<<BaHm<<<BaAC>""B-JB-IB-HB-GB-FB-KB-LB-MHmN<B'BB'BaB.B(B,Bn.rt lB(,R.Rn no.S@1|B B$Bn.rt lB $R.Rn no$|BBBn.rt lBR.Rn noB..HABA-HB(B|B(R. .oBn0.@A2B0 Rn n o - "-$(,+@+A+@+A BBAN |AN0123456789ABCDEFBn0.@AFBpRn noaN^+_ NuNVHmHmN0HmHmN"ANANDJf>ANxNANFAN/-ANNANd`N^NuNVJ-agVNFr%p AbN t/N *** Total of BgN$r -N /N bytes generatedBgN$r 0-2AN r -4N rp N tr -N N dHmN No errors detected.BgN$N dN^Nut*4<rpANtrpAbN4<rpAN4<rpANtrpANANAN 2.30 ?<NHmN) M68000 Pascal Compiler Phase 2, Version BgN$//-/-?<?<NN dHmN# Copyrighted 1982 by Motorola, Inc.BgN$N dAN dQN+_+_QN+_+_HmHm?+D0A$0NCgNNNU1INIT  AFIX gUTILRR INIT SA1Q 68K PASCAL INITIALIZE RUNTIME ENVIRONMENT2H.PINIT p.PMAIN H.PLJSR dp.PADDRER p.PALSTS p.PVCHKI p.PZMAIN p.PVBUSER p.PVZDIV p.POPTION p.PSYMBUG p.PVTRAPD p.PVTRAPE p.PVTRAPV (lFINIT I3@ .|J DO*O,OBH(+I6H0@+B:;C>;FH+G0Bm4 `JAlBBF3 1|@Bh B BC!I!Hp NAfz$iG`+Kp&B+K+iR3DD l2<0<BX@YAb&Jr`BYfAB \%H,AB T%H0AB L%H8AB D%HL3@ H|+o t$3 <+@xa:` H@0-4H@,NA4R1OPTION AFIX gUTILRR OPTION SA3U 68K PASCAL OPTION PROCESSOR SUBROUTINE 2p.PCLSCOD H.POPTION (ZH3 BBIA  am zn ,g4k6 -f`g0F3 g` =fRa`  f@`NuB:< &J $g F3 am zn 4g`6 am zn 4k6gF3 (քցSEf am zn 4j  f" am zF3 n +Nu:< am zn  am zn 4kf 3 g_郆SEf`z4Q1CLSCOD AFIX gIOSRR CLSCOD SA 68K PASCAL CHARACTER CLASS CODE TABLE2H.PCLSCOD (F3 @@ P@  @F3 4P1ALSTS AFIX gUTILRR ALSTS SA)0 68K PASCAL ALLOCATE STACK SUBROUTINE$2H.PALSTS H.PALSTSL (,23 HRğ b OH pNNO .HNu4L1CLO AFIX gIORR CLO SA# 68K PASCAL CLOSE FILE SUBROUTINE+2H.PCLO p.PCLOSPL p.PPRGBUF (&3 .L2*(-0aA aA +D0Nu4\1IFD AFIX gIORR IFD SA$ 68K PASCAL INITIALIZE FILE DESCRIPTOR SUBROUTINEL2H.PIFD p.PACCPER p.PCLOSPL p.PEDTFIL p.PSTDFLT p.PALSTS (H3 "_. H&g&<(QRD$OĵldElel؊aA F3 !OEP/JE8/JA??B$O eTgv`gvC)CL3 BjBBjBL@O(-0fgA@aB ZJf<gJ-(gaB Fat`I3@ agJ-$gaB .a\`aga`8m"b"?S@@@,J5LI3 g gaB a$` ga`agNq5A+D0NH؞M$gI3 pS@@@,A|B(@AJaB $Lyg/p(NNI3 g g%m6*HBB|gBN NupaB T|&8%m:*NuH瀀F3 A$0NCgNN *&o|&BjFB*K*E f|'`  3 f|'`|'BjDLNu4L1RST AFIX gIORR RST SA 68K PASCAL RESET FILE SUBROUTINEm2H.PRST p.PACCPER p.PASGNF p.PCFLDAD p.PCALCLU p.PCLOSPL p.PSTDFLT p.PFLSCN p.PPRGBUF (L3 .L2*aA aA B f fpj& g faA  g4/ N3 &JaA 5 c 5aA aA H?aA 2&_g*8 >3 gA0NBgNN` apj&aB bAB5ANup`B P4N1RWT AFIX gIORR RWT SA 68K PASCAL REWRITE FILE SUBROUTINEL2H.PRWT p.PACCPER p.PASGNF p.PCLOSE p.PCALCLU p.PBUFSZ (J3 .L 2*aA  fFaA pj&aV*8 &g, g&A$0NCgL3 f0NCf0NCgNNaA BA aA CO%I5ANup`A 4^1AFI AFIX gIORR AFI SA 68K PASCAL ASSIGN FILE TO RESOURCE NAME SUBROUTINEA2H.PAFI p.PDFLT p.PCLOSPL p.PEDTFIL p.POPTION (J3 .0/2RA/7 A H,o,nM$aA Lx$W$jaA &F3 gp(NNfg0.f "3 %m@0%mD4` g%m6*Nu4Y1MPJ AFIX gUTILRR MPJ SA3 68K PASCAL 32 BIT INTEGER MULTIPLY SUBROUTINE2H.PMPJ (vF3 H./$T$ G0@AX@ @fB@C "*jDJjD$&H@HA<3 (HBHDԁ"HABA҃BBHBтVJjDFʁ[ DLNu4`1DVJMODJ AFIX gUTILRR DVJMODJ SA1 68K PASCAL 32 BIT INTEGER DIVIDE AND MOD SUBROUTINES$2H.PDVJ H.PMODJ (F3 H./ T a( DLNuH./ T ajD DLNu G0@AF3 X@ @fB@C "fpNN&jDJjDtBdR`dЁ3 SdF"jDF‚[Nu4I1WLN AFIX gIOSRR WLN SA$X 68K PASCAL WRITELN SUBROUTINE 2H.PWLN p.PWRTBUF (3 .LRaA Nu4Q1WRC AFIX gIOSRR WRC SA%# 68K PASCAL WRITE CHARACTER SUBROUTINE+2H.PWRC p.PIWPTR p.PLBLKS ("3@ .L8SDaA aA Nu4P1WRI AFIX gIOSRR WRI SA%5 68K PASCAL WRITE INTEGER SUBROUTINESI2H.PWRH H.PWRI H.PWRJ p.PIWPTR p.PLBLKS (J3 HH.L8v / BJjt-DSDGLdSCnCSDaA JgaA JCg(+J3@@ r0eR`aA (SCn0aA &_Nu;B@3 'd 4 Z1WRSWRV AFIX gIOSRR WRSWRV SA%Q 68K PASCAL WRITE STRING AND VECTOR SUBROUTINES:2H.PWRS H.PWRV p.PIWPTR p.PLBLKS (JJ3 0/8/`8/0/./ G 2RAA sL@aA J@g aA S@n 3 &_$_ON4O1WRB AFIX gIOSRR WRB SA% 68K PASCAL WRITE BOOLEAN SUBROUTINE+2H.PWRB p.PIWPTR p.PLBLKS (:D3@ ./ LtG"JgSB8BaA aA SBn&_ NuFALSETRUE 4T1WRR AFIX gIOSRR WRR SA($ 68K PASCAL REAL NUMBER WRITE SUBROUTINES_2H.PWRR H.PWRW H.PWRX (p.PFPOINT p.PALSTS p.PIWPTR p.PLBLKS (F3 .JAlra`aNu.JAlra|`aNu.JAlrah`arNu8DN3  aA p fp-aA MpaA S@fNuINFINITY8DaA pM:O3  aB |S@f , rt0 9oaB XSAf)aB LNuNAN(16#I3 H XLBFBpBFgvg RFP0S@fLPNuJEo 0aB SEL3 `JFo aB SF`0aB S@Nu86,HCBCB@z CBCSEfR@JjD@L3 Nua|a @o@AUD`AWDaB v gv-aB ,HFRElBE?BEL3 @n :DESE_`Ta^n.aB b0aNnNuHLx"aB JMI AI3 lr4 Bo4<DBaB *T fa` g fa@`L3 a@ "L@`NuEaB p+Jjp-aB 0, AfX` AfXtXL3@ 0aB SAfNufv `v-aB aZ,HFRElBEY@A @lL3 pan.aB tabfazNuHLx"aB ZMI4YBA Blt` BI3 otaB 8T fa` g faN`a^ "L@`3 Nu4P1WRQ AFIX gFPQRR IEFWRR SA7W 68K PASCAL WRITE FFP REAL SUBROUTINEL2h.PFFPA h.PQSOP H.PQWRR h.PQRTD7 h.PIWPTR h.PLBLKS (F3 Dl8< Dn4 45@m,R4@ 4:@f0@``SD Dl Dl|1L3 RNu Ef<0`RNuaaA Nua +f  aA `-aA .I3 fRNu @l0< ,0fv`v8_Da\aa.aB Pa4QB2<`aR3! RABoEaB 4SJg~ m +aB ` -aB D 0aB L3 HG0aB Nu8GSDa Go:8AGUDaB a64<`a"RBGoR3 .aB 4<`a RBAo`L8AWDaB a0aB .aB DGGl>43D aA SBnaA  Am Zo L Nup3NNALSERUE 4W1RDSTR AFIX gIOSRR RDSTR SA#U 68K PASCAL READ STRING OR VECTOR SUBROUTINE+2p.PGETCH p.PIRPTR H.PRDSTR (*43 L 8+24aA gaA JAgSA`A Nu4U1SBLKS AFIX gIOSRR SBLKS SA$F 68K PASCAL SKIP LEADING BLANKS SUBROUTINE+2p.PGETCH p.PIRPTR H.PSBLKS (3B aA faA `Nu4a1GETCH AFIX gIOSRR GETCH SA " 68K PASCAL GET CHARACTER FROM INPUT BUFFER SUBROUTINE 2p.PRDBUF H.PGETCH (&3 faA 8+gp"NNBNu4_1IRPTR AFIX gIOSRR IRPTR SA! 68K PASCAL INCREMENT INPUT COMPONENT PTR SUBROUTINE2H.PIRPTR ($3 Rf`Rf7DNu4R1PEE AFIX gIOSRR PEE SA"  68K PASCAL PEEK INTO A FILE SUBROUTINE 2H.PPEE p.PRDBUF (*23 .$P f/ &haA 8+gp"NN &_ JNu4`1GET AFIX gIOSRR GET SA  68K PASCAL ADVANCE FILE COMPONENT POINTER SUBROUTINE 2H.PGET p.PRDBUF (JH3@ ./ L 8+ faA 8+gp"NNRmng 7D3 ` &_Nu4X1GETINT AFIX gIOSRR GETINT SA 4 68K PASCAL COLLECT INTEGER DIGITS SUBROUTINE+2p.PGETCH H.PGETINT p.PIRPTR (J3 z"Bv 0m 9op1NN`@JEoJf 0g 0PSE`RCaA aA J3 am zn 0m 9o #fJEoSE`RCBaA aA aF3 m zn 9o Am0 oJ@m @op1NN`TJEoJfL3P gPSE`RCaB .aB * am zn 9o Am0 o3 Jm oE"DENu4]1MAKINT AFIX gIOSRR MAKINT SA!9 68K PASCAL MAKE AN INTEGER FROM DIGITS SUBROUTINE2H.PMAKINT (^F3 B@BAt JEoNv #f(J@gpbNN` Ac AcpbNN`4B@BA`Cn$3 pcNN҃HA6HAЃSE`H@0Nu4  W1RDBUF AFIX gIORR RDBUF SA 68K PASCAL READ BUFFER FROM FILE SUBROUTINEL2p.PASGNF p.PCFLDAD p.PCLOSE H.PRDBUF p.PBUFSZ p.PFLSCN (H3 H2+$KaA HgS`R@ЫS'@fpCNNA0NBJ3@ gz gt gNNA7A gXaA 55cJaA 7AR55L3D H5 J /g RB5 J /fRBaB ^2*aB V5AL `J`8D3 $k +gJf ` Jg0+HSЊ'@7AL Nu4M1ASGNF AFIX gIORR ASGNF SA8 68K PASCAL ASSIGN FILE SUBROUTINE2H.PASGNF ($*3 A$0@NCgNN$-0*)+B0Nu4X1BUFSZ AFIX gIORR BUFSZ SAT 68K PASCAL FIGURE OUT BUFFER SIZE SUBROUTINE2H.PBUFSZ (3 0<f0*Nu4M1CLOSE AFIX gIORR CLOSE SA8 68K PASCAL FILE CLOSE SUBROUTINES$2H.PCLOSE H.PCLOSPL (283 gH瀀A$0NCgNNLNuaA?* 6Nu4Y1CFLDAD AFIX gIORR CFLDAD SA 68K PASCAL CALCLUATE FIELD ADDRESS SUBROUTINE2H.PCFLDAD ((.3 g0<$`g0<(`+OSH@@,Nu4P1FLSCN AFIX gIORR FLSCN SA  68K PASCAL FILE LIST SCAN SUBROUTINE+2p.PDFLT p.PEDTFIL H.PFLSCN (*43 A JHM$aA LpaA g/p(NNNu4a1LDC AFIX gUTILRR LDC SA24 68K PASCAL LOAD CONSTANT STRING AND VECTOR SUBROUTINE/2H.PLDCS H.PLDCV p.PALSTS (*23 p`B@ _.8@gAaA "OUDg"YDnm2N4b1LODV AFIX gUTILRR LODV SA3 68K PASCAL VECTOR LOADS DIRECT AND INDIRECT SUBROUTINEM2H.PINDV H.PLODV H.PINDVL H.PLODVL p.PALSTSL (8@3 "_. 0H`"_. (aA $O"gSn`Ug$Ynm4N4W1STCV AFIX gUTILRR STCV SA5P 68K PASCAL STORE CONSTANT VECTOR SUBROUTINE/2H.PSTCV H.PSTCVL p.PSTOREV ("3 $_. 0H`$_. "JaA N84W1STOV AFIX gUTILRR STOV SA62 68K PASCAL STORE VECTOR INDIRECT SUBRUOTINE/2H.PSTOV p.PSTOREV H.PSTOVL ((03 $_. 0H`$_. "RA w"OaA O8N4U1STRV AFIX gUTILRR STRV SA7 68K PASCAL STORE VECTOR DIRECT SUBROUTINE/2H.PSTRV p.PSTOREV H.PSTRVL ($3 $_. 0H`$_. "OaA O8N4V1STOREV AFIX gUTILRR STOREV SA6 68K PASCAL STORE VECTOR SUPPORT SUBROUTINE2H.PSTOREV (6<3 &RC(gSn`UUg SnJg0JgNu4R1EQUV  AFIX gUTILRR EQUV SA13 68K PASCAL COMPARE VECTORS SUBROUTINES2H.PGEQV PH.PEQUV H.PGRTV @H.PLEQV 0H.PLESV H.PNEQV H.PGEQVL XH.PEQUVL H.PGRTVL HH.PLEQVL 8H.PLESVL (H.PNEQVL (F3 a^WDNa`WDNaNVDNaPVDNa>UDNa@UDNa.SDNa0SDNF3 aRDNa RDNaTDNaTDN$o0H`$o . &RCCA23 8փUUgfSnJgIfJg _O8N4a1LODS AFIX gUTILRR LODS SA2G 68K PASCAL DIRECT AND INDIRECT STRING LOAD SUBROUTINE/2H.PINDS H.PLODS p.PALSTS (&3 $_. 8TDaA "OUDg"YDnm2N4  U1STRS  AFIX gUTILRR STRS SA6E 68K PASCAL STRING DIRECT STORE SUBROUTINE2H.PSTRS (4:3 "_. 2RAAU@Am0`>R@@$OJ@o Y@nf0ON4W1STOS  AFIX gUTILRR STOS SA6 68K PASCAL STRING STORE INDIRECT SUBROUTINE2H.PSTOS (8>3 "_. 2RAAU@ wAm0`>R@@$OJ@o Y@nf0ON4R1EQUS AFIX gUTILRR EQUS SA1 68K PASCAL COMPARE STRINGS SUBROUTINES`2H.PGEQS (H.PEQUS H.PGRTS H.PLEQS H.PLESS H.PNEQS (F3 a.WDNa&VDNa]DNa_DNa^DNa\DN./E46RCCF3 C026RCCHq00Bo0J@g fS@np Agma `aL.HNѰ3 fSBnNufRBmNu4W1NEW AFIX gUTILRR NEW SA3@ 68K PASCAL NEW (HEAP ALLOCATION) SUBROUTINE/2H.PNEW H.PNEWL p.PCHKOVF (J3@ ."GaA (` ."GaA B8R.vl(X"mQ$I&)g""CnF3  lX%Q`*""`""mEH bpNNEQ$"$+J 3 Nu4]1DIS AFIX gUTILRR DIS SA0E 68K PASCAL DISPOSE (HEAP DEALLOCATION) SUBROUTINE/2H.PDIS H.PDISL p.PCHKOVF (pH3 TT.aA $PB mQbVB("b "H h`%H#J"gҐb 63 ؊ $H#J" ҄bJf $P+J`" ґ$ @!JNu4U1MRK AFIX gUTILRR MRK SA3( 68K PASCAL MARK (HEAP MARKING) SUBROUTINE 2H.PMRK p.PCHKOVF (3 .aA YNu4]1RLS AFIX gUTILRR RLS SA4 68K PASCAL RELEASE (HEAP DEALLOCATION) SUBROUTINE 2H.PRLS p.PCHKOVF (6>3 .aA Y"mQc""ib g Бb I"ip +HNu4_1CHKOVF AFIX gUTILRR CHKOVF SA)F 68K PASCAL CHECK FOR STACK HEAP OVERFLOW SUBROUTINE2H.PCHKOVF (3 OO bpNNNu4c1CVBSV AFIX gUTILRR CVBSV SA)X 68K PASCAL CONVERT STRING S->V STR UNDER VEC SUBROUTINE 2H.PCVBSV p.PCVTSV (.63 .R@@24APUAo!`YAnf1`0@`A Nu4Z1CVTSV AFIX gUTILRR CVTSV SA0& 68K PASCAL CONVERT STRING TO VECTOR SUBROUTINE/2p.PALSTSL H.PCVTSV H.PCVTSVL (bF3 H _.2H6< R@gR(g:nECU@g#"Y@nm3".I*3 `"OaA $OUg m $Ynm44UnN4`1CVTSU AFIX gUTILRR CVTSU SA0 68K PASCAL CONVERT STRING TO UNNORMALIZED SUBROUTINE 2p.PALSTS H.PCVTSU (NH3 _.U@2RAAR@@8Ag2nCE>g%!Y@nm5!.JN"OaA $OJA3 g$YAnm4N4`1CVTUS AFIX gUTILRR CVTUS SA0@ 68K PASCAL CONVERT UNNORMALIZED TO STRING SUBROUTINE2H.PCVTUS (063 _.R@@C2RAAEgJAg#"YAnm3".IN4! O1SLEN AFIX gUTILRR SLEN SA5$ 68K PASCAL STRING LENGTH SUBROUTINE2H.PSLEN (3 _.02RAAN4"&*.26:>BFJNRVZ^bfjnrvz~V1SCON AFIX gUTILRR SCON SA4& 68K PASCAL STRING CONCATINATION SUBROUTINE 2H.PSCON p.PALSTS (JH3 _.4$O6RCCC028aA Hq@0g!S@n"_B0R@@J@g"3 S@n3.IN4P1SCOP  AFIX gUTILRR SCOP SA4@ 68K PASCAL SUBSTRING COPY SUBROUTINE 2H.PSCOP p.PVALSI (rH3 _.46RCCC0aA fBA`PS@8@Do2JAg@E0Df8DDg*83 gSS@n`R@@g"S@n`"J.I?N4T1SPOS AFIX gUTILRR SPOS SA56 68K PASCAL SUBSTRING POSITION SUBROUTINE2H.PSPOS (bF3 ."O20R@@E40R@@HrB@JAg6Am2RB0SA I?fJAg ( (3 f SAnBR@` 2$D"HSBnB@2.W GN4R1SINS AFIX gUTILRR SINS SA5 68K PASCAL STRING INSERTION SUBROUTINE+2H.PSINS p.PALSTS p.PVALSI (lJ3 _.4$O6RCCC02gE aB  / AC EaX3P B aB AC"EaB ACEaB aB So?oHBoIB B$BI3 (B,|(B0B4B8<<`n/|aB W NuA3 B>?B/Gp`BBBJk>?p`>@pHz`B 4! K1LOG  AFIX gFPSRR LOG SA 68K PASCAL LOGARITHM SUBROUTINEm2H.PLOG p.PADX p.PDVX p.PNORM p.PMPX p.PATANH2 p.PCORDA p.PFPERR p.PFPOINT (RH3 ry. aA oL @?g @gJfF3 Jg @b@@JkS@jH`.B @g2jDAHAO3 0<S@jBBoHAChEaB b ACbEaB P /EaB BU3D /CaB 6 IB 6<<aB &RoAC aB aB  @?c @dI3 R@ @fHX>aB W Nu>?B/Gp`>3 BBpHz`B 4L1ATN  AFIX gFPSRR ATN SA 68K PASCAL ARCTANGENT SUBROUTINEm2H.PATN Hp.PATAN2 p.PADX p.PDVX p.PNORM p.PMPX p.PCORDA p.PFPERR p.PFPOINT (F3 ڢ!h4H3 .aA oLH@@. @?f8 f fL3 ?z/z|/zz`B/GpaB b``fEaB T @oT/@ jBRJ@U3 k AHCaB 6  @o IB *BFaB $`ahJokAC aB aB J/ I3 j `a@  @?c @dLR@ @fHX?@aB oL3 NuHACEaB ACEaB /ACE13( aB |aB xACEaB hLNu4P1CORDA  AFIX gFPSRR CORDA SAT 68K PASCAL CORDIC INVERSE SUBROUTINE+2p.PADX p.PNORM H.PCORDA (F3 HJ?FH/R/j/j BBBB BB| F@gF3 /|`ACEaB 0ACZEaB $ A@CE aB aB `TACE aU3@ B A C4E aB AC E aB aB AC E aB `aL`A L3 CE aB  @?c @dLR@ @fHX?aB WI3 Nu,.H$aB joLH@@/@ @?g @I3 l H($NuACDEaB &L @o@?D@o: @!ldRBd I3 RAdRo`@ dRAdRoBHACE aB / AU3( C EaB aB ACE aB / AC EaB aB B(BI3 ,B0B4B8B<|8IB fB/T/lJoj /4` ACI3 EaB :<<`rL4FH L(FHJoj ` / A4CO3 E4aB A(C E(aB ./\/\JokACEaB RF?3 F?o <"$,$TNu6>?B/G0<Hz`B 4U1MATHX  AFIX gFPSRR MATHX SA2 68K PASCAL EXTENDED MATH PACK SUBROUTINESk2H.PADX LH.PDVX H.PNORM H.PMPX H.PSQTX Yպ/mۖ~Un]*wnSVU[rF3 ݹUV?wUUUUUꪪUUF3 U?F3 ?F3 ?F3 ?F3 ?F3 @ 3 tC^Zg4W1ATANH2  AFIX gFPSRR ATANH2 SAE 68K PASCAL ATANH OF NEG POWERS OF TWO TABLE2H.PATANH2 (F3 ShTAbQF +9=]XuHq%V"+G&#ZF3 UU DD@UUb" *UUXUUF3 UU @U *F3 @ F3 @ F3 @ F3 @ F3 @ 3 lyQ4d1GTM AFIX gFPSRR GTM SA 68K PASCAL GET FLOATING POINT ARITHMETIC MODE SUBROUTINE 2H.PGTM p.PFPOINT (,43 W.aA @0HrtHvHH"ON4d1GTF AFIX gFPSRR GTF SA T 68K PASCAL GET FLOATING POINT EXCEPTION FLAGS SUBROUTINE 2H.PGTF p.PFPOINT (3 .praA A0ANu4W1GTT AFIX gFPSRR GTT SA7 68K PASCAL GET TRAP ENABLE FLAGS SUBROUTINE 2H.PGTT p.PFPOINT (3 .praA A0ANu4d1STM AFIX gFPSRR STM SA4 68K PASCAL SET FLOATING POINT ARITHMETIC MODE SUBROUTINE 2H.PSTM p.PFPOINT (^F3 _."O Rb* Rb  Rb RbJgpT(3 NN`aA C0[[aA C N4d1STF AFIX gFPSRR STF SA 68K PASCAL SET FLOATING POINT EXCEPTION FLAGS SUBROUTINE 2H.PSTF p.PFPOINT (",3@ .JkaA @0aA @ `pSNNNu4b1STT AFIX gFPSRR STT SA 68K PASCAL SET THE FLOATING POINT TRAP MASK SUBROUTINE 2H.PSTT p.PFPOINT (",3@ .JkaA @0aA @ `pRNNNu4Y1NAN AFIX gFPSRR NAN SAW 68K PASCAL GENERATE A NOT-A-NUMBER SUBROUTINE 2H.PNAN p.PFPOINT ($,3 _.JfppNN/B?2p.PFPOINT H.PFINIT H.PFLOATP (|FINIT J3 Hp mpC6 S@f+Hpp p +H0<aA @ 0<aA @ LF3@ NuB+/ *m4H|+_aA m0taA @0X X0@NN3@aA Nu4f1FPOINT AFIX gFPSRR FPOINT SA  68K PASCAL FLOATING POINT F-LINE TRAP SIMULATOR SUBROUTINE02H.PFPOINT p.PZMAIN p.P68341P (/:F3 Bg/Qfdhj@?@ OOdbpNNHK3 \<N&mBX+KB8D:/8\F3 D8DD8\?D>_HGC&oG0{pN `L3 Jf\'o B+aB faB *f)HDD4|F3  H`j'o B+)HDD4|I3 aB `:'o B+/ oI3 `HE>;PG>;PGaB "f&H&/HE>;P:;PH$oF3 WfN` Gf4`$`I3 / o`dHE>;PG>;PGaB fH&H&/HE>;PF3 :;PH$ofWDGN` Gf6`&`'o +F3 @`'o B+`'o B+`'o B+/ m`L3" aB faB Lf)HDD4| / o`xL3 \HaB 8/ g aB H`d'o B+)HDD4|L3@  Lv/ o` g HaB aB $H`'o O3 B+aB 4faB f) o`HaB `'o B+,-B/F3 f,&mBE <<><N&mBT+KB8/ ,-BU`HH/HMEO3 &oaB dg܄+FB`n'o B+|aB fV$$HaB 6f*@F3 &JE f <`<>߃8 < : HBކ,CޅCބC8HFHB: ؅C: F3 ؅C: HA؅CHFHGDHGHDDHFCHF8*܄C8 ܄CHA8 ܄C86 F3 HA؃vHECHEHFDHFHDDHECHE8ڄ"$&@H@@ Jm I3 S@ @fJfJf S@L8J_gNuaB  NuL8 F3 fff `.ek `F3 `k `Nu+f `Jk `F3 Nu+f `Jk `Nuax`>+fF3 `B@2IP;NuNuNua0WaJfF3 Jg`ag`a0g`a&`,f <<` S@F3 jNuL8,f&<<` SCjNuB@)HAA;oI3 aB 8<Nu HpF3 B@)f&H@@0| p<`H0{NF3 *LnF3 $Dd0\ 8d@HPx F3 A`(A`"A`A `A`A` A`A) fV fF3 T` m ` m$` m(` m,` m0`| m4`t m8`lF3 m<`d m ")HHE02HҀ+A `B m$")HHEr02F3 HҀ+A$` m(")HHEP02HҀ+A(` m,")HHE.F3 02HҀ+A,` m0")HHE 02HҀ+A0` m4")HHF3 E02HҀ+A4` m8")HHE02HҀ+A8`v m<")F3 HHE02H fRҀ+A<`H)HHE~02H m +H F3 `()HHE^02H m$+H$`)H# HE>02H m(+H(F3 `)HHE02H m,+H,`)HHE02H m0+H0F3 `)HHE02H m4+H4`)HHE02H m8+H8F3 `h)HHE02H m< fR+H<`<&mBE <<><F3 N&mBT+KB0) H m `&mBE <<><N&mBT+KB0) H mF3 $`&mBE <<><N&mBT+KB0) H m(`&mBE <<F3 ><N&mBT+KB0) H m,`&mBE <<><N&mBT+KB0) F3 H m0``&mBE <<><N&mBT+KB0) H m4`4&mBE F3 <<><N&mBT+KB0) H m8`&mBE <<><N&mBT+KBF3 0) H m<`&mBE <<><N&mBT+KB<) >FHH_JGmF3 GO05pH` GO 5pІ m `&mBE <<><N&mBTF3 +KB<) >FHH_JGmGO05pH` GO 5pІ m$`,F3 &mBE <<><N&mBT+KB<) >FHH_JGmGO05pH`F3 GO 5pІ m(`&mBE <<><N&mBT+KB<) >FHF3 H_JGmGO05pH` GO 5pІ m,`|&mBE <<><F3 N&mBT+KB<) >FHH_JGmGO05pH` GO 5pІ mF3 0`$&mBE <<><N&mBT+KB<) >FHH_JGmGOF3 05pH` GO 5pІ m4`&mBE <<><N&mBT+KB<) F3 >FHH_JGmGO05pH` GO 5pІ m8`t&mBE F3 <<><N&mBT+KB<) >FHH_JGmGO05pH` GOF3 5pІ m<`&mBE <<><N&mBT+KB0) H @`&mBE F3 <<><N&mBX+KB i ` mB&mBE <<><N&mBT+KB0) F3 H` mB&mBE <<><N&mBT+KB<) >FHH_JGmGF3 O05pH` GO 5pІ`T)HHE02H&mBE |> GF3 fRGNA @fRR@&mB+KB<`p<`p<`p<I3 `&ip aB 2<LNu/ @?f (㌈f `F3 `P @f0(f `f ``fF3 `(NuNuLNu(g+D Df L3A `Nu+gaJg 0<aB Z` 0<aB NNu <?B$+NuF3 <BBNu <?BBNuaNu(NuaaЀNuaaԀNuR3 aNu0<aB Nu0<aB Nu0< aB Nu0<aB Nu+fa` JF3 jaNu2d,6@JTzF3 G,HFE;` Gl *E;@{p<;`(N`$Nu (3 B B B B B B B B B B B B B B B B B B B B B B B B B ^s3g ^vv^^fvv^B B nvB B B B vB ^^vv^B RB B (B B RB B B D3 B B B (B DB (B B (B B B B B B RB B (B B RB B 0B B B :B B :B B B B (B (B :B B (3 B B B B B B B 0B B B :B B NB B B NB B NB B B NB NB NB NB B NB B B B B B B N3 B B B NB dB dB B TB B dB ^B B TB ~B B B (B TB B TB TB TB TB TB B B B TB hB B B B 3 B B B B B B B B B bB B XB B B B B B B B B B @`B @`B &@`L3 B J@`B B8P?`BgLD@؀ D(*H8+0 ;@pJfF3 ff 0`.e 0USjpRSfƎg0LI3  Jk S@ @fJfJf S@J_gNuaB NuHF3 G8D L@BAOg2$%X%XBOdH+|aI3 B _LJG`LNu F3  @P$ F3 k(!$C@'ԥ+*.F3 1_15ɿ8.; k:v@?#F3 BxŬbE&zIx2nLh? WOF3 SYQa@VoYˏ' :]?9x `6 cF3 gNfo|@E"jŭ+pxIϦGɀR~F3 ގ Ivuu ;]=]5&`R X3> # B fB B B B fLv~)(HDD;@jaB Z`U3 GlO8;@N@` GlWGO8;@ N@` B ~B B B B XUGknfL3 6?aB 6f]@j `f|~H $ON$@&H`0`2/aB f]@I3 j `f|~H $ON$@&H` `6aB f]@j RO`F3 Xf|~H $ONRO$@&H``8z) Gf Eo0< L3@ aB z``M5P>aB Nu GgI3 +0E:TE{pmJjaB 6{pm+fl+fF3 ` `J<+gJkA|L````JjF3 A`L```` `p`*A0ppfS@`0< aL3 B |+gJ`D`2+fa+f`aB ZI3 `JfR@$H@B@/aB f]@j `f|F3 ~H $ON$@&H` `f@&H@HA0HB2(zEI3 |FDBHaB f]@j `rf|~H $ON$@&H` `I3@ R&H@HA0?HB2HaB Zf]@j ` f|~H $OF3 N $@&H` 0NuJGf? <`& Gf(" <`F3 (BHB2 2F3 pHgE oS``&HEf <`<N)HF3 I&o"0{N,88 "tvH@HH@ @f@F3 0QQQQQ4HB2<g+F3 f&`L @f<(g(R@+gJm S@J`aO3( B `0<` aB aB ~`0"/$/vHH@ @?f&gF3 +f`: @f.(g"+gJm U3P S@J`aB N`aB FaB `dHH~aB `T2H~aB z`F"~aO3( B n`:"o)H $i CaB aB `H@@@H@<`Dj DG@AB GAcJkV` DSGF3 kUĆQ(k(j@xd0D@`(fF3 d0D@`D@@`D@@ԆӅdfUĆR@F3 (f(Jk0<+ f`JkJkxAI3 S@$ J[aB Nu|rtxEJ1Pf REQNu1P&(F3 ԄӃxԆD1P&(ԄӃxԆDRQNuz~ a0<?F3 Jm S@J`Nup f <  f <?B$) L3 Nu  f`B  f`B )()i Jf0<BBNuI3 z~a gDB5Ba^/ H) c p aB ތ:<>*E+I3 +gDGaB b_$%_%_vgJj 0<(JGf><(N@F/</</<JGkSG`F3 DGGJjG?`P//</<?<`:`6````$/</<F3 /<Jk?<`?<` JfJf`?+|H f F3 2<`J@j D@@@|HJ@W0<FJfJg``L3 @ Z$%| %|H@aB ܴJgaB &gF3 BA`|@JjDAL8BgJGj |DGn|` Fo|`I3 <JGj Do8zDF0G>[jDGaB >$%o%o BRH @L3 vH@B@H@Jk aB >`aB LJg7o++J/jL3 H >aB JfJk `(*,aB ?L3D BHp*f aB ܞ`aB Jof f6LRWRD` fO3@ >/SGaB 2HRo`4>/SGaB Jof$J/jaB > f6LI3@ RWSD`6*gp`0*aB OHGHFHEHDI3 p2/jDAf0` pAY5AaB 0/S@Jo[I3 J/[+aB bf]@j `6f|~H $ON$@I3 &H` 0$%_%_7_NuaB f]@j `"f|~H F3 $ON$@&H` 0Nurtvxz|~`8< AmHGF3 HFHEHDHGHFHEHDSjtR2g0<HAdHGHFI3 HEHDHGHFHEHDHAQNuJj paB VNqNuz~v,<@@d R@F3 /pff fe.Jk `<@F3   l ` `$Jk `<@  l ` fF3 ``SJk `<@  l ` Jk6SJk `<@I3   l ` ReN`0"$&ކV Jk S@aB VF3 NqNu @L<<8HRDo:Jf"ff v`|dv`F3 vއUS@SD`dR@SHHl`Hf*d`:fI3 d`,f f`$%F%GRH0@NB `"$&f 0<'3 `Jm S@J`vNB zNu4R1ABSQ AFIX gFPQRR IEFABS SA8' 68K PASCAL FFP ABS AND NEG SUBROUTINES/2H.PQABS H.PQNEG p.PFCPYRT (3 NuJgGNu4R1ADDQ AFIX gFPQRR IEFADD SA81 68K PASCAL FFP ADD/SUBTRACT SUBROUTINEP2p.PFADD H.PQADD 6p.PQDOP H.PQSUB p.PQTIEEE p.PFCPYRT (BJ3 Fa0Bg/Qfdhj@?@ FNwaA aA ` 3 A 4P1ATNQ AFIX gFPQRR IEFATAN SA87 68K PASCAL FFP ARCTANGENT SUBROUTINEA2h.PQSOP h.PQTIEEE h.PFATAN p.PFCPYRT H.PQATAN ( 3T aA aA `A 4R1CMPQ AFIX gFPQRR IEFCMP SA8B 68K PASCAL FFP COMPARE/TEST SUBROUTINE/2H.PQCMP H.PQTST $p.PFCPYRT (283 f~ f|JjJjNuNu f~JNu4L1DIVQ AFIX gFPQRR IEFDIV SA8I 68K PASCAL FFP DIVIDE SUBROUTINEL2h.PFDIV H.PQDIV h.PQDOP h.PQRTD7 h.PQTIEEE p.PFCPYRT (.<3@ aA JfJgB`A <NNJfpNNaA `A 4Q1EXPQ AFIX gFPQRR IEFEXP SA8W 68K PASCAL FFP EXPONENTIAL SUBROUTINEA2p.PFEXP p.PQSOP H.PQEXP p.PQTIEEE p.PFCPYRT ( 3T aA aA `A 4$ [1FLTQ AFIX gFPQRR IEFIFP SA9 68K PASCAL FFP FLOAT INTEGER TO REAL SUBROUTINE62h.PFIFP H.PQIFP h.PQTIEEE p.PFCPYRT ( 3 HaA `A 4O1LOGQ AFIX gFPQRR IEFLOG SA9 68K PASCAL FFP LOGORITHM SUBROUTINEA2p.PFLOG H.PQLOG p.PQSOP p.PQTIEEE p.PFCPYRT ("3@ aA kfpNNaA `A 4N1MULQ AFIX gFPQRR IEFMUL SA9 68K PASCAL FFP MULTIPLY SUBROUTINEA2h.PQDOP H.PQMUL h.PFMUL2 h.PQTIEEE p.PFCPYRT ( 3T aA aA `A 4T1PWRQ AFIX gFPQRR IEFPWR SA9 68K PASCAL FFP POWER FUNCTION SUBROUTINEW2p.PFLOG p.PFEXP p.PQDOP H.PQPWR p.PFMUL2 p.PQTIEEE p.PFCPYRT ( 03@U aA JkfpNNaA aA aA `A 4R1REMQ AFIX gFPQRR IEFREM SA9# 68K PASCAL FFP REM FUNCTION SUBROUTINEL2h.PFDIV H.PQREM h.PFMUL h.PFSUB h.PQDOP h.PQTIEEE (J3@@ aA JfJf <NNpNNHaA hpNN@mn o~F3 `h<<` g<S l< gJf R  f~`| ?3! ކd RS ,aB l,/FaB bP`B \./D`4K1RNDQ AFIX gFPQRR IEFRND SA97 68K PASCAL FFP ROUND SUBROUTINEL2h.PFADD h.PFFPI H.PQRND h.PQSOP p.PQRTD7 p.PFCPYRT (*83@  aA Jj,<`,<@aA aA hpNN`A 4Y1SINQ AFIX gFPQRR IEFSIN SA9E 68K PASCAL FFP SINE/COSINE/TANGENT SUBROUTINEu2h.PFTAN h.PFSIN H.PQTAN h.PFCOS H.PQSIN H.PQCOS h.PQSOP h.PQTIEEE p.PFCPYRT (6L3R aA aA `aA aA `aA aA hA *Sg~`A pNN4Q1SQTQ AFIX gFPQRR IEFSQRT SA9R 68K PASCAL FFP SQUARE ROOT SUBROUTINEL2h.PQSOP h.PQTIEEE p.PFCPYRT h.PQRTOD7 h.PFSQRT H.PQSQRT ( 3A@ aA jpNNaA `A 4^1TRCQ AFIX gFPQRR IEFFPI SA9X 68K PASCAL FFP TRUNCATE REAL TO INTEGER SUBROUTINE62h.PFFPI h.PQSOP H.PQFPI p.PFCPYRT ("3P aA aA hpNNLxXNu4T1FFPFRONT AFIX gFPQRR IEFFRONTSA@ 68K PASCAL FFP MATH ROUTINES - FRONT-END$2H.PQDOP H.PQSOP (`F3 O//HaNuO//HaGaGNuHG iZi &3 JNud ~f <JNu~NupNN4S1FFPBACK AFIX gFPQRR IEFBACK SA@ 68K PASCAL FFP MATH ROUTINES - BACK-END32H.PQRTD7 (H.PQTIEEE H.PQRTOD7 $(:@3 iއg HGJLxXNupNN./LxX f~Nu4V1FFPSIN AFIX gFPQRR FFPSIN SAB 68K PASCAL FFP MATH ROUTINES - SIN/COS/TAN2H.PFTAN h.PFDIV H.PFSIN H.PFCOS h.PFMUL h.PFSUB H.PFSINCS h.PFTHETA h.PFTNORM p.PFCPYRT (nF3 ?<`$?<`?<` bTJNuBgJk 8cH~$ cJ c .aA XDxB΄,<CaA ,.aA F3 $(< .BJkFD c~䯾o$`D c~DDI3@ l`z,g:TL~NuRB&(Jk ڄ܃QNuޘQNu4U1FFPATAN AFIX gFPQRR FFPATAN SA@0 68K PASCAL FFP MATH ROUTINES - ARCTANGENTL2h.PFDIV h.PFSUB h.PFTHETA h.PFTNORM H.PFATAN p.PFCPYRT (H3@ H~,<AB'ebcFGaA CD c|`4|*< AL3 A rt`ܐ(&䣞j.XRQaA .Jg .<AaA Jg3 L~Nu4[1FFPHTHET AFIX gFPQRR FFPHTHETSAA" 68K PASCAL FFP MATH ROUTINES - HYPERBOLIC TABLE2H.PFHTHET (`F3 z,W}bGX@U @ &3 @ 4]1FFPTHETA AFIX gFPQRR FFPTHETASAB& 68K PASCAL FFP MATH ROUTINES - TRIGNOMETRIC TABLE2H.PFTHETA (lF3 !T3~SUU??23 ?4V1FFPSQRT AFIX gFPQRR FFPSQRT SAB 68K PASCAL FFP MATH ROUTINES - SQUARE ROOT 2p.PFCPYRT H.PFSQRT (F3 a<NugPk dR HC6<(*,A4.< ` F3 (؄*[ZcR FHCNu@D3 @ 4X1FFPFPI AFIX gFPQRR FFPFPI SAA 68K PASCAL FFP MATH ROUTINES - FLOAT/INTEGER 2H.PFFPI p.PFCPYRT (RF3 k$gBAkjDNu~<Nu~NuBkjDDNuf3 DJk~<Nu4X1FFPIFP AFIX gFPQRR FFPIFP SAA( 68K PASCAL FFP MATH ROUTINES - INTEGER/FLOAT 2H.PFIFP p.PFCPYRT (8>3 z_Jg0jzDi&S bHGއ[Jj dRNu4Q1FFPDIV AFIX gFPQRR FFPDIV SA@F 68K PASCAL FFP MATH ROUTINES - DIVIDE 2H.PFDIV $p.PFCPYRT (F3 JfJ<NuHFHG`k~Nug(gvEDiBHGHFF3 FkTiHGDL&:ƞHGHF6BŞd&BރSE&HCBGHEk:3 څS>:.gNu4S1FFPMUL AFIX gFPQRR FFPMUL SAAC 68K PASCAL FFP MATH ROUTINES - MULTIPLY 2H.PFMUL p.PFCPYRT (zF3 gFg\EDviRE]B&HC(BHD؃BDHDHGHFHFބj @3 gNuSiex@ބއdRgNu~NujJ<Nu4% b1FFPMUL2 AFIX gFPQRR FFPMUL2 SAAQ 68K PASCAL FFP MATH ROUTINES - HIGH-PRECISION MULTIPLY 2H.PFMUL2 p.PFCPYRT (F3 gfg~EDvhFjnfrakj`LE]HE:BB8HD&HCF3 ؃HF&؃BDHDHGHFHEބNuaj gNuSiex@ބއdRi$3 gNu~Nu`J<Nu4U1FFPDBF AFIX gFPQRR FFPDBF SA@7 68K PASCAL FFP MATH ROUTINES - DUAL/FLOAT 2H.PFDBF h.PF10TBL (H3 z Jgkzއ[ Fn| Fmn8DD/AA p@<&0@ W.:BEF3 HExHCڃHG6ڃdR:HEOޅkއSFdRFv 8fi*3 FgNu~NuJDk~HFJ<Nu4W1FFPADD AFIX gFPQRR FFPADD SA@  68K PASCAL FFP MATH ROUTINES - ADD/SUBTRACT/2H.PFADD H.PFSUB p.PFCPYRT (F3 gR kjklf`>k^g>k^g2k8 d,&B<ރeNuRF3 id~S<Nu.NuJNu oD&B<ރeNukgvF3 gPk< d&B꫞kBS bHGއ[kgNu~Nu*3 oD&.<`DgjD`4V1FFPFPA AFIX gFPQRR FFPFPA SAA 68K PASCAL FFP MATH ROUTINES - FLOAT/ASCII+2H.PFFPA h.PF10TBL h.PFCPYRT (F3 O// JBg/Qfdhj@?@ H>f~A?|+.H3 "jT/"<HFvAA Pmn d \HSC`ARCPng`AF3 SCPmg/|E+00,4jDBT/- B eR/.B //tC$JjJ(fB843 X*x UeBޅ D0Q>HL|Nw4Z1FFP10TBL AFIX gFPQRR FFP10TBLSAB2 68K PASCAL FFP MATH ROUTINES - POWER TEN TABLE 2H.PF10TBL rp.PFCPYRT ( F3 @#< k:9/6ɿ2_2/ ,*(ԥ%C@"kF3 ( $P@ F3 =nѷYŬG7ֿwp_Aܯ ٌ F3 .BҴ$5ϐ|敔ȸw2œJ~ePm&3 %tѸ4c1FFPTNORM AFIX gFPQRR FFPTNORMSAAY 68K PASCAL FFP MATH ROUTINES - TRANSCENDENTAL NORMALIZE2H.PFTNORM (6<3 xBJg.jD< bHF܆[Jj dRNu4[1FFPCPYRT AFIX gFPQRR FFPCPYRTSABA 68K PASCAL FFP MATH ROUTINES - COPYRIGHT NOTICE$2H.PFCPYRT H.PFLOATP (DF3 MC68343 FLOATING POINT FIRMWARE (C) COPYRIGHT 1981 BY MOTOROLA I 3 NC.4W1INIT  AFIX gUTILRR INIT SAX 68K PASCAL RUNTIME INIT FOR VDOS ON VM01/022H.PINIT p.PMAIN H.PLJSR p.PADDRER p.PALSTS p.PVCHKI p.PZMAIN p.PVBUSER p.PVZDIV p.POPTION p.PSYMBUG p.PVTRAPD p.PVTRAPE p.PVTRAPV p.PZ& START (FINIT F3 $@&IpANAf.HB "K*O,OBH(+I6H0@+B:;C>;FH+GF3 0Bm4 `J(H$HG`+Kp&B+K+Ll2<0<BX@YAb[3""" &Jr`BYfAB t%H,AB l%H0AB d%H8AB \%HJf @fpBNNCK& CCaZJfR@  F3 g ;fz;@" ;fXa =fag ,f  g. Zg( Ae"F3 [dCK( -fDDHGj7a  fJgaf() J3( I IclքBABBBBhBh B!|SEG2 pNAfH3@ A!CBB1| B!|SEG2 1| pNAf薄I`Ba,iG3@ HK0<=%U@f.N*O$iG`+Kp&B+K+i l&Jr`BYf[3DDD@ AB %H,AB %H0AB %H8AB %HBBmHB0Bm4 `J(H$HG`+Kp&B+K+Ll2<0 PR f< CN01F3 f< CN00f< f< fJ@g<& cp@NNB B 3 )(Nu4b1ASGNF AFIX gIORR ASGNF SAVG RMS68K ON VM PASCAL ASSIGN FILE SUBROUTINE !2H.PASGNF (3 $-0*)+B0Nu4C1INIT AFIX gMOD INIT SA& INIT VERSAMODULE PASCAL2H.PINI p.PMAIN H.PLJSR p.PADDRER p.PVCHKI p.PVBUSER p.PVZDIV p.PVTRAP1 p.PVTRAP4 p.PVTRAPD p.PVTRAPE p.PVTRAPV pDDTLINK (FINIT H3@DDD &|* OD*O,OB/ A(!A(!A(!A(!A(!A(!I3DD A(!A(! A(!A( gN`"_+Ip"B+IaB nA3 (N(WXN3Nu4A1TABLE AFIX gMOD TABLE SAYH IO DEFINITIONS TABLES2HEOF "pTRP1HNDL pTRP4HNDL pACLO pAWRT pARST pILL pARWT pP1RD pP2RD pPWRT HDEBUG 2pCBREAK pCWAIT HCWAITB HOTH$DV .HSTD$DV *HMEMBEG 6pAINIT HMEMEND :2HSTART &H.PTABLE p.PSTART p.PZMAIN HCBREAKAD HCBREAKB HCWAITAD pCBREAKH HCBREAKHB HCWAITCH H.PVTRAP1 H.PVTRAP4 HDDTLINK (S3 >`A `A `A `A `A `A PRT1PRT20)(0PR[3*U T1`A `A `A `A `A `A (0PRT2`A `A `A `B |`3R `B x`B t)PR `B X`B T`B P`B L`B H`B D ) 3 34&' R1START AFIX gMOD START SA STARTUP ROUTINE FOR THE PASCAL PROGRAM62p.PINI pMEMBEG pMEMEND H.PSTART (3T .y("y(`A 4:1TRAP1 AFIX gMOD TRAP1 SAA TRAP 1 HANDLER 2HTRP1HNDL pDEBUG ($&3 @f |J(fNr`"y(N`4:1TRAP4 AFIX gMOD TRAP4 SAI TRAP 4 HANDLER2HTRP4HNDL (3 Ns4O1IO AFIX gMOD IO SA IO SERVICE ROUTINES FOR VERSAMODULE2pEOF HACLO vHAWRT HARST nHARWT rHP1RD zHP2RD HPWRT pDEBUG HCBREAK $HCWAIT pCWAITB HAINIT ^pPRNCHR pCBREAKAD pCBREAKB pCWAITAD HCBREAKH BpCBREAKHB 2pCWAITCH (fH3 H瀀 y((g 9(gLNuH瀀 y(( Lg`A NuJ(H3 gH瀀p y(NLNu"h$"(#h,NuBNuBNuBNuHxK* \B&h hI3 $"jBga`aL?JNuaaB N(fg S!aF3 `T(f"jBa(`<  fa`0(fa(I"ja` I3 e dbaLR  g(f| 9(NuaaB RmNuF3 +gNu+gNuNa  f(BJgaS`Nur F3 ar aBar Nuda`NuHxKB&h h$"jBga`aI3 lL?JNuataB "  e d bR  g (f 9(NuF3 HxK(`HxK:B&h h$"j(jRg a\aH` ae#3T aB aB aB JL?Nu4N1PASIO AFIX gMOD PASIO SAY  PASCAL I/O SERVICE FOR VERSAMODULE2pEOF H.PAFI  > ? ? @ @ A A B B C C D D E E F F G G H H I I J J K K L L M M N N O O