.TITLE PALSYM ;THE PERMANENT SYMBOL TABLE (PST) ; ; VERSION LEVEL 1 ; PATCH LEVEL A ; ; COPYRIGHT 1971, DIGITAL EQUIPMENT CORP. ; MAYNARD, MASSACHUSETTS ; ;THE PST IS A SEPERATE OBJECT MODULE WHICH ;IS LOADED TO RESIDE IMMEDIATELY BELOW THE ;ASSEMBLER IN CORE MEMORY. ONCE ASSEMBLED, IT ;IS FIXED IN SIZE; HOWEVER, IT MAY BE ;EDITED, ASSEMBLED, AND LINKED TO SUIT THE ;SPECIFIC NEEDS OF CUSTOMERS. ;THE PST IS BOUNDED BY THE INTERNAL GLOBAL ;SYMBOLS SYMTBB AND SYMTBT, .4dµz¯”; ¨9@= à@|@@–.½à@t!@t!À@¬!@µ"€W@>.�,Àv@¯-`@49€%@79@79@@ò.<9@<9@@>9ð@>9€¢@J9@—.uL`;@vL8"@{L}@iYày@/d@@³.¬ppß@|~,a,aü4l4dµzA*,a§² qÜn)²å~FoÕ±€%>oѱ–¦o�±¬*Paˆ,do<±L;Òoé°[Xloé°¼RToé° ÆoZ*tan°€¢Œon°�[‚on°&X–on°ÈKŠon°º*˜aKˆon°ˆ,†on°À+„on°ð”o$°^>o’*¼a°ÛÞoÞ¯p!äoׯ}NoÖ¯xžoÖ¯Â*àa\o¥¯€%>o‹¯Ì.oi¯È}¶o;¯Ì6o,*b;¯1®oñ�} €À Ñd‰`Yz=*(b€ À zà ¢w´žw²–w¸*Lb‹w±;w¿w€ ³s€0©së*pbêr .º«�{¯”(Jº«˜{hº«À{h›º«è{h ¯”I÷ææ,  ‚ Á÷ $‚ `ÁJ,$÷ ‚ €`œ‚ À üÀb\ÀÄþPˆr H‡#ó WHERE THE ;FORMER IS THE HIGHEST ADDRESS OF THE ;PST AND THE LATTER IS THE ADDRESS OF ;THE 1ST WORD BELOW THE PST. ;THE PST IS ORDERED (TO PERMIT BINARY ;SEARCHING) WITH THE SMALLEST SYMBOL (IN ;MOD40 PACKED NOTATION) HIGH IN CORE AND ;THE LARGEST SYMBOL (IN MOD40 PACKED NOTATION) ;LOW IN CORE. ;MOD40 CHARACTER REPRESENTATION ;A THRU Z : 1 THRU 26 RESPECTIVELY ; $ : 27 ; . : 28 ;0 THRU 9 : 30 THRU 39 RESPECTIVELY ;MOD40 PACKED NOTATION ;1ST PACKED TRIA ÈK@*’@(ºµzR}h¸®µzd}h¯” ÷æ,§² q)²å~Õ±€%ѱ–�±õ& *’|~ÈK¯-`"¬ppßÒ,$ˆ,<±L;é°[Xé°¼Ré° É./d@iYàyvL8"uL`;&{L}},Hn°€¢n°�[n°&Xn°ÈKn°,& J9>9€¢>9ð"<9@ù,lKn°ˆ,n°À+n°ð$°^©.<979@79 är@ [q`"èY ¡*”bOX ®S!ŠAP˜@@¬:¹*¸bs:€ 42}\!ˆ`ËÀ y*Üb%@  ¬Ø !º¤¶½*c¢² ®¨£¡;¯0*$c…@ó„@P@ €@µr*Hc@‘�@t@oÀvƒ@o‡G*lc@e@ü 0!û P!ë @!É *�cÀv†@É ‚@¬ @� @Y ø*´c@ ‡@û †@J € D À äÎØc` ã@ ë .Ԫϯ”š©¨p@(,Ôªh D = CHAR1*40*40+CHAR2*40+CHAR3 ;2ND PACKED TRIAD = CHAR4*40*40+CHAR5*40+CHAR6 ; ;EACH ENTRY IS 4 WORDS WITH THE LOWEST WORD ;CONTAINING THE 1ST PACKED TRIAD, THE NEXT ;LOWEST CONTAINING THE 2ND PACKED TRIAD, THE ;NEXT LOWEST CONTAINING THE VALUE (WHICH FOR ;ASSEMBLER DIRECTIVES IS AN EXTERNAL GLOBAL ;TO BE LINKED TO THE APPROPRIATE PROCESSOR IN ;PAL-11R) AND THE HIGHEST WORD CONTAINING ;THE FLAGS IN THE LOW BYTE AND THE CONTROL ;SECTION ID (WHICH IS ALWAYS 0 FOR PST ;EN49€%&¯-`6,�°ÛÞ¯p!ׯ}Ö¯xÖ¯´& �,Àvµ"€W¬!"t!À˜,´¥¯€%‹¯Ìi¯È};¯Ì“.t!¯-`½à|@&= àz,Ø;¯1ñ�} €À Ñd‰`Yzã ; ¨9¹,ü€ À zà ¢w´žw²–w¸›, ‹w±;w¿w€ ³s€0©ss,Dêr är@ [q`"èY ),hOX ®S!ŠAP˜@*ægBað 4dªÆBa›æcÀf* h¶í€ ú6އ &‰þ*.h� Á  h�`wÀÿæþgæègˆƒÃå™*RhÒE€úÉU€*‰æègˆ÷5Àšÿ æ”ÿÎEÿÎ]*vhæ‡w¬*‰Îe‡LPQARDMBINò*šhTU,EEGxð>*¾hHxð\M3*âh€M8Ü€f°*i¤x€Mô&µW4dµ**iô&µW4dô&µWö S*Niô&µW¯”‘÷ææ,&fö f & Ž� ¶� ±6 ¶� _,$ö ¶� ö ¶� ö6Šö –%.,Hw˜v    „Ýaö•6 ö¶�©,lö¶�ö¶�ö6ŠÄÄþº,�¦Œw R‚ƒ¦ Œw B‚eA ƒeB û,´A ¦ Œw ,‚eA ƒeB A ¦Œw À,Ø‚eA ƒeB A ƒB ¦Œw ú‚eA ƒeB è,üA ¦ Œw ä‚eA ƒeB A ¦ Œw ÎTRIES) IN THE HIGH BYTE. ; ;INTERNAL GLOBAL SYMBOLS:  .GLOBL SYMTBB, SYMTBT ; ;EXTERNAL GLOBAL SYMBOLS:  .GLOBL ASCII, ASECT, BYTE, CSECT, END  .GLOBL ENDC, EOT, EVEN, GLOBL, IFDF  .GLOBL IFG, IFGE, IFL, IFLE, IFNDF  .GLOBL IFNZ, IFZ, LIMIT, RAD50 .GLOBL PAGE,LINES,LIST,NLIST,GEES  .GLOBL TITLE, WORD ; ;FLAGS:  ASMDIR=10 ;BIT 3 BEING ON IN THE FLAG   ;BYTE INDICATES THAT THIS PST @¬:A,Œs:€ 42}\!ˆ`ËÀ ,°%@  ¬Ø !º¤¶E,Ô¢² ®¨£¡;¯¹,ø…@ó„@P@ €@µû,@‘�@t@oÀvƒ@o‡Ï,@@e@ü 0!û P!ë @!É ’,dÀv†@É ‚@¬ @� @Y €,ˆ@ ‡@û †@J € D À äV¬` ã@ só Nô&µWµz%p:F*ri** PAGE XXXXX MM-£–iDD-YY HH:MM:SS:XX Í*®i€ Pâ*Òiäc,aœj*kÿ+*öi¤~ÞpFpqâqœvžvLj vohvpvsÄsTzn}Âq(pÐ.jîc:zàròcòrV~”v&vDvvwBjyz d.pîo´pªr~(~ÂVjø~þc’~h~djsTsúcdêc>(jjðpþr,hþp   kt¢k, ‚eA ƒeB A ¦Œw ¸�e@ ‚eA @ ¦ ¿,DŒw ¢�e@ ‚eA @ ¦Œw Œ€e�e@ W,h„à B A @ ‡Ã B A @ Ä Äå€+Ä%ÿ%Š,ŒƒÐÊBЊÐÁŠÑÀ    C B ¢,°A @ ‡ …6 v¶ö…„Æe\æ Ú,ÔÀ ÀÖ w    å Ì ö ¨š©¨pz,ø eŽm ö  eŽmÔ Œ6iÔ M6 MCó   ;ENTRY IS AN ASSEMBLER DIRECTIVE.  BYTFLG=1 ;BIT 0 BEING ON IN THE FLAG   ;BYTE INDICATES THAT THIS PST   ;ENTRY IS BYTE ENABLED. THIS   ;ALLOWS ONE ENTRY TO SATISIFY   ;SEARCHES FOR WORD AND BYTE   ;INSTRUCTIONS. E.G. THE ENTRY   ;'MOV', BECAUSE BIT 0 IS ON,   ;WILL SATISFY SEARCHES FOR   ;'MOV' OR 'MOVB' ; ;INSTRUCTION CLASS: ;BITS 4-7 OF THE FLAG BYTE DESIGNATE THE ;TYPE OF INSTRUCTION TO PROVIDE DISPATCH ;INFORMATION TO PAL-11R. SCLAS0=0  ;àÜk±Þk®*l¶Îå¦Îe á‡b‰wº÷÷•ÿ»ý7 ªû.>lÆšý7 pü7 ‚ü7 ¬ü7 Šü7 ¸ü7 Hü7 �ü7 Jüæ,l0*flæ!ˆæl& æ!ˆ÷‹yý*Áègfˆf ˆ°*Šl–%æ÷ tû…æôg& f ˆ„ –%×-PûÓ*®l÷Fûðæôgfˆ–% hƒÃåDaúó*Òlb‰w ÷æøûæòûˆ×­ü÷­ü‚ýb‰ç*ölL‰b‰wôöæÐûæÊûˆb‰wæö7 \ü7Š„*mÓü7ŠÎü7Šiû7Šoû7ŠÀü7Šmû7ŠWû7Šfû÷•Çüy*>m‰�&ÐPÐ æ‚ûˆñµ@b‰wE*bm†öñµ. ±Œ:¯”(¯xh¯”›÷OPERATE GROUP SCLAS1=20  ;UNARY GROUP SCLAS2=40  ;BINARY GROUP SCLAS3=60  ;RTS SCLAS4=100  ;BRANCH GROUP SCLAS5=120  ;JSR SCLAS6=140  ;TRAP GROUP ; ; ; .EVEN SYMTBT: .WORD 0  ;1ST REGISTER BELOW PST. ; .WORD 131247  ; .WORD .WORD 070440 .WORD WORD .WORD ASMDIR ; .WORD 131051  ; .TITLE .WORD 077345 .WORD TITLE .WORD ASMDIR .WORD 130725  ;.REF .WORD 022600 .WORD GLOBL .WORD ASMDIR ; .WORD 130721  ; .RAD50 .WORD 0·ŠûÄ• · vûQ$BB`@ KËå^*†má• wHüÊ¥ ÷e<Nû2¡ÿÿŠ”2‘ÿÿ2‘‹*ªm·ü ¤þÀ  ·ŠËú‰À�èûÀe÷‹ *Îm"ütwÒ÷‹üð÷‹ü·Š¡úÀ éw2:*òm&‰‰ÁjÂÃähÖ‹b‰wêõÿÕ7*nœû쉰·ŠkúñÕÿ×-Ìû¯·ŠUú8À *:n×­4ü·ŠAú/ËÌúÉÕ÷‹—û ÉÕ ñ¥ä*^nÿñ�…ûÉÕV‰×­þû ɵñ¥§*‚nÿáñÕÿ‰ÞɵÖñ¥ÿôÿ-Dútú*¦nÎwÿ÷‹Vû€ŠÀe ÷Š*û3÷‹<û‰*Ên ÷‹"ûõ·Š.û÷‹ûðæ&æD!ˆÕ DŒDŒ„…Íó17226 .WORD RAD50 .WORD ASMDIR ; .WORD 130601  ;.PAGE .WORD 026210 .WORD PAGE .WORD ASMDIR ; .WORD 130474  ;.NLIST .WORD 035514 .WORD NLIST .WORD ASMDIR ; .WORD 130351  ;.LINES .WORD 054133 .WORD LINES .WORD ASMDIR ; .WORD 130351  ; .LIMIT .WORD 051274 .WORD LIMIT .WORD ASMDIR ; .WORD 130351  ;.LIST .WORD 001414 .WORD LIST .WORD ASMDIR ; .WORD 130156  ; .IFZ .WORD 121200 .WORD IFZ .WORDb‰w õ÷µû÷‹?*înû×-òù‚oá×-êùžoÝ àù÷‹æú×b‰>*owÐô·ŠyùÀ˜ú þÿ‡÷Lú‰wæýb‰w°ôø*6ob‰w¬ôb‰w¨ôb‰w¤ô÷Š˜úêb‰wÎ*Zošôb‰w‚ô÷e<€ùÞ‰÷‹�ú·Š!ù×÷jùh*~opùÓQ$Q$Q$Q$Q$b‰wbôQ$b‰w\ôb‰�*¢owXôb‰w8ôb‰w4ôb‰w4ôb‰w$ôÖ*Æo÷ *ù®7 "ù«÷ ù¨÷ù¥÷ù¢@‰7Š«ø^*êow:ÿ÷(ù€ùÿ5 ù¿ ù· pù·Š�ø7‹ùù&‰‡*pÀ•ÁùÄH‰*‰‰÷•ßù‡ÍŸ¬ù‡×¯¦ùn*2p`ÿ¥ œùÿ•?”ù‡Âæi�à .c©=¯”(c©@8h“«@8hᔑ÷ææ,& Ž & &f¦æ&f& & & æAæ& Ç,$& …$¶m"$! ASMDIR ; .WORD 130156  ; .IFNZ .WORD 055620 .WORD IFNZ .WORD ASMDIR ; .WORD 130156  ; .IFNDF .WORD 054046 .WORD IFNDF .WORD ASMDIR ; .WORD 130156  ; .IFLE .WORD 045710 .WORD IFLE .WORD ASMDIR ; .WORD 130156  ; .IFL .WORD 045400 .WORD IFL .WORD ASMDIR ; .WORD 130156  ; .IFGE .WORD 026210 .WORD IFGE .WORD ASMDIR ; .WORD 130156  ; .IFG .W".qQà[¯”£@ zØš@ z›@í.ì¨@8@ö¨@8@E©@8@E©€p@c©@8@’.c©À]@r©@–©¯@™©@ ©`;@L¿.Ý©(‚@ì©@+ª@8@+ªÀ]@6ªè&@Š.7ª€%@7ª@8@7ª€p@:ª@Ôª@M.Ôª€p@ñª#¾i ÷ †ø=*VpæÜhˆ€ ÷ ªøæiˆ€ À ñµ@óÿ Á*zpñÅ@óÿfòÿÎEÿÎæ‚w˜ûB‰ÁåÀˆ *žpÑ K‰€¦¢·6ù‡&‰ÀùÀå&Ñ*Âp$&`  Šæ¬hˆæ¬hˆ7 äø`‰ÀmÜø€ à•>*æp 7 Òøû‚‡É fˆfˆ‡óqüÿfˆæJ, qfˆ3 üÿæfˆ‡&‰Åùiw¦øŠ  ŠÄÔyÕ*0q7ŠÒøÃj Š7 ª÷7 À÷7 À÷7Š0ø‰÷ ˆø‰÷‹Ä.TqµøÄ$yÌ ÷ tøÌ ·ŠšøÀ ·Š#÷>‰Ä%$y)*|qéÄ%ÔyÂ’Â ·Š÷KŠÄ$yÜ*‰À�hø‡* qÅ-&ø÷ ø‹ŠÄ¾yÏÀ 7 .÷èÄ$    D•ÄE€ÿ¡ v!$$,H÷wê¡+-¡- ¶ 'D•ÄE€ÿ¡ ÷,lÄ0¡0LÀ Á  à ¡9[ö l,�¶ Äå0÷ 8÷ ZaB A @ v!$Ö,´NÀ Á  à 9…#¶í ö Ž,Ø Ží¶ã mw: 23 ‚÷ æ¶ ö ©,üöw"÷ ®öeõ¡. ¡+¡- h, Å Nö v½vŠ    w(),D¡E¡DòNÎ ö" v!$êD•ÄE€ÿ¡j,h+¡-¶ v!$ÜD•ÄE€ÿ¡%ORD 025700 .WORD IFG .WORD ASMDIR ; .WORD 130156  ; .IFDF .WORD 014760 .WORD IFDF .WORD ASMDIR ; .WORD 130044  ; .GLOBL .WORD 057034 .WORD GLOBL .WORD ASMDIR ; .WORD 130035 ;.GEES .WORD 000333 .WORD GEES .WORD ASMDIR ; .WORD 127736  ; .EVEN .WORD 020560 .WORD EVEN .WORD ASMDIR ; .WORD 127727  ; .EOT .WORD 076400 .WORD EOT .WORD ASMDIR ; &@Q@÷ª€p@«@8@*«@8@Ý.-«ù}@O«N@O«Øh@O«i@O«(i@¾.S«2@S«ï4@S«ñ4@U«(‚@”«@.•«à@º«@8@º«˜{@º«è{@½«@j@'.Ì«@`@Ϋ@@Ϋ@y@ò«@ò« €@v.ó«@8@j¬e;@( qQà[hS³­(·(Å÷ææ 7 qQà[}2O«Nñª@Q½«@jS«2S«2B*¨':yÇ7Šh*ÄqEø· øÿ¥ øÿ¥ ø‡·Š+øò&‰Áùib*èqżi É‹� 5À� ø    ¬øi/* r0ŠøiÀ °iÉ‹D‰� ¶÷ô÷T‰Í ƒ*0rwcÈ÷ ÷µÄ÷ñ÷U€¤öÄ�¸÷„ „ „ ÄEáÿ7‘P*Tr´÷*‰À ‡Í èÂ`öÃ^öT‰À ó  Ã݉÷^*xrÃ¥ÿ à à à ÁR÷ÁàÑ w:÷w8÷ß×½d÷*œr@Û×½\÷×ò&‰ÅüiÄúi  B’ƒ`ŠE ô*Àrà à à æà à ƒeòÔÅeW!ÿië`‰&æÂ*är¦f¦v ‡…�‚ƒ„…Ö *‰‡&‰ÀL*s¼õÄáw ²õ †‚დ· ¤õü‡7ážõæ¶( Ä0œ,Œ¡0Ñ¡9ÎÄå0à Ä`à à av!$èö A,° ö` ƒ"wöþÀ ö ÷ 4û€Ä÷ ,Ô4æ¦f&÷ (¡÷ "Å¡÷ ƒmB ¨,øA @ ‚mA @ �m@ €cÅ ïÄ åÆeöå ,¶ Îö ÷ Ôû†öe€=—-ÿ9Šø,@ƒÐÊBЊÐÁŠ€ÝÀ6 ÷ ªC B ½,dA @ #…"‡ö‹B A @ …‡C6v H,ˆ¶"ö$Æe…„ƒ‚�€΋¶¶t,¬V ‡w€þ Ì̇¡÷ J¶ &f¦æ¡÷ =) .WORD 127726  ; .ENDC .WORD 014570 .WORD ENDC .WORD ASMDIR ; .WORD 127726  ; .END .WORD 014400 .WORD END .WORD ASMDIR ; .WORD 127645  ;.DEF .WORD 022600 .WORD GLOBL .WORD ASMDIR ; .WORD 127613  ; .CSECT .WORD 017714 .WORD CSECT .WORD ASMDIR ; .WORD 127551  ; .BYTE .WORD 076710 .WORD BYTE .WORD ASMDIR ; .WORD 127473  ; .ASECT .WORD 017714 .WORD ASECT .WORD ASMDIR ; .WORD 127473  ; .ASCII *"*-«ù} 7ª€%S³­ì Í"Ä,"H(1H1,20X,15HBEGIN EXECUTION,j½«@jò« HÉF/)ç.½«@j  O«(i S³­½«@j›X"0.O«(i S³­½«@j "O«i06f ŒÍ.½«@jS«2  S«2Œ-«ù} t052S«+*,sB!ˆÖ w�õÂ|ö · ‚ö‡7á|ö7áÎõ€ Ú*Psý†*‰À^öȤöà„õà˜öà’ö‡€Àà€ 7 *tsrõ7 †ö÷8öÀ ‡ÀE€„à -úÿ 1-üÿ ›*˜s7þÿJõ7^ö€ 7öê‡ß0ÄåF*¼s!ׂ ×&‰ÅÖi 7Š(öÄîi & ×¢ïÿ*àsÍÕ.‰ Á’W îÿ.‰_ ‰Îæô0‰‰ã*twîÂÝÖôw²‰·Šuô2‰·Šiô<  M*(tÂÕ@0‰w2‰·ŠOôD·ŠGôæW ÷ÿ!*LtÎW øÿ µ ·Š%ôÂÅÂÕ ‚Õ]*pt÷‹zõ ÷�tõsõ÷¥óÿ,õ·Šô7Šbõ0‰.‰ î,,Ð8¡÷ 2&f¦æ÷ ÷ ƒeB A @ ‚e¯(ôA @ �e@ €e‡Ã B A @ ‡    ‡°ó- .WORD 012061 .WORD ASCII .WORD ASMDIR ; ; ; .WORD 107761  ;WAIT .WORD 076400 .WORD 000001 .WORD SCLAS0 ; .WORD 100014  ;TST .WORD 0 .WORD 005700 .WORD SCLAS1+BYTFLG ; .WORD 077721  ;TRAP .WORD 062000 .WORD 104400 .WORD SCLAS6 ; .WORD 075131  ;SWAB .WORD 006200 .WORD 000300 .WORD SCLAS1 ; .WORD 075012  ;SUB .WORD 0 .WORD 160000 .WORD S.2 0 S«27ª@87ª€%½«@jÒ!†  (1H0,5X,5HTEST ,I2)Hò«  ì  " ž^.½«@j" O«i S³­½«@jžP°ž¤è.:ªžº«˜{ ¤ U«(‚½«@j¼ ª°�.ª° Ôª€p O«(i S³­½«@jÊ á.S«2 S«2 -«ù}S«2jÜû/*”t ‰·Šïó2‰‰ÐÈ·Šßó‰Ð.‰Á’ ‰Ý*¸tÅÎ&ôW îÿ"¦µ@6µwðµÂ*Ütwìµ€æ�³�Õi�Õ ͵&÷‹5*uyô#ÍÕÍÕÔ 7‘Þô÷‹ØôP÷•²ô-÷Ú*$uªô×­Âôþÿ3÷ œô/ÍÕ0÷�¯ô¬ô7Š©ô4‰�*HuáÍÕ7Ô 7‘œô÷¥ÿÿ”ô€Îï¸óá÷‹†ô%÷‹V*luô$Îo¦óa÷Vô�J‰ÄH‰÷•Dô¼*�u÷•<ôJ‰ƒÄ·|óÁ&ôÂ$ôH‰Ânó· ô¹*´uÄ�8ô´ri÷e(ôÍÕÍÕ 4‰Ã®iÖ ñ*ØuÂ5ÿ·Š©ò·Šô0‰×­ ô·Š•ò*‰÷Šüó**üu‡0.c©�b¯”(¦c©À]h ‹©À]h"'³©À]hÛ©À]h¯”‰÷ææ,ÀE €�‚ƒÎD&„6 À,$Eƒ�‚æ& & f&1CLAS2 ; .WORD 073642  ;SEZ .WORD 0 .WORD 000264 .WORD SCLAS0 ; .WORD 073636  ;SEV .WORD 0 .WORD 000262 .WORD SCLAS0 ; .WORD 073626  ;SEN .WORD 0 .WORD 000270 .WORD SCLAS0 ; .WORD 073613  ;SEC .WORD 0 .WORD 000261 .WORD SCLAS0 ; .WORD 073473  ;SCC .WORD 0 .WORD 000277 .WORD SCLAS0 ; .WORD 073423  ;SBC .WORD 0 .WORD 005600 .WORD SCLAS1+BYTFLG ; .WORD 071663  ;RTS .WORD 0 .WORD 0002. S³­S«2 7ª@8 S«2 S³­èÖ.S«2 S³­S«2 S³­ S«22ò(£.7ª€p7ª€% –©¯ ( S³­ú,ªN(26X,8HPASS NO.,I2,5X,5HX1ª½«@j ò« N ,$ = ,F4.1,5X,5HX2 = ,F4.1,5X,5HX3 = ,% HF4.1)¤ NšN"J2½«@j" O«i S³­½«@jS«2½3Í Í Í Í Í Í .‰7ŠÞó7 ¸ó7 ¶ów¼ý¦�ÎE/* vøÿ�Õ‡æ×¢ýÿ×¢ûÿ×¢üÿÎ Î Ö ‡Ù*DvÂ& ×¢óÿ×¢ôÿЊŽ ‚ŠÂÂÕ€Ö ‡3*hv ÀÝ®òÀpò ÷‹póÀ ·Šò7 Xò’*Œv‡À€‡‰÷ ЇÀ À € &‰Á7Š[ó7Šlòé*°v ÅähÄèhÃØi7Š,ó Š7ŠâòŠ÷‹4ó 7Š *Ôv.ó÷‹(ó4·Š'ó÷‹óu\Ë ‰YÀ�¼òÀeÅ*øv2Àe9ÀeÀe, úÿÀe Àe™*w÷•øñâ6‰àÀ ‹ ÌžÀ ‹ ÷žS*@w§ñ‹ 7Šºò *Á‹6‰ŠŠ�ŠÀ ÐÆÁ5ÿ³*dwÁ5ÿ 4 & ¦)¶m€|,HЕ 6 ûA N Áv�ƒÃåö ‚,lþ•*Ó•0Ë•.w�± ŠÂ�ЊÃÂÐ!,�ŠÄÑŠöå€'Á Ä C B A ö ÷W,´÷ ¢¶ öåîW ÌÌ †—-ýÿ÷ 5,ØLö öe÷ °¶ ì ÷ 0÷ ªÀ ,,üö ÷ö‹ 6Œ J†ö G¶-C6Š8,  öå¶í6 ……m…m÷ œ…¸,D…íö‹ ¶m…íÅå÷ à ÅåL,h÷ ÖÕ•.v!Õ•0ú……íÅ v5200 .WORD SCLAS3 ; .WORD 071651  ;RTI .WORD 0 .WORD 000002 .WORD SCLAS0 ; .WORD 071352  ;ROR .WORD 0 .WORD 006000 .WORD SCLAS1+BYTFLG ; .WORD 071344  ;ROL .WORD 0 .WORD 006100 .WORD SCLAS1+BYTFLG ; .WORD 070533  ;RESET .WORD 021140 .WORD 000005 .WORD SCLAS0 ; .WORD 054750  ;NOP .WORD 0 .WORD 000240 .WORD SCLAS0 ; .WORD 054117  ;NEG .6^:–B`2:S«2– 6ªè&S«2BS«2¿p<¤….7ª@8< º«˜{ ¤S«ï4S«2d~(.7ª€p7ª€% –©¯ ( S³­úŒX (I1,F5.0)x"X½«@j ò«   [ F0–.½«@jF O«i 0½«@jS«28°Œ0O2S«276‰‹ ¬·�&ñ÷¥pò·Š ñ÷‹$òì*ˆw÷­ò]ò÷•þÿVò*‰÷‹iò‡·Šcò÷‹Zò*‰µ*¬w ÷µJò÷•Bò‰‰·ŠÓðÂU�Ô*ÐwÀ�-òÀ¥ÿ·Š³ðÂUÀ�òÀµ@ ÀµêÀµ¤*ôw÷•ñÁ‹6‰&‰€�Á�ôñÀ xxx|x°x5*xÎxÞxöx÷‹àñ*÷‹ÆñÁµ Áµ!Áµ@B*2½«@jFº«˜{¤Ý©(‚ ""º«˜{›FwþÄþ_ÆþÍÄþß Âþê€*ðx· §ïç_ÄþÀþøÍÄþß·Š�ïÂU‡*/#@}*y% ()"'+-!&; ,:=8‰Àìÿ7€ðs¬$yp€ Þ*8yø8‰ Ì‹òÀ× 0× 9 Ã¥.çÌÕ€'*\y÷Å7ï& ÃEðÿE¦ÅEÿÎEÿÉ Ê ¦É É `*€yÉ`Ê Ê Še Ê` ÃE÷ÐïÌÐ&“ÎE�ÿŽUÌÕs*¤yp̵ˆ…�w4ïV/·Šßî,8‰€ × 0’*Èy× 9Ãå8‰€ Ã¥$Ãå Ã¥.ò× `*ìyA¦× Z × a × z�ÃÅ ÿ�ÎïÃEÀÿÿ�G.z¸ï· ´ï*‰7�ç&‰&ÀÁiÂiߤïÄziÝ*8z‡#‘ËÅøËÕ0„ ÄE""""""" """DDDˆˆˆˆˆˆˆ@D€ADDB -@B C4dµz4dè]›4dµzö è›4d¡KèR›4dªÆBaè„6 ?›jL€p^óK›*ˆ›*Oc›*VZ›*^b›$Dÿÿÿ¿»»»ÿÿn&"ÀÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÅaå Í‹æÄ,L ƒw:ÄB8ŽŒ ýƒàÇ` 5 þÿ€�&ˆ ‚— ýÿ†ƒœÃEÀÿ× >w†× × ò f€ò5ÀeòU@ò €× [æ*ˆ² ¦¦æ× Ž & *ˆÖ G× ‚&(ˆ°Ì 8�L'ˆ°4e÷ ÌQ$ ô �BBâBä" ± üÿü× ÷ ¬ŒÉU@Ò °ðU€ Æe  Å"U%÷‹äþGæÎeÞþæfÇ.Ö … U¥… … … … U¥Ñ Bb‘â‹Ã 0Š æ*ˆ€�Ö BÃÅ.&0 æM &0 & I 031064  ;HALT .WORD 076400 .WORD 0 .WORD SCLAS0 ; .WORD 020534  ;EMT .WORD 0 .WORD 104000 .WORD SCLAS6 ; .WORD 014713  ;DEC .WORD 0 .WORD 005300 .WORD SCLAS1+BYTFLG ; .WORD 012445  ;COM .WORD 0 .WORD 005100 .WORD SCLAS1+BYTFLG ; .WORD 012412  ;CNZ .WORD 0 .WORD 000254 .WORD SCLAS0 ; .WORD 012330  ;CMP .WORD 0 .WORD 020000 .WORD SCLAS2+BYTFLG ; .WORD 012272  ;CLZ .WORD 0 .WORD 00024J€„ „  ô‡&‰Ådïwž*\z0U%f ÷-†îŒîÄÕ• Ä ü æpî·8*€ztîfÅeæ"ˆw,ïDÔ À‰ †hÊH*¤z ŠÃD!†•œÒ— žhó‡÷`ï÷�ÚíÅeB*ÈzÄLîCÂ÷‹ï· î*$‰‰ÀtiÅe›*ìzC”ÄE÷‹íî À ÷Šàî$‰· Úí*{÷ŠÖîÃ˜îƒ Ë• Ãe÷ŠîË• ã• ßw–*4{Ãxîã• ƒ Ë• ÷Fhîƒãà Þ÷­ ï�ííb*X{÷ €íÁÜhÃNid‰÷‹hîW£ Õ‹M•Å u™Ú*|{æ Îež Í•'ææÜhˆ÷-PíTíÊæ.* {Jíæ�iæ"ˆÃ�iË¥0Ó• KÐÓ•*Ä üv ™W!,v*(&f¦æd,ô&Á€   ö  ÷ Rÿ÷ Œ÷ ˆ÷ „ô,, „eC B A ƒeB A ‚eA �e@ €eÀ% ¶ R,<‡Àe÷v!6 †Í•-… ‡6 ¯‡… ³,`v!«‡À% Õ•1Àå …-Õ•.…-**„ Àe0� ÷ ”þ÷ ÿ    ‡¿óL"¤2¤Ý©(‚E©€p ì© «@8O«ØhÊ. "`. ½«@j " O«i S³­½«@jå<4¤¨.4º«˜{ ¤ Ý©(‚÷ª€pΫ@y#"JTNw Æe7 N¡2TN £O«NS«ñ4Nº«˜{°d¤É.¤Ý©(‚E©€p ì© «@8þpžN{.ö¨@8M4 .WORD SCLAS0 ; .WORD 012266  ;CLV .WORD 0 .WORD 000242 .WORD SCLAS0 ; .WORD 012262  ;CLR .WORD 0 .WORD 005000 .WORD SCLAS1+BYTFLG ; .WORD 012256  ;CLN .WORD 0 .WORD 000250 .WORD SCLAS0 ; .WORD 012243  ;CLC .WORD 0 .WORD 000241 .WORD SCLAS0 ; .WORD 011473  ;CCC .WORD 0 .WORD 000257 .WORD SCLAS0 ; .WORD 010003  ;BVS .WORD 0 .WORDNú· ,í7 &íÆ*Ä{æD!ˆƒ‚C   ÀÁÀKw ¨�i Á.*è{w œ iÁ<w ’£iÄw ž¦iæC!ˆƒ Ãåé* |è‚ û ·œ }}í·œ }xíÃeè‚ Âe& Â5�*0|Ž ·c| í´|ÄeÄ%øÄåm´|H*T|„ Äå ÷• 1íÄe:7‘*í÷•1!íÄe07‘·*x|íà ÷Ê|í·å0Z Cà‚ à„ úC`B `*œ|&æ6}æ"ˆDÔ�‹Ô�ˆ…¨*À|010203040506070809101112.*ä|131415161718192021222324252627282930@*}31707172737475767778798081828384PžN E©@8 ™©ö¨@8²|ŽžN˜C.ò« €Žž N º«@8ó«@8˜3Š ˜(:’2 ˜–©¯ ( S³­:½«@j¯ š9Ì«@`  40—.½«@j4 O«i 0½«@jS«2J°Œ0N2S«2Œ -«ù}S«20S«2 Âä27ª@87ªQ 102400 .WORD SCLAS4 ; .WORD 007763  ;BVC .WORD 0 .WORD 102000 .WORD SCLAS4 ; .WORD 007520  ;BR .WORD 0 .WORD 000400 .WORD SCLAS4 ; .WORD 007414  ;BPL .WORD 0 .WORD 100000 .WORD SCLAS4 ; .WORD 007265  ;BNE .WORD 0 .WORD 001000 .WORD SCLAS4 ; .WORD 007221  ;BMI .WORD 0 .WORD 100400 .WORD SCLAS4 ; .WORD 007164  ;BLT .WORD 0 .WORD 002400 .WORD SCLAS4 ; .WORD 007157  ;BLOS .WORD 07R8586Ì*,}87888990æ|iæÜhˆ7ŠŠì7 œì÷‹H*P}Lë÷­íí÷†ì^ì÷eJì7Š2ë`‰&‰Ätif*t} ‰æ�nì÷‹…ì —".‹÷‹@ì΋Š*˜}4΋/÷%*<îW Ôk†÷‹"ì%&:‰w.ô*¼}÷%èíæ¢kæúhˆævjæúhˆæúhˆ,‰E*à}÷%üíN‰@‰÷‹ì÷‹ÜëÐ,‰Ö `‰� ÿ*~Š ŽŠ“&•‹eÀ&‰ÁÞkÑ3ÑÑѪë`‰u*(~&‰Å�´íaw‘®íáÅeäkÄå UÄå•|*L~ÄåÕ`‰÷µ@IíÎBíwò‡&‰÷bë0,p~ÄJ‰ÁRëÂPëÃbêÀÕ€ÄH‰·ŠDë`‰æÞkS; SUBROUTINE SUBX1 (INDEX2,VAR) .TITLE SUBX1 ; FORTRAN V001A .CSECT .GLOBL SUBX1 SUBX1: JSR %4,$POLSH .GLOBL $POLSH,$NAM,$SEQ $NAM,0,0,075012,115330 ; COMMON INDEX1,X(5) ; DIMENSION VAR(1) $SEQ,000003 .GLOBL $ADJ $ADJ,$A0003,000004,177777,177777,177777 ; DATA IPASS /0/ .CSECT .$$$$. INDEX1=.+000000 X=.+000004 .=.+000030 .CSECT  .GLOBL T€% ½«@jS«2S«2øÒî2î-«ù} S«2 S³­S«27ª@8¡ äö(26X,I1)ò.7ª€%½«@j ò« ö½«@jü0 r.O«i0½«@j S«2S«2P Œ0.Œ-«ù} S«20S«27ª@8¤!"|27ª€%½«@j " O«i S³­½«@jkU3300 .WORD 101400 .WORD SCLAS4 ; .WORD 007157  ;BLO .WORD 0 .WORD 103400 .WORD SCLAS4 ; .WORD 007145  ;BLE .WORD 0 .WORD 003400 .WORD SCLAS4 ; .WORD 006774  ;BIT .WORD 0 .WORD 030000 .WORD SCLAS2+BYTFLG ; .WORD 006773  ;BIS .WORD 0 .WORD 050000 .WORD SCLAS2+BYTFLG ; .WORD 006753  ;BIC .WORD 0 .WORD 040000 .WORD SCLAS2+BYTFLG ; .WORD 0r*–~æúhˆæúhˆ‡ÅrêðiªkÁ¨kæÜkÀ \*º~÷ëF‰À¢kÐ5ÐÐÐÐÐ%*Þ~PŠ ýK�KcËe�b€‡À�®ìÀåa|*7�ÍêÀÈꇋb É’·�ì· Œì÷­VëäéÎe÷&‡Ë4lYW$TR $TR,$F0001 IPASS =. . =IPASS .WORD 000000 0 . =IPASS+000004 .CSECT $F0001: ; IPASS = IPASS + 1 $SEQ,000005 $P0006 $P0007 .GLOBL $ADI $ADI .GLOBL $POP2 $POP2,IPASS ; VAR(1) = 10. $SEQ,000006 $P0010 $P0007 .GLOBL $SBS1 $SBS1,$A0003 .GLOBL $PUT3 $PUT3 ; IF (VAR(1).EQ.X(5)) RETURN $SEQ,000007 $P0007 $SBS1X*"ž¤@8w E.žº«˜{ ¤ Ϋ@@8 zØšO<7 (. S³­ O«N–©¯( S³­%N(#Vé.(½«@j V O«i S³­½«@jš\$d0%x2dO«i 0 ½«@jS«2S«2ÁnŒ0¬.Œ-«ù} S«20S«27ª@8¤€&"r™Y06711  ;BHIS .WORD 073300 .WORD 103000 .WORD SCLAS4 ; .WORD 006711  ;BHI .WORD 0 .WORD 101000 .WORD SCLAS4 ; .WORD 006654  ;BGT .WORD 0 .WORD 003000 .WORD SCLAS4 ; .WORD 006635  ;BGE .WORD 0 .WORD 002000 .WORD SCLAS4 ; .WORD 006531  ;BEQ .WORD 0 .WORD 001400 .WORD SCLAS4 ; .WORD 006413  ;BCS .WORD 0 .WORD 103400 .WORD SCLAS4 ; .WZ; SUBROUTINE SUBX2 (VAR) .TITLE SUBX2 ; FORTRAN V001A .CSECT .GLOBL SUBX2 SUBX2: JSR %4,$POLSH .GLOBL $POLSH,$NAM,$SEQ $NAM,0,0,075012,115400 ; VAR = 10. $SEQ,000002 $P0003 .GLOBL $POPP3 $POPP3,000002 .CSECT  ; RETURN $SEQ,000003 .GLOBL $RET $RET ; END $SEQ,000004 $RET $P0002: MOV[,$A0003 .GLOBL $GET3 $GET3 $P0011 $SBS1,$A0005 $GET3 .GLOBL $CMR $CMR .GLOBL $EQ $EQ .GLOBL $TRTST $TRTST $F0002 .GLOBL $RET $RET $F0002: ; 5 WRITE (5,100) IPASS,INDEX1,INDEX2,(X(I),I=1,5) .5: $SEQ,000010 .GLOBL $PSH $PSH,$I0004 $PSH,$100 .GLOBL $OUTFI $OUTFI,0,0 $PSH,IPASS $PSH,INDEX1 .GLOBL $PSHP $PSHP,000002 $PSH,000003 .GLOBL $IOI $IOI $P0007 $POP2,I $F0003: $P0012 $SBS1,$A0005 .GLOBL $P\.7ª€%½«@j " O«ir½«@jÈŽ'"|(v†H."O«i | ½«@jvO«i†Î )€�*€D2½«@j€ O«i �½«@j€O«iʲš+”¤,”P.š½«@j ” O«i¤½«@j”[Ä®-¨¸Ê2O«i®½«@j ¨O«i¸½«@jTÔ.”Â/ž"y.”O«i  ½«@jž]ORD 006373  ;BCC .WORD 0 .WORD 103000 .WORD SCLAS4 ; .WORD 004512  ;ASR .WORD 0 .WORD 006200 .WORD SCLAS1+BYTFLG ; .WORD 004504  ;ASL .WORD 0 .WORD 006300 .WORD SCLAS1+BYTFLG ; .WORD 003344  ;ADD .WORD 0 .WORD 060000 .WORD SCLAS2 ; .WORD 003343  ;ADC .WORD 0 .WORD 005500 .WORD SCLAS1+BYTFLG ; ; ; SYMTBB=.-2   ;HIGHEST ADDRESS OF PST. .END 000002(%5),%0 BR $F0001-4 $P0003: MOV #$R0000+4,%0 BR $F0001 $R0000: 041040 000000 ADD #4,%0 $F0001: MOV -(%0),-(%6) MOV -(%0),-(%6) JMP @(%4)+ .END _SHR1 $PSHR1 $PSH,000001 .GLOBL $IOR $IOR .GLOBL $ENDDO $ENDDO,$I0001,I,$I0004,$F0003 .GLOBL $IOF $IOF ; 100 FORMAT (26X,8HPASS NO.,I2,10X,8HINDEX1 =,I2,5X,8HINDEX2 ; 110HX BLOCK = ,5(3X,F4.1)) .100: $SEQ,000011 $TR,$F0004 $100: .ASCII ^(26X,8HPASS NO.,I2,10X,8HINDEX1 =,I2,5X,^ .ASCII ^8HINDEX2 =,I2,10X,10HX BLOCK = ,5(3X,F4.1)^ .ASCII ^)^ .EVEN $F0004: ; RETURN $SE`"ì¨@8ªæ0¯2O«i S³­½«@j S«2S«2±ôŽrá.Ž-«ù} S«2 S³­S«2rè|†�42S«2|S«2 † S«2�S«2𤮏 .šS«2¤ S«2 ®S«2¸   î2S«2ÂS«2 7ª@87ª€%–©¯c.(Â|Ü(¸¤Òâb2 2 128 1 1 129 3 3 130 5 5 131 4 4 132 2 2 133 cQ,000012 $RET ; END $SEQ,000013 $RET $P0002: MOV @000002(%5),-(%6) JMP @(%4)+ $A0003: 0 054004 000001 $P0004: MOV INDEX1,-(%6) JMP @(%4)+ $A0005: X 054004 000005 $P0006: MOV IPASS,-(%6) JMP @(%4)+ $P0007: MOV #000001,-(%6) JMP @(%4)+ $I0001: 000001 $P0010: MOV #$R0000+4,%0 BR $F0005 $R0000: 041040 000000 $P0011: MOV #000005,-(%6) JMP @(%4)+ $I0004: 000005 $P0012: MOV I,-d.(Â| Ü –©¯(¸¤Ò@(®rÈ(¤™.–©¯(® r È–©¯(¤PP†¾(šr´>.†¾–©¯ ( šr´–©¯`(�|ª(†r ª.(�| ª –©¯(†r yr(|r–(rý.–©¯(| r ––©¯(ræ,‚TŒ1¸(26X,8HPASS NO.,I4,5X,12Ë"TŒ½«@j ò«eEÔ` \Lî è2` U«(‚½«@j Lº«˜{î Ý©P‚äV` ).r©Vº«˜{ `  U«(‚½«@j_ð]Lär¼2Lº«˜{ ä Ý©P‚r©rº«˜{( ` ^LÚË2` U«(‚½«@j Lº«˜{ÚÝ©P‚& z` ×.r©zº«˜{ `  U«(‚½«@j: _² `‚D` î 134 135 (%6) JMP @(%4)+ I: 0,0 $F0005: MOV -(%0),-(%6) MOV -(%0),-(%6) JMP @(%4)+ .GLOBL $WRITE,$DCO,$ICO .END h¸J*¦HINDEX VALUES,9I5)2F3ž.½«@jFO«i S³­ ½«@j$žÀÈžž"¼ã.žž" ì¨@8 º«è{¼Ϋ@‘ ÖàÚw 7 4ž"{.àÚ z›O«N½«@jž"BîÌ5Ð.ì¨@8O«iÌ ½«@jÐO«iíü06ŒÌ20½«@j S«2 S«2Œ-«ù}À 0˜i.ò«²  ½«@j‚Dº«˜{` '. a‚V` å2U«(‚½«@j ‚ Vº«˜{` U«(‚> bêr` Q2½«@jê r© rº«˜{` U«(‚'N cz` 2½«@j r© zº«˜{` U«(‚^ d² eÜ .½«@jò« ²  ½«@jÜr©ðn D` f‚VK.Dº«˜{`  U«(‚ ½«@jj*’@~u"ÒÔ 7 Qt|g.Ô O«N½«@j–©¯t|ÈìªRìîó2ª½«@j ì ”«O«Pi@j  üSw Ô îü7 ¦2 *’@~Ô îüO«N½«@j>TˆîU$w ×2ˆ”« O«Pi @j$*’@~ (Ô î &7 V<w 2Ô î  &O«N½«@j<»H…ákMÚ-šU†)âXt$Ú-šUÁZ$r+âXv$Ú-šUh,âX8"h$x$l$w V)7 ð3�yNæXû„$Ø-à- H$�yOÔ.Xp-¦–$�yPœ$w âV)p-~-š-7 À3Ë®$�yQâ.:pXp-�y÷¼$RÀ$w ¾V)p-Œ-¨-7 œ3�y«Ô$SrX .rX®`arXyæ$,.rXTj`g�yT�yÏö$U°-ä-vX Xò.�yVÒ-Æ% Xü.�yWö.Ò-~X XI%à-�yXÚ-Ò-šUÊ'fXš(%�yYö.Ò-zX"YÊXª6%<%¦X°%�yZö.ì.zXçF%"YÊXP%¦Xô%�yPR%[Ú-šU†)LXrÒ-šUZl2S«2 0 S«27ª@87ª€%½«@jÒ7JžžÏ.S«2 S«2 J-«ù}žžù2Ƽ.ƺ«è{¼ S«ï4 S«27ª€p+@8d(26X,11HY(2,2,3) = ,F4.1)é&7ª€%½«@j ò« dd–d9Þ:â2½«@j O«(i Þ½«@jâr©¢vö;ØðX2O«(iöm‚V€~ ` gø„.º«˜{` U«(‚ ½«@jør©ºŒ r` hÒ2rº«˜{`  U«(‚ ½«@jr©œ z` iÐD¨.zº«˜{`  U«(‚ ½«@jÐD¬ < jk2º«˜{< U«‚ ½«@j½«@jS«2Þ¼ | D< R.|S«2  -«ù}Dº«˜{< §Î D` M.n@NXb7 Wüµ.NX bO«N½«@jS«2ü‡T 6.S«2 -«ù}S«2S«2EdXpw X·.7ª@87ª€% ½«@jp¯xXGxb7 YZ.€*2bO«N ½«@j½«@j.€ì¨@8–Œ˜[n¢2O«i˜½«@j nO«i¢½«@j�œ\œn|]vDob%î(dX�y\Ú-šU|*LXër%rä-šUî(dX�yõ~%]Ú-šUr+LXr/šUŽ%î(dX�y^Ú-šUh,LXÏž%r/šUî(dX�y£ª%_¦X@&�y`/Ò-šUî(©¼%dX�ya/ä-šUî(dXÑÌ%�ybx-r/šUî(dXrÜ%�yc”-r/šUî(dX=ì%�yd¦X@&�yej-r|ü%Ò-šUî(dX�yf/ä-I &šUî(dX�yg†-rO&/šUî(dX�yh¢-ró*&/šUî(dX�yi^.Ò-¤:&šUÊ'fX�yj�ykrX:J& .rX.`aÒ-šUÊ'ˆ\&DXp½«@j ØðÔª€pO«(iø† <úâ(2 ½«@j ú ”«âÔªr©j– = 0¾2O«(i ½«@j  O«i0½«@j¦>ŒO.S«2 S«2 Œ-«ù}S«2é¸0?"….0S«2 7ª@8 7ª€%½«@j"ôÈB@<"2O«iB½«@j <"E©@8™©�Ø<NqS«ï4S«2 7ª@8 Dº«˜{` –Ü V` rª2S«ï4Vº«˜{ `  S«ï4rº«˜{ãê ` z` �2` S«ï4z º«˜{ ` S«ï4S«2ø lm.7ª€p7ª€% ½«@j½«@j–©¯ú Jnd~no.Jnd ~ ½«@j½«@j½«@ja pÒqr| .ò«Ò ½«@j½«@jS«2|r.œn º«@8 O«i|½«@jvÑ®nH ^œnÑ.nº«˜{H  U«‚ ½«@jœne¾Ê> .E©@8™©ò« € Ê ò«> úÊ_œ’c.½«@jœ ’ E©@8™©ò« €BØÞ‚ `v ›.Þò«‚  ½«@jvº«˜{ >ènl .Ý©P‚r©n º«˜{ l U«(‚õôavú srXTjÒ-šUî(@j&DXä-šUî(DX/šUïx&î(DX/šUî(DXrXù†&`j`g�yl�ymæX–&Ø-ü.ò. %�yn�yo�y³¨&p¦X` �yq�yrrX .4º&rXf`a`g�ysÌ&ÃÌ&w ´. /*/7 ”1�yt/¶-6â&~X°qX4/�yu$/Dð&À-~X°qX>/�y ü&v8//u*YÊX'./õ 'B/8/¢ppuX4/�y 'w./L/'`j`g�yy¦Xl'(7H TIME =,F10.4,8H SEßb'CONDS///):l'tq.<NE©@8 ™© *«@8ò« €Éäjl"Í.S«2j S«2 l-«ù}"–öÞö .O«i S³­S«2 Þ S«2ö  (¢.S«2 S«2 7ª€p–©¯( BúA<F². S³­Bú 7ª€% ½«@j<F. Zjð.E©@8™©ò« € Z u, Øs> .S«2Ø-«ù}7ª€%½«@j> <> w ’œ7 tŒ(6.¯x ’ œO«N½«@jŒ(zT ¦u–³.º«@8:ªO«(i ¦ ½«@j–Áb 2°w.2º«@8:ª O«(i °½«@jn vª‚Š  `.ª‚ E©€p ì©ò« €Š  4~ ´ª¦$2´vû.½«@jv º«˜{ ú Ý©P‚r©ì €l bvç2€º«˜{l  U«(‚ ½«@jvº«˜{, ð¾l †2ðÝ©P‚r© ¾ º«˜{l U«(‚’ cvæÞ.½«@jv º«˜{ æÝ©P‚r©þ. Úl dè.Úº«˜{l  U«(‚ ½«@jò«K< Î eìnl o.Î ½«@j ì nº«˜{w�yz¦X–'�y{�y|rXC~' .rXˆ`arX,.rXë�'Tj`g�y}�y~�y– '¦X¢&�y€Ø|`/Pè?ï(´'P¤PÄP P=˜PÖ'PF"î(œX ú(P@) X)P  2)8)XÕ P)V)`� †)Œ)`  |*‚*` r+x+`- h,n,`?*^-ÀôwÀütÀx-qÀ†-jª*‚-À”-cÀ¢-\À°-y*¦-Uæìî\æ\æ\±xS«2j®,¦"Ü.S«2¦-«ù}"O«i S³­ï<Þö ·2S«2ÞS«2 ö S«2 S«2¿J(B<Õ27ª€p–©¯ ( S³­B<7ª€%uZ(BTÌB›.–©¯(B T ̽«@jò«,jž(26X,5HY1 = ,F8.1,5X,5HY2 = ,F8.1,| žH,Ž5X,5HY3 = ,F8.1)CØ(26X,5HY1 = yªÔª€p 쨀p O«(i¦½«@j£Œ w ¾¦x#2 ¾ v©€p O«(i¦½«@jS«2Fž |¾ ¦-2|S«2¾  -«ù}S«2¦S«2u,° yÞ (7H TIME =,F10.4,8H SEÈ*7ª€p7ª€% ½«@jò«Þ ˜Ô CONDS///)à Þ Þ z {|v2½«@jò«   ½«@j½«@jS«2Sð |úž±zl U«(‚kL fì€l #2½«@jì € º«˜{l U«(‚½«@j\ gö¾l Ë2ör© ¾ º«˜{l U«(‚½«@jÂl hÚl �2r© Ú º«˜{l U«(‚½«@j‰| iÎ jèn<2ò«Î  ½«@jèr©nº«˜{ÆŽ l kì€l d.l U«(‚½«@j 쀺«˜{l ºž l¾{*Ê-æ\æ\æ\æ\æm*î- \ æ \ æ\æ\æ\¤*.æd\dæ\æ\æ\-*6.æ\æ\æ%\&&&&7*Z.\%æ\æ\æ¸ \¸ æ\¤*~.æ=\=æ\Àœ.aÀ¦.\ð*¢.æ\æ\æŒ\Œæ§*Æ.\æ \ Àâ.>Àì.9HD=*ê.æ\æ\æ\æ\C*/À/"æ\æ\À8/U*2/|½«@jò«Ø,²,D8.1,5X,5HY2 = ,D8.1,5X,5HY3 = ,D8._Ö1)D:.½«@j S«2 :S«26ªè&ºæç.S«2 S³­ S«27ª€pS«24öë. S³­S«2 7ª@8 7ª€%½«@j–E(2F5.0)&ò«þFžÐ2½«@jž :ª O«(i S³}2|S«2ú -«ù}S«2žS«2K }~Û.7ª@87ª€% ½«@j½«@j½«@jg  €Pè ¸2ò«  ½«@j ©`; S³­ S³­ e*& PP6PP= PH PF6  H ` D` X l P9 l x Æx X„ P „ ¤ ~¤ ª X&ª  ~ï.U«(‚½«@j  r©¾º«˜{F¬ l m Ú.2l U«(‚½«@j r©Úº«˜{�¼ l n@nH .l U«(‚½«@j @nº«˜{H �Ì opØ w Nh.U«‚½«@j ½«@jØ »H…Nøà Xb7 qü_2Xb O«N ½«@jS«2üS«2¸ò  nH s2 ÀB/ÀL/ €HÀV/pC×V/&&&&\&?7 fdy‡Zºs�yªX8@ÿÿÿÿÿÿ�yb $?ªX>@ÿÿÿÿÿÿ�yD@J@zXY� >?ÊXD?zyÞD?�y\@ XX@�yR@ X“V?j@�y�yd@šU8@XXÎh?d@J@~XšU8@XXzXWv?,YÊX€?¦X@�ym‚?d@J@~XšU8@XX X�’?t@�y d@J@~XšU>@á¢?XX X~@�y d@šU~°?8@XXd@J@~XšU8@i¾?fX�y d@šU>@XX[Ì?d@J@~XšU>@fX�y¨Ú? n@d@šU8@fX�y x@}€­½«@jTG 0HÃ2 O«i 0 ½«@jS«2S«20Œ0æ.Œ-«ù} S«20S«27ª@8¤BI|³.7ª€%½«@j S«2 S«2|àPk.-«ù} S«2 S³­S«2 S³­ ^�.S«27ª€p S«2 S³­S«2Tju. �\Â È `ÞÈ ø ø þ `Zþ î Ûî ô `lô äíäê`~êÚÿÚà`�àÐ,ÐÀfwÀntÀêqÀøjúf nê øÅ,ôÀcÀ\À" &"/,Uæìî\æ\æ\V,<æ\æ\æ\æ‚-«ù} nº«˜{H S«ï4S«2Í nl €M27ª@8n º«˜{ l S«ï4€º«˜{l l ¾l Ú.l S«ï4¾ º«˜{ l S«ï4Ú" l >2º«˜{l S«ï4 S«27ª€p7ª€%Ý0 r6 w Xb7 S2½«@j6  ¯xXbO«N½«@jqF stt¢˜š&.½«@j –©¯ t¢˜š½«@jƒì?d@šU>@fX�yd@\@˜ü?zX"YÊX@¦X@Ÿ@�yd@J@~X Xj@�yZ@¦XX?�yòXP@X@N?É*,@�yzy�yzyPPf\æ\)*P@æ\æ\æ\æ\Æt@æ\Ö&‚@7 èdy*’@~�yªX8Aÿÿÿÿÿÿ�yö¢@PAšU8ALX>AäU*X-²@ý´@�yPAšU8ALX*XËÂ@�ybA X^A�yDAXAèÖ@šU8ALX>AXAPA~XJä@ôläUÈv*X�yað@JAXAšU8ALX>AXAôl„S³­S«2 7ª@8 7ª€%½«@j–!vJ�(26X,3(F4.1,5X),I2)ƒò«��þ�K ½«@jÌ«@`˜û˜Læ\XÀH.½«@j ©`; S³­ S³­ S³­ø ®VÀSÀPÆØœ S³­ S³­Æõ,æ\æ\À"€@æ\È "®,*æ\æ\æ\æ\",Næ\æ\&&\…\æ,` \ æ \ æ\æ\æ\I,„æd\dæ\æ\æ\Ó,¨æ\æ\æ%\&&&&Ý,Ì\%æ\æ\æ¸ \¸ æ\J,ðæ=\=æ\ÀaÀ\ê$c,æ\æ\æŒ\ŒæL,8\æ \ ÀT>À^9HD6T"^ß,\æ\æ\æ\æ\è,†ªX uvwðx±2½«@j ½«@jò«ð½«@j½«@j�l yp w NXb7 v.p  »H…NXbO«N½«@j­‚ züØö.S«2ü S«2 Ø-«ù}7ª€%W” {š w N7 .½«@jš  o'` NO«NS«ñ4ä¨ ¦¶|8.¦v©€pO«(i ¶ ½«@jS«2#¶ üÖ ¶m‡AäUAw ð,^A7 \BXšA:pDsÈv*X�yf AæXVA^ApAÎ@�y zyF*2A�y zy`@@@æ\.*VAæ\æ\æ\Àe&&u zA&&\`&€A7 êdyü&�yªXDÿÿÿÿÿÿ�y}& AªX Dÿÿÿÿÿÿ�yªXDÿÿÿÿÿÿ�y2ÀAbE XpEÈA�yDtEzXYÊX\ÖAâAD|E~X XpE�yŽäA„E:pXLE�y„E:pÍöAXZE�y|E X”E�yB ŽEšUDâXBBw Ú/B7 N>X:X0B(Bw è+Nˆæ\æ\*,ræ\æ\æ\æ0,–\æ\æ\æ\±,ºæ\æ\æ\Àâ  $ââ,ÞÀð BÀúÀ Ì ðú" ›$ æ \ æ \ &&&&\¥ó€ÀŒ"æ\æ\ÀªQŒ&ªc,¤À´À¾ €HÀÈpC~ ´¾ È4È&&&&\¼óŠ2üS«2Ö  -«ù}S«2¶S«2Í,È }ö (7H TIME =,F10.4,8H SE”*7ª€p7ª€% ½«@jò«ö €ì CONDS///)È ö éö ~ €:2½«@jò«  ½«@j½«@jS«2; üú—2üS«2ú -«ù}S«2S«2J �‚».7ª@87ª€% ½«@j½«@j½«@jg"* ƒZ‹,BLEÆe7 4>XXLE�yŒBB ŽEšU DâXVBPBw ž/–TB7 >X:XlBdBw ¬+hBZEÆe7 ø>XXZE�yq~B òX‚E”EB�y |E X–’B”E�y ŽEšUDLXFEë¢BDsŽEšUD`X�y…®BŽEšU DLXTEDsŽE¾BšU D`X�yòX‚EËÌB”E”B�yrXzErXCaÞB`a|E X”EŽEšUDèðBDXŽEšU DDXrX§üBfjòX‚E”EêB`g�yë)C¦X2C(15H X(I), Y(I) FIT/(2D18.7))ê2C�yjE|EvX XžE�y·� ÿ$SBS1,$A0012 ÿ$PUT3 ; A(4) = -1.03452E-9 ÿ$SEQ,000033 ÿ$P0052 ÿ.GLOBL ÿ$NGR ÿ$NGR ÿ$P0053 ÿ$SBS1,$A0012 ÿ$PUT3 ; A(5) = 4.54686E-12 ÿ$SEQ,000034 ÿ$P0054 ÿ$P0037 ÿ$SBS1,$A0012 ÿ$PUT3 ; A(6) = 0. ÿ$SEQ,000035 ÿ$P0055 ÿ$P0056 ÿ$SBS1,$A0012 ÿ$PUT3 ; DO 19 I=1,6 ÿ$SEQ,000036 ÿ$P0040 ÿ$POP2,I $F0015: ; 19 B(I) = A(I) .19: ÿ$SEQ,000037 ÿ$P0041 ÿ$SBS1,$A0012 ÿ.GLOBL ÿ$GET3 ÿ$GET3 ÿ.GLOBL ÿ$RD ÿ$RD ÿ$P0041 ÿ$SBS1,$A0013 ÿ.Ž „P6Pø.ò«Z  ½«@j ©`;6ýD P= PT PF˜ T l çl X x P! x „ ®„ X� Pî � ° f° ¶ X¶ Î DÎ Ô `ÆÔ  ï `@ ú Âú `SðÔðö`föæç�BCÖXDdCÖX DfCÚXÙ"RCjCÖXDnC^Cw T¨E&D„nCžE7 ø�y|E X”E�yÍ‚CTEŽEšUDLXäUFEð’CŽE|E~XôlDsŽEšUÓ CD`X�yæX‚E”EžE°C€C�y|E X”E�yŽE ÂCšUDLXFEäUŽEšUƒÐCD`X�yŽEšU DLXüàCTEäUŽEšU D`X�y#îCòX‚E”E¼C�yzy�y‹*Dzy``f\`&D *FEÀTE0ÀbE)æ\¤*jEæ\æ\æ\ÀŽEM 0055 705 CONTINUE 0056 710 CONTINUE 0057 740 RETURN 0058 END ‘GLOBL ÿ$PUT4 ÿ$PUT4 ÿ$ENDDO,$I0003,I,$I0023,$F0015 ; CALL DRMDAT (B, IPG, 100, 24, 1) ;C ÿ$SEQ,000040 ÿ.GLOBL ÿDRMDAT ÿ.+2 ÿJSR ÿ%5,DRMDAT ÿBR ÿ.+000014 ÿ+B ÿ+IPG ÿ+$I0027 ÿ+$I0030 ÿ+$I0003 ÿJSR ÿ%4,$POLSH ; 33 CONTINUE .33: ÿ$SEQ,000041 ; READ(5,1) ILTW,IRTW,NPROG ÿ$SEQ,000042 ÿ$PSH,$I0001 ÿ$PSH,$1 ÿ$INFI,0,0 ÿ$PSH,ILTW ÿ$PSH,IRTW ÿ$PSH,NPROG ÿ$PSH,000003 ÿ$IOI ÿ$IOF ; IPG = 7 ;C ÿ$SEQ,000043 ÿ$P0066 ÿ$POP2,IPG ; IF (ILTW.L’æì`xìÜù,ÜÀfqÀnnÀökÀdíf nö ¬,À]À VÀ.ø  &. ,$Oæàî\Pè Pæ\„ S³­ S³­ `,Hæ\æ\æ\æ\ø,læ\æ\æ\æ \ Ð0�æ \ æ\Àª8ëÀ´ à6E¥À¾ª ´*¾7,¸42“*ŽEæ\æ\À¬E&&&» ²E&\d&¶E7 ´dy Ndf�yªXÌHÿÿÿÿÿÿ�y°&ÖEªXÀHÿÿÿÿÿÿ�yªXÆHÿÿÿÿÿÿ�y’&öEªXØH ÿÿÿÿÿÿ�yªXàH ÿÿÿÿÿÿ�y0F¬N X¨N)F�y´N:p¢N¬N UìH¸.F`XòX²N¨NF�yÈNê@F XÄN�y¬N X¨N�yXPF¢N¾N¬N~X UìHLX²`F¢NšUÀHLXäU¢N¾N…nF UìH`XòX²N¨NNFx~FòX²NÄNDF�y rXÖN/�FrXÔF`a¬N X¨N¬N ¢F XÄN¢N¾N UìHDX¸”; SUBROUTINE LSQPOL( X, Y, RESID, N, A, B, M) ;C ;C LEAST SQUARE POLYNOMIAL FIT ;C ÿÿ.TITLE ÿLSQPOL ; ÿFORTRAN V001A ÿ.CSECT ÿ.GLOBL ÿLSQPOL LSQPOL: ÿJSR ÿ%4,$POLSH ÿ.GLOBL ÿ$POLSH,$NAM,$SEQ ÿ$NAM,0,0,047011,063144 ; DIMENSION RESID(30) ÿ$SEQ,000002 ÿ.GLOBL ÿ$ADJ ÿ$ADJ,$A0004,000006,177777,177777,177777 ; DOUBLE•T.1) GO TO 1001 ÿ$SEQ,000044 ÿ$P0063 ÿ$P0040 ÿ.GLOBL ÿ$CMI ÿ$CMI ÿ.GLOBL ÿ$LT ÿ$LT ÿ.GLOBL ÿ$TRTST ÿ$TRTST ÿ$F0016 ÿ$TR,.1001 $F0016: ; IF (ILTW.GT.37) GO TO 1001 ÿ$SEQ,000045 ÿ$P0063 ÿ$P0067 ÿ$CMI ÿ.GLOBL ÿ$GT ÿ$GT ÿ.GLOBL ÿ$TRTST ÿ$TRTST ÿ$F0017 ÿ$TR,.1001 $F0017: ; IF (IRTW.LT.0) GO TO 1001 ÿ$SEQ,000046 ÿ$P0064 ÿ$P0032 ÿ$CMI ÿ$LT ÿ.GLOBL ÿ$TRTST ÿ$TRTST ÿ$F0020 ÿ$TR,.1001 $F0020: ; IF (IRTW.GT.30) GO TO 1001–%æ\&&&&\ÀÚrŽ1ð.æ™ Úç,Ü\ÀìiŸ-yúÀödæ\æ] ìöÅ,\æd\dæ\æ\æV,$\æ\æ\æ%\%æÚ.H\æ\æ=\=Àj*ÀtÓj(t£,n%æ\æ\À’HDL  ’,,’æ\æ\À°pCÀºt°$º¶&&\J—°FrXfjòX²NÄN¦FòX¶ÂF²N¨N F`g�y ¦XðFí*ÔF(14H LSQPOL C(I,J)/(6D18.7))�y ¬N XøF¨N�y ¬N XÄN�y ØNÞ G:p¢N¾N UØH`X�yG¬N XèN�y¢N¾N UÉ*GØHLXâN¢N UìHLXÉ8GâN¾N UìHLXäUÈvìFG¢N¾N UØH`XòX²NKTGèN GòX²NÄNGòX²N¦hG¨NúF�y¬N X¨N�yjzGØN:p¢NšUàH`X�yŠG¬N XèN�y¢NšUàH9œGLXâN¢N UìHLXâNGªGšUÆHLXäUÈv¢Nô¶GšUàH`XòXŸ PRECISION X(30), Y(30), A(6,6), B(6), C(30,6), D ;C ÿ$SEQ,000003 ÿ.GLOBL ÿ$ADJ ÿ$ADJ,$A0002,000002,177777,177777,177777 ÿ$SEQ,000003 ÿ.GLOBL ÿ$ADJ ÿ$ADJ,$A0003,000004,177777,177777,177777 ÿ$SEQ,000003 ÿ.GLOBL ÿ$ADJ ÿ$ADJ,$A0006,000012,177777,177777,177777 ÿ$SEQ,000003 ÿ.GLOBL ÿ$ADJ ÿ$ADJ,$A0007,000014,177777,177777,177777 ; 10 DO 20 I=1,N .10: ÿ$SEQ,000004 ÿ$P0014 ÿ.GLO™ ;C ;C IDAT = 3000 ;C ILOC = IDAT + (ILTW-1)*61 + 1 ÿÿ$SEQ,000047 ÿ$P0064 ÿ$P0070 ÿ$CMI ÿ$GT ÿ.GLOBL ÿ$TRTST ÿ$TRTST ÿ$F0021 ÿ$TR,.1001 $F0021: ; ILOC = 1 ÿ$SEQ,000050 ÿ$P0040 ÿ$POP2,ILOC ; CALL DRMDAT(ICOM,IPG,ILOC,61,2) ;C ÿ$SEQ,000051 ÿ.GLOBL ÿDRMDAT ÿ.+2 ÿJSR ÿ%5,DRMDAT ÿBR ÿ.+000014 ÿ+ICOM ÿ+IPG ÿ+ILOC ÿ+$I0042 ÿ+$I0006 ÿJSR ÿ%4,$POLSH ; IF (IRTW.EQ.0) GO TO 600 ;C ;C ***** TASK 4 ***** ;C ;C TASK 4 - DELEó›²NèN’G¼ÆGòX²N¨NxG�yrXÖNÂØGrXH`a¬N X¨N¬NwêG XÄN¢N¾N UØHDXƒøGrXfjòX²NÄNîGòX$ H²N¨NèG`g�y¦X8Hÿ*H(14H LSQPOL A(I,J)/(6D18.7))�yÖXØHÒ@HVHÚXXHÖXàHZHPHw ¢'THšN7 �yrXÖNrX$lHœH`a¬N X¨N¢NšUG~HàHDXrXfjòX²N|*ŒH¨NzH`g�y¦X´H(12H LSQPOL B(I)/6D1µ*°H8.7)�yzy�yzy``Xfá&ÔH\ `f\ôH œÿ$PSHR4 ÿ$POP4,XMAX ; YMAX = DMAX1(YMAX, DABS(Y(I))) ÿ$SEQ,000012 ÿ$P0016 ÿ$SBS1,$A0003 ÿ.GLOBL ÿ$SVE ÿ$SVE,$F0005 ÿ.GLOBL ÿDABS ÿ.+2 ÿJSR ÿ%5,DABS ÿBR ÿ.+000004 $F0005: ÿ0 ÿJSR ÿ%4,$POLSH ÿ$PSHR4 ÿ$SVSP,$F0006 ÿ.GLOBL ÿDMAX1 ÿ.+2 ÿJSR ÿ%5,DMAX1 ÿBR ÿ.+000006 ÿ+YMAX $F0006: ÿ0 ÿADD ÿ#000010,%6 ÿJSR ÿ%4,$POLSH ÿ$PSHR4 ÿ$POP4,YMAX ; 148 CONTINUE ;C ; ;C SCALE ; ;C ; .148: ÿÿ$SEQ,000013 ÿ.GLOBL ÿ�TE ROD CALIBRATION DATA POINT ;C ÿ$SEQ,000052 ÿ$P0064 ÿ$P0032 ÿ$CMI ÿ.GLOBL ÿ$EQ ÿ$EQ ÿ.GLOBL ÿ$TRTST ÿ$TRTST ÿ$F0022 ÿ$TR,.600 $F0022: ; 300 CONTINUE .300: ÿ$SEQ,000053 ; ZBAD = FLOAT(IZ(IRTW))/ZSCALE ÿ$SEQ,000054 ÿ$P0064 ÿ$SBS1,$A0001 ÿ.GLOBL ÿ$SVE ÿ$SVE,$F0023 ÿ.GLOBL ÿFLOAT ÿ.+2 ÿJSR ÿ%5,FLOAT ÿBR ÿ.+000004 $F0023: ÿ0 ÿJSR ÿ%4,$POLSH ÿ.GLOBL ÿ$PSHR3 ÿ$PSHR3 ÿ$RD ÿ$P0020 ÿ.GLOBL ÿ$DVD ÿ$DVD ÿ.GLOBL ÿ$DR ÿ$DR ÿ.GLOBL ÿ$POP3 ÿ$Pž; SUBROUTINE NSORTZ(M,L,N) ;C ;C REORDERS FIXED POINT ARRAY TO BE MONOTONICALLY INC ;C ÿ.TITLE ÿNSORTZ ; ÿFORTRAN V001A ÿ.CSECT ÿ.GLOBL ÿNSORTZ NSORTZ: ÿJSR ÿ%4,$POLSH ÿ.GLOBL ÿ$POLSH,$NAM,$SEQ ÿ$NAM,0,0,055207,071672 ; DIMENSION M(30),L(30) ; ;C ÿ$SEQ,000002 ÿ.GLOBŸ@*”NÀ¢N)æ\æ\À¾Ni*¸N€@æ\æ\æ\ÀâNÏ ÜN æ\&&&&\ö&öN7 t dy|Q†:�yªX.Sÿÿÿÿÿÿ�yÚOªXXTDT U.SâXðO;èOêOw "7 x>XÄvPp}üOP(P(P�yT X4O�yÔPDT XàQ`TT U.S`X�y* TÛðQ XTT�y+`TNT U.SˆRLXTNT U.SLXèSªRäUÄv`TNT U.S`X”RòX&TTTôQ�y,`TšUì.RÀLO;æ<û\æ6û\æ8û\Û*Tæ2û\ÀT.€@æ\æ\æ **T\æ\ÀDTæ\´*NTæ\æ\æ\&°OBL ÿ$RET ÿ$RET ; END ; ÿ$SEQ,000032 ÿ$RET $A0002: ÿ0 ÿ060010 ÿ000036 $A0003: ÿ0 ÿ060010 ÿ000036 $P0004: ÿMOV ÿ@000006(%5),-(%6) ÿJMP ÿ@(%4)+ $A0005: ÿ0 ÿ060010 ÿ000006 $A0006: ÿA ÿ120010 ÿ000006 ÿ000006 A: . ÿ= ÿ.+000440 $P0007: ÿMOV ÿ#XMAX+10,%0 ÿBR ÿ$F0016 XMAX: ÿ0,0,0,0 $P0010: ÿMOV ÿ#YMAX+10,%0 ÿBR ÿ$F0016 YMAX: ÿ0,0,0,0 $P0011: ÿMOV ÿ#000005,-(%6) ÿJMP ÿ@(%4)+ $I0000: ÿ000005 $P0012: ÿMOV ÿM,-(%6) ÿJMP ÿ@(%4)+ M: ÿ0,0 $P0013: ÿMOV ÿ#000006,-(%±TS ; DO 605 K=I,NPTS ÿÿ$SEQ,000075 ÿ$P0041 ÿ$POP2,K $F0030: ; IZ(K) = IZ(K+1) ÿ$SEQ,000076 ÿ$P0100 ÿ$P0040 ÿ.GLOBL ÿ$ADI ÿ$ADI ÿ$SBS1,$A0001 ÿ$GET2 ÿ$P0100 ÿ$SBS1,$A0001 ÿ$PUT2 ; IRHO(K) = IRHO(K+1) ÿ$SEQ,000077 ÿ$P0100 ÿ$P0040 ÿÿ$ADI ÿ$SBS1,$A0002 ÿ$GET2 ÿ$P0100 ÿ$SBS1,$A0002 ÿ$PUT2 ; 605 CONTINUE .605: ÿ$SEQ,000100 ÿ$ENDDO,$I0003,K,NPTS,$F0030 ; 610 CONTINUE ;C ;C SORT ON INCREASING IZ ;C .610: ÿ$SEQ,000101 ÿ$ENDDO,$I0003,I,² ÿ$P0005 ÿ$SBI ÿ$POP2,I ; GO TO 50 ÿÿ$SEQ,000020 ÿ$TR,.50 ; 100 CONTINUE .100: ÿ$SEQ,000021 ÿ.GLOBL ÿ$ENDDP ÿ$ENDDP,$I0000,K,000006,$F0002 ; RETURN ÿ$SEQ,000022 ÿ$RET ; END ÿ$SEQ,000023 ÿ$RET $A0002: ÿ0 ÿ050004 ÿ000036 $A0003: ÿ0 ÿ050004 ÿ000036 $P0004: ÿMOV ÿ@0³&&&rT\Õ&tT7 ödyÝ<�yªXUÿÿÿÿÿÿ�yA”TrU XnUœT�yUhUvXrU~X Xä¬T€U�yU‚X¼TØT�yo¾ThUšUUXXzUšU\UªÎTfX�y¦XìT�y zUÙÞTšU\UXXhUšUUfX¤ìT�y òXxUnUœT�y zy¹,U�y zyP2f\f\f\f \*UÑ &UP# 6U@..v©@–©¯@Ý©P‚@Ôª@ñª@Q@.O«N@O«¢f@O«i@S«ñ4@W«h@(.”«@•«}@ º«@8@º«˜{@½«@j@(þ*’@~h¯”t÷æ»w ¸�e@ ‚eA @ ¦ Š*(WŒw ¢�e@ ‚eA @ ¦Œw Œ€e�e@ "*LW„à B A @ ‡Ã B A @ Ä Äå€+Ä%ÿ%ŠÙ*pWƒÐÊBЊÐÁŠÑÀ    C B m*”WA @ ‡ …6 v¶ö…„Æe\æ ¥*¸WÀ ÀÖ w â!    å Ì ö p*ÜW eŽm ö  eŽmÔ ŒãX6iÔ M6 M*X““““\ûœ\œ•„ \CaÃðƒ 4XCaÃîÿ :Xœ\Z>Xæ¦f&\&�\�LX&&&&\&’\Ǽ ÿ$SEQ,000003 ÿ.GLOBL ÿ$ADJ ÿ$ADJ,$A0002,000002,177777,177777,177777 ÿ$SEQ,000003 ÿ.GLOBL ÿ$ADJ ÿ$ADJ,$A0004,000006,177777,177777,177777 ; EQUIVALENCE (IROW,JROW), (ICOLUM,JCOLUM), (AMAX, T, SWA ;C ;C INITIALIZATION ;C ; 10 DETERM=1.0 .10: ÿ$SEQ,000005 ÿ$P0020 ÿ.GLOBL ÿ$R¾ ; 620 CONTINUE .620: ÿ$SEQ,000107 ÿ$ENDDO,$I0003,I,NPTS,$F0031 ; CALL FIT (X, Y, NPTS, B) ;C ;C WRITE COEFFICIENTS ON DRUM ;C ;C ICOE = 5260 ÿ$SEQ,000110 ÿ.GLOBL ÿFIT ÿ.+2 ÿJSR ÿ%5,FIT ÿBR ÿ.+000012 ÿ+X ÿ+Y ÿ+NPTS ÿ+B ÿJSR ÿ%4,$POLSH ; ILOC = 100 ;C ILOC = ICOE + (ILTW-1)*12 + 1 ÿ$SEQ,000111 ÿ$P0061 ÿ$POP2,ILOC ; CALL DRMDAT (B, IPG, ILOC, 24, 1) ;C ;C COMPUTE DIFFERENTIAL AND INTEGRAL WORTH FOR ALL POINTS ;C ÿ$SEQ,000112 ÿ.GLOBL¿æ(7 *’@~¶ÿÿÿÿÿÿf2O«Nñª@Q½«@j쨀>¶"½«@jž ζ¼�2κ«˜{ ¶ Ý©P‚¼ÔªO«¢fµ 0º2´2ζ,.½«@jÎ º«˜{ ¶Ý©P‚O«¢f@àÜÂÖ;.½«@j à O«iܽ«@jÂÖ{T¶¼ÖÎ|.º«˜{¶¿`X����\�•\ nXÖ \ò rX&\” vXŽe\Ø zX–å\L ~XŽå\P*‚X€ ‡ ƒw !À `\À `\ö ¦X\„&ªXAaPÃÐ �AaHà ÷\$ÊXÖ Ô \\7 ÖX\8ÚX@a\ âX\3*æX@E©@8@v©@–©¯@c.–©°@ Ý©P‚@´ª@Ôª@ñª@Q@ð.O«N@O«i@O«Pi@S«ò4@U«P‚@(.W«h@”«@•«}@º«@8@º«˜{@Ž.½«@j@Ϋ ÿDRMDAT ÿ.+2 ÿJSR ÿ%5,DRMDAT ÿBR ÿ.+000014 ÿ+B ÿ+IPG ÿ+ILOC ÿ+$I0030 ÿ+$I0003 ÿJSR ÿ%4,$POLSH ; DO 628 I=1,6 ÿ$SEQ,000113 ÿ$P0040 ÿ$POP2,I $F0034: ; 628 A(I) = B(I) .628: ÿ$SEQ,000114 ÿ$P0041 ÿ$SBS1,$A0013 ÿ.GLOBL ÿ$GET4 ÿ$GET4 ÿ$DR ÿ$P0041 ÿ$SBS1,$A0012 ÿ$PUT3 ÿ$ENDDO,$I0003,I,$I0023,$F0034 ; WRITE (6, 992) (A(I), I = 1, 6) ÿ$SEQ,000115 ÿ$PSH,$I0023 ÿ$PSH,$992 ÿ$OUTFI,0,0 ÿ$P0040 ÿ$POP2,I $F0035: ÿ$P0041 ÿ$SBS1,$A0012 ÿ$PSHR1  6 „æ *pY vÄ  Î-& ÀaÈ  â‡� üdÃ*”YÁ Î ôÁe0fðƒ`Äe0#‘ £•ü‹• ž*¸Yã• ûÖ Ö% „¶Ö V ‡Ö þÖ "*ÜYƒÓ•*ö ûv í'èd €É Z@Q*ZÀE €�‚ƒÎD&„6 À§**ZEƒ�‚æ& & f& & ¦)¶m€!*NZЕ 6 ûA N Áv�ƒÃåö '*rZþ•*Ó•0Ë•.w”± ŠÂ�ЊÃÂÐÂ*–ZŠÄÑŠöå€'Á Ä C B A ö Ç .20: ÿ$SEQ,000007 ÿ$P0023 ÿ$P0021 ÿ.GLOBL ÿ$SBS1 ÿ$SBS1,$A0006 ÿ.GLOBL ÿ$PUT2 ÿ$PUT2 ÿ.GLOBL ÿ$ENDDP ÿ$ENDDP,$I0000,J,000004,$F0004 ; 30 DO 550 I=1,N ;C ;C SEARCH FOR PIVOT ELEMENT ;C .30: ÿ$SEQ,000010 ÿ$P0022 ÿ$POP2,I $F0005: ; 40 AMAX=0.0 Å@@Ϋ@@Ϋd@Ϋ@y@³&ò« €@(Öü&h¯”|÷ææ(7 ü&&ÿÿÿÿÿÿL2O«Nñª@Q½«@j쨀>&"½«@j,( ,ÿÿÿÿÿÿ8ÿÿÿÿÿÿH.쨀>,½«@j쨀>8"½«@j@‚��‚O«i �HôH2”Î.½«@j2 ” E©@8´ªò« €Æ ÿ$PSH,000001 ÿ$IOR ÿ$ENDDO,$I0003,I,$I0023,$F0035 ÿ$IOF ; 992 FORMAT (5H A(I)/(3E18.7)) .992: ÿ$SEQ,000116 ÿ$TR,$F0036 $992: ÿ.ASCII ÿ^(5H A(I)/(3E18.7))^ ÿ.EVEN $F0036: ; DO 630 I=1,NPTS ÿ$SEQ,000117 ÿ$P0040 ÿ$POP2,I $F0037: ; CALL WORTH (B, X(I), YDIF(I), YINT(I)) ÿ$SEQ,000120 ÿ$P0041 ÿ$SBS1,$A0014 ÿ.GLOBL ÿ$SVE ÿ$SVE,$F0040 ÿÿ$P0041 ÿ$SBS1,$A0016 ÿ.GLOBL ÿ$SVE ÿ$SVE,$F0041 ÿ$P0041 ÿ$SBS1,$A0017 ÿ.GLOBL ÿ$SVE ÿ$SVE,$F0042 ÿ.GLOBL ÿWORTH ÿÇ÷ü*ºZ÷ ¦¶ öåîW ÌÌ †—-ýÿ÷ Ö*ÞZPö öe÷ ´¶ ì ÷ 4÷ ®À Á*[ö ÷ö‹ 6Œ L†ö I¶-E6ŠÖ*&[ öå¶í6 ……m…m÷  …Y*J[…íö‹ ¶m…íÅå÷ äÅåë*n[÷ ÚÕ•0Õ•.v!Õ•0ú……íÅ ¬*’[vö … …í÷ Ìö‹ 7öå „*¶[ö À…… ÷ "……íÅå÷ xv�*Ú[¶m÷ Ž¶íƒ“� „ Ó•-ß*þ[Ó• Ë•0Äå ‹ŠûÄe:3‘Æe…„ 8 500 1100 2500 3600 4500 5000 7500 8400 19 31 60 77 84 85 51 25 11 5 11 0 47 0 É­Vb2œ�È.b2œ º«@8 O«i�½«@jZd¤l¤´2¤”« O«Pi l½«@j¤”«Zvzœ´“2O«Piz½«@j œO«i´½«@jW† ®&š”w Ì.®º«˜{ & Ϋ@š”*Àv“˜7 °¨w .. O«N S«ò4Ϋ@y°¨ ؚͬlÆe7 lÞÊ.+2 ÿJSR ÿ%5,WORTH ÿBR ÿ.+000012 ÿ+B $F0040: ÿ0 $F0041: ÿ0 $F0042: ÿ0 ÿJSR ÿ%4,$POLSH ; 630 CONTINUE .630: ÿ$SEQ,000121 ÿ$ENDDO,$I0003,I,NPTS,$F0037 ; TOT = 0. ÿ$SEQ,000122 ÿ$P0055 ÿ$RD ÿ.GLOBL ÿ$POP4 ÿ$POP4,TOT ; CALL WORTH (B, TOT, YDIFZ, YINTZ) ÿ$SEQ,000123 ÿ.GLOBL ÿWORTH ÿ.+2 ÿJSR ÿ%5,WORTH ÿBR ÿ.+000012 ÿ+B ÿ+TOT ÿ+YDIFZ ÿ+YINTZ ÿJSR ÿ%4,$POLSH ; TOT = 200. ÿ$SEQ,000124 ÿ$P0104 ÿ$RD ÿ$POP4,TOT ; CALL WORTH (B, TOT, YDIFT, YË*"\¶¶–%V ‡f¦æ&÷ h÷ dD C B *F\A „eC B A @ ƒeB A @ ‚eA @ �e@ ‡Åà*j\÷ 6&æ¦f÷ *÷ &À÷ „mC B ¥*Ž\A ƒmB A ‚mA �cÀ ïÅ çÆe‡fÅk*²\Ä C B A @ Å ù…‡Ö ƒ„ö‹ ñ*Ö\ÄeÓ•*Ä üv ™W!,v*(&fˆ*ú\¦æ&Á€   ö  ÷ Rÿ÷ Œ÷ ˆ÷ ž*]„ô „eC B A ƒeB A ‚eA �e@ €eÀ% F*B]¶ ‡Àe÷v!6 †Í•-… ‡6 U*f]¯‡… v!«‡À% Õ•1Àå …-Õ•.ÒÌ.‡Zºs¯”쨀>@E©@8@–©°@Ç.™©@Ý©@Ý©‚@¥ª@ñª@Q@1.O«N@O«i@U«‚@•«}@º«@8@µ.º«˜{@½«@j@ò«@ò« €@(~ȇZºsh¯”÷æÍ.lO«NS«ò4O«Pil½«@j= ®,ÖÐw .®º«˜{ , Ϋ@ÖÐ*ÀvÔ7 ìäw z. O«N S«ò4Ϋ@yìä ØšUèzÆe7 z†.zO«NS«ò4O«Piz½«@j!þ ¢´„ œF.–©°¢ ´„½«@jœO«i^´ ®&fË.´½«@j ® º«˜{&Ý©ÎINTT) ;C ;C EDIT ALL POINTS FOR THIS ROD (INCLUDING CALCULATED INTE ;C ÿ$SEQ,000125 ÿ.GLOBL ÿWORTH ÿ.+2 ÿJSR ÿ%5,WORTH ÿBR ÿ.+000012 ÿ+B ÿ+TOT ÿ+YDIFT ÿ+YINTT ÿJSR ÿ%4,$POLSH ; CALL ACCUM (KTIME, K1, K2) ÿÿ$SEQ,000126 ÿ.GLOBL ÿACCUM ÿ.+2 ÿJSR ÿ%5,ACCUM ÿBR ÿ.+000010 ÿ+KTIME ÿ+K1 ÿ+K2 ÿJSR ÿ%4,$POLSH ; WRITE(6,105) ILTW ÿ$SEQ,000127 ÿ$PSH,$I0023 ÿ$PSH,$105 ÿ$OUTFI,0,0 ÿ$PSH,ILTW ÿ$PSH,000001 ÿ$IOI ÿ$IOF ; CALL CLOCK (K1, K2) ÿÏ*Š]…- Àe0� ÷ ”þ÷ ÿ    !®]‡e*°]æ7æ9f�¶m¶6¦& *Ô] B”ÂE€ÿ—  v ÷'— +!— - Ž �*ø]B”ÂE€ÿ—  •0— 0 ¶ Âå0À w*^…ö‹àÀ …À …€à…v á ‡ …È @^¡‚�V 6€‡Ö v ôG*Z^& Ž & &f¦æ&f& & & æAæ& *~^& …$¶m"$    D•ÄE€ÿ¡ v!$q*¢^÷wÖ¡+-¡- ¶ 'D•ÄE€ÿ¡ X*Æ^Ä0¡0LÀ Á  à Ðæ(7 ‡Zºs4ÿÿÿÿÿÿS2O«Nñª@Q½«@j쨀>4"½«@j" :ÿÿÿÿÿÿ@Fô2쨀>:½«@j@FE©@8¥ªR:@t"ò« €@•«}@O@XTNœ2½«@jX O«i T½«@jNO«iuRf`4†2f½«@j ½«@j`º«˜{4Ý©‚¹d`F4¥ÑP‚f�"®&ì.v©®º«˜{ & U«P‚½«@j.®,t® .®º«˜{ , Ý©P‚tv©®W>,¢Å.º«˜{,U«P‚ ½«@j–©°¢FL´Šœ‡.´ ½«@jŠœì¨@8O«iç^¾&„,Ø.¾½«@j Ϋ@ &„Ϋ@,>n†Š8Ž~w ‘Ò$SEQ,000130 ÿ.GLOBL ÿCLOCK ÿ.+2 ÿJSR ÿ%5,CLOCK ÿBR ÿ.+000006 ÿ+K1 ÿ+K2 ÿJSR ÿ%4,$POLSH ; 660 CONTINUE ;C .660: ÿ$SEQ,000131 ; NLOOP = NPTS + 2 ÿ$SEQ,000132 ÿ$P0027 ÿ$P0042 ÿ$ADI ÿ$POP2,NLOOP ; DO 680 J=1,NLOOP ÿ$SEQ,000133 ÿ$P0040 ÿ$POP2,J $F0043: ; I = J-1 ÿ$SEQ,000134 ÿ$P0106 ÿ$P0040 ÿ$SBI ÿ$POP2,I ; LIST(1) = I ÿ$SEQ,000135 ÿ$P0041 ÿ$P0040 ÿ$SBS1,$A0004 ÿ$PUT2 ; IF (J.EQ.1) GO TO 663 ÿ$SEQ,000136 ÿ$P0106 ÿ$P0040 Ó¡9Qö Ã*ê^¶ Äå0÷ $÷ FaB A @ v!$Ö†*_NÀ Á  à /…#¶í ö Žg*2_ Ží¶ã cw& 23 ‚÷ Ò¶ ö '*V_öw÷ šöeõ¡.ö vÇb*z_vŠ    w(¡E¡DòNÎ ö"Á*ž_ v!$êD•ÄE€ÿ¡+¡-¶ v!$Ü„*Â_D•ÄE€ÿ¡ Ä0¡0Ñ¡9ÎÄå0à Ä`*æ_à à av!$èö  ö` ƒ"w ÿÀ R* `ö ÷ 4û€Ä÷ 4æ¦f&÷ (¡÷ "R*.`Å¡÷ ƒmB A @ ‚mA @ �m@ Ô2`Fº«@8 º«˜{ 4Ý©‚E©@8Ìr|ß.Ý©ò« €| ò« ½«@jŒ~`F4�2`F º«@8 º«˜{4Ý©‚O«iÁŽp `F:ù.p½«@j ` Fº«@8º«˜{:¯žz `b.Ý©‚O«iz ½«@j`º«˜{¬¬4`F4(.4Ý©‚` F º«@8º«˜{4Õ2†Ϋd Š Ϋ@8Ž~ Ndf7$‚ÈF¾7 œˆ. ÈF¾O«N½«@jœO«i÷ž´t®8.´½«@j t ®º«˜{8Ý©P‚o®f®œ~2Ôªf® œ º«@8W«hv©ƒ¼®8*.®º«˜{8 U«P‚ ½«@j–©¯1Ê¢´¾ œ´î.¢´¾   ½«@jÖ ÿ$CMI ÿ$EQ ÿ.GLOBL ÿ$TRTST ÿ$TRTST ÿ$F0044 ÿ$TR,.663 $F0044: ; IF (J.EQ.NLOOP) GO TO 665 ÿ$SEQ,000137 ÿ$P0106 ÿ$P0105 ÿ$CMI ÿ$EQ ÿ.GLOBL ÿ$TRTST ÿ$TRTST ÿ$F0045 ÿ$TR,.665 $F0045: ; 661 FLIST(1) = X(I) .661: ÿ$SEQ,000140 ÿ$P0041 ÿ$SBS1,$A0014 ÿ$GET4 ÿ$DR ÿ$P0040 ÿ$SBS1,$A0006 ÿ$PUT3 ; FLIST(2) = Y(I) ÿ$SEQ,000141 ÿ$P0041 ÿ$SBS1,$A0015 ÿ$GET4 ÿ$DR ÿ$P0042 ÿ$SBS1,$A0006 ÿ$PUT3 ; FLIST(3) = YDIF(I) ÿ$SEQ,000142 ÿ$×€c/*R`Å ïÄ åÆeöå¶ Îö ÷ Ôû†öe:*v`€=—-ÿ9ŠƒÐÊBЊÐÁŠ€Ý&*š`À6 ÷ ªC B A @ #…"‡ö‹B A @ *¾`…‡C6v ¶"ö$Æe…„ƒ‚Z*â`�€΋¶¶V ‡w€þ Ì̇¡÷ JJ*a¶ &f¦æ¡÷ 8¡÷ 2&f¦æ÷ A**a÷ ƒeB A @ ‚eA @ �e@ €e‡Ã B A @ }Na‡    ‡ú*Zaæ& æ¼a& æ*hö Î*h& & & & ×*~a& & && &f¦æ&f„Å$… & Å ý…q ¢aæ&ü غ `:….U«‚½«@j ` º«˜{:Ý©‚ÉÈ`F:;2`Fº«@8 º«˜{ :U«‚½«@j Ö j`4 t}.j` º«˜{ 4U«‚½«@jtâè`:`X˜.`º«˜{: U«‚ ½«@j`XøÐ.E©@8™©ò« €  ò«ó`FfÁ2½«@j` FÙœO«i´ÖÜ®&f¯2½«@j® º«˜{ &Ý©P‚fÔª¥ì®&®V2®º«˜{& U«P‚ ½«@j®º«˜{ ü,t®,e.,Ý©P‚t Ôª ®º«˜{,‰ ¢´Ü2U«P‚½«@j –©° ¢´Ü½«@j',``f\`FÖ"•«}½«@j •«}&FÚP0041 ÿ$SBS1,$A0016 ÿ$GET4 ÿ$DR ÿ$P0051 ÿ$SBS1,$A0006 ÿ$PUT3 ; FLIST(4) = YINT(I) ÿ$SEQ,000143 ÿ$P0041 ÿ$SBS1,$A0017 ÿ$GET4 ÿ$DR ÿ$P0053 ÿ$SBS1,$A0006 ÿ$PUT3 ; GO TO 670 ÿ$SEQ,000144 ÿ$TR,.670 ; 663 FLIST(1) = 0.0 .663: ÿ$SEQ,000145 ÿ$P0055 ÿ$P0040 ÿ$SBS1,$A0006 ÿ$PUT3 ; FLIST(2) = 0.0 ÿ$SEQ,000146 ÿ$P0055 ÿ$P0042 ÿ$SBS1,$A0006 ÿ$PUT3 ; FLIST(3) = YDIFZ ÿ$SEQ,000147 ÿ$P0023 ÿ$DR ÿ$P0051 ÿ$SBS1,$A0006 ÿ$PUT3 ; FLÛ%\m*¼aõ "w65$"uŸ" õ¥( w”w³*àa² 5 5 µ "AŸ"Á¥ ùõ Á¥-#*bõ ðÁå0�Á% õ µ À `À $*(bÀ @`ßuŸ" õ  5‡A Á¥,¶*LbÁ¥) Á¥/Á¥TDÁ%' w,wœw`5*pbwþwxwœõ¥, òõ¥) ðA Á¥(*”bíÁ¥/ìÁ¥'ëÁåAÞ�Á%Û @œîbÀ À ý*¸b`wÖwúwÔwÚwØwÖwÖwÖw?*ÜbæwÐw4wHwŽ À*c õ w‚÷ Ü º«@8O«if½«@jíTLTJd.ò«T ½«@j–©°LTJe,(PPf\æ\_&½«@j•«} ½«@j•«}ÿ,Læ\æ\æ\æ\pæ\óݵ@ ø f€,fÀt0À‚)æ\t‚Õ,Šæ\æ\æ\À®Œ  ®,®æ\æ\ÀÌ&&&ú Ì Ò&\�óçIST(4) = YINTZ ÿ$SEQ,000150 ÿ$P0025 ÿ$DR ÿ$P0053 ÿ$SBS1,$A0006 ÿ$PUT3 ; GO TO 670 ÿ$SEQ,000151 ÿ$TR,.670 ; 665 FLIST(1) = TOT .665: ÿ$SEQ,000152 ÿ$P0022 ÿ$DR ÿ$P0040 ÿ$SBS1,$A0006 ÿÿ$PUT3 ; FLIST(2) = 0.0 ÿ$SEQ,000153 ÿ$P0055 ÿ$P0042 ÿ$SBS1,$A0006 ÿ$PUT3 ; FLIST(3) = YDIFT ÿ$SEQ,000154 ÿ$P0024 ÿ$DR ÿ$P0051 ÿ$SBS1,$A0006 ÿ$PUT3 ; FLIST(4) = YINTT ÿ$SEQ,000155 ÿ$P0026 ÿ$DR ÿ$P0053 ÿÿ$SBS1,$A0006 ÿ$PUT3 ; LIST(1) = 0ßÌþwrÿõ wp˜*$cu÷ ´þwJÿõ wX÷ ¢þõ õ ‡*Hc5m5-ƒ5t4-‡*lcw5 5 wÆþõ w µ õ *�cùtm4-ƒwê÷ :þwÐþõ w[*´cÞA"B´`4-ƒw¼� ô "›*Øc ”P’ ÷u"÷ öýwŒþõ wš5-)*üc†t5 ü ÷ Îýwdþõ w˜* drA"� É¥' 4 ‡wRô " ”z*DdòP’ðñ¥'ô "� ë1Šèu"4s*hd÷ týw þõ wµ â.|Q†:¯”*Àv@ì¨@8@쨀>@3.v©@–©°@Ý©‚@Ý©P‚@Ôª@E.ñª@Q@÷ª@O«N@O«¢f@O«i@é.O«Pi@S«ò4@U«‚@U«P‚@”«@.•«}@9º«@º«@8@º«˜{@º«À{@.½«@j@Ϋãõ ùõ V*Œdõ% ‚Àwâu"uµ h*°duµ ÷ $ýwÊýu"uðõ 2*Ôdwºõ% ‚õ u"÷ îüw„ý©*øduõ öõ úu"ïô ô "ƒ*e 5-†t5 ü wHõ ÀŠ*@ew<5-†t5 ü õ 5õ*de$"µ Áuu"µ ô‡w $´ Ê*ˆe wVÀ÷Àô5 Âõÿÿ%*¬e÷õ õúõöm"Ù*Ðem"5 f õ w®ÿµ uä. Ndf¯”|Q†:@ì¨@쨀>@ù.–©°@Ý©P‚@Ôª@ñª@Q@O«N@.O«i@U«P‚@”«@•«}@º«@8@[.º«˜{@º«À{@½«@j@Ϋ@@Ϋd@¤( Ndfh¯”­÷æå2ó«@8ÐR Ð ½«@jj º«À{Ú8N)D 28Ý©P‚O«Pi N ½«@jD”«9êj 8**å.j º«À{ 8 U«P‚½«@j*ú^+jX8R.O«i^½«@j jXº«À{8ì  X8ò;.Ý©P‚ X º«À{ 8Ý©P‚ò†jX8Ã2Ôªº«j X º«À{8æ@@ò«@ó«@ó«@8@ (~|Q†:h¯”Ü÷ææ(7 |Q†:8ÿÿÿÿÿÿÌ2O«Nñª@Q½«@j쨀>8"½«@j  FÿÿÿÿÿÿO.쨀>F½«@j”«O«¢fE 8²:¬ :Btò«BB¬ BJdò«JJœ JVPçø÷ t*ôeìûõ óuï õ%. é÷ Îûõ ûfäuw$g4gZ`^(ZZ^Á0f ZZ^ZZ^RYt*>f¶]–yœyLY°]ô wÆþ&f´c4-j*bfƒw$ÿõ ffô "Àõ ’*†f  5 ‚@Ÿ& À À `€ æ v˜ô*ªfN˜À úý  ô "Àõ   5 W*Îf‚4 ƒ¼• À À ‚‘”À ý†C †*òfÀw °‡õ £5 5 5 w0ûf*g‚€ †€`ÀàÂP” ý wºÿÖ ‚�E*:g ñ‚èæ(7 NdfèÿÿÿÿÿÿŒ2O«Nñª@Q½«@j쨀>è"½«@jk( îÿÿÿÿÿÿôÿÿÿÿÿÿÎ.쨀>@j쨀>ô"½«@j›(@ ÿÿÿÿÿÿ ÿÿÿÿÿÿz.쨀>½«@j쨀>"½«@js`ÔÐÖÔO«i Ðh:hÜÊÔÒ.½«@jÜ ”« ÊÔº«À{ÒxéU«P‚Ý&0^þ,j‚.–©°0^ þ½«@jjº«˜{Ï8F Fò.FÝ©P‚  º«˜{ FÝ©P‚ò³FjFæ.Ôªº«j º«˜{ FU«P‚iR-0p¾0½.½«@j–©° 0 p¾–©°0¡d@‚.*@.@‚ ½«@j*O«i@½«@jžv/@*:^'.@êò«VV„V*&2 É.½«@j* O«i &½«@j2 'hR0&`b.º«˜{RU«‚ –©° 0&`Zx*@ Dœ2½«@j* O«i @½«@jD”«ÙŠN *&¨2O«PiN½«@j *O«i&½«@j‚š R*•2 º«˜{ R Ý©‚*º«@8ó«@8Aª°@°ë�`ÁàÂìÀ`ƒàà• Ã ü€àó^gäM*`g…EcÅe %e¥å%å D…Õ 4 4 4 w*„gô wdw‚ô ü G*¨gÆe(\Àà Àw äÃ%Õ*Ìg÷ 6ü w þ÷ (÷ 8Æe(˜*ðgò\÷ "Æe(\ñ ùÃÀPçhw ’‡Ð ‡Û**h&÷ ¤Á à wxÿÂŒ~ô xñµ ˆ*Nh ÷ œ÷ \à à ÃewNÿñµ ÃÓ*rh w>ÿñ¥ô "1r÷ pà Þw*–hÿE€Mô "ìÚ.Êæº«À{  U«P‚–©°ÚY6ÚìæÚå. –©° Úìæ–©°Ú“JÐÜÔÐ.ÐÜ ½«@jÔO«iн«@jt\øÊž2ø”« Ê º«˜{U«P‚½«@jélÔÊŽ.ÔO«i  ½«@jʺ«˜{­~Êl.Ý©P‚Êí* ì¨@8 :º«@8O«i^†0X*pXÎ.½«@jX * º«À{pÝ©‚XQ–bpt.bº«À{p Ý©‚ º«@8ó«@8 ¢¨¨1X*p”.¨¨ ½«@jX*º«À{p3´>2Xbù2Ý©‚O«i> ½«@jXbº«À{GÄpF3*2pÝ©‚O«i F ½«@j*O«iŸÔT4Nî *T2°@° ½«@j*O«iT½«@j¥¼ NR*C2Nº«˜{ R Ý©‚*º«@8ó«@8 ÌÒ2,Øw N7 å2Ò2, ½«@jØ*ÀvNO«Nä N8úT.S«ò4 N º«À{ 8Ϋ@ú*òôw 7 82ô*ÀvO«NS«ò4º«ó«G 22 >öïòÀˆrƒÃeæÓ• À y*ºhüÀ…ƒ¦ ˆÖ Î-ÌÿÎ-Èÿƒ –%ôôž*Þh`ô‡ròˆ÷ fà w¶þ± *iÂe�‚lþÿ CÊ¥ ‚Ê¥ ‡Â Ê¥ (*&i‚ À…`B ÓƒÒ• ûô "Õròˆ™*Ji¦ ˆÖ ƒÖ Ã-@ÿÃ-<ÿü• ´ ü• Ç*ni4í´ 2÷ Là 5± Šü• ò*’i´ ü• 2Š—¬+2 ô Þ—¬<*¶i1ò ƒœò × 0òÍ"Úi÷ òà ò÷ äà ÜwÀýß(öiô "W=ü ùõUü 𠺫À{ Ý©P‚)ŒîÊ›.º«˜{îÝ©P‚ Ôª ì¨Ê­˜ÚtÓ.º«˜{U«P‚ –©° Út°¨ÚÐZ.–©°ÚÐ Z½«@jΫ@zºÐÒÔÊw I2ÐΫd Ò Ϋ@ÔÊ|Q†:×"ÎÂ7 Ö2 ÂO«N½«@j•«}½«@j•«}‡,è`ñ8è.T½«@j N º«À{8Ý©P‚oäN5N8Ö.O«PiN½«@j Nº«À{8ôN8W2Ý©P‚N º«À{ 8U«P‚½«@jø6øN8.øN  º«À{8U«P‚½«@jB70TÖ80».–©°0 TÖ½«@j–©°0œ&@t9:….@t ½«@j•«ò2 22 ½«@j O«i>½«@jøNF N—.NO«i F ½«@j Nº«À{:*8N.8Ý©P‚O«Pi N ½«@j–©°Ð80Tº0&˜J.0T º ½«@j–©°0&˜õN R*í2½«@j  º«˜{ RÝ©‚*ì¨@8.^ Rþ ú. º«˜{R U«‚ ½«@jþ ówˆý)*jô " õ Šúü õ ñäÀV;æ<û\æ6û\æ8û\êV VVÀ,æ2û\À .€@æ\æ\æ‘  ¿,4\æ\ÀNæ\9 N‡,Xæ\æ\æ\&&&&^ |\öînxxL.º«@8ó«@8x  x½«@jL%~*^´.÷ªO«¢f ½«@j*O«i^°ŽþX8¢2½«@jþ X º«À{8Ý©P‚O«PižN X86.N½«@j  Xº«À{8Ý©P‚j®þX8ø„.þXº«À{ 8 U«P‚½«@jøW¾ X80J.÷†ptk€„&ü ÷ vÿ4mô%è*Žkô%ü ÷ Xÿ4m€À æÎ ¨w²k0ÿ«*´k ô W¼ XW¼ Vò€lþÿ¦ˆO*Øk¦ˆò†lþÿñ‹ò–lffæ€÷ *ükrÖ Ö Ž ¦Îe ¦ ˆ– Bòžl¦Îe j* l¦ƒ ô  ¦ ˆ–%±±eñÿÿà ô ì*Dl"à ò� ˆ¦ˆ±œ à ñÐ*hl ± ‡Ã‡Ã‡Ãÿÿ‡Ãÿÿ¦å*Œlò€lþÿˆ‡Ö Ãöò¥ ò¥Ãê*°l ËÃò¥åƒ ò¥ò¥Ü‚ƒ ‚óú Xº«À{ 8 U«P‚–©°0Ì^ŽþF¸.^Ž ½«@jþº«˜{FÝ©P‚@ÞN FB2O«PiN½«@j º«˜{FÝ©P‚(îþFø �.þº«˜{F U«P‚ ½«@jø ½þFþ:* .º«˜{FU«P‚ ½«@jþ:*Xp :bŒ.º«À{pU«‚ ½«@j :bpûÔlÚÜ$ÖlÀ 7 xÁ ÁeX}É A‡ ‡±*ôl¦ &¶  †¦ ¦ ¦ ¦ ö E‚*m & & & æ€@ö ö 9^¦¦¦Í*@–©°@ é.Ý©‚@ñª@Q@O«N@O«i@U«‚@.•«}@ º«@8@º«˜{@½«@j@ò«@¨.ò«–@(Ý<hS³­(¤¯”d÷ææ(7 Ý< ÿ$SEQ,000002 ÿ.GLOBL ÿ$ADJ ÿ$ADJ,$A0002,000002,177777,177777,177777 ; COMMON ISTORE(1000), ICEL(1) ;C ;C ;C ;C ; DO 500 II=1,IWORDS ÿ$SEQ,000004 ÿ$P0014 ÿ.GLOBL ÿ$POP2 ÿ$POP2,II $F0001: ÿ.CSECT ÿ.$$$$. ISTORE=.+000000 ICEL=.+007640 .=.+007644 ÿ.CSECT ÿ ; I=ILOC + II -1 ÿ$SEQ,000005 ÿ$P0004 ÿ$P0013 ÿ.GLOBL ÿ$ADI ÿ$ADI ÿ$P0014 ÿ.GLOBL ÿ$SBI ÿ$SBI ÿ$POP2,I ; GO TO (1,2),NDO ÿ$SEQ,000006 ÿ$P0006 ÿ.GLOBL ÿ$TRX ÿ$TRX,000002 ÿ.1 ÿ.2 ÿ$SEQ,000024 ÿ$P0016 ÿ$SBS1,$A0006 ÿ$GET2 ÿ$P0022 ÿ.GLOBL ÿ$ADI ÿ$ADI ÿ$P0016 ÿ$SBS1,$A0006 ÿ$PUT2 ; 130 IF (IROW-ICOLUM) 140, 260, 140 .130: ÿ$SEQ,000025 ÿÿ$P0014 ÿ$P0016 ÿ$SBI ÿ.GLOBL ÿ$TSI ÿ$TSI ÿ.140 ÿ.260 ÿ.140 ; 140 DETERM=-DETERM .140: ÿ$SEQ,000026 ÿ$P0005 ÿ.GLOBL ÿ$NGD ÿ$NGD ÿ$POPP4,000010 ; 150 DO 200 L=1,N .150: ÿ$SEQ,000027 ÿ$‚o¦ˆ ò òµ@ÃòÅÙ ƒ >*¦oòµ ƒ òµƒ ‡Ãÿÿ‡ò¦:*ÊoÎe¦ ˆ¦ˆ ò‹îƒ òµ€éƒ òµ@îoäƒ òµßƒ Ýí*pò4pþÿ¦ˆ¦ˆ¦ˆ1ŠñÅ 1 1 Ó$p1 1 1  ‡Ãÿÿ‡‡:p¦¦6 6 \Í"Lp ¶Ö Ž …Ô Ô \Á$hpDD A @ ‡……w … ¥"†pÀÄþ�ˆ&÷µ3Ž\w  \*¢p&fÄÄþÅ€Œ ¤yŸ ÌþŒÉþf &Šþ*ÆpÎßÌþ&dQ&Œ¤ ZŸ ÌþŒ’ÿÿÿÿÿÿ·2O«Nñª@Q½«@j쨀>’"½«@j þúÐþO«i úS³­• ¤6(¾(žôþ'2½«@jž ô ì¨@8þº«@8O«ir8 ªHd?. ½«@j ª ò«–Hd½«@jªJô’è.ôº«˜{ ’ Ý©‚º«˜{èùZx ú ; 1 ISTORE(I)= IZ(II) .1: ÿ$SEQ,000007 ÿ$P0013 ÿ.GLOBL ÿ$SBS1 ÿ$SBS1,$A0002 ÿ.GLOBL ÿ$GET2 ÿ$GET2 ÿ$P0015 ÿ$SBS1,$A0011 ÿ.GLOBL ÿ$PUT2 ÿ$PUT2 ; GO TO 500 ÿ$SEQ,000010 ÿ.GLOBL ÿ$TR ÿ$TR,.500 ; 2 IZ(II) = ISTORE(I) .2: ÿ$SEQ,000011 ÿ$P0015 ÿ$SBS1,$A0011 ÿ$GET2 ÿ$P0013 ÿ$SBS1,$A0002 ÿ$PUT2 ; 500 CONTINUE .500: ÿ$SEQ,000012 ÿ.GLOBL ÿ$ENDDP ÿ$ENDDP,$I0000,II,000010,$F0001 ; RETURN ÿ$SEQ,000013 ÿ.GLOBL ÿ$RET ÿ$RET ; END ÿ$SEQ,00001P0022 ÿ$POP2,L $F0011: ; 160 SWAP=A(IROW,L) .160: ÿ$SEQ,000030 ÿ$P0014 ÿ$P0030 ÿ$SBS2,$A0002 ÿ$GET4 ÿ$POP4,SWAP ; 170 A(IROW,L)=A(ICOLUM,L) .170: ÿ$SEQ,000031 ÿ$P0016 ÿ$P0030 ÿ$SBS2,$A0002 ÿ$GET4 ÿ$P0014 ÿ$P0030 ÿ$SBS2,$A0002 ÿ.GLOBL ÿ$PUT4 ÿ$PUT4 ; 200 A(ICOLUM,L)=SWAP .200: ÿ$SEQ,000032 ÿ$P0013 ÿ$P0016 ÿ$P0030 ÿ$SBS2,$A0002 ÿ$PUT4 ÿ$ENDDP,$Éþv –*êpŠÃö`ßÌþBQ  à ä H*q�À ŒÁ`@ $)e@ ”ä �`@ À Œž*2q�m@ $)e@ ”€`Œ€ei@ iÖ „A @ ‡6*VqA @ Ä Äå€Ä%ÿŠÐÁŠÑÀ  à*zqA @ ‡ …6v …„–%\–%–% Ö À ÁžqÀÖ w   éŒ*°q& � f Â�6ŠÃÄþ cÀÊþ E$ÔqäÈÁv�Š�ÐÁ  6ŒN\¨òqCÀ@ ¡ ÁÂÃ…NrB€�  …M*rv v N ‡…¶¶\w rÎ ö ó 8r.U«‚½«@j ò« x½«@jµjèô’2º«˜{èÝ©‚ ô º«˜{’U«‚„x ú( $2½«@j–©°  ú(½«@j•«}H.Œ P2f\f\f\f \¶Z½«@j•«}(¶ ²Pç Â'ÂÈPÈè0,èPè Pæ\æ\æ\Š S³­ S³­ 4 ÿ$RET $A0002: ÿ0 ÿ050004 ÿ000062 $P0003: ÿMOV ÿ@000004(%5),-(%6) ÿJMP ÿ@(%4)+ $P0004: ÿMOV ÿ@000006(%5),-(%6) ÿJMP ÿ@(%4)+ $P0005: ÿMOV ÿ@000010(%5),-(%6) ÿJMP ÿ@(%4)+ $P0006: ÿMOV ÿ@000012(%5),-(%6) ÿJMP ÿ@(%4)+ $A0007: ÿITBL ÿ050004 ÿ000003 ITBL: . ÿ= ÿ.+000014 $A0010: ÿITEMP ÿ050004 ÿ000010 ITEMP: . ÿ= ÿ.+000040 $A0011: ÿISTORE ÿ050004 ÿ001750 $A0012: ÿICEL ÿ050004 ÿ000001 $P0013: ÿMOV ÿII,-(%6) ÿJMP ÿ@(%4)+ II: ÿ0,0 $P0014: ÿMOV ÿ#000001,-(%6) ÿJMP ÿ I0000,L,000004,$F0011 ; 220 SWAP = B(IROW) .220: ÿ$SEQ,000033 ÿ$P0014 ÿ$SBS1,$A0004 ÿ$GET4 ÿ$POP4,SWAP ; 230 B(IROW) = B(ICOLUM) .230: ÿ$SEQ,000034 ÿ$P0016 ÿ$SBS1,$A0004 ÿ$GET4 ÿ$P0014 ÿ$SBS1,$A0004 ÿ$PUT4 ; 250 B(ICOLUM) = SWAP .250: ÿ$SEQ,000035 ÿ$P0013 ÿ$P0016 ÿ$SBS1,$A0004 ÿ$PUT4 ; 260 INDEX(I,1)=IROW .260: ÿ óU*  Ž ¡  9*Ìr    ÅÄþM%¥Õ ADÍå � eàß X*ðrÎþ¥U% ßÎþ%a ÊþÎçÊþßúÿÌþv D*s…Åe€ÈÅ%ÿÂv‘  6  D v 6 Ô8sµ‡´……„–%\ƒ*Ds&f    & ö N & ŽÝW€ÝÀ±Ä*hs €Ý�ÝÁ�݂݂݃ÝÃö ì*Œs8v  „Ý áö €  ãó@(%4)+ $I0000: ÿ000001 $P0015: ÿMOV ÿI,-(%6) ÿJMP ÿ@(%4)+ I: ÿ0,0 ÿ.END $SEQ,000036 ÿ$P0014 ÿ$P0024 ÿ$P0022 ÿ$SBS2,$A0007 ÿ$PUT2 ; 270 INDEX(I,2)=ICOLUM .270: ÿ$SEQ,000037 ÿ$P0016 ÿ$P0024 ÿ$P0031 ÿ$SBS2,$A0007 ÿ$PUT2 ; 310 PIVOT(I)=A(ICOLUM,ICOLUM) .310: ÿ$SEQ,000040 ÿ$P0016 ÿ$P0016 ÿ$SBS2,$A0002 ÿ$GET4 ÿ$P0024 ÿ$SBS1,$A0010 ÿ$PUT4 ; 320 DETERM=DETERM*PIVOT(I) ;C ;C DIVI±6 ¶� ¶� ê*°s¶� ¶� ¶� ¶�6Š6 6 Ž*Ôs6 6 ‚‡v ‚‡¶ ‚‡ö ‚ç*øsŽ  -ÀÀæ w œ–%?    Ž û*tÅ ÷ ~6‘Å Å÷ n6ŠŬ*@t÷ ^6Å Å÷ N …Åe€ÒÅ%ÿC*dtv‘ 6 6 6  D v v v ©*ˆt6‡……„Æe\æ À´Ä à B A @ Ÿ*¬t‡€- ‚ ‡�- ‚‡‚-‚‡ƒ-‚ƒíž*Ðt‚ � € ‚í� € �í € €í „ Å Ù‡„ |ôtÄ Å ý… ‡ËÀ{ 8Ý©P‚:º«˜{|¨ X8.¨Ý©P‚v©  Xº«À{8ðŠ0^j% .U«P‚–©°0 ^j½«@j mœF:¨2º«˜{FÝ©P‚ : º«˜{¨Ý©P‚—ª Fã.v© º«˜{ F U«P‚½«@j”¶&*p'j ».*O«i p ½«@jj º«@8ìÈÐRÐ(j y0067 ÿ$ENDDP,$I0000,K,000004,$F0016 ; 710 CONTINUE .710: ÿ$SEQ,000070 ÿ$ENDDP,$I0000,I,000004,$F0015 ; 740 RETURN .740: ÿ$SEQ,000071 ÿ.GLOBL ÿ$RET ÿÿ$RET ; END ÿ$SEQ,000072 ÿ$RET $A0002: ÿ0 ÿ114004 ÿ000006 ÿ000006 $P0003: ÿMOV ÿ@000004(%5),-(%6) ÿJMP ÿ@(%4)+ $A0004: ÿ0 ÿ054004 ÿ000006 $P0005: ÿMOV ÿ000010(%5),%0 ÿBR ÿ$DE PIVOT ROW BY PIVOT ELEMENT ;C .320: ÿ$SEQ,000041 ÿ$P0005 ÿ$P0024 ÿ$SBS1,$A0010 ÿ$GET4 ÿ.GLOBL ÿ$MLD ÿ$MLD ÿ$POPP4,000010 ; 330 A(ICOLUM,ICOLUM)=1.0 .330: ÿ$SEQ,000042 ÿ$P0020 ÿ$RD ÿ$P0016 ÿ$P0016 ÿ$SBS2,$A0002 ÿ$PUT4 ; 340 DO 350 L=1,N .340: ÿ$SEQ,000043 ÿ$P0022 ÿ$POP2,L $F0012: ; 350 A(ICOLUM,L)=A(ICOLUM*uÀ�À ‚ ‚ B Ž- ‡$u ÆeÀ \ó*.uÀ�À ‚‚B Ž- ¶- Y Ru¶-  ‡ ÆeÀ \*luÎe€&f  ö v g@ Àö v  Ò*�uÀ 6 6 ¶¶ S@Œ ƒÝ ö•“*´u „Ýö•á�‚ à !Ä`�¨*Øu‚¶¶ À Ã%èÿ�‚*üuÀŸÄþ_ÂþßÎþÂÄþÁÂþ&–­!�mk* v‚mA W0�  „ Ä>DÐ   B D d*Dv …‡6¶ …„–%\w Fù2ó«@8ÐR Ð ½«@jj º«À{Ú8N)D 28Ý©P‚O«Pi N ½«@jD”«9êj 8**å.j º«À{ 8 U«P‚½«@j*ú^+jX8R.O«i^½«@j jXº«À{8ì  X8ò;.Ý©P‚ X º«À{ 8Ý©P‚ò†jX8Ã2Ôªº«j X º«À{F0017-4 $A0006: ÿIPIVOT ÿ050004 ÿ000006 IPIVOT: . ÿ= ÿ.+000030 $A0007: ÿINDEX ÿ110004 ÿ000006 ÿ000002 INDEX: . ÿ= ÿ.+000060 $A0010: ÿPIVOT ÿ054004 ÿ000006 ÿADD ÿ#10,%0 $F0017: ÿMOV ÿ-(%0),-(%6) ÿMOV ÿ-(%0),-(%6) ÿMOV ÿ-(%0),-(%6) ÿMOV ÿ-(%0),-(%6) ÿJMP ÿ@(%4)+ PIVOT: . ÿ= ÿ.+000060 $P0011: ÿMOV ÿ#AMAX+10,%0 ÿBR ÿ$F0020 $P0012: ÿMOV ÿ#T+10,%0 ÿBR ÿ$F0020 $P0013: ÿMOV ÿ#SWAP+10,%0 ÿBR ÿ$F0020 $P0014: ÿMOV ÿIROW,-(%6) ÿJMP ÿ@(%4)+ $P0015: ÿMOV ÿJROW,-(%6) ÿJMP,L)/PIVOT(I) .350: ÿ$SEQ,000044 ÿ$P0016 ÿ$P0030 ÿ$SBS2,$A0002 ÿ$GET4 ÿ$P0024 ÿ$SBS1,$A0010 ÿ$GET4 ÿ.GLOBL ÿ$DVD ÿ$DVD ÿ$P0016 ÿ$P0030 ÿ$SBS2,$A0002 ÿ$PUT4 ÿ$ENDDP,$I0000,L,000004,$F0012 ; 370 B(ICOLUM) = B(ICOLUM)/PIVOT(I) ;C ;C REDUCE NON-PIVOT ROWS ;C .370: ÿ$SEQ,000‚í� �í^*hv   � À0ÀŸÄþ_Âþ ÊþÄçÊþ@*ŒvßúÿÎþÄeÁÂþÂÄþÊW0ÇÄ Â A ù ì°vâÑ€w è  Â3*ÄvÎe€&f& ö v v v !vŒö !*èvv v v 6Œ6 6 6 6 ¶ä* w¶¶ ¶ Ö wFNŒ …Ýx*0wö• „Ýö•á €�‚ƒé*TwÅ PDa€�‚ ƒ ¶¶­*xw¶ ¶ Î 8Å%Èÿ €�‚9*œw ƒ ÎDÅ%ðÿƒB Åeö Å%ýÿÚ*Àw&8U«P‚Ý&0^þ,j‚.–©°0^ þ½«@jjº«˜{Ï8F Fò.FÝ©P‚  º«˜{ FÝ©P‚ò³FjFæ.Ôªº«j º«˜{ FU«P‚iR-0p¾0½.½«@j–©° 0 p¾–©°0¡d@‚.*@.@‚ ½«@j*O«i@½«@jžv/@*:^' ÿ@(%4)+ $P0016: ÿMOV ÿICOLUM,-(%6) ÿJMP ÿ@(%4)+ $P0017: ÿMOV ÿJCOLUM,-(%6) ÿJMP ÿ@(%4)+ $P0020: ÿMOV ÿ#$R0000+4,%0 ÿBR ÿ$F0021 $R0000: ÿ040200 ÿ000000 $P0021: ÿMOV ÿJ,-(%6) ÿJMP ÿ@(%4)+ J: ÿ0,0 $P0022: ÿMOV ÿ#000001,-(%6) ÿJMP ÿ@(%4)+ $I0000: ÿ000001 $P0023: ÿMOV ÿ#000000,-(%6) ÿJMP ÿ@(%4)+ $I0002: ÿ000000 $P0024: ÿMOV ÿI,-(%6) ÿJMP ÿ@(%4)+ I: ÿ0,0 $P0025: ÿMOV ÿ#$R0001+4,%0 ÿBR ÿ$F0021 $R0001: ÿ000000 ÿ000000 $P0026: ÿMOV ÿK,-(%6) ÿJMP ÿ@(%4)+ K: ÿ0,0 $P0030: ÿMOV 045 ÿ$P0016 ÿ$SBS1,$A0004 ÿ$GET4 ÿÿ$P0024 ÿ$SBS1,$A0010 ÿ$GET4 ÿ$DVD ÿ$P0016 ÿ$SBS1,$A0004 ÿ$PUT4 ; 380 DO 550 L1=1,N .380: ÿ$SEQ,000046 ÿ$P0022 ÿ$POP2,L1 $F0013: ; 390 IF(L1-ICOLUM) 400, 550, 400 .390: ÿ$SEQ,000047 ÿ$P0032 ÿ$P0016 ÿ$SBI ÿ.GLOBL ÿ$TSI ÿ$TSI ÿ.400 ÿ.550 ÿ.400 ; 400 T=A(L1,ICOLUM) .400: ÿ$SEQ,000050 ÿ$P0032 ÿ$P0016 ÿ$ÄÄþ̤_Ìþ d_ÌþS $>*äw_ÌþS„€    … úŽ­@ƒm B ,*xA @ ‚m A @ �m@ €m0€    ó*,x„ Ä "€w j      Ð   Õ*Px  C B A …‡6 v¶ö…„Æe­*tx\Ö w $÷ƒí ‚ � € ‚í � € �íÝ*˜x€ €í C B A @  A @  @ Î0øi*¼x,&ÄÄþL$ ÊþæÊþŒ$ ŸÌþS�*àxÌ$ ŸÌþŒPŽåæúÿŸÌþ dŸÌþSš*y $ŸÌþSŽå„Œ0‰Ä à B A @ ÷A*(yÄåÁ Äå�.@* ì¨@8 :º«@8O«i^†0X*pXÎ.½«@jX * º«À{pÝ©‚XQ–bpt.bº«À{p Ý©‚ º«@8ó«@8 ¢¨¨1X*p”.¨¨ ½«@jX*º«À{p3´>2Xbù2Ý©‚O«i> ½«@jXbº«À{GÄpF3*2pÝ©‚O«i F ½«@j*O«iŸÔTÿL,-(%6) ÿJMP ÿ@(%4)+ L: ÿ0,0 $P0031: ÿMOV ÿ#000002,-(%6) ÿJMP ÿ@(%4)+ $I0017: ÿ000002 $P0032: ÿMOV ÿL1,-(%6) ÿJMP ÿ@(%4)+ L1: ÿ0,0 $F0020: ÿMOV ÿ-(%0),-(%6) ÿMOV ÿ-(%0),-(%6) $F0021: ÿMOV ÿ-(%0),-(%6) ÿMOV ÿ-(%0),-(%6) ÿÿJMP ÿ@(%4)+ ÿ.END SBS2,$A0002 ÿ$GET4 ÿ$POP4,T ; 420 A(L1,ICOLUM)=0.0 .420: ÿ$SEQ,000051 ÿ$P0025 ÿ$RD ÿ$P0032 ÿ$P0016 ÿ$SBS2,$A0002 ÿ$PUT4 ; 430 DO 450 L=1,N .430: ÿ$SEQ,000052 ÿ$P0022 ÿ$POP2,L $F0014: ; 450 A(L1,L)=A(L1,L)-A(ICOLUM,L)*T .450: ÿ$SEQ,000053 ÿ$P0032 ÿ$P0030 ÿ$SBS2,$A0002 ÿ$GET4 ÿ$P0016 ÿ$P0030 ÿ$SBS2,$A0002 ÿ$GET4 ÿ$P0012 ÿ$MLD ÿ$SBD ÿ$P0032 ÿ$P003 Äåà ‚ÁÐÁÃÀÐ ¶ÚLy Á@ЊÂ�ЊÃÂЊªµ*dyÀ7Ì Ô %\Ä7ü  …ˆyÀw  �y7ì\T –y w L œy w L*¢y&@&f¦æ&f�Ä |ô þÿƒ ë*Æy÷à à à Ä`À�÷Ì õô%ÿÿô%þÿå*êy÷�ôØ| ÷ žÀàÀ À`&æÙ*z…„ƒ‚�€…ÅV}ÂŒ~A5Á **2zAaA0W¼ ,ñ‹W¬%.&@'*Vz÷ ”€�ò–zþÿò–z¦ˆò• ¦ÎeR 4N8è.T½«@j N º«À{8Ý©P‚oäN5N8Ö.O«PiN½«@j Nº«À{8ôN8W2Ý©P‚N º«À{ 8U«P‚½«@jø6øN8.øN  º«À{8U«P‚½«@jB70TÖ80».–©°0 TÖ½«@j–©°0œ&@t9:….@!HÆe(\Àà Àw Ã%Œ š©¨pl,l÷ 6ü w ÷ (÷ 8Æe(l ©`;ó,�ò\÷ "Æe(\ñ ùÃÀP©´w ‡Ð ‡Aš©¨p†ó.v:Ou¯”D©½`@¾©Þ@7ªÎ@÷ææ,&÷ Á à wÂô xñµ > ¾©Þ7ª""7ªÎQ,$ ÷ ÷ à à Ãewñµ"0 ÿ$SBS2,$A0002 ÿ$PUT4 ÿÿ$ENDDP,$I0000,L,000004,$F0014 ; 500 B(L1) = B(L1)-B(ICOLUM)*T .500: ÿ$SEQ,000054 ÿ$P0032 ÿ$SBS1,$A0004 ÿ$GET4 ÿ$P0016 ÿ$SBS1,$A0004 ÿ$GET4 ÿ$P0012 ÿ$MLD ÿ$SBD ÿ$P0032 ÿ$SBS1,$A0004 ÿ$PUT4 ; 550 CONTINUE ;C ;C INTERCHANGE COLUMNS ;C #*zz ¦ˆ¦ˆ±œ ±Š ± ¦ˆÀàÀ *žzÀ`&æwÐër2 þÿE@Í fc*Âzˆõ8{fÎe fˆfˆfÎef5�a*æzƒ õ` ˆfˆEÀ5Åe@ò@²î* {rò•¦Îe¦ˆ¦ˆòµ@$f-*.{æ#êfˆŠÀ&æÅ„|fÕ Îeæ3*R{"ˆfæ"ˆõ ÍRTåFOò É÷ *v{$à Øô wˆþ´ 4-ø÷êwyš{VþŽ*œ{&€Àe&€Ž&f&Í À÷ ~÷ #*À{¼TAÀÑ• À üÉ õ• ÍNAõME$t ½«@j•«}½«@j•«}(8 f\`@.XPGXpöpx�`x¨¸¨¼`Àe&&&&\…¼ì0,ìÀVAÀV>ÀV;æ<û\æ6û\æ8û\êV VVÀ,æ2û\À .€@æ\æ\æ‘  ¿,4\æ\ÀNæ\9 N‡,Xæ\æ\æ\&&&&^% ü7ªœw («p!7ª"",H wñ¥ô "1r÷ à ÞwP7ª"" D©½`‚,lE€Mô "òÀˆrƒÃeæÓ• À #7ª""¾,�üÀ…ƒ¦ ˆÖ Î-ÌÿÎ-Èÿƒ –%ôô+,´`ô‡ròˆ÷ à w± È•«à$7ª""N,ØÂe�‚lþÿ CÊ¥ ‚Ê¥ ‡Â Ê¥ ¶,ü‚ À…`B ÓƒÒ• ûô "Õròˆ', ¦ ˆÖ ƒÖ Ã-@ÿÃ-<ÿü• ´ ü• T& .550: ÿ$SEQ,000055 ÿ$ENDDP,$I0000,L1,000004,$F0013 ÿ$ENDDP,$I0000,I,000004,$F0005 ; 600 DO 710 I=1,N .600: ÿ$SEQ,000056 ÿ$P0022 ÿ$POP2,I $F0015: ; 610 L=N+1-I .610: ÿ$SEQ,000057 ÿ$P0003 ÿ$P0022 ÿ$ADI ÿ$P0024 ÿ$SBI ÿ$POP2,L ; 620 IF (INDEX(L,1)-INDEX(L,2)) 630, 710, 630 .620: ÿ$SEQ,000060 ÿ$P0030 ÿ$P0022 ÿ$SBS2,$A0007 ÿ$GET2 ÿ$P0030 ÿ$P00'i*ä{õ•SõEQÀ÷ BÄ€Á~ffÎeä*|æ"ˆ&&fæ"ˆfÎeæ"ˆ¢*,|÷ åw022rò¦p*P|Îe¦ˆ¦ˆòµ@‡ƒ Ö  „�€ž t|Ö ‡�x|V}Œ~ |*ž| zýÿ z z zæÂ| z zÿÿ$ zŠØ|À¦ÿ0ˆÀ ý&æøéc*ð|2 rrœ2 r rr ]*}rrœ &¦Îeæ"ˆƒÃeË¥"8}0ƒ ó• |\ó),D4í´ 2÷ à 5± Šü• Ðj¬e;,h´ ü• 2Š—¬+2 ô Þ—¬É,Œ1ò ƒœò × 0òZ$°÷ à ò÷ à Üwj¬e;j¬e;7ª""ó.­:=¯”6ª€p@-«˜€@¬À]@Û÷ææ,& æ& & æææö Î& 1¬À]6ª€p$-«˜€ä,$& & & & & && &f¦æ&f*31 ÿ$SBS2,$A0007 ÿ$GET2 ÿ$SBI ÿ.GLOBL ÿ$TSI ÿ$TSI ÿ.630 ÿ.710 ÿ.630 ; 630 JROW=INDEX(L,1) .630: ÿ$SEQ,000061 ÿ$P0030 ÿ$P0022 ÿ$SBS2,$A0007 ÿ$GET2 ÿ$POP2,JROW ; 640 JCOLUM=INDEX(L,2) .640: ÿ$SEQ,000062 ÿ$P0030 ÿ$P0031 ÿ$SBS2,$A0007 ÿ$GET2 ÿ$POP2,JCOLUM ; 650 DO 705 K=1,N .650: ÿ$SEQ,000063 ÿ$P0022 ÿ$POP2,K $F0016: ; 660 SWAP=A(+ øæ& "ˆ²Ö ‡À*T}l~j}Š}ª}Ê}ê} ~*~J~ðê'OÀ<›8*x}ðê'PÀ<›Æ*œ}ðê'QÀ<›¡*À}Ðfê'RÀ<›O*ä}€Mê'SÀ<›“*~Eê'TÀ<›å*,~ðê'UÀ<›ð*P~ê'VÀ<›""ð¢t~ê'Þ?TÒ$Š~ˆ-„Å… & ,HÅ ý…æµ ü %\ó.¬‘b¯”š©¨p@7ª-!@(t÷ææ,ô "!´  ‡W=f&&,$ü €�‘”À î´‡Àw ´ Ã"š©¨pj,Hwƒàíü 5 x7ª-!²lR”À ýáïó.­:ϯ”7ª@)@("7ªàƒh÷.K,JROW) .660: ÿ$SEQ,000064 ÿ$P0026 ÿ$P0015 ÿ$SBS2,$A0002 ÿ$GET4 ÿ$POP4,SWAP ; 670 A(K,JROW)=A(K,JCOLUM) .670: ÿ$SEQ,000065 ÿ$P0026 ÿ$P0017 ÿ$SBS2,$A0002 ÿ$GET4 ÿ$P0026 ÿ$P0015 ÿ$SBS2,$A0002 ÿ$PUT4 ; 700 A(K,JCOLUM)=SWAP .700: ÿ$SEQ,000066 ÿ$P0013 ÿ$P0026 ÿ$P0017 ÿ$SBS2,$A0002 ÿ$PUT4 ; 705 CONTINUE .705JŽO1ææ*ô "W=ü ùõUü w$7ª@)yó.6ªOu¯”D©½`@¾©Þ@7ªÎ@Þ÷ææ,&÷ Á mÂô Gñµ ÷ ÷ X ¾©Þ7ªÎ$7ªœw|,$à bñµ cñ% ô "r÷ k(«p!,Hà Nçô "õÀ|ƒÃeSôô˜D©½`Ù,l`ô‡ròˆ2: ÿ$SEQ,000067 ÿ$ENDDP,$I0000,K,000004,$F0016 ; 710 CONTINUE .710: ÿ$SEQ,000070 ÿ$ENDDP,$I0000,I,000004,$F0015 ; 740 RETURN .740: ÿ$SEQ,000071 ÿ.GLOBL ÿ$RET ÿ$RET ; END ÿ$SEQ,000072 ÿ$RET $A0002: ÿ0 ÿ120010 ÿ000006 ÿ000006 $P0003: ÿMOV ÿ@000004(%5),-(%6) ÿJMP ÿ@(%4)+ $A0004: ÿ0 ÿ060010 ÿ000006 $P0005: ÿMOV ÿ000010(%5),%03ÿ$P0030 ÿ$P0031 ÿ$SBS2,$A0007 ÿ$GET2 ÿ$SBI ÿ.GLOBL ÿ$TSI ÿ$TSI ÿ.630 ÿ.710 ÿ.630 ; 630 JROW=INDEX(L,1) .630: ÿ$SEQ,000061 ÿ$P0030 ÿ$P0022 ÿ$SBS2,$A0007 ÿ$GET2 ÿ$POP2,JROW ; 640 JCOLUM=INDEX(L,2) .640: ÿ$SEQ,000062 ÿ$P0030 ÿ$P0031 ÿ$SBS2,$A0007 ÿ$GET2 ÿ$POP2,JCOLUM ; 650 DO 705 K=1,N .650: ÿ$SEQ,000063 ÿ$P0022 ÿ$POP2,K $F0016: 5÷ à 1Âe€Ê5X•«à§,�± µÀ À ƒàô "åròˆx,´r4í2² ² ÷ à "j¬e;,Øõ5»± ¸Ã wà üÃeùà X7ª""ª üöÿó.ª:=¯”6ªPs@-«ç@™«À]@6÷ææ,æ& ææÿÿæö Î& & & 5™«À]6ªPs -«çH,$& & & && &6 ÿBR ÿ$F0017-4 $A0006: ÿIPIVOT ÿ050004 ÿ000006 IPIVOT: . ÿ= ÿ.+000030 $A0007: ÿINDEX ÿ110004 ÿ000006 ÿ000002 INDEX: . ÿ= ÿ.+000060 $A0010: ÿPIVOT ÿ060010 ÿ000006 ÿADD ÿ#10,%0 $F0017: ÿMOV ÿ-(%0),-(%6) ÿMOV ÿ-(%0),-(%6) ÿMOV ÿ-(%0),-(%6) ÿMOV ÿ-(%0),-(%6) ÿJMP ÿ@(%4)+ PIVOT: . ÿ= ÿ.+000060 $P0011: ÿMOV ÿ#AMAX+10,%0 ÿBR ÿ$F0020 $P0012: ÿMOV ÿ#T+10,%0 ÿBR ÿ$F0020 $P0013: ÿMOV ÿ#SWAP+10,%0 ÿBR ÿ$F0020 $P0014: ÿMOV ÿIROW,-(%6) ÿJMP ÿ@(%4)+ $P0015: ÿMOV ÿJROW,-(%7 ; 660 SWAP=A(K,JROW) .660: ÿ$SEQ,000064 ÿ$P0026 ÿ$P0015 ÿ$SBS2,$A0002 ÿ$GET4 ÿ$POP4,SWAP ; 670 A(K,JROW)=A(K,JCOLUM) .670: ÿ$SEQ,000065 ÿ$P0026 ÿ$P0017 ÿ$SBS2,$A0002 ÿ$GET4 ÿ$P0026 ÿ$P0015 ÿ$SBS2,$A0002 ÿ$PUT4 ; 700 A(K,JCOLUM)=SWAP .700: ÿ$SEQ,000066 ÿ$P0013 ÿ$P0026 ÿ$P0017 ÿ$SBS2,$A0002 ÿ$PUT4 ; 705 CONTINUE 9f¦æ&f„Å… & Å ý«$H…æü %\©ó.™«�b¯”š©¨p@7ª-!@(h›÷ææ,ƒô "BÁô ‡õ {,$&f¦ü ‚�€ô "ÂëÁé‘”k(Hƒ õ À ãô‡Àw ´ wš©¨p"7ª-!ó.ª:ϯ”7ª@)@(27ª qhÝ÷ææ:6) ÿJMP ÿ@(%4)+ $P0016: ÿMOV ÿICOLUM,-(%6) ÿJMP ÿ@(%4)+ $P0017: ÿMOV ÿJCOLUM,-(%6) ÿJMP ÿ@(%4)+ $P0020: ÿMOV ÿ#$R0000+4,%0 ÿBR ÿ$F0021 $R0000: ÿ040200 ÿ000000 $P0021: ÿMOV ÿJ,-(%6) ÿJMP ÿ@(%4)+ J: ÿ0,0 $P0022: ÿMOV ÿ#000001,-(%6) ÿJMP ÿ@(%4)+ $I0000: ÿ000001 $P0023: ÿMOV ÿ#000000,-(%6) ÿJMP ÿ@(%4)+ $I0002: ÿ000000 $P0024: ÿMOV ÿI,-(%6) ÿJMP ÿ@(%4)+ I: ÿ0,0 $P0025: ÿMOV ÿ#$R0001+4,%0 ÿBR ÿ$F0021 $R0001: ÿ000000 ÿ000000 $P0026: ÿMOV ÿK,-(%6) ÿJMP ÿ@(%4)+ K: ÿ0,0 $P00; .705: ÿ$SEQ,000067 ÿ$ENDDP,$I0000,K,000004,$F0016 ; 710 CONTINUE .710: ÿ$SEQ,000070 ÿ$ENDDP,$I0000,I,000004,$F0015 ; 740 RETURN .740: ÿ$SEQ,000071 ÿ.GLOBL ÿ$RET ÿ$RET ; END ÿ$SEQ,000072 ÿ$RET $A0002: ÿ0 ÿ114004 ÿ000006 ÿ000006 $P0003: ÿMOV ÿ@000004(%5),-(%6) ÿJMP ÿ@(%4)+ $A0004: ÿ0 ÿ054004 ÿ000006 $P0005: ÿMOV=,ô " õ Šúü õ ña$$€ =w-7ª@)�ó.‚:Ou¯”D©½`@¾©Þ@7ªÎ@÷ææ,&÷ Á {Âô Zñµ ÷ ÷ 7 ¾©Þ7ªÎ$7ªœw|,$à oñµ rñµ nuuu5(«p!,H&$eµ#b‚Î ff÷ Ö ´ ‘«-X,lƒñ ñrrrr30: ÿMOV ÿL,-(%6) ÿJMP ÿ@(%4)+ L: ÿ0,0 $P0031: ÿMOV ÿ#000002,-(%6) ÿJMP ÿ@(%4)+ $I0017: ÿ000002 $P0032: ÿMOV ÿL1,-(%6) ÿJMP ÿ@(%4)+ L1: ÿ0,0 $F0020: ÿMOV ÿ-(%0),-(%6) ÿMOV ÿ-(%0),-(%6) $F0021: ÿMOV ÿ-(%0),-(%6) ÿMOV ÿ-(%0),-(%6) ÿJMP ÿ@(%4)+ ÿ.END ? ÿ000010(%5),%0 ÿBR ÿ$F0017-4 $A0006: ÿIPIVOT ÿ050004 ÿ000006 IPIVOT: . ÿ= ÿ.+000030 $A0007: ÿINDEX ÿ110004 ÿ000006 ÿ000002 INDEX: . ÿ= ÿ.+000060 $A0010: ÿPIVOT ÿ054004 ÿ000006 ÿADD ÿ#10,%0 $F0017: ÿMOV ÿ-(%0),-(%6) ÿMOV ÿ-(%0),-(%6) ÿMOV ÿ-(%0),-(%6) ÿMOV ÿ-(%0),-(%6) ÿJMP ÿ@(%4)+ PIVOT: . ÿ= ÿ.+000060 $P0011: ÿMOV ÿ#AMAX+10,%0 ÿBR ÿ$F0020 $P0012: ÿMOV ÿ#T+10,%0 ÿBR ÿ$F0020 $P0013: ÿMOV ÿ#SWAP+10,%0 ÿBR ÿ$F0020 $P0014: ÿMOV ÿIROW,-(%6) ÿJMP ÿ@(%4)+ $P0015:AÆ,�÷ à =±CÀ`44 ™•«à»,´Blµ ƒB`´‡ô "± 4 Ž,ØÏrrrr÷ à õ � j¬e;,üè‡Ã à Ãewà ûà :7ª""¦  øØó.z8�0¯”Ôª@8@(j7ª@h¢÷ææ,& ææ ææææk,$…Å U%…aC ÿMOV ÿJROW,-(%6) ÿJMP ÿ@(%4)+ $P0016: ÿMOV ÿICOLUM,-(%6) ÿJMP ÿ@(%4)+ $P0017: ÿMOV ÿJCOLUM,-(%6) ÿJMP ÿ@(%4)+ $P0020: ÿMOV ÿ#$R0000+4,%0 ÿBR ÿ$F0021 $R0000: ÿ040200 ÿ000000 $P0021: ÿMOV ÿJ,-(%6) ÿJMP ÿ@(%4)+ J: ÿ0,0 $P0022: ÿMOV ÿ#000001,-(%6) ÿJMP ÿ@(%4)+ $I0000: ÿ000001 $P0023: ÿMOV ÿ#000000,-(%6) ÿJMP ÿ@(%4)+ $I0002: ÿ000000 $P0024: ÿMOV ÿÿI,-(%6) ÿJMP ÿ@(%4)+ I: ÿ0,0 $P0025: ÿMOV ÿ#$R0001+4,%0 ÿBR ÿ$F0021 $R0001: ÿ000000 ÿ000000 $P0026: ÿMOV ÿK,-(%6) ÿJMP ÿ@(%4)EEcÅe %e¥å%å D…€,HÅ …aU%Õ ÷ Z´.4ô%†ôE¬,lƒà ƒaôü ÷ .ô%ôeü î,� ÷ Î êå F\ô ó ,´‡ƒà ƒa´�t� A @ A @ A A A Ð,ØA ÁEøÿ4Á%‚ ‡Q¤ô% ´ ),ü Á%Á � ´ t&Ä*àà¦À ’ *§, ý\*€„&ü ÷ vÿ4mô%7Ôª@8 Ôª@8 *¡,Dô%ü ÷ Xÿ4m€À æÎ ¨wÅ h0ÿ+ K: ÿ0,0 $P0030: ÿMOV ÿL,-(%6) ÿJMP ÿ@(%4)+ L: ÿ0,0 $P0031: ÿMOV ÿ#000002,-(%6) ÿJMP ÿ@(%4)+ $I0017: ÿ000002 $P0032: ÿMOV ÿL1,-(%6) ÿJMP ÿ@(%4)+ L1: ÿ0,0 $F0020: ÿMOV ÿ-(%0),-(%6) ÿMOV ÿ-(%0),-(%6) $F0021: ÿMOV ÿ-(%0),-(%6) ÿMOV ÿ-(%0),-(%6) ÿJMP ÿ@(%4)+ ÿ.END IZó.#©Ïh¯”D©½`@š©¨p@ ©`;@\÷æ,·÷ ÷ Gwœ ÷EüÿÖ \÷%ü ¾©Þ,$ú÷ ÷fæææ÷à* 7ªÎ $&-,H÷år÷ ÷ 1÷ ÷ ÷ 0�*D©½`7ªœw («p!$º,lô $÷ ÷ ô ± òòµùi •«à›,�ðÖ ·–%À÷M ÷÷÷]w ) "$",´w ÷ ñ÷7 î÷ ÷÷eý*š©¨p ©`; &ã Øä5ó.tO*¯”D©½`@š©¨p@ ©`;@U÷ææ,€÷ Á W¼  Âr÷ à ᄅÞ7ªÎ"D©½`d&$\à ÀÃÀPw w à öïš©¨p ©`;nó.ùÏOQ¯”š©€p@ ©`;@¾©Þ@÷ææ,÷ Á ñµ Äe\ñµ 1b¾©Þ�,$1ñ 1ñÕ \w  èw ©š©€p$š©€p5H w  ©`;ûó.E`O\¯”‘«-X@("(«p!h÷ææ, ô W¼ XW¼ VòÌþÿ¦ˆ‰  ÌU,$¦ˆòÒþÿñ‹òâffæ€÷ \ Òâ,HÖ Ö Ž ¦Îe ¦ ˆ– Bòê¦Îe ‘«-Xê,l¦ƒ ô  ¦ ˆ–%±±eñÿÿà ô ,�"à ò� ˆ¦ˆ±œ à ñÐ#,´ ± ‡Ã‡Ã‡Ãÿÿ‡Ãÿÿ¦,ØòÌþÿˆ‡Ö Ãöò¥ ò¥Ã% Ì,ü ËÃò¥åƒ ò¥ò¥Ü‚ƒ �  Úöó.%&Oޝ”e©¢Œ@(¾©YÞh»÷ææ&À 7 Á ÁeÉ A‡ ‡I e©¢Œe©¢ŒBó.@©�I¯”š©€p@(@©ÀDh¤÷æææB!ˆe–áw \%š©€p¢ó.ïyÐh¯” ©`;@(Ì«@`hì÷ææ&æ"ˆæw è‹] ©`;ïó.IqÏO¯”( IqKh¯”™÷ææA@A…^ó.LÏš¯”(ØÀNh¯”ª÷ææCÀÁCÂÃ…Eó.ú�0¯”(&˜?h¯”‹÷ææCÀÁ÷*÷e€*Ã…>a**qó.ê�{¯”zy}@쨀p@v©€p@Ÿ÷ææ,fDÀ Á  †&&&&&$,$& À /&&&&&&7 L=*HT^f¦¦\& æ€@\…ÄÖ*v©€pTÔª€p ^ 쨀pfp,j÷ v7 ~€ÀE€�…  …"zy}³©,Ôª€p~¦Ž  ùÖ \ó.©�0¯”( eµXh¯”ê÷ææAQ$@A…çó.6}Ï6¯”#@쨀p@v©€p@*÷ææ,fE@-À ŠÀ …À€@ Í Àe€R,$ffÎe€…Ä÷ f&& æ€@f&+#³©,ë,H& æ€@7 "j\€�……  û¶O&º«€pj쨀pv©€p\¼l ¶ \Ö \ói.óx�b¯”쨀p@v©€p@6ªÐ@Š÷ææ,D& &&æÛæÉ@7 À(D& &Ø쨀p(ý,$&Î 6  æÛæÉA7 œz„zù*v©€pz 6ªÐ"º«€p$„&zîHŽ”zzˆ.6ªÐŽº«€p ” zzÔª€plV¼Ø*¼Ôª€p쨀p Ôª€p 쨀pô`Š.Ôª€p쨀pÔª€pm 쨀p Ôª€p:,jl€�Ö Àe€…¦¦\Î ò¶Š\m l€,޶S\ö‹ Îe€& æ€@7 0¬ÄP¶Œ쨀p ¬$Pü,²†Îe€\€�ÂÜÃf&¦¦à ú× Ü"Ö\Ö \ÛÉ@á]%ÀX4£>c&™¼º×:!ó.O\¯”ì¨@i© Z@v©@ï÷ææ,fD& &&&&æÂhæ!¢æÚæö,$É@7 DfD& &&q&&Î 6 æ ì¨ DÜ,H æÂhæ!¢æÚæÉA7 δƴ^*v©´ i© Z"º«$Æ&´ lÐÖ´´l.i© Zк« Ö ´´ÔªEzm*Ôªì¨ Ôª ì¨ „f.Ôªì¨Ôª ì¨ ÔªmŽ\.ì¨Ôªì¨ Ôª ì¨W,˜ €�‚ƒÖ Àe€u……¦¦"Ôªì¨Ôª  2,¼¦¦\Î ë¶Š\¶S\ö‹ Îe€,à& & & æ€@7 @òÄt¶Œ †Îe€\€oì¨òt�,�‚ƒÄzÅ æ¦f&&&&&Å ö«  zi,(Ä|\Ö \Î-Ã�¿JòÌ7±»¼,†k¦t4¯y¬NâÙq·Ø |n,L¦ƒŽî¸(:<ŒBY†™¼fisª£>ã5­;oS%Àç]-1!p’òÉ@Ú!¢Âhó.ÁO\¯”+@#@6x@÷yææ,& æfEfÄ÷ …f&Ä÷ [&6x³©,"+&³©,=,$f&¦)… EU%Ä÷ f&& æ€@f¿#³©,ç,H&7 ¢Zlv¦¦¦¦\´* v©€p Z쨀plº«€pvA,l¶ ¶ \Îå€6‡5…öå€ö ¦ ¦�,� 7 ZžÔ¶¶¦ ¦ \¦Á Ôª€p žÔª€pÔO,´¦Îe€7 0ÈÒ¶ ¶ \ €�O}Ôª€pÈÔª€pÒ$Ø‚ƒÄ –%…Ö … 6 ÇÖ \äó.ªg=¯”v©€p@š©€p@Ôª€p@›÷ææ,¦ &¶ †¦¦ö . & æ€@¬,$ö ö $<¦ ¦ ¦¦7 l]&Ôª€pT,HJ¶ õ†¦¦¦¦7 Nh¶ J Ôª€p"hx,l¶ö â–%ö ¦¦6 ö€@ ,�7 š¶¶„–%\–%w õ�Ö Æ v©€p š š©€pà ´\âó.ªgOu¯”/À+@#@š©¨p@#÷ææ,€�‚&ff&Ê %' Ê Î €,$Î "Ä…÷ f&7 6@…Ä÷ N* /À+³©,Ôª€p@$#¬,H–%…„v\ÀÀÀw ]³©,&š©¨pÄl  ìÖ \?ó.œgϯ”àd@ïÀ+@š©…¨p@ ÷ææ,€�‚ƒ¦¦6 6  €�  ,$€�‚ƒ&f…U%æ¦f&Í +- Í ,HÎ !#Î (#Ä÷ æ¦f&7 @xïÀ+³©,&,lp…Ä÷ Æe…„v¶ö£"Ôªp àd³©,®(�\ÀÀÀw  çÖ \wš©¨ptó.œg=¯”v©@š©€p@Ôª@W‰÷ææ,¦ &¶  †¦ ¦ ¦ ¦ ö EÝ,$ & & & æ€@ö ö 9^¦¦¦),H¦¦¦¦¦7  f¶ ñ†èÔª f¨,l¦¦¦¦¦¦¦¦7 r*,�”¶¶¶¶ö ÒÆeö Ôª”®,´¦¦¦¦6 6 6 ö€@&,Ø7 &à¶ ¶ ¶ ¶ „–%\Æew óv© à¹üð�Ö \­š©€p°ó.¡g=¯”š©€p@Ôª@8@(„Â÷ææ,€&&f… †¦Å 榦7 ¼,$Z*… ù†¦¦7 H<¶Å îÖ ¶›Ôª@8*Ôª@8<?,H…„\Î Î\Î Î ø \ÎeS lû€ † \w \Ö \¹š©€p¢ó.ÀR�Ư”E©€p@™«@(xÁ÷‘ææ,ææ& f6Š& fæ NöŠ€&ï,$&@&&7 @8ö ëö èúE©€p8£,HÕ öŠè�Ö @AÖ …ff7 \&™«~ln€Ö …Ö \Ö n~ó.œSXÀ¯”v©@8@Ôª@8@(" ÷ææ*ffff7 Žå€Ö \ v©@8Ôª@8á•ó.„:XÀ¯”™«@(é8 ZhL÷ææ"D&&7 €…Ö \H™«gó.99Ïš¯”쨀p@™«@(,ô÷ææ,D&&�& æ@& æÀ7 $¢"쨀p$™«&$~$€…Ö \qó.a'Ï�¯”:ª@(o'` hÊ÷™ææf7 €�…Ö \ :ª Ùó.ϯ”i© Z@v©@Ôª@¯÷ææ,CÃeDÄeÂÀ&&&&ffù,$ff ô7 :€�‚ƒ…Ö \@*v©i© ZÔªº«:Åó.uXÀ¯”º«€p@(.uhâ÷æ�æ,@&&@&&7 €�…󺫀p8$  ûÖ \kó. Ï�¯”ì¨@v©@š©€p@÷ææ,fEA7�:Bæ�  Áe@ & & ¦fŸ,$& & ff& & ¦f7 P@Îå€ö ·v©ì¨@],Hffff¦¦¦¦æ€§*l�‚ƒÖ ……w û    õÖ \¼¡š©€p¢ó.ÉÏ�¯”êÀv@zy}@쨀p@T÷ææ,fEffÎE€Ä÷ f&7 p$ "êÀv³©,$쨀p&$ä,$Îå€,‡…Ä÷ –%…Df&&&czy}³©,º,Hf&Îe€7 <XDÌ ‚ƒ€�…€�v©€pXZ,l�‚ƒô Âe€Àe€…w –%……Tš©€p˜ �Ö \#ó¥.zyÏ�¯”쨀p@v©€p@š©€p@Ÿ÷ææ,fEA#�&æ� Áe@ & f& f& f7 Ž,$8,Îå€ö ff¦¦î€òv©€p쨀p ,ÿ"H�Ö ……w û  ÷Ö \'š©€p¦ó.iÏš¯”E©@(` Øšh®÷ææ,æ& fæ NÎeöŠ€&&&&@Àeó,$©&&&&7 *6ö åö âÕ GE©6€ HöŠä€–%…Ö \°ó.Wϯ”v©€p@6ªÐ@Ôª€p@±÷ææ,@AÂ&&ff ø7 ¤$v©€p&6ªÐS$*€�…Ö \©Ôª€pº«€p*×ó.©Ïš¯”:ª@(2I°šhÍ÷æ­æ, D@@#  úÕ ÄŠù7 "€Å":ª$"—$�… ôíÖ \¹ó.a O\¯”쨀p@v©€p@Ôª€p@’÷ææ,& & & & & D&&€D&&�Ó,$À ŠÀÁ ŠÁ@àÀ%7 t@ý  ö(v©€p@Z,HIAöÛ ý öe€Î ÆeÀÉ@Á",lÛý Àe€…& & & & & D&&g,�Îe€¶ —#€@‡±ö öÉÀöÛö ð,´ ¦¦ö€@6 7 äЦ¦óv©€pÐÊ,Ø6 6 —#‰?%‡‚—-£0 ƒö@ö’ |,ü€�æ׳æÝÀf&& æ€@æ׳æÝ@f&¤* 7 Œj0€�f&f&7 n.Ôª€p º«€p jº«€pv©€p0¦Bt2*Ôª€ptÔª€p 쨀p Ôª€pQL�.쨀pÔª€p쨀p Ôª€p 쨀p$,V�b€�Ö …¶ ¶ \µ€�Âì.Ôª€p쨀p쨀p � 쨀pb“,z°Ãf&¦¦à ú\ö Îe€\Å>S °;žÂ:¿L]L?ÛÆª¿¤ª€@Ö \êó.<O\¯”ì¨@v©@Ôª@,÷ææ,f& & & & & & & & & D&&&q,$&€D&&&&�%À ŠÀÁ ŠC,HÁ@àÀ%:7 ˆZý öIAöÚwv©Z+,lö!¢ö¹Áhý öe€Î #Æe$ÀÉ@,�ÁÚÂ!¢ÃÁhý Àe€…f& & & & & E,´& & & & D&&&&Îe€¶ X,Ø—#€@-‡ ö ö ö #öÉÀöÚé,ü ö!¢ öÁhö ¦¦¦¦ög, €@6 6 6 7 ª8¦¦¦„v©8@,D¦6 6 6 6 —#‰?G‡‚—-¢0 ‚’,hA‡—-öô‚<‡—-±j8ƒö@ö‘ ökÁÃ,Œ ö,›€�‚ƒæTeæÂBæ׳æ¨,°ÝÀæ¦f&& & ½& æ€@æTeæÂBæ׳æÝ@�,Ôæ¦f&7 þLì€�‚ƒ´.Ôªº«Lº«v©ì3(øæ¦f&æ¦f&7 Ð^µ*Ôª^Ôª ì¨"ÔªTÐ.ì¨Ôªì¨ Ôª ì¨W"Æ.Ôªì¨Ôª ì¨ Ôªm,¼.ì¨Ôªì¨ Ôª ì¨W,6Š>€�‚ƒÖ …Á…¶¶¶¶ì¨Šì¨ >�,Z\€�‚ƒÄÞÅ æ¦f&&&&ò Þþ,~&Å öÄ\ö Îe€\5>ÇÑÀä愾›Æˆ  Ð,¢ �>Fl.&ź¾¹+ �˜kã>'Ž•'+¿$IÝriœ$ÆL?Į̀̔몿ªªªª‚—€@Ö \Óó.#XÀ¯”쨀p@v©€p@š©¨p@o÷ææ,D ²Ã/‚ °C(‚À  f ‡æ & æï&$€@&&&&7 ´Š”ÅŠZ*ŠÔª€p™«”:ª ŠßBš*v©€pº«€pš Ôª€p 쨀p¤Lz$*v©€p쨀p쨀p v©€p zô,V€Ö À€@…ÀÀw  …%&쨀p€Ôª€p Ö š©¨pä,zÎe€€\¦¦\æ;ªæ¸@\¶ \N @ Ý,žÎåƒ  €�æ‚=æ@Âf&æysæEê,Âæ[\æpCf&f&\–%€ÀŠ€ €eÁ�� æÖ …Ö \cóÉ.àÏh¯”ì¨@i©@v©@�÷ææ,fD ²Ã1‚ °C*‚À  F#‡Æåî,$Äe&&&&æñæ\)æ;ªæ¸@7 Fj7$Ôª&j—H"0já*i©",ª º« 0jdT@6jjD.i©@,ª º« 6jjÀ,b„À€@ÀÀw    M€ÿÔª„š©¨p;,†�‚̓æã6æåæÕææAæ¦f&æÃ׿˜,ª Öæð–æl>æ¦f&æ"òæyæš‚æ¦B7 ñκF|š.ì¨F Ôª ì¨Ôª|)(ÜXæÅ®¶ †ffff7 Ž*ì¨Xº« v© æ®6,üêÅåñ€�‚ƒÖ „ÄŠ„ a§�…gÔªêX, …ý Î ¶\Îe\Îå€ \¶ä,D\¶&¶&¶&¶&\¶¶¶¶‹,h\¦¦¦¦\À¦À ü\Ö ÔÑ*Œ\µ@óù3eÞ˜@ð7�Q©¸‹@Á•êã׋…@êÌg{HØó. Ïh¯”+@#@6x@�÷ææ,fEU%fÄ÷ …f&Ä÷ f&`&6x³©,+"³©,M,$…EÄ÷ & & f&7 D€�ú"#³©, ÔªÀ"DH‚ƒ……Ö \ó./�0¯”쨀p@v©€p@š©€p@ì÷æÕæ,æ& Dær汿¦)&&^Î ¶� f,$ö•€ æóæ5@¦¦æóæ5@7 ŒdH’¨¨¾*º«€p’쨀p v©€p ¨¨¿T~ˆˆˆ|.Ôª€p~ˆ ˆ ˆÔª€p쨀pþbˆ.Ôª€p쨀pÔª€p 쨀p Ôª€p:lœ²..쨀pœ:ª ² Ôª€p쨀pÙ,x¼¼€�Âôf&¦¦\¶ ¶ \]Ù¼Ôª€p¼ôÝ,œ& ŽÝÎå€\¦¦\æræ1@\öŠL,ÀæÙ[æÞ?\€�Ö …Ö \Æew … I"š©€p’äš?UÌ? *@ÚªAÁó.ï�0¯”ì¨@v©@š©€p@È÷ææ,æ& fDÄeæzÏæÑ÷ær汿Æåñ,$&&&&@Î ¶�ö•€ æeÞæù3æ›,Hóæ5@¦¦¦¦æeÞæù3æóæ‹l5@7 Üæõ*Ý º« æì¨v©~º²*ÔªºÔª ì¨ Ôªhˆb.ì¨Ôªì¨ Ôª ì¨W’X.Ôªì¨Ôª ì¨ Ôªmœø=.ì¨ø,ª  Ԫ쨫,¨((Æmw H€�‚ƒÄŠÅ&(Ôª( š©€p Š·,Ìæ¦f&&&&&Å öÄá‚\¶¶¶¡ ‚T,ð¶\& ŽÝ Îå€\¦¦¦¦3,\æzÏæÑ÷æræ1@\öŠ ær(æ7©æ,8Ø[æÞ?\€�‚ƒ…Ö …Ö \-?¸ŒvÞøù9?ì,\ÙuοMžc?k’A`5»’?IÆ2fÌ?ÌÌ(×ûë*@ªª§ªB€£ A/Mó.¯�0¯”/À+@a €\@êÀv@Œ÷ææ,f@ææ_&$&æ…7Æe …G  a €\R,$f&EÄå÷ f&…Ä÷ –%‚ƒ¾&êÀv³©,/À+ ³©,ï H……‰ó.º«�{¯”(Jº«˜{hº«À{h›÷ææ,  ‚ Á÷ $‚ `ÁJ,$÷ ‚ €`œ‚ À üÀb\ÀÂþPˆt H‡#ó.=d�{¯”(A«=†h¯”÷ææ&&æ"ˆæé„Ä5„ „ \Ëó.ö&ϯ”(¹© Xh¯”˜÷ææ–%%\žó.´rV¯”(`‘«-Xh¯”Ó÷ææ,&f¦æ&ƒ„   ¡ †Á`@ €`;,$à B Ä ö  ƒ ƒ €   „ ù  @  HÄ üv6„ƒ‚�€‡dó.™’Ï�¯”(Žj¬e;h¯í”Â÷ææ,òJþÿô "2Šò•¦Îe¦ˆ‚ J ,$¦ˆ ò‹ ƒ òµ ƒ ƒ òµ@ƒ š,H‡Ãÿÿ‡ò¦Îe¦ ˆ¦ˆ ò‹în*lƒ òµ€éƒ òµ@äƒ òµßƒ ÝŸó.Iqϯ”(¢•«àh¯”÷ææ,ò^þÿô ,2Šò•¦Îe¦ˆb ^Œñ,$¦ˆ ò òµ@ÃòÅÙ ƒ ,Hòµ ƒ òµƒ ‡Ãÿÿ‡ò¦,lÎe¦ ˆ¦ˆ ò‹îƒ òµ€éƒ òµ@Ù�äƒ òµßƒ ݵó.³$¯”(:D©½`h¯”C÷ææ,ò4þÿ¦ˆ¦ˆ¦ˆ1ŠñÅ 1 1 ® 4¶$1 1 1  ‡Ãÿÿ‡òó.”«XÀ¯”(“«h”«h�õ÷ææ¦¦6 6 \ró.´rˆ¯”(Z¶pHh¯”Þ÷ææ,W%'BC€ÁÁ @ €bÁb@ Àb€Àe€ &,$K‚Á @ ‡Â ûŠÐÁŠ€ÐÀ  CCHK…Á€ çå …úó.ó«=¯”(ó«hó«@8hœ÷ææ$ ¶Ö Ž ù…Ô Ô \xó./xO\¯”(/x€Wh¯”š÷ææA@AD@ D …9ó.÷xÏO¯”š©€p@(÷xKh÷ææ&DD A @ ‡……w … ¡š©€p˜ó.¶ROÀ¯”(¶R€»h¯”÷æýæD@@#üÕ ÄŠû…ó.€QOÀ¯”(€Q€»h¯”‚÷ææD@@#üÕ ÄŠû…ó.Ôª=¯”š©€p@(Ôª@8hŒ÷ææ$ÀÄþ�ˆ&÷µÉþ\w \ÿÉþš©€pºó.ÔªOu¯”š©¨p@(Ôª€ph�÷ææ,&fÄÄþÅ€Œ ¤yŸ ÌþŒÉþf &Š ,$ÎßÌþ&dQ&Œ¤ ZŸ ÌþŒÉþv £,HŠÃö`ßÌþBQ  à ä U,l�À ŒÁ`@ $)e@ ”ä �`@ À Œ¬,��m@ $)e@ ”€`Œ€ei@ iÖ „A @ ‡D,´A @ Ä Äå€Ä%ÿŠÐÁŠÑÀ  î,ØA @ ‡ …6v …„–%\–%–% Ö À ÏüÀÖ w  颚©¨p~ó.Ԫϯ”š©¨p@(4Ôªh ÷ææ,&fö f & Ž� ¶� ±6 ¶� _,$ö ¶� ö ¶� ö6Šö –%.,Hw˜v    „Ýaö•6 ö¶�©,lö¶�ö¶�ö6ŠÄÄþº,�¦Œw R‚ƒ¦ Œw B‚eA ƒeB û,´A ¦ Œw ,‚eA ƒeB A ¦Œw À,Ø‚eA ƒeB A ƒB ¦Œw ú‚eA ƒeB è,üA ¦ Œw ä‚eA ƒeB A ¦ Œw Î, ‚eA ƒeB A ¦Œ w ¸�e@ ‚eA @ ¦ ¿,DŒw ¢�e@ ‚eA @ ¦Œw Œ€e�e@ W,h„à B A @ ‡Ã B A @ Ä Äå€+Ä%ÿ%Š,ŒƒÐÊBЊÐÁŠÑÀ    C B ¢,°A @ ‡ …6 v¶ö…„Æe\æ Ú,ÔÀ ÀÖ w    å Ì ö ¤š©¨pz,ø eŽm ö Îe€eÎe€Žm* Ô Œ6iÔ M6 M¯ó.Ôª�¯”쨀p@Ôª€p@º«€p@=÷æóC¦ Mˆ&ææ÷Δ¯hÎ7ª¦(”¯O*š:.óâÒ?TÞê' oð""›<VÀê'ü,Ððüý æ,&¦¦¦¦7 f¦ ¦ ¦<Ôª€p%,$¦7 N4¦¦¦¦7 4GÔª€p쨀p4€,HL¦¦¦¦7 f€ÀeN&Ôª€pLÔª€pº«€p f}l����„Æe\Ö \{ó.?;O\¯”š©€p@(A;ð-hŽ÷ææ$@ ý  ……w … 'š©›<UÀê'ðØ,²›<TÀê'E´,_›<SÀê'€M�,›<RÀê'Ðfl,m›<QÀê'ðH,’›<PÀê'ð$,óöÖ¶–vV6  *`›<OÀê'ðöÖ¶–vV6,ææ÷”¯h¢Œe©6(”¯T„øý€pšó.é8V¯”š©€p@(é8@Qh÷ææ @@ï… …w …š©€pžó.j8�{¯”š©€p@(j8ÀvhÐ÷ææ@ ……w …Sš©€p¢ó.,ªXÀ¯”:ª@(,ªhã÷æ.ó(‡Ö ²"ˆ& æø ó•ƒ 0H$†Ë¥Ãeƒ"ˆæÎe¦& rœr$,Ä rr r 2 rœr2 ,ææ÷_”¯hœw7ªd(”¯Ñ�=;.óå&øpš©Î7ª¢Œe©"èææ÷Ó@Î7ª@øpš©@¢Œe©”¯OŽó`.óÆXz ©ôý榦6 6 wu:ªñó.:ªXÀ¯”(B:ªh¯”^÷ææ,& � f Â�6ŠÃÄþ cÀÊþ a&$äÈÁv�Š�ÐÁ  6ŒN\Äó.ÿO\¯”(ð-h¯”c÷ææ&CÀÁÂÃD@ D …hó.*�{¯”Wéøæ&ýÀ 0ˆÀ ææ÷Bh} #(@Xz ©”¯Ð� #.óÀv¤«Àv¤« Àv¤«m$ÿÿ$]Àv¤« Àv¤«Àv¤«Àv¤«&c  ýÿ,ææ÷3:(@Àv¤«@`; ©”¯’"".óå&øpš©Î7ª¢Œe©ðý(*Àvh¯”¦÷ææCÀ@ ¡ ÁÂÃ…¬ó.\$¯”(\@h¯”ö÷ææB€�  …Àó.r©XÀ¯”š©€p@((r©hò÷ææ,v v N ‡…¶¶\w Î ö íš©€p– $óÖ"èææ÷Ó@Î7ª@øpš©@¢Œe©”¯OŽó`.ó°‡Ö Ø ±€�„ Ö ƒ ‡@òµˆ¦ˆ¦Îe´,ƒ¦òr220wå ÷ �,µ"ˆæÎef"ˆæf&&"ˆæl,o¸j½« ¸QñªôÎeffÁÄB÷ ÀEQõSõ•H,?¸Qñª7MEõNAÍ õ• ÉüÀ Ñ•ÀAT$,5÷ ìýó.i©XÀ¯”™«@( i©h÷ææ¶¶w×™«•ó.v©Ou¯”š©¨p@(v©€phE÷ææ,&f  & ö N & ŽÝ "€Ý À± €Ýg,$�ÝÁ  ö v ‚Ý Žà ‚ݧ,H± ‚Ý ƒÝ à ‡†–%PÖ Àæ À=,lÀÖ w 6 6 >  Ž ¡  Ü~÷ À Í&f&Ž€&Àe€&,ææ÷uÜ(@¸j½«@¸Qñª”¯�ò«.ó¥Vþø ËXz ©$ò«žw÷ø4-´ ˆþwô Øà Ô,6÷ É òFOåRTÍ õ"ˆæf"ˆ°,ò#tš©JæÎeÕ fÅæ&ÀŠˆfê#æŒ,Df$@òµˆ¦ˆ¦Îe¦ò•rh,²@ò@ÅeÀ5Eˆf ˆõ`ƒ D,Q–èý!š©¨p|,�    ÅÄþM%¥Õ ADÍå � eàß ,´Îþ¥U% ßÎþ%a ÊþÎçÊþßúÿÌþv D®,Ø…Åe€ÈÅ%ÿÂv‘  6  D v 6 ~üµ‡´……„–%\-ó.v©=¯”š©€p@(v©@8hJ÷ææ$ÀÄþ�ˆà `$&\w \þš©€pšó.v©Ï¯”š©¨p@(¼v©h@÷æ “5�fÎefˆfˆf Îef–õˆ ,zf Í @Eþÿ2 rëÐwæ&À`ü,3À Ààˆ¦ ± ±Š ±œˆ¦ˆ¦ Ø,Óôôœw7ª7Îe¦ ò•ˆ¦ôòþÿôò�€÷ ´,>@&.%W¬ñ‹, W¼0AAa�,©Î7ª¢Œe©Á 5AÂÅ…€�‚ƒ„…l,Ôò«`; ©Xz © tæ&À`À Àà÷ ô÷H,ûþÿô%ÿÿô%õÌ ÷�ÀÄ`à à à äý%æ,&f    & ö N & ŽÝW€ÝÀ±v,$ €Ý�ÝÁ�݂݂݃ÝÃö ž,H8v  „Ý áö±6 ¶� ¶� œ,l¶� ¶� ¶� ¶�6Š6 6 @,�6 6 ‚‡v ‚‡¶ ‚‡ö ‚™,´Ž  -ÀÀæ w –%?    Ž Nš©¨pt,ØÅ ÷ ~6‘Å Å÷ n6Å Å_,ü÷ ^6Å Å÷ N …Åe€ÒÅ%ÿö, v‘ 6 6 6  D v v v [÷$,øpš© ƒþÿô Ä�f&æ¦f&@&,ææ÷Ü@#tš©@øpš©@¢Œe©”¯Suš©.ó„¨pš©dw ææ÷®h@8c©(@¨p𩔝=£.ó„¨pš©dw ææ÷,h@8£ª(àý),D6‡……„Æe\æ À´Ä à B A @ Q,h‡€- ‚ ‡�- ‚‡‚-‚‡ƒ-‚ƒíP,Œ‚ � € ‚í� € �í € €í „ Å Ù‡„ .°Ä Å ý… ‡}ó.v©�¯”쨀p@v©€p@š©€p@÷ææ,€À Š�Á Š †@À À倀 Á‚ø,$à‡…Ò Á ú2 þÿ ùw \&¦ ¹š©€p˜$H¦ ¦¦7 ¨~�5.Ôª€p~@¨p𩔝=ã.ó„¨pš©dw ææ÷h@8+ª(@¨p𩔝=k.ó„¨pš©dw ææ÷dhÀ]c©(@¨p𩔝�b£.ó„¨pš©dw ææ÷ÒhÜýZ2ü<|2ð8¼2†6¶6ð6(7<7÷ |wˆê'‰÷ Žê7Š(ÿ÷ òö· Fþ÷ ìëô…÷ þÀ’3Àˆ3÷ ”ø…÷ þ  6÷ :ø d4á„xd4 Àe ø d4Ø„ Àå+÷ ÷ Òý÷ êÃ…É‰É ÷ Àý&fÁˆ0À®0÷ ¬÷À®0÷ ¸é7 ¼ý�€‡Àå&À^4÷ ø„€æª÷ ¾ÿ€€ œ~3÷ ¢é¹æîæªÀ 3÷ Þ÷ …€ œ~3 W‰Þ ¦—#îÖ ³‰Àõ¸3Â3Ê3Ó3Û3å3é3ò3ø344444"4+424A4G4N4T4Z4^4SUBROUTINEFUNCTIONBLOCKDATAEXTERNALDEFINEFILETYPEDIMENSIONCOMMONEQUIVALENCEDATAIMPLICITENDLOGICAL*1LOGICALINTEGER*2INTEGERDOUBLEPRECISIONDOUBLECOMPLEXREAL*8REAL*4REALÂ3Ê3öö|4ööL3öž4ê7öF3Æ<É‹ ‰· ,üÁŽ0À®0÷ $öÀ®0÷ 0袇÷‹®ý÷ <ø†²‡÷ ^öÉ¥/� ÷ RöÉ¥/ Ñ‹À®6Â$2Å$27 Fý7 Dý7 Bý÷ ¨õ÷ "öÑ¥/*‰Â22Ä„ €7,ýø7,ýô7, ýðÀe È üÀþü ÷e öü÷-òüòüJ‚ Ã$2ÐÐÐ ÈÜü 7èü&Â2÷ Jç?×<5ó5€4óU€ó�Âü  ÷ (ç,…€ÃíüÐ 7”ü÷-�ü�ü‚à ÷ ^õ Â¥,ÔÂ¥/�*‰É‹� ÌÐ 7fü÷-bübü‚¢‡+‰ü€,‰ã€-‰à€èÀ22È   û÷ w ë©6÷ Äõ÷ ëñw ë 6÷ ë‡& ÷ fABÒ „ú&Àm`û÷ ¼õ€w àêœ6„÷ ¨ƒa÷ |õ÷ Ôê郇&   Ò „úD ÷ za÷€¡‡Ö ±‡w –ê 6Äe÷ vê÷ Žê‡=.+ .CSECT .=.+.$$$$.&f¦÷ Pà ¡‚�€‡÷ *÷ÃeÁ÷ æ‡Ä ïù ±íÄm¢ú Ãm˜úÛÄD D D ÄEüÿ‡ÀEÿÇÀ¡ œ2‡&f¦À Ãm\úË&f¦&÷ ð4‡ó 6 Åm<ú÷ ¢ÿÂÄ @ÁÁ ÷ T‡`Ä @A÷ @‡ÁÁ ÷ 4‡`„÷ rÿ�÷ "‡¡‚�€‡Ö   ±÷Ö   ¡òÁ fÁ ¡@aú† ±…‡ ¡‡÷‹bú÷ ðô†²‡À@2È ü&÷ $ ‡ ÷ ðò‹Â¥,óÖ <‰¡‡l‰üÀúù&÷ ÌòÂ¥(&  &÷ N‡÷ ¶òÂ¥,&÷ <‡¾¶÷ šòÂ¥,óÂ¥)7²ùÆe€¡‡Ö Ö Ö =‰±‡<‰÷ &Àe7 Šù"‚€÷ ä×<€ÃíØøÂ Ð  ÐB B B ÂEüÿÐ €`€`¡‡>‰Ö ± ‡+‰ú÷‹\ù÷ îü÷ BùÀ<ùÃ9÷ üDÄm€øC÷ þ ‡Dá11‡÷• ù‡a‰w è;@÷ ²ò îÀ@2È ï7 ù÷ .0 7 ôø7 òøÃl9÷  6Bì· Üø·ÖøD÷ lýDìl7!Âø7¼øæ¢ø€À Âeâ ‚õÒ J"ú&÷ Ú€ÄeLŒlLìåÖ ‡Ãæ9Àvø÷ &DìBÃú9÷ ‡J"@ì ‡?‰w 0ç;@÷ Øñ÷ ç‡7 4øÀ.øÃ2:÷ Ú,BÂm^÷—<€‡÷ øÂíJ÷· ø÷@‰w êæ;€÷ ’ñw Þæ,Àî÷÷ „ñ÷ ¶æ‡Âí÷·Ü÷Dì7.÷‡ÄÊ÷tÄm÷� Àº÷æ:÷ f BÂmêöòU€2‘ ‡ÄEÿÀ22Ä ý÷ ¼ûÁŠ÷÷ ˆû7ÞöÃ;Àx÷÷ (w :æt;Àl÷÷ ñw Næ+ÃX÷Ãm¸ö÷ Êð÷ "æÄ 6Å÷ èå÷ æw*þD7!8÷(Ämpöô5@"ôU@Äí^ö÷ ~w àåu;Ä÷÷ pw ôå+CìÃíZöæ÷ jð÷ Âåƒ ÷ Föb‰‡. =w ¤åþ;ÀFÃFõ÷ ¤ð÷ šåÀÄöÃÊ;÷ pw ‚åø;îöÃm¬ö÷ ð÷ xåÀFÃõ÷ rð· õw \åp@º6ž4t7÷ |wˆê'‰÷ Žê7Š(ÿ÷ òö· Fþ÷ ìëô…÷ þÀ’3Àˆ3÷ ”ø…÷ þ  6÷ :ø d4á„xd4 Àe ø d4Ø„ Àå+÷ ÷ Òý÷ êÃ…É‰É ÷ Àý&fÁˆ0À®0÷ ¬÷À®0÷ ¸é7 ¼ý�€‡Àå&À^4÷ ø„€æª÷ ¾ÿ€€ œ~3÷ ¢é¹æîæªÀ 3÷ Þ÷ …€ œ~3 W‰Þ ¦—#îÖ ³‰Àõ¸3Â3Ê3Ó3Û3å3é3ò3ø344444"4+424A4G4N4T4Z4^4SUBROUTINEFUNCTIONBLOCKDATAEXTERNALDEFINEFILETYPEDIMENSIONCOMMONEQUIVALENCEDATAIMPLICITENDLOGICAL*1LOGICALINTEGER*2INTEGERDOUBLEPRECISIONDOUBLECOMPLEXREAL*8REAL*4REALÂ3Ê3Š?j@|4¤@z>L3¤6òò@8F3P?É‹ ‰· ,üÁŽ0À®0÷ $öÀ®0÷ 0袇ÆåN¶ „Åe÷ úô6 6 ÷ Fí…à Ã%öÎü ÂÈü¶öEðò5¶ W¢( ‰Æe¤‡ ØüÆe´‡‚Ò ƒ Ä Ä„ „ „ ÄEøÿ �2Ò  …¶öe¶6 6 6 ÷ Âõ!÷ ¦ìg…à {— bÀ ` Õ „ öeW¢,èW¢)X� ‚   ÄEÿ?òEÀ2Qö <÷ ðöÅÄ–6÷ @ëÅÄ�6÷ 4ë÷ öóƒÀ•A÷ Xö÷ æóƒ ÃÃEÿ÷ âõÅ„&÷ Èó„)&÷ ÌòÀšûÃEÿ÷ ¸õ„Å ì÷ 낃 ÷xûÆe´‡‰Í�n‰‚ƒ ÷ZûÆe¤‡Ãÿÿ&÷ rõ„Ü Ã>ûó5ƒ ó5 Ã&ûþþEð¶ wäþ‰wÞþ .GLOBL $ADJ ÷‹¨ûÆåö l‰‡÷‹’ûûÆå6 v6v‚Âe ¶÷ ºý0 ö  „2�2ÄÄ Ä Ä ÄEÿÇòE82Q÷ \+…ö óE8„¯ÄÄ Ä Ä ÄEÿÇ3QóU É‹÷ ÐóÉ‹ W¢,ù‚àò‰ð„…Æe¢‡‰Ó&¦æÀ ÷ 4ƒ‚€¢‡Àmú$" C C C ÃEüÿ$à ü냂€²‡ÆåvÄÖù3 óíÈù ÷ Òùÿ Êù7Æù…E E E ÅEüÿvÅeÅ wa ù÷-œù˜ù‚öƒ÷ ôÅÅ ÅEÿùóE sQ …„Æe¢‡‰Æ@äwÂä÷  ô†²‡f÷ ªä�·ŠRù÷‹Xøælø· høÄì8÷ jñ÷½vùeù÷Ýnù]ù÷ Œñ÷ ¦è÷ vñ÷ 6ñƒÀF÷ šó÷ �è@B”,Â¥/û÷ RÉ‹÷ `òÉ¥,ñ� ïÄâ8÷ Jè÷‹ì÷ ƒÀF÷ \óÄñ8÷ 2è7ŠÊø¢‡ .CSECT $TR: c‰à&f7 ø7 Dù7 Dù�÷ š<‡÷ øñvÂø÷ð÷�÷ ,,‡÷ Üñv÷ ¾ ÷ ùþ¥,¶ € ÷ øøþ¥,¶ € À Ðþ¥/ þ¥/�� Æe‡d‰ ŠúÉ¥/úþ¥/ö7 ¬ø÷ nñv÷ Pç÷ šø ÷ ”ø÷Žøæ÷÷mÖ÷à÷¡‡Â27ŠÚ÷÷ Üâ&·ŠÐ÷·hø×<÷‹ÊöÄœ ÄEÿÄ%À22Ä ý÷ œâÄ‹:÷ þæÀ�÷÷ z÷ çhwÐwÎó‹ e‰×<@óU@æÀ÷ ´ñÄ‚:÷ Âæ€÷ @÷ ÔæKÀFÃnö÷ ÌñÄ‚:÷ ¢æÀ4÷÷ ÷ ²æ÷RöÊ÷· Lö5 =. . =. =÷ bñ÷ ÷®÷÷íøö¨÷à÷ô5 à f‰‡Äèöà æ&Ä+÷ j愃÷ Àá†a‰Cá÷ îð‡÷ ²áÄ 7`÷‡¡‡g‰±‡h‰ü÷ L÷*ÃB÷ 7 <÷ÄV;÷ úåÀF÷ ñ÷ æ‡À$÷Àmnöð‹ øÄV;÷ Öå÷ ¼ðÄ+÷ òåÄ÷÷ Pá÷ |ð÷ Ôå‡. =÷ ðö÷ êöÄäöÄm*öG·Š7ö÷ šïÉ¥(PÉ¥OGÉ¥ZGÉ¥-=É¥+� ÷ næD…à BÉ¥*#Â%AÀòõÀ ;7’ö� 7ŠçõÉ¥(*É¥-É¥OÉ¥ZÉ¥+� ÷ "æ…à ÷²õZö÷í õTöĦõ÷ 27Š¥õ¡‡� ÷ êåë÷ þè÷ å÷ b…äi‰7 $ö±‡j‰úÂEÿÇ÷EÿÇÖô— 0w6· Èôk‰÷ z÷%ºô÷%²ô‡÷¥¦õÄz<÷ ”ä‡ 0 Ã’ôà   Ã%Ã%Ü2÷ ‡Ã÷ ÞÂEÿƒ Â&�´�&÷ „´•‡&Ä =÷ 2ä„ÅEÿ… ¡ Äe÷ ÚîÅ ÷ .ä‡&Ä,÷ .ä„ñ .WORD & ÷ î#÷ >ï …¡@ ‡@ ‡@ ‡@añŽ ï& ÷ Úí÷ 2ï …¡@ ‡@ ‡@ ‡@ ‡@aïŽ íÖ ²‡Åü05Íw(ôÃÿÿ¢‡fæ�!ô·Šô÷ xä@…à >Â%;÷ píÑ¥,6·•ÿóÀôó&&÷ Nä'…à %Â%"Ñ¥)ÄÒóôe44´´÷‹»ó÷e¦óÖ ôE8ôU(¡¢‡Ö Ö ±·•“ó�²‡À À À ÷ êìW¢(÷ êì÷ Pë„C’3�·1÷ ÚìW¢-÷ Ðì÷ 6ë„C¢ƒD’3�·1ƒ Ä ûƒåW¢,âW¢)É‹¢‡M‰ü÷ fîI‡÷ îÄ6?Å÷ jâÄ=?Å÷ ^â÷ hã„V‰¢‡Ã <�— ø÷ `W¢(ó÷ Zì÷ Dãî…— ë÷ FW¢,æ÷ @ì÷ *ãá…— Þ÷ ,ÀJ?÷ Dì×…÷ ãÔ…— Ñ÷ ÷ âW¢)Ê¢‡²‡÷ ¦êÀ„ò÷ Ôì‡Àzò— ºð ·¾ .GLOBL $DEFIL ,U,F?I?÷ �톲‡÷ ¨ë w¤ÝÁ À|?÷ Æëó…÷>ñwfÝ‚?†?FILEY‰‡÷Bñ7 Pñ÷ ñy÷ jâó…70ñÀúñÀeæ÷ ݃Àêñà fðU÷ ñ €ðE8Â�ñ   °PðE€ ÂÖ0Ãà ý×-Üð÷‚Üð÷~Øð÷ üê— ( 7 Ðð÷ ðáà :À‚ñðU÷e¸ð×-´ðÿ(ð�¬ð÷ Èê— ,ç— ) ‰‡Â  ‰ðEÀww>wàæ¬h‚ˆ÷‹öæ:g¦ˆæPg¦ˆ7 ঈæ¢h�ˆæjifˆÀ*k&ÐP fˆ^‰÷µ'íææw: æk.ˆ� Q¤É• á•?àHæ*k¦ˆÎ�^‰7 L7Š÷•÷7 š7 ¬7 ª7ŠÁ*g\‰2 7‘"w wà ÷v‚÷r~Á2g\‰õà & æ…w\w·ŠÉ÷@Ág\‰Ä7‘à 7Šò7Š +à & æ†w"÷Ág\‰ôà òwÔþÁg\‰Ä7‘¸à áÁ"g\‰Ä7‘Öà & æ„wÚ÷÷‹Œ÷�÷• ÷‹3 æÌhˆ÷f´æ2iæÌhˆ7 ¦Á¶hfˆ÷fŠæ$i·8fˆ7 zw*æB!ˆÎeȆ·7Š37Š0ÀÁ ÈEÀåù ! ! ! ! wÞwÜwÈ÷¯7 ‰wÆá wwÜ7 "÷-&&³7 °7 ÷- ¸7 þµf/ˆƒÃ5& æƒwè Bò Ä ‡Eõ uÍ ÍÈõÆÅÄ �œÂeÁ æ�â—"â—$Ó¦æ"ˆŽ€Ì—"PA—"TAÆÒ æ ÀÄ­·÷7‘±ô—"37¶·Š«îÁ¶h^‰ÁÌh^‰ÁúhÉ fˆæ@ifˆfˆÁÜh^‰Ái^‰Á¬h^‰Á¢h^‰w,kúh@i^kÜhNi Nki\iµzk¶h$i4dkÌh2i4d PAL11R V004B  # wwwPwÐwúwwNwb7Šà7‹÷À�œÀ¥üÿÀ¥ûÿ‰÷ ´‰÷‹Ü÷‹Ò·ŠUwê 7 ¼7 ºÕ÷’j.÷ÈÂÿÕ j7& æ€wÄÁùiD‰� ÄwwwPwÐwúwwNwb7Šà7‹÷À�œÀ¥üÿÀ¥ûÿ‰÷ ´‰÷‹Ü÷‹Ò·ŠUwê 7 ¼7 ºÕ÷’j.÷ÈÂÿÕ j7& æ€wÄÁùiD‰� Äâi ÂdÃHX‰ ÷27 \7 t‰÷å0ÃDÃíƒ ƒ ƒ ƒ Ã%þÙ÷‹?ÏÁf ƒÁ5� þÀè7öà 7î7˜÷� ÁÂÃØó�ýÀ•ÃzÄH‰w$ 7‹ý÷‹á Á° ®ƒÁ5�  ÷êFÿÅ �7еÁ¯Â”Ó÷•ÿÿ¢7Šb‰÷ †À�XÀ¥üÿÀ¥ûÿ‰÷‹žwº ÷‹� ·Š÷¥ýÿ0éw  ÿÕ,‰û÷Õ@j‰ÜÁ÷µ\ ·ŠåñÕÿ÷¥ýÿøÍÃjwd ÉÕ@Ɖ÷ ‰÷‹0·Š³ ÁùiD‰÷"÷÷Šúw4 Åti  Ä÷ ÌJ‰H‰÷Úw ƒ  ‡@2 úÿ r,üÿ “€Â�2 Âåç·lÀ‡ÁúhÃ@id‰ÀævjfˆÀ ú÷`F‰À’Á�  ÄH‰À¯Á”ÂH‰Â.Ã,ÁÞi ÄâiÌ@X‰ʵ Z‰Âå÷Å÷•ÃüÄC!$@úÿAüÿÂ(CH‰×­þ)N‰F‰ÂÔÃÒÁÞi ÄâiÌ•`X‰Z‰ÂåúÅå·ŠÍÖÂÀ¯Á”÷‹ÆÀžÁœÂÕ ÃzÂE—H‰N‰÷ˆF‰N‰÷~F‰  À• ÄH‰N‰‡&‰…@úÿAüÿCþÿÄÂBÓÂE—H‰×­V)N‰F‰`‰wwbwvw®wØwwlw‚ ‰÷ئÄ´ ÷‹„ ÷‹ç÷¥ÿÿÆ·Š_÷€÷wwbwvw®wØwwlw‚ ‰÷ئÄ´ ÷‹„ ÷‹ç÷¥ÿÿÆ·Š_÷€÷|:7ŠÇ÷•@¦÷‹©·Š=‰Ær·p÷‹‘ ĸ?!bƒÄ5„ ?TÄJÃÎgÂ$‰ÅtjÍ­\Í­tÁÜhæÀgfˆ^‰Í­^÷"F‰N‰Äævjæúh�ˆÄ ø^‰÷•H;¬h·öÊ ¦ˆÍ­‘7Š!ÁiwÜÍ­$ Ã\id‰7Š"‰¦ˆî^‰�Šw£e澈÷¼ ÷ ” ÷¶hª÷$i¦÷ŽˆæZe¦ˆ¦ˆw”æÀgæ¬hˆæ¬hˆwÒ END &‰ÅVÄT7Š}Åe‰Àå ÷•þÿ€ÅåD!÷‹_Bͽmõ%(‰÷‹c wŠ]Å,ÄwŠ;÷ &Ý÷ Jæiˆ`‰·ŠwúÿwüÿwÂäi7Š&‰…ÁÌÂåÀ¦fæ"ˆÁeÀ ÷� ͵ ñ•R͵ñ•%͵É•=Ñ C͵͵@ñ•Gæ**‰±±Dþÿƒ`$‰ DÝ!!ÿÂÃe $‰Íµ@ñ•G*‰÷e*·Špwêþ(‰wÖþÀ¾iÈEø Èe8 Á*ÁåfQ$Hà æˆ‡ R‰÷ qÞf   ·Šú÷•ÿÿìw&ÀR‰ æ(g‰÷‹ì‰þ÷µÞa^Q À�zÀe € € € Ö ·Š=  qVgÐÍÌÍÁ ÔÁ Òæ,gÑ÷Š·Š7Šu÷‹r»÷Šl¸·Še& æ�w’÷‹V·ŠPÖ wPÿÀ ‰÷‹ì÷‹O7 &‡ ERRORS ww*wlww*wlwpwwxw²wŒ÷ùi¾@‰·ŠÚ÷îÄ(p÷ ¸‰>‰·Šm· ªùߤÃ¥ ÃU ®iÊ�· �ïŒ}Ãï„yÃÁþ Áÿ@‰ ÄžvÃüûÂähÀÁe÷ŠlÅ®i<‰÷‹z·Šûw” O Ì Î+÷‹L. &‰Ä÷ J‰Á,Ä&‰÷ ÷¥ÿÿ"÷ þÄJ‰ÃÄÁæÂäH‰·Šä*‰·œ¡·Š›ÎÎ% ÷‹â÷¥ÿÿÚ·ŠsP‰À<‰÷‹Ä ÷ ØP?Š–÷ Î·ŠŽöÁmÎ c÷Šž·Š;wÔ ÷‹”FÀßx× 0× 9ÃåÃ¥$Ãå Ã¥.ôÃ¥  × A× Z × a× z ÃÅ ÿ�*ÃEÀÿÿ�· ·ŠË´·ŠÅ÷ 8¨ÁùiD‰ÂúiÁm÷··†7Šú‰B‰÷ âæÜhˆ÷å ¶· Ìá �? ÿ(ª7 ø7 ²À¶·œâ ·”ÁŽ 0 þÿÀåù÷•£÷ ±¸÷Œ:´Àÿÿ7�§‰÷†7 €7 T7 |w–7 $7 ®Àf&ÐPÐ7.Àr‰æ:ˆæ4ˆÀ@ÀåЀ w`æBæ@æöf‰·Š: ‰·Š··ŠÅÎÝ@ްεöÕÿ·ŠŸ‰·À··üÖ%¯,÷‹–÷‹à·Šyw wŠéɵ×ÿ·ŠeöEÀ•Á²ÄH‰A÷‹¯%÷‹ªåÿšzÿ/ÊvƒÿÂn÷‹>Ùñ¥ÿ‰‰°‰ÉÅ÷‹rÉÉÕ ñ�eÉÕV‰Á@£À@£‡wwæö@‰ÅÖiÄähÃêi ŠÂtiÀ�xdPd¤dÜd”dd¶dfd ‰·ŠgÌ•ÿÿ:÷‹¾wwæö@‰ÅÖiÄähÃêi ŠÂtiÀ�xdPd¤dÜd”dd¶dfd ‰·ŠgÌ•ÿÿ:÷‹¾÷÷‹³óÌïÚÌåŒ 퇓#ê(×­ZûÿO×­RüÿK·Š'H ‰÷ ®·Š ÷‹t÷¥ÿÿl·Š÷�Y P‰ú ‰·Ší‰Ó)‰&·ŠßÍË• ‰·ŠË‰ÌŒ Œ Sÿ¥,ë‰ç·Š*ä‰ ·Š§Í×Ë•7 ˆ7 ‚NS‹Š‹Š·vw& ÷‹™#÷%ÌhÆ÷ ª)溈÷‹ ÷­OL榈÷Ìhž÷2iš÷˜|÷¥,w¾÷ l · j÷V7Š£‰wV æhˆw�