ÿ?——ÿæCñ�¼Ðçìÿ ÿ& ; ÿ“™ { Ñ Ã ¾ ^^ ìò[ ¤CˆúÿC €šÿýÿèÿýÿ…S€��@ `v» à íÁ@à À†D‹"€ ¾@½¾@¬´±°@BÄb‚¢B…Â…‚…Â…‚…¢…‚S…Â…¢…Ù…‚…¢"B‡ÃSðÚ€G9ð@>9@@ë.>9€¢@D9@D9€%@J9@®9@Ú. ;@ ;À@uL`;@{L}@kQ€p@¨.kQØr@¹QàL@ R`;@.kQØrÁYÀ¯”üô@ü,@w.üž,@ükQ@üËx@kÐŽHü£H¸.üIHürH”KH€”K` H ”Kö H”.”KôH”K%H”K KH”K[MH”K¸QH€}.”KàQH@”KRH”K RH”K™wH”K“yHª.”KµzH@”K[H ”K-€HC`ÎOHC`ÏOH.C`ÐOHC`ÑOHC`ÒOHC`ÓOHC`ÔOHl.9ð@Ô.>9@@>9€¢@D9@D9€%@J9@ë.®9@uL`;@{L}@iYày@d^@.C`""@C`ÎO@C`ÏO@C`ÐO@C`ÑO@�.C`ÒO@C`ÓO@C`ÔO@ BaÈ(Dù`h†.q!`hˆ{L}h R`;h4ºWÀ+hÒX€phÞ•.iYàyh¹ZÈdhü/d@hz$wà~h–Ba@Î(PŠ.; ¨9h†; P9ðhp>9@hp>9€¢hpD9h–.D9€%h¢J9hp®9h>Baá(ˆ ;hÂï. ;Àh ºWÀ+@X€p@ï.iYày@¹ZÈd@d^@C`ÎO@C`ÏO@ß.C`ÐO@C`ÑO@C`ÒO@C`ÓO@C`ÔO@¨.C`ÕO@C`ÖO@C`×O@C`öO@C`÷O@S.C`øO@C`ùO@C`úO@/d@@Ùf Z@�.¬p<@¬ppß@Uq@Xq}@$wà~@´.|~ÈK@*’@(h g» h ghhhõ”’µzh`¯”b÷æ.£€€€ñ£€%€€€ñ @ 〠€€@‹ä@€¾.… C`ÏO€…C`ÏO€…C`ÏO€…!C`ÏO€…)C`ÐO€q.&`ä@€ôä€%@€ô@ @€t@ À@€vD 3&… C`÷O šPsHn›H=.s›H(BaÀÁ(BaÈ(¬ù`hbf.q!`hd{L}høiYàyhö/d@hV$wà~h|D.Ba@Î(Ú; ¨9hR; Pk€ hàt.kÀ�hÞ|@h(½àhPt!h"¬!hüc.µ"€Whð¯-`hå8 Zh²d^hø¬p9ðhN>9@hN>9€¢hND9htD9€%h€H.J9hN®9h Baá(Ba@ç(Ba€í(F.BaÀó( /d@@Ùf Z@.¬p<@¬ppß@Uq@$wà~@|~ÈK@í.*’@(8 g» h ghh8”’µzh0µ¯”‘÷æ. @ 〠€€@‹ä@€`D €€À D € €€^.… C`ÏO€…C`ÏO€…C`ÐO€…!C`ÏO€…)C`ÏO€q.&ÀŒJ €€€ J € €€€Œû €† €‡Y &… C`ÏO€…C`ÏO€…C`ÒO€…#C`ÒO€[.L€� €¬ €É €‚É Àv€†ë °.…C`ÒO€… C`ÒO€…C`ÒO€…C`ÒO€…%C`ÒO€w.r@€@ë € @€Àû @€Pû € @€Ðü €0c.…C`ÐO€…C`ÐO€…C`ÐO ÀkQ€phkQØrh¹QàLhÒC`""h.Ba@ç(êBa€í( BaÀó(þ""�`h8uL`;hÖ¹.Ùf Zh0UqhN|~ÈKhêBa˜w(BaŒ–hxü–.qQ€W(Z&}h.~hö t!@Qhât!€phâÙ.ö&hh”ThXq}hŠáy shX:†(¬8.X:;d(‚X:vL("Œ–×f(0âs;hzKs;hy.Œ–;d((Œ–vL(•Hq(®ÀRà(tBa\}h`l.×fuLhlz‹w(ô‹w( ô‹w(@Ô€|(§¼.är» (ärh(ärBx(kQBa( qQ€W(9÷BaÀÁÂ05-01Aµ Œ–×fxÀ À%"ü‚t€…C`÷O€…C`×O€…#C`×O€.L€€À D € €€ÀŒJ €€€ J € €€€Œû €† ¢.…C`ÏO€… C`ÏO€…C`ÏO€…C`ÏO€…%C`ÒO€ƒ.r€‡Y €� €¬ €É €‚'.…C`ÒO€…C`ÒO€…C`ÒO€…C`ÒO€…'C`ÒO€m.˜É Àv€†ë @€@ë € @€Àû @€Pû € @€¼.… C`ÒO€…C`ÐO€…C`ÐO€…!C`ÐO€…)C`ÐO€k.¾Ðü €0ü € €°e€o€‡oÀv‘&… C`ÐO€…C`ÐO€…C`ÒO€…#C`ÒO€Y.䀃t€‘€�µ€ €€½.…C`ÒO€… C`ÒO€…C`ÒO€…C`ÒO€…%C`ÒO€w. f""�`huL`;h´Ùf ZhUqh ¼.|~ÈKhÆBa˜w(BaŒ–húýqQ€W(d&}h, .~hœ ö&hZ”Th¾ C`""h\áy sh”.X:†(@X:;d(fX:vL(Œ–×f(0âs;hñ.zKs;hŒ–;d((Œ–vL(•Hq(rÀRà(2A.Ba\}h×fuLhlz‹w(ô‹w( ô‹w(0Ž.Ô€|(’är» (ärh(ärBx(à‹w(NBkQBa( qQ€W(�÷BaÀÁÂ05-01Aµ Œ–×fxÀ À%ü‚x X:† X:vLŒ–;dJÀ À%ü‚x X:;d X:vL€…C`ÐO€…'C`ÐO€w.˜ü € €°e€o€‡oÀv€ƒt€;.… C`ÐO€…C`ÒO€…C`ÒO€…!C`ÒO€…)C`ÒO€e.¾‘€�µ€ €€P€ó)&… C`ÒO€…C`ÒO€…C`ÒO€…#C`ÒO€U.䀄€…;€¯£€¡®€¨²É.…C`ÒO€… C`ÒO€…C`ÎO€…C`ÎO€…%C`ÎO€ƒ. €€ ²€ €€Š¶€¢º€¤Ø€ s.…C`ÏO€…C`ÏO€…C`ÎO€…C`ÎO€…'C`ÐO€}.0Ø€ €  €¬%€€@ %€ €€@ŠË€€Â.… C`ÐO€…C`ÎO€…C`ÏO€…!C`ÏO€…)C`ÏO€r.VÀ Ë€ €€ÀŠ X:† X:vL"Œ–;dFÀ À%"ü‚t X:;d X:vL"Œ–vLÀ À%"ü‚t X:vL X:vL"Ô€| ABEILMNOPQRTUZˆär» É òärh© òärBxÖ êär» Ç ðärh§ ðärBxÔ èär» Å îärh¥ îärBxÒ êär» à ìärh£ ìärBxÐ äär» Á€P€ó€„€…;€¯Å.…C`ÎO€…C`ÒO€…C`ÒO€…C`ÒO€…'C`ÎO€u.0³À€ð£€¡®€¨²€€ ²€ €€±.… C`ÎO€…C`ÎO€…C`ÎO€…!C`ÏO€…)C`ÏO€u.Vв€€ñ²€%€€ñ¶€¢º€¤Ø÷&… C`ÏO€…C`ÏO€…C`ÎO€…#C`ÎO€c.|€ Ø€ € Ø€÷Ø€%€÷ €¬%.…C`ÐO€… C`ÐO€…C`÷O€…C`÷O€…%C`ÎO€5.¢€€@ %€ €€@ŠË€€À Ë€ €€ÀŠ~@€r.…C`ÏO€…C`ÏO€…C`ÏO€…C`ÏO€…'C`ÕO€v.È~@€ù~€%@€ù\!€ˆ¬%€€z)&€‰€€dŒ–vL#À À%ü‚x X:vL X:vLà‹wƒN  ä æ u. qQ€W qQ€WN qQ€W qQ€Wä qQ€Wæ ò ô ö þ Ú ð . qQ€Wô qQ€Wö qQ€Wþ qQ€WÚ qQ€Wð ˆà Ô F v ” ž. qQ€Wà qQ€WÔ qQ€WF qQ€Wv qQ€W” /– ˜ ~ ‚ Ž Ö. qQ€W– qQ€W˜ qQ€W~ qQ€W‚ qQ€WŽ q(’  & ˜¾x. qQ€W’ qQ€W qQ€W& qQ€W˜ qQ€W¾2À° º BVÌ. qQ€WÀ qQ€W° qQ€Wº qQ€WB qQ€WV{<âÆ D”. qQ€Wâ qQ€W\!€ˆ42}€s:€€€ s:€ ›&… C`ÏO€…C`ÔO€…C`ÎO€…#C`ÏO€].|€€€Š¬:€˜@€@ŠA€€®S@€®S .…C`ÏO€… C`ÎO€…C`ÏO€…C`ÓO€…%C`ÐO€‚.¢€ @€�OX€€ OX€ €€‹èY€ [q`"€«.…C`ÐO€…C`ÏO€…C`ÏO€…C`ÎO€…'C`ÎO€}.Èär€€@ är€ €€@Œêr€€ êr€ €€Œ©s€=.… C`ÏO€…C`ÏO€…C`ÏO€…!C`ÏO€…)C`ÎO€s.î³s€€€w€€€ w€ €€€‹;w€¿‹w&… C`ÑO€…C`ÏO€…C`ÏO€…#C`ÎO€`.€±–w€¸žw€²¢w€´ z@€àYz·.…C`ÎO€…  êärh¡ êärBxÎ  àär» ¿  èärh Ÿ  èärBx Ì  àär» ½  æärh �  æärBx Ê  Öär» » äärh› äärBxÈ Ôär» ¹ âärh™ âärBxÆ âär» · à ô‹wärht @  ô‹w@ärBxa Ü.… C`÷O€…C`÷O€…C`ÔO€…!C`ÑO€…)C`ÑO€.îz�'K€€z�(€ €€z42}€s:€€€ s:€ &… C`ÑO€…C`ÑO€…C`ÎO€…#C`ÏO€^.€€€Š¬:€˜@€@ŠA€€£Kð@€ÿ£K5.…C`ÏO€… C`ÎO€…C`ÏO€…C`ÓO€…%C`÷O€[.: &@€ÿ£Kà8@€þ£K09@€þ£K K@€þ£KðK@€þ6.…C`÷O€…C`úO€…C`úO€…C`úO€…'C`úO€¨.`¤K@€õ¥K€˜@€ý¦K@€õ¦Køf€@ð³KÀ€.… C`÷O€…C`úO€…C`÷O€…!C`ÏO€…)C`ÎO€ø.†ðµK€ €ðzQÀD€ @R€@�@R@8€@ œS &… C`ÎO€…C`öO€…C`ÏO€…#C`ÏO€Æ qQ€W qQ€WD kQBa‡ F2\ qQ€W qQ€W2Ô€|R ABEILMNOPQRTUZˆär» É òärh© òärBxÖ êär» Ç ðärh§ ðärBxÔ  æär» Å îärh¥ îärBxÒ æär» à ìärh£ ìärBxÐ ìär» Á ê ô‹wärh~ 0º ô‹wC`ÎO€…C`ÎO€…C`ÎO€…%C`ÐO€‰.:€ €€ÀÑd€‰ €€À €€ €À‹ñ�}€Q.…C`ÏO€…C`ÔO€…C`ÏO€…C`ÏO€…'C`ÎO€x.`;¯1;¯B;¯Ì\¯E\¯XHý ; ¨9; P<= à"k€ H.†i¯È}‹¯Ì³¯œÖ¯œÖ¯ó$kÀ� |@½àù`$q!`m.¬Ö¯xÖ¯Ö¯Ðׯ}Ú¯^$t!t!ÀC`""C`""&¬!È.ÒêrÞ¯p!ü¯‚ü¯P‚$°^h$""�`µ"€WC`"" C`""(¯-`[.øl°„!n°n°ðn°è!n°€%är» µ Þ lz‹wärh” Æ lz‹wärBx© Úär» ³ Ü ô‹wärhe  ¼ ô‹w ärBxr Øär» ± pj •HqpärhŸ �J •Hq�ärBx¬ Øär» ¯ Ø g» ärhI Ø ghärBxV Ðär» ­ �F •Hq�ärh{ š< •HqšärBxž ÔÀRàÕ;.¬@€óœS€%@€ó®S@€®S€ @€�pT€€€�pTÊ.…C`÷O€… C`÷O€…C`ÐO€…C`ÐO€…%C`ÏO€4.Ò@8€€€ ”T@€p”T@€ò”T€%@€òOX€€ 9.…C`ÏO€…C`ÕO€…C`÷O€…C`÷O€…'C`ÏO€&.øOX€ €€‹OX€€ÀñOX€%€€ÀñèY€ [q`"€y.… C`ÏO€…C`ÏO€…C`ÏO€…!C`ÎO€…)C`ÎO€t.är€€@ är€ €€@Œêr€€ êr€ €€Œ©s`&… C`ÏO€…C`ÏO€…C`ÏO€…#C`ÏO€a.D€³s€€€´s€w€€€ w€ €€€‹;wÊ.…C`ÎO€… C`ÑO€…C`ÎO€…C`ÏO€…%C`ÏO€†.j€¿‹w€±–w€¸œw€0ärBx{ æär» ¿  è lz‹wärh ž  Ô lz‹wärBx ·  äär» ½  æ ô‹wärh o  Ú ô‹w ärBx �  âär» » Hœ •HqHärhÑ h| •HqhärBxÞ âär» ¹ â g» ärhS â ghärBx` Úà‹wJ; Jn â < qQ€Wn qQ€Wâ %ÀRàÕ ðÔ å8 Z0949€%"59@jÓ.n°À+n°ˆ,n°à.n°Kn°ÈKü$69 7979@79}$<9Y.Dn° Nn°&Xn°HXn°�[n°f$<9@<9}>9ð>9@&>9€¢ª.j}n°ð}n°€¢q°€%z°d·$D9D9€%J9 ®9(C`""e.�z°xdé°¼Ré°ày ±� ±Ÿ¹ C`""uL`;{L}"C`"".¶ ±, ±|—1±˜q3±Ð4<±L; $C`"" C`""C`""C`""$C`""æ.ÜD±Åž\±�±ˆ,’±„:ѱ ð qQ€W>,÷ Á É ý÷ æ@ˆ÷-Ú÷•OL.kQBa •HqŒ–×f ÀRà@kQBaH,$IÁ@÷ F ÷Eææ!ˆÆÁ±z.Ô€|I Ô€|@ÀRàÀRà ÀRà¸.H±1ŠÁ Á ÷÷ ÷ ÷ >÷ Á÷ =. är» ärh ärBxŒ–×f &•HqnÞß  — kQBa BaÀÁ BaÀÁ ã. æhæ!ˆÁ;ß t Á áS! áSfæ@Û. qQ€Wh Ô€|; qQ€Wt X:†  (ÀRà@N.2ˆæ@ˆñ‹0ˆÅ— õ‹.æ .ˆ‚ Ò• ðœw€%€ðÜ.…C`ÎO€…C`ÎO€…C`ÎO€…C`ÎO€…'C`ÎO€�.�œw@8€ðœwK€ ðžw€²¢w€´y€€?.… C`ÎO€…C`ÎO€…C`ÎO€…!C`ÎO€…)C`ÖO€o.¶~Ly€˜áy€»€ðây€»€ðãyð@€üãyh¥&… C`ùO€…C`ÎO€…C`ÎO€…#C`øO€.Ü@€ûãyà@€ûãy &@€üãyè&@€ûãy`'@€ûäy¥.…C`øO€… C`øO€…C`øO€…C`øO€…%C`øO€¹.@€øåy€˜@€úæy@€øæyøf€€€ðñy€»€ð€.…C`øO€…C`øO€…C`øO€…C`ÏO€…'C`ÎO€.(óy}€€Àð z@€à z@€ö z€%@€öYz€ €€T.… C`ÏO€…C`ÐO€…C` qQ€W>.æLææ!ˆ÷ Á É ý÷ ÆÁL*LkQBa •Hq"Œ–×f&ÀRà…*&@÷ ÆÁ±±1ŠÁ Á ÷÷ Ò. Ô€|@ ÀRà är» ärh ärBx—(H÷ ÷ 6Æ÷ Á÷ äD‰ ±.Œ–×fÀRà •Hq "BaÀÁ BaÀÁ . æZæ!ˆÁ;ß .Á`áS! áSæˆ. qQ€WZ Ô€|; qQ€W. X:†` &ÀRà“.2fæˆæˆæˆæ ˆñ‹0ˆÅ—`Â. ÀRà ÀRà ÀRà ÀRà (X:†`,Xõ‹ò æL.ˆ‚ Ò•? ŠÁ$iYàyC`""d^/d@&Ùf Zp.€ѱ–Õ±@QÕ± gú±,€k$¬p<¬ppßUq C`""($wà~ì()²å~§² q€ |~ÈK*’çó!& ÀRà@ X:†  •Hq. X:† Ø(X? ŠÁ ß t æ7ˆ_hÁ Âtß ±. X:†  qQ€Wt qQ€Wh X:†  X:†tÜ&xrß ÀÚß „&f€ ‡ÀÔß R. qQ€Wr X:†  •HqÚ qQ€W„ •HqÔK.–„€fˆŸŠŠf ˆÖ5ߊŸŠŒ–%€ ‡H& qQ€W„ X:†Š X:†Š "X:†Œ.¼_ –„�€€fˆß jæ,ˆÁXÂ^ß �. qQ€W– X:†j ÀRà, "X:†X &X:†^ùâzßdh ßÕ}ßd». qQ€Wz X:†d X:†h X:†  X:†ƒ"ø ÀÎß „�_ –†"÷O€…!C`÷O€…)C`ÏO€!.NÀ”z€€À Ñd€‰ €€À €€ €À‹ €Å&… C`ÏO€…C`ÔO€…C`ÏO€…#C`ÏO€\.t€@ñ €€%€@ññ�}€j˜@€x;¯1;¯ê,…C`ÏO€… C`ÏO€…C`ÎO€…C`ÓO€&; ¨9#.šB;¯Ì\¯E\¯XHi¯È}}$; P<= àk€  kÀ�(|@’.À‹¯Ì³¯œÖ¯œÖ¯Ö¯x ½àù`q!`"t!Ÿ.æÖ¯Ö¯Ðׯ}Ú¯êrÞ¯p!Â$t!À t!@Qt!€p¬!$""�`V. ü¯‚ü¯P‚$°^l°„!n°Æ$#`ß ._ZÁ:. •Hqò X:†L X:†` qQ€W. $qQ€WZ÷|L嫧 4ßLÀ¢ß À. X:†L X:†´ qQ€W4 X:†L •Hq¢“.’p&f€ ‡Àœß p€fˆŸŠÊf ˆÖ5‹& qQ€Wp •Hqœ qQ€Wp X:†ÊM.¸ßÊŸŠÌ–%€ ‡_ |„�€€fˆÁ:‰& X:†Ê X:†Ì qQ€W| &X:†:åÞ@ß <ßFJ LßÕ}O. X:†@ qQ€W< X:†F X:†J X:†L¡"òßdÀ–ß p�_ |†ÁÑ. X:† X:† •Hq– qQ€Wp qQ€W|�$ Ž_ß�€ î†Å N$.kQBaÁYÀ¯”Ba\}@BaŒ–@X.×fuL@(BaÀÁ(qQ€W(kQBa(èæX:†(‚¯”°÷kQBaƒ$¦æ"ˆ‡7 Ìæ"ˆwž ""X:†X:†æ$÷¶÷X÷Tæ" ˆ–%ÄÖ.kQBa¶kQBa kQBakQBa kQBa"s.ÅÌ ã � ƒ÷ ôÁ € @e !hBa\} kQBaÌ(Ba\}b.Bð‡æd& æ" ˆ·æ –%÷ æd& æ"�&d kQBa"kQBaæ"d (kQBa"&"h ˆ·æ÷æÂæÂæ"ˆæë.%Á~_Ø. X:† •HqÎ qQ€W„ qQ€W– X:†~Í"߀ € î†Å NÀÔß Š‡;. X:† X:†€ X:† •HqÔ qQ€WŠŸqQ€WxÕxß ,] kQBa BaÀÁ,BaÀÁ,©,ÁÂÎß ‚Á$ß 4 Á¬. Ô€| X:†Î qQ€W‚ X:†$ qQ€W4 B$ß ‚ÁŽ ß 4 Á3ß i. Ô€|$ qQ€W‚ X:†Ž qQ€W4 Ô€|3nX‚ ŠÁÎß l Á ß p ß . qQ€W‚ X:†Î qQ€Wl X:†  qQ€Wp ¨&nj ß tÁß ~ß Æå<‚Áß. X:†j X:†t &µ"€Wt'Èt'€Ô¯-`&å8 Zþ.2n°ðn°è!n°€%n°À+i$0949€%59@j 69(79ã.Xn°ˆ,n°à.n°Kn°ÈKn° N9 79@79}<9"<9@x.~n°&Xn°HXn°�[n°}n°ð}²$<9} >9ð>9@>9€¢$D9 .¤n°€¢q°€%z°dz°xdé°æ$D9€%J9®9 ;& ;ÀK.ʼRé°ày ±� ±Ÿ ±,-$uL`;{L}kQ€p kQØr(¹QàLÍ.ð ±|—1±˜q3±Ð4<±L;D±Åži'Àœß . X:†Ž X:† X:†� X:† •Hqœ9 (t‡Ì qQ€WtqQ€Wh¿ hD‰,Ž BaÀÁ,BaÀÁ,)(,Á®B‰Á<‰Á$B‰Á> <‰Á/. Ô€| X:†® X:† Ô€|$ X:†>± L3B‰ ŠÁ®ß &Á`ß *‡Š. Ô€|3 X:†® qQ€W& X:†` qQ€W*1qQ€Wlá lD‰dR BaÀÁdBaÀÁd¹dBÊ ¦ˆ¦ˆÉ ÷‡c•Hq} $:˜Ì. ÀRà ÀRà X:†$ X:†: X:†˜ŸÔ€|÷. ERRORS DET(kQBaækQBaækQBa kQBa kQBa"ê.‚"ˆÄxÅ%!‚û‡?÷ Ìædæ"f* kQBa" x BaÀÁ‚$d (kQBa"¢.¨ˆ7 ¼–%ƒ÷ ”Ã@÷ j&ædæ" ˆ– +d "kQBa"µ&Îæd& æ" ˆ·æÄÅÌÃnËg,d kQBa"kQBaæBa\} kQBaÌnð.ìæSe Àä€  ænæ"ˆæ"ˆË5À ("kQBaæn kQBa" kQBa"¦.!燖%Ö ÷‡w¸æ& Î Á @  M"Ba\}BaŒ–×fuLkQBa¸.8ÀàŽ ö ö€Ö ‡&  Î ù †Á`@ à X^)•Hq qQ€W~ kQBa !Œ†ß vÁLß tÁ*ß Þ. X:†† qQ€Wv X:†L qQ€Wt ÀRà*¢ vÁß tæ 5ˆ‡'. qQ€Wv X:† qQ€Wt ÀRà qQ€W~È~ß ´Ï kQBa BaÀÁ´BaÀÁ´™´BÊ ¦ˆ¦ˆÉ ÷‡•Hq}@6J,ä. ÀRà@ ÀRà6 ÀRàJ ÀRà, X:†ä" Zˆý X:†Z X:†ˆÔ€|‚. ERRORS DETECTED: FREE CORE: . ¥%5WORDS # MACRO VR05-01A )ÀRà Ë( @  R`;ºWÀ+X€p"iYày.\±�±ˆ,’±„:ѱ€ѱ–S$¹ZÈd d^/d@Ùf Z$¬p<å.<Õ±@QÕ± gú±,€)²å~§²h$¬ppßUqXq}$wà~&|~ÈKâb qå *’ó+ECTED: FREE CORE: . ¥%5WORDS # MACRO VP05-01A +qQ€WpÝ pD‰x: BaÀÁxBaÀÁx‘.x‰Q$ÑH&/ˆÎ57Î Ñ ± C3Á`¬.žÁ`f_À ß  &®ҕ à _ß Î. X:† qQ€W X:†® $X:;d (X:;dê(ĉöR‘ü Šß®$‰  Ÿ  V. X:†® X:;d X:vL X:vL X:†äßß öß �ÅWa. X:† X:† X:† qQ€Wö X:†èøÎ_ |ƒ€‡• X:vL qQ€W|qQ€Wt8 tD‰¯ ø ؙؙBaü tt tykQBa g. Ba¨z—#B†·°æª&fÁÑ- ý†˜ qQ€W"Ba\}Š.Fá @Àå7à’wŒ÷ �€ÿ ‚·|&&f  BaŒ–.lÁrw lwfÁåÀÂHÌÁVÐmXÐçBa\}ÂÌ(BaŒ–œ.’H Hb� æÂæ"ˆæ"ˆÈ5À�€À ‡7Â""¨¸& æ‡0ˆÀ Ä%,ÄxŠ X:†x6ó-Ös¨z•€%‚ qQ€W„}„ß Èµ kQBa BaÀÁÈBaÀÁÈq.Èß TQ$ÑH&/ˆÎ59Î Ñ ± C5³ qQ€WTÖ.îÁ`Á`f_Àß @(ÂÎÒ• à _ß ø& X:† qQ€W@ X:†Î &X:;dø"ß JõR‘û ŠßÎß H ä. X:;d qQ€WJ X:†Î X:;d qQ€WH÷. Ÿ  ß. X:vL X:vL X:† X:† X:†ß$@ß ,ß �ÅWÌ_ –ƒ€‡M. X:† qQ€W, X:† X:vL qQ€W–~qQ€WŠÃ. .TITLE PST V05-01A PERMANENT SYMBOL TABLE .IDENT /05.01A/ ; COPYRIGHT 1972,1973 DIGITAL EQUIPMENT CORPORATION ; 15 NOV 72 .GLOBL PSTBAS, PSTTOP ;LIMITS .GLOBL WRDSYM ;POINTER TO .WORD DR1= 200 ;DESTRUCTIVE REFERENCE IN FIRST FIELD DR2= 100 ;DESTRUCTIVE REFERENCE IN SECOND FIELD .GLOBL DFLGEV, DFLGBM, DFLCND, DFLMAC, DFLSMC DFLGEV= 020 ;DIRECTIVE REQUIRES EVEN LOCATION DFLGBM= 010 ;DIRECTIVE USES BYTE MODE DFLCND= 004 ;CONDITIONAL DIRECTIVE DFLMAC= 002 ;M/BaÀóBaÀó.‰Ð Ë $)ÒxÒ�Ê ÁRR€ qQ€Wx $X:†;&Ê J&æˆÈqQ€WxÕ xD‰2y BaÀó2BaÀó2»2 &戇WqQ€W|Ñ.|fÎåfé÷ · ÷ ÷ ¢÷ ÷ Hí X:†Œ–;dŒ¢÷ ž÷ 6÷ ö÷ ‡ÓX:;d•Hq  ¯”¯ÞqQ€W¶—¶Á´ÂL÷ r D‰<ù& X:†´ X:†L BaÀó<BaÀó<< À–ß pß �ß'î. X:† •Hq– qQ€Wp X:† X:†0.t^ªÆ¯”(² û¬HghX(z†÷zl.z ÷þÿ¢ÿ÷þÿæ·”ÿ÷•ÿÿÄ 7о w÷y þÿþÿ¬. þÿ‚ÿw 7ÀÆÄc Ãu w ò 7ªw 8Fþÿc u ˜.Æw ŠÄ�ZÿŒŒŒ7‘þÿ7Š| ÷•ÿÿx ÷à÷žÉþÿ$(žÒ.ì &æ÷VÀ±ß úÿ€ ±ß‹ÿÿ€  Àÿ©  V>.·7>À ÷2€wæÆôþ& ÷ ÿæB ä.82æ0÷•@pÿà D÷‹ A „ &DCƒcÚ20pÿõ.^à ÷î w Fw â„·Šð w 1Šß x kQBa BaÀóBaÀóŸ.ß TÐ Ë $)Ò�Ò�Ê ÁR qQ€WT qQ€W� &X:†þ&RÊ J&æˆ`qQ€W�½�ß 4> kQBa BaÀó4BaÀó474 &戇UqQ€W–·.–fÎåfã÷ · ÷ ÷ Ð÷ ÷ ,É. X:†Œ–;d"X:†(ÀRà,¬$¼÷P÷RÅ–Àš÷ ´ÿ÷{.X:†P X:†X:†RX:† •HqšÕ*Ø|r÷ ÷ N÷ ,÷ ö÷ ö÷ ð ‡ú& X:†|X:†rX:;d2ACRO DIRECTIVE DFLSMC= 001 ;MCALL .IF DF PAL11R ;PAL11R SUBSET XMACRO= 0 X40= 0 X45= 0 .ENDC .IIF DF X40&X45, XFLTG= 0 .IIF DF XMACRO, XSML= 0 .MACRO OPCDEF NAME, CLASS, VALUE, FLAGS, COND .IF NB .IF DF COND .MEXIT .ENDC .ENDC .RAD50 /NAME/ .BYTE FLAGS+0 .GLOBL OPCL'CLASS .BYTE 200+OPCL'CLASS .WORD VALUE .ENDM .MACRO DIRDEF NAME, FLAGS, COND .RAD50 /.'NAME/ .BYTE FLAGS+0, 0 .IF NB .IF DF COND .GLOBL OPCERR .WORD OPCERR .MEXIT .3a"Ró _ æ$ˆß ’Âö. X:† X:;d X:†$ X:†’ •HqGqQ€WƇ ÆD‰lñ BaÀólBaÀólG lßÆŠŸ’ ŠßŒæ­. qQ€WÆ X:†Š X:†’ X:†Š X:†Œÿ„Žæ$ˆŸ _Ê?. X:†Ž X:†$ X:;d qQ€WÊqQ€WÊWÊÀ2 àT&æ$ˆ‡ X:†2 X:†$•HqskQ4d†lz‹wþ PA` ç à qQ€WàqQ€WàÛ(à ‰7‡‰÷ À 7` ÷ÿÿ7 ø.X:†4  '  7І.„Ü ÄÈ „ ‚ ¦&w Ê„‚À•\w ÊwXw Ä.ªÎw �Ä øfw �÷•ˆ €w ˜7Š” w.Ðtwhw  ÄŸ   Ä%¯ û‚ÀEøÿÄ Äe‚ nŸ ¯ &.öwhÄå˜ ÷ÀJ Á_ ÷ úÀ=w Z·ŠJ À�C  ˜ _ À.w NÀ�< w FÀ�5 w >À w 6w >  ¡.B7� w 07� w (7Š 7� ÀR Á_ ÷ ^ÄóR "_ ä.hèÂwð7Šì  wèw (‚b‚ ‚ ·ÂwY.Žúw ‚øw �A�Á � � B`ï÷ †÷%˜m.´Â”…Ö w|÷‹˜û 7Šˆwr÷•ÿÿ~.Ú5•Hq‰¯”¯ÚqQ€WúSúÁt ÷ lß >. X:†t X:†  kQBa BaÀó>BaÀó>õ> "ÀÎß „ß "�ß'"Ž. X:†" •HqÎ qQ€W„ X:†" X:†""Tó _ æäˆß ‚Â?. X:† X:;d X:†ä X:†‚ •Hq’qQ€W @ ß n‡ kQBa BaÀónBaÀónà nß zŸ‚ zß|æ . qQ€W  X:†z X:†‚ X:†z X:†|ô†~æäˆŸ _C. X:†~ X:†ä X:;d qQ€WqQ€W6ENDC .ENDC .GLOBL NAME .WORD NAME .ENDM PSTBAS: ;BASE OPCDEF , 01, 170600, DR1, X45 OPCDEF , 01, 170600, DR1, X45 OPCDEF , 01, 005500, DR1 OPCDEF , 01, 105500, DR1 OPCDEF , 02, 060000, DR2 OPCDEF , 11, 172000, DR2, X45 OPCDEF , 11, 172000, DR2, X45 OPCDEF , 09, 072000, DR2, X40&X45 OPCDEF , 09, 073000, DR2, X40&X45 OPCDEF , 01, 006300, DR1 OPCDEF , 01, 106300, DR1 OPCDEF ,7Œ–vLX:;d X:;d  X:;d= 7 7 ÷ 7 Â.X:;d X:;d X:;dX:†X:;d"®·÷ Á2æ-. X:†®X:vL X:†X:vL X:†2),($ˆ· À�/À5'÷U @Œ€æ$ˆæý. X:†$ X:;dX:†/X:vL "X:†$›.L$ˆ÷]÷ fÿÈ÷U Š&D D` Š™Þ& X:†$ X:;d X:;dX:vLX.rW! ‚W! ‡W! õ· òR‘E”@�òÀ5@8X:;d "•Hqòú.˜øÅå õJ‘÷UÅ€í÷ ÿ÷�ö ÷5X:vL"X:Hwh·Š{ ÄEøÿÄ 74†wh÷‹d Õ 4¤.ÄEøÿÄ Ã t4Pà õôÿÿ4Iw 2Û×-144U.&$ÉÂ% w ¦ ÿÿÀ=w *Àl.LÁþ7(Ä í4À=w ÀÀe0w À,µ 4¬.rw øÂ%ÀÔ@w ’k÷‹ÒÄžüÂeK.˜À=÷ªw È@w lw€üw’·ŠÂw¢ÀÎ.¾=w ª w  ÿÿÀxw >AÀe0w Š.äÀ,w ‚æ\÷VÀZw ·J-À ÷õ. BF7ì4@€ â÷.÷‹< ÀüÄüÃþûn  4².0w ê÷ðÀ?w (7 EÀò à„&æäˆ‡  X:†ò X:†ä•HqïkQ4d‚lz‹wþ PA` ç (Ç qQ€W(qQ€W(I,(÷ , 7"‡÷ ÷ À 7` ÷ÿÿ7 X. X:†"Œ–vLX:;d X:;d $X:;d%L 7 7 ÷ 7 º.X:;d X:;d X:;dX:†X:;d"bη ÷R ÷ €mÁž. X:†ÎX:vL X:†RX:vL X:;d€a(vœ~Áòæäˆ· À�ïÀ5'÷U _.X:†œ X:†ò X:†äX:;dX:†ïä,–@Œ€æäˆG 01, 006200, DR1 OPCDEF , 01, 106200, DR1 OPCDEF , 04, 103000, OPCDEF , 04, 103400, OPCDEF , 04, 001400, OPCDEF , 04, 002000, OPCDEF , 04, 003000, OPCDEF , 04, 101000, OPCDEF , 04, 103000, OPCDEF , 02, 040000, DR2 OPCDEF , 02, 140000, DR2 OPCDEF , 02, 050000, DR2 OPCDEF , 02, 150000, DR2 OPCDEF , 02, 030000, OPCDEF , 02, 130000, OPCDEF , 04, 003400, OPCDEFF†ö$X:† “$¾F7Šö÷®$‰÷ ‹À..X:†F X:†ö X:†®X:;dX:;d c&Ú ‡‰7 õ‹ò÷U& ÷� ã.X:;dÀRà •HqòX:vL X:† à*øö÷ ;÷ !÷‹Ê5Î÷5÷ ¿.X:†öX:†X:vLX:†Ê X:vLB&<%÷5:÷ ÷5:÷!.X:†<X:†:X:;dX:vL X:†:i8® ÷=: Î�ÌÁ. X:†®X:vL  X:†: X:vLX:†Ì](NpÂ~B‰Ò• ÷ Ú Š·“ÍÁ~H‰÷®. Ô€|p X:†""""""" """""""""""""""""""""""""DDDDDˆˆˆˆˆˆˆ@DDDDDDDDDDDDDDDD€ˆˆˆˆˆ€€ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ@DDDDDDDDDDDDˆ""""ˆˆˆˆˆˆˆˆˆˆˆDDDDDDDDDDDDDDDDDDDDDDDDDADDB CkQØr^ó ‹A › g^ó í &›kQèr^ó í,º› gd^ó ³›kQBa^ó ¹ (› gkQó *s›t^ªÆ^ , `›ô&%^ó udÜ›û&œS^ó »w{›ZŠqQ^ó Ý#›ZŠU^ó o¾¾›Ñ€W^ó ‰ÂÆ›ØO^ó ÊÖ›P^ó Ú›(P^ó à4›Û}}kQó @ ›€MkQ + 1›`TkQ g›EkQ !"3ê›$DÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿßÌÌÌÌÌÌDDDDDDDDDDDDDDDDÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿù !"3êFB›’±Ä±8ŽÅaå €�Í‹æÄ,L ƒÖ Bw&ÄB“Œ ýƒàÇ` % &ˆÄ‚— ýÿ}†&*ˆCÒ$’$ŽÎ’Âe ¦’ÎEÀÿ—%>k†ŽŒ †—£Î a€Ê‹a�ÊÕ€ŠŠ¦¦˜æ×$Ž & *ˆÖ PÓ$â ΋ÎŠË  ìË Î‹ ¡Î €Ó óËdË ÎŠ Î �(ˆÍ 1�£'ˆuÊ �÷ ÂQ$f €$Ë5@ ðU ‘C΋ Î �Cb÷ ŽM΋ÍðU@ ððU€ &„ ¥¥„ „ Ñ B"‘â‹Ã Å.&0 æM Iæäˆ÷]÷ RÿÂ÷U*.X:vL X:†ä X:†äX:;dX:;dQ.º Š/D D` Š™W! ‚W! ‡W! õ· ™X:vL(X:;d .àòR‘E”@�. À5@ø÷5@dÅe Åå ïJ‘À •Hq.X:†d{.÷UÅ€ç÷ €÷ ôþ÷�&÷5d>. X:vLX:;d€X:† X:†&&X:†dÕ,,7Š÷Î÷ ÷ wôþÀ ‡Á.X:† X:†Î X:;dX:;d  X:;dP.PÎ! ! á„fæJˆæJˆ÷�Ë×Q$Ñ ¥‘. X:†Î ÀRàJ ÀRàJX:†Ë X:;d:.J~X:†Í X:†~ "X:†®¨ n÷ ÷ P·“ÍE?Š Âì.X:vL X:† X:vL X:†ÍX:vL .†~Ò Â%®ûÁÉ Â€÷ Ì ÁÉ D. X:†~ X:†® X:vL X:†€ $X:vL+.¬Â‡÷ ¶É5?Ê•'É5@Ê•G Â~À X:†‡ $X:†~ (X:;dÀ.ÒH H÷5:<‰·Ò• · ûƒÂ~÷ Ç&X:†:X:;d X:;d &X:†~’.ø>ÂŽÁB‰Á~H‰?Š÷ ¸÷5$:¯ö�. X:†Ž X:vL X:†~X:vL$X:†:ž,Ö À÷ ® À7 ƒ7‡ÀK , 04, 103400, OPCDEF , 04, 101400, OPCDEF , 04, 002400, OPCDEF , 04, 100400, OPCDEF , 04, 001000, OPCDEF , 04, 100000, OPCDEF , 00, 000003, , X45 OPCDEF
, 04, 000400, OPCDEF , 04, 102000, OPCDEF , 04, 102400, OPCDEF , 00, 000257, OPCDEF , 00, 170000, , X45 OPCDEF , 00, 000241, OPCDEF , 00, 000250, OPCDEF , 01, 005000, DR1 OPCDEF , 01, 105000, Lw 7Š 7ŠÓ.V7Š     w À%0 ‚À%7‡ÀEøÿÄ Ä Ä .|`‚ ð 1 ƒ � W Ö†ø÷‹â ÷‹½Á ƒ T(¢ÄmÒ7ŠÐÁ y°èöTÖþd~`'.°èöTÖþd ~"`¨ÂºÞ.zvÌZ�˜Â).ºÞ. z vÌZ�˜ÂP.Ööˆ´6¼F*ƒ·Šn7Ši´÷PŠ*öˆ´  6¼F*™.üD ÷F 7B7<÷%4Ä0„ ."À(ÀŸ"w è÷%‹À•=w .ÀŸ w &‚.HÀ• w wúþ÷ ÜwêþwÞþMv÷ Dý€˜ ƒÿ+ƒfÁ–Ñ ƒ ×-�ƒÿÀX:†–"X:†�.œ˜Â÷ ýÀ ùâ‹�âwœ÷U°Á5ÁX:†˜X:†œ"X:vL.ÂAðÿÑ — Rƒ÷U â‹R”‡÷ æwVþ÷ lÆ X:†RX:vLÏ"è7 õ‹.÷U& ÷�&÷ ˜.ÀRà •Hq.X:vLX:†&X:†•.K÷ +÷‹ŠEÎ÷5 ÷ Z5÷5Ï.X:† X:vLX:†ŠX:vL"X:†Z (X÷ ÷5X÷δ.X:†X X:;dX:vL X:†X X:†Î¡"@ ÷‹ ÷5X÷END‰”9.X:†X:†X:† X:vL &BaÀó”BaÀó”ü(”ÀEŸ ÁÿÿÑ‹ †R’úù_B . X:† Ô€|ÿÿ X:vL "qQ€WBqQ€WB B‡&ô‹wÑ r´· qQ€W´qQ€WDž.DÀÀ]‰ W!:!W!=w�6‰wŒ/X:;d X:;d!.j‰õ‹òÁÂ÷ ¼ ó÷ �À5í÷Uþ" •Hqò”’µz X:†"üôu� ‡D‰îX:vL BaÀÚBaÀÚ×(‰ W!= W!:"‰ö6‰À€ ‡] X:†qQ€WšL.š÷-ODR1 OPCDEF , 01, 170400, DR1, X45 OPCDEF , 01, 170400, DR1, X45 OPCDEF , 00, 000242, OPCDEF , 00, 000244, OPCDEF , 02, 020000, OPCDEF , 02, 120000, OPCDEF , 11, 173400, , X45 OPCDEF , 11, 173400, , X45 OPCDEF , 00, 000254, OPCDEF , 01, 005100, DR1 OPCDEF , 01, 105100, DR1 OPCDEF , 01, 005300, DR1 OPCDEF , 01, 105300, DR1 OPCDEF
, 07, 071000, DR2, X40&X45 OPCDP·Šò÷ äù÷ Æ€.n÷ ä÷ØÔ7ŠØ÷mÊÊ÷ÆÆw Àæº÷B.”´À²w ·¨Ö%À/w ¼¯À\ú.º÷ ŽÔ÷ p÷í„„ÜÀ° Ä Ã … L‡Å ÄeDv° (D¬.à  !RB†Ô ù!R=‚L® !6‚‰RR!.4D4 V¤ À° !ž‚4Dôh4 VÔ ŒD V° D"h&Vú.,ô÷%À w 0à ÅíÅ Å @w È@r.R€ ‡À%€ÿ À%÷ æw ®· ÞwÜýwÈý�  .x à ù÷ÆÂ¢ùÄœùD · šù¼‚€Á &.žC@AƒEPA&f¦æw ˜€w ¦À/w ªQ÷=X˜.X:vL ärBx X:†XX:vLX:†XV.Z Î�Œ÷5XÁ…ž÷ Ò• ÷ .X:vLX:†ŒX:†X Ô€|… X:†ž]"€† Š·“�Áž÷ è÷Î ÷R´. X:†� X:†ž X:†ÎX:vL X:†RÀ*š ÷ X·“�L?Š ÂžÒ Â%Îû÷5>.X:vL  X:†�X:vL X:†ž X:†Îì.¼XYÁÉ Â ÷ Ê ÁÉ Â§÷ ´0.X:†X X:vL X:†  X:vL $X:†§/.âÉ5?Ê•'É5@Ê•G žÀH Hâ X:†ž X:;d€.÷5XR 4‰F‰Ë5 ÀÀEßÀU PÌã&X:†•HqX:†&X:†-.ÀË5Ì-Ê­÷UËUJ‰8‰÷U X:†X:†X:vLªæ"‰÷ ©D‰¹.X:vL X:;d X:vL BaÈBaȨ."‰Áff‰‘‘ß5 :‰F‰ËUæ&4‰y X:† X:vL$.&ŒËE¿ÿ‹U_"J‰ Ÿ¢ßU@‡L. •Hq X:† X:† &X:vLqQ€WöL.öÄ ÂÁ5€Ê5Š ÷UÁ5u, X:† X:†üž,€"X:vL&ü,¯.· Á �SEF , 11, 174400, DR2, X45 OPCDEF , 11, 174400, DR2, X45 OPCDEF , 06, 104000, OPCDEF , 03, 075000, DR1, X40 OPCDEF , 03, 075030, DR1, X40 OPCDEF , 03, 075020, DR1, X40 OPCDEF , 03, 075010, DR1, X40 OPCDEF , 00, 000000, OPCDEF , 01, 005200, DR1 OPCDEF , 01, 105200, DR1 OPCDEF , 00, 000004, OPCDEF , 01, 000100, OPCDEF , 05, 004000, DR1 OPCDEF , 11, 177400, DR2, X45 OPCDET�.Ä€w Nƒ‚�„w äÒ Û åƒ`ƒ ƒ Å ßA.êÀEÿ�¯À € € €` Õ÷‹\·à µ÷•L… @.°‡Å w ù÷•àþÿw ¶7Š3÷Uúø÷‹(÷E; þÿá.6îøw h7JæâøæÜø æØøÎE·þÿ÷‹¡ "þÿÏ.\‰À�öÀ‹… ƒà pV÷•àþÿw Z×­ØV þÿ\.‚Î÷‹ÎË÷•àþÿ·ŠÃ÷UŠøÏ·‚ø·€ø÷• þÿß.¨®7¼÷‹¥¶w D÷‹jø€Å�bøÅ�^ø¯Œ˜.ÎŒŒŒÅEw‘þÿÅDø÷‹t�å w8øÄt!D þÿ(Dp.ôÄ Ä úw ¼w JÄv Ãw w ž@÷e ø%kU÷ ·Ò• · ûƒÂž÷ Þ®e.X:†XX:;dX:;d X:†ž (X:†®R..Á ÷ LÁž÷ :?Š ÷ ÷ ¬÷5$XV.X:vL X:†žX:vL ÀRà(X:†Xô.T¥óÖ À ÷ ¬À7 ƒ7‡Âž÷ އ&X:†X:†X:† $X:†ž�.zÀH H÷5X „÷  À¥ ˜Ê• „ Û X:;dX:†X X:†¥à. û‚Â¥Ò• Á÷5XÉ ÷ ÜÒ• Á5 X:†¥ X:vLX:†XÇ.Æ÷5X¯ÄÉ ÷ ºÉ5?Ò•'É5@ X:vL X:†XÍ.ìò•GÿÿV&  w÷þ2‰ÁÁE€ÿwÁ È&X:vLkQBaX:vL&X:vLÆ.BÁ & fÖ AfÎÁEÿ,‰ ñ |À ΊØ •Hq •Hq$|þhý Á1PÖ �í‡ är» •Hq"$DDDD@HqQ€W|Í.|‡ ‰À5øÿ÷UÀEøÿ‡‰÷­Àí€ É&X:vLX:† X:†&X:†"&¢‡À � ÷UÀÿÀEÿ‡D‰LWX:vL BaÈLBaÈLÇ.LF‰&‰Ÿ .‰—¢€Ö ‡Àß Ö 2‰Ë€“ X:vL "qQ€WÖ ÉrÎŒ2‰ ‡½WF , 11, 177400, DR2, X45 OPCDEF , 14, 177000, DR2, X45 OPCDEF , 14, 177000, DR2, X45 OPCDEF , 14, 177000, DR2, X45 OPCDEF , 14, 177000, DR2, X45 OPCDEF , 11, 172400, DR2, X45 OPCDEF , 14, 176400, DR2, X45 OPCDEF , 11, 172400, DR2, X45 OPCDEF , 01, 170100, , X45 OPCDEF , 00, 170004, , X45 OPCDEF , 00, 170003, , X45 OPCDEF , 10, 006400, , X45 OPCDEF , 01, 106500, , XXv w ¸.Ä•tD7‘2ô V¨ôVw „ÀBw .P DVV¼.@À�Àe`€ w À;w ÷ðÄ�úDw w &D†.fúwÚû·â·®÷Æ"f&æ¦fæÌæ €Ö  "º.Œ·Â�‚ƒ„…Æ„÷æ°€Ä4Dhüþ "D$hù.²DÄ Ä ÷…÷�pÿ™÷�tÿ”7Špÿ7Štÿ÷‹tÿý€…Dpÿtÿpÿ tÿ$tÿÈ.Øw r÷‹tÿý€÷5pÿ÷‹pÿý€÷�gpÿ÷�btÿ… tÿpÿpÿ pÿ&tÿ%.þ÷‹V  <hD„ „ !ø…ÃÄþÿ÷%hD!.$ &Ãå„ À&Äe N YÒ• Ä ™÷ ø÷ òæÀß sÀRà"X:vL (kQBa„ –E BaÀó–BaÀó–õ,–ÀEŸ $ÁÿÿÑ‹ †R’@’ß Pß :ß W. X:†$ Ô€|ÿÿ X:vL qQ€WP $qQ€W:·"º: ßß ¦ êé_³. qQ€W: X:† X:† ÀRà qQ€W¦ ¬ Ô qQ€WqQ€Wi ‡Rô‹wÑ røs qQ€WøqQ€W†.ÀÀ]?÷ Ð W!:GW!=wð÷ Z ÆX:;d X:;d!.<÷ fw¤÷ B ÷ XwÚ ÷ $ W!$.bZqQ€WÀ‰À‰F‰· & À6÷ È(Hh X:vL •Hq6•Hq6ó6Ö@æ#î-þ(<. qQ€WÖ qQ€Wæ qQ€Wî qQ€WþqQ€WÖÛ.ÖÎ ÷UÎUò‰ÎUDW!(÷ ˆÎU  X:vL.ü?÷ €W!+"‰ÎU6Î5ÎU0 '‘."‰‰W!(Ë5%Î ÷5FÎUÎU7X:†FP.H0‰Ë5÷UËEffff÷ ¡¡¡!X:vLy.n¡PÎU0.‰2‰ €U‡"‰÷ øþW!)wî÷U ”‡ÐX:vLô‹w_ I´ç qQ€W´[45 OPCDEF , 01, 006500, , X45 OPCDEF , 11, 171400, DR2, X45 OPCDEF , 11, 171400, DR2, X45 OPCDEF , 02, 010000, DR2 OPCDEF , 02, 110000, DR2 OPCDEF , 01, 106600, DR1, X45 OPCDEF , 01, 006600, DR1, X45 OPCDEF , 07, 070000, DR2, X40&X45 OPCDEF , 11, 171000, DR2, X45 OPCDEF , 11, 171000, DR2, X45 OPCDEF , 01, 005400, DR1 OPCDEF , 01, 105400, DR1 OPCDEF , 01, 170700, DR1, X45 O\@ Ä üÀe0w &à Ð.J óÀ• Ö Á4Àÿÿ …÷‹: 4¬.p tÿý€7�vÿ…÷‹pÿý€À�rÿÀE€ÿÀ¥÷‹Ð [tÿ vÿpÿrÿÝ.– w Ðÿí÷‹¾À¥ ç…Ä ã‡•w ¶ÿú×­ .¼ rÿ• À•^w ¤ÿÀ•Uw œÿÆwlú… ÷ÿÿórÿB.â n÷ÿÿj  ‚7,4X‚ÁRì4Á-P‚Ð ¿4 4O. ðÀD…w@€ 78À ô÷%(!ùƒ…ù.. �„ ú ÷%‚??‘‡Ã� À &� >.T  Ā w Nÿ…÷%Êõw ªþ…÷Ú7†‚  € Ã.z 7Ð]÷ Þ W!: ÀÀíjÀ5ÿ÷U÷  $÷ X:†X:;dj X:vL;.ˆ² õ‹.ÁÂ÷ Ü Ø÷ �À5Ò÷Uš" •Hq.”’µz X:†"üô8® ‡ß «&X:vL kQBa BaÀÚBaÀÚO.ß ô õµ.ß Võµ0.úß HW!= W!. qQ€Wô •Hq. qQ€WV •Hq. qQ€WHl &:ß Dèß ŠÀ€ ‡ß& qQ€WD qQ€WŠ X:†qQ€WºÌ.º÷-(÷  ÷ ¶ ÷ Ô÷ p Ë5 ÀÀEß�X:†•Hq$X:†’.àÀU PÌË5Ì-Ê­÷U^qQ€W˜H.˜‰F‰ÁR÷ ˵@0Q¤Ëµ /Ñ‹·¢+Ó Ô€|RX:;d$X:†Ó.¾‰F‰ÁX˵@ Q¤·¢ыʋÑ‹ €Ò&À ¥ Ô€|XX:†4,äÀ €eÀ Àm77 À�€ À Àm à7 m. är» X:†X:†ärBx"X:†H.Ì Ñ‹J’÷ Ô‹“€ —¢—¢ |X:†X:vL(.‰ ŠÊÕ€‡ÞÔ€|R´R fBa@Î5.*‰4‰ß5ßU@J‰ôßUð‡‰§ X:† X:† X:vL¸ &Œ ‰Ÿ .‰:‰ÁÂ_PCDEF , 01, 170700, DR1, X45 OPCDEF , 00, 000240, OPCDEF , 00, 000005, OPCDEF , 01, 006100, DR1 OPCDEF , 01, 106100, DR1 OPCDEF , 01, 006000, DR1 OPCDEF , 01, 106000, DR1 OPCDEF , 00, 000002, OPCDEF , 03, 000200, DR1 OPCDEF , 00, 000006, , X45 OPCDEF , 01, 005600, DR1 OPCDEF , 01, 105600, DR1 OPCDEF , 00, 000277, OPCDEF , 00, 000261, OPCDEF , 00, 000270, `w ZÿÀ Àe0w àþÀ,w Øþæ²÷¬ø.  À°w pþ· ÷ÌœÀÈ…ÀÂ÷¼ŒÓÄï.Æ ýÿ C”Ã¥ Ã¥$ × A‡Ãå ÃåÃå ÃåÚ.ì    ¦  ‚eÂ`„ ä�‡ÅýÿÂF  O &F y. ‡€âƒ ûË× Ãe ÃeÃe Ãe 58 Ñ�Ò … è€Ð ‡@(~ N �.N ODT-11R V05-0¿t 1ABEu | b.| *;/\ $G _<^,OWEBP@>SRC-FI!XASPMM¢ CFRB ° . ° 4 Ó.ÿÿÿÿÿÿÿÿaËU:& X:†X:†X:†&X:vL.÷ š ÷ ^÷U÷ ( ÷wðþß ¼.X:vLX:;dX:vL &kQBa (BaÈ8BaÈ{*ß DÁffß D‘‘ß5 ß ‚ ß ˆ. qQ€WD X:† qQ€WD X:vL "qQ€W‚ §."BËUæ&ß €ŒËE¿ÿ‹U_"ß ¦ Ÿ¢™. qQ€WB qQ€W€ •Hq "qQ€W¦ (X:†èHßU@ß ¢ ‡·& X:† X:vL qQ€W¢ qQ€W,Ó.,Ä ÂÁ5€Ê5Š ÷UÁ56, X:† X:†üž,€"X:vL&ü,©b"_:ð. X:;d X:† X:†" qQ€W:Œ–×f G  Ÿ ( X:†(Ba@Î>‡>ß >ß ßß ~. qQ€W> •Hq X:† •Hq X:†%*R>‰Àß " ß—ßU J‰:‰ÁW. qQ€W> qQ€W" ärBx X:† X:†t _8ì& X:† X:† qQ€W8qQ€W:o :D‰~e Ba@Î~Ba@Î~m~÷ Àÿ  ß5F⇀& X:† X:† X:†Fô‹w‹ £:ÿ qQ€W:qQ€W> >D‰”K Ba@ΔBa@ΔAc OPCDEF , 00, 170011, , X45 OPCDEF , 00, 170001, , X45 OPCDEF , 00, 170002, , X45 OPCDEF , 00, 170012, , X45 OPCDEF , 00, 000262, OPCDEF , 00, 000264, OPCDEF , 08, 077000, DR1, X45 OPCDEF , 13, 000230, , X45 OPCDEF , 00, 170005, , X45 OPCDEF , 00, 170006, , X45 OPCDEF , 12, 176000, DR2, X45 OPCDEF , 12, 175400, DR2, X45 OPCDEF , 12, 175400, DR2, X45 OPCDEF ¹<ÿÿÿÿÿÿÿÿ¸óe.R· Á �&  w÷þ÷ €w�ÁÁE€ÿ&X:vLkQBaX:vL"X:vL·.xwÁ Á & f Ö AfÎÁEÿ÷ J >X:vL •Hq •Hq!.žñ "wŒÀ Ίý Á 1PÖ �êÁ @¦"" X:vLär» $är» ˆ.ÄÁEÁ%P%ÁEÀÁ% Á5ÁEÿ�Á%ß.êpÁEðÁ%ðÁEÏÿÁ%Á% A A ÄÁàÁ5÷U@‡X:vL•Hqã.~~~~D~T~ìDh~JJ~^~JbqQ€W"$."‡÷ 0f$”‰Á Âß >Àß " ß <_M. X:† X:† qQ€W> qQ€W" qQ€W<< °n Ç qQ€Wn BaÀó´¯.´ß Ì ä 2‰ _À‰ßU‡*ßš. qQ€WÌ qQ€WÀ X:vL $X:†* (X:†a.Ú,ß v ÂЊJ‘Ò‹&‰— ðù‡Áñ¡˜þÉ• ›. X:†, qQ€Wv X:†Ð X:†ð X:†ñŽ_ ‡Ç X:†BaÈ|˜.|Â$ß R‘5&‰— cú‡â‹øß5 :+ß‹ÊÈ. X:;d$ X:† X:;dc "X:†: (X:†Ê¨.¢(Á^B‰ß v ‰þÂÀ÷ â•-À ÷ ’. Ô€g, 12, 176000, DR2, X45 OPCDEF , 12, 175400, DR2, X45 OPCDEF , 12, 175400, DR2, X45 OPCDEF , 12, 174000, DR2, X45 OPCDEF , 12, 175000, DR2, X45 OPCDEF , 12, 174000, DR2, X45 OPCDEF , 01, 170200, DR1, X45 OPCDEF , 00, 170007, , X45 OPCDEF , 01, 170300, DR1, X45 OPCDEF , 02, 160000, DR2 OPCDEF , 11, 173000, DR2, X45 OPCDEF , 11, 173000, DR2, X45 OPCDEF , 01, 000300, DR1 OPCDEF h.Ëe^¯”q X@aKY@Î" @. ¨:@²ëy@%k@%Î@%Ž@£.%²2@%":@%xd@%óy@&ø€@Y.&ZŠ@Ák@Î@ÎŽ@Θ:@Ä.δ‰@΀»@Þƒ@UÜ%@ƒ*}@è.""ì@´%ˆw@U(Î@´-�@{3Ê8@Þ.Ç8œQ@t:˜:@¡A€ @EöQ@Ev,@.;K€@ŒKbrH6¥K (@{L˜:@{L}@é.{L€@[MD@[M¶^@[M‹w@_M˜:@O._MR@ NÄ8@N @”Tk@µWU@¹.cYøM@ÕZZ @ÕZìy@iÀ5øÿ÷UÀEøÿ‡÷ ÷­Àí–X:vL"X:†$X:†�,H€ ‡À � ÷UÀÿÀEÿ‡ß \Õ.X:†X:vL $kQBa &BaÈ\BaÈ\¢.\ß B&ß   Ÿ ß °—¢€Ö ‡À ß ù. qQ€WB qQ€W  X:vL qQ€W° (qQ€W—‚ß î Ë€ÎŒß î ‡> qQ€Wî qQ€Wî qQ€Wlv.l÷ ´ÿÃüÿ÷ Àÿ� ÷ ÔÃøÿ÷ ÊÃÀÿO.’À0÷UÀ@‡÷ ° ÷ š · & ÀZ÷ ² 2Ë X:vLX:vL "•HqZß ¸Hë•HqZ#Zº@Ê#â-ò(\. j|^ qQ€Wv X:;d X:;d &X:;d .È â• �_*Äâ•  Ã ß œ Áe0å qQ€W* $qQ€Wœ �îJ�Ä ò‡ÛÔ€|^¨^TABLE OF CONTENTSÙBa@βƒ.²÷ ž Â2Àß þ Ò— 6÷‡ÒÀW. ÀRà X:†2 qQ€Wþ X:† X:†6sØß Ö ‡Ä qQ€WÖ BaÀóð.ßUßU8‰‰:‰‡CßU‡&‰ö X:vL X:vL $X:vL~ .Å ß àß èù‡C!õ_~ u& qQ€Wà qQ€Wè qQ€W~ Ba@ÎÞÈ.Þƒ ‰Œ ‰ `ƒ ý‡‡Š ÊEk, 01, 006700, DR1, X45 OPCDEF , 06, 104400, OPCDEF , 01, 005700, OPCDEF , 01, 105700, OPCDEF , 01, 170500, , X45 OPCDEF , 01, 170500, , X45 OPCDEF , 00, 000001, OPCDEF , 05, 074000, DR2, X45 DIRDEF , DFLGBM DIRDEF , DFLGBM DIRDEF DIRDEF DIRDEF , DFLGEV DIRDEF , DFLGBM DIRDEF .IF DF YPHASE DIRDEF .ENDC DIRDEF DIRDEF DIRDEFl¶^À@¶^@y@ž.ó_@`d@a :@5axr@ßf›@.ßf g@ãfx@q@Q@Ös*}@-y€@B.AyÐ@^y@¯y@z@zg'@ .zBy@z*}@YzPs@lz�@Õ}˜g@“.Ük@å@@ø€ì@ø€@@ø€²2@9.Ä…e @Ä…Ä8@Ä…y:@Ä…˜:@Ä…Xz@N.ZŠø€@cŒ²2@õ–Ðp@õ–t@£œQ@Ô.Z£Xa@(Ëe^(:%€MhŒÎ¶^hâU.Îð_hât:¶^hìt:ð_hÚ{L¶^hþ_M¶^hø|._Mð_hÎÿ_p&h$\qP¥h®&y¶^h€Ry8^h¬.áy shmqQ€Wº qQ€WÊ qQ€Wâ qQ€WòqQ€Wº8.ºÎ ÷UÎUò÷% ÷ À÷ ZÎU3 X:vLX:vLû.àSW!(÷ ªÎU P÷ ¤W!+÷ D ÎUF†.Î5ÎU@ 5÷ ÷ W!(Ë53©.,Î ÷5dË5@·¢÷5dÎUm X:†dX:†"X:†d.RÎU7÷ ~Ë5÷UËEffff÷ X:vLq.x¡¡¡¡PÎU0÷ $÷ ^ €U‡÷ ª÷ †þ‰žW!)wœ÷U‡¥X:vLô‹wQIøkeø× qQ€Wø qQ€WøqQ€W°9.°n‡ÊU‡Âßñ &X:;ds*  ‰  ßU€_VÇ. X:;d X:vL X:;d $qQ€WVŒ–;d Š ßÐ X:;dBa@Î&ª.&ƒ ƒ ¦,‰‰.‰2‰Ê`ùŠß‹  .‰Ê ärBx "X:† &X:†Õ.L2‰‡ƒ ƒ à ÷ zBW!<&‰@B!à �Ò.r ‰÷ 0ô"‰õ‹òëßU à # €Á Ò •Hqò X:vLî.˜÷ ð&‰Œ÷ êà € (‡ßU& $X:vLh$¾ß „ €e � W  .‰2‰ ‡_ qQ€W„ BaÀÚ F. ÷  Ã �Å%,o DIRDEF , DFLCND DIRDEF , DFLMAC, XMACRO DIRDEF , DFLMAC, XMACRO DIRDEF DIRDEF DIRDEF DIRDEF , DFLGEV, XFLTG DIRDEF , DFLGEV, XFLTG DIRDEF DIRDEF DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF , DFLCND DIRDEF DIRDEF , DFLMAC, XMACRO DIRDEF , DFLMAC, XMACRO DIRDEF , DFLGEV DIRDEF DIRDEF , DFLMAC, XMACRO DIRDEF , DFLMAC, XMACRO DIRDEF , DFLSMC, XSML DIRDEF , , XMACRO DIRDEF , , XMACRO DIRDEF , , XMACRO DIRDEF DIRDEF , , XMACRO DIRDEF t.º.ˆ€‰ã÷‹ æˆÄÂÁw /.%Î_M˜:ø€@ø€ì"%²2&%":…,à& w 8æÀw 67 Àw *÷•,,a :ÞƒÇ8œQ¯y£œQ&N «.þÿ€7”wèæ/ˆÎE�wW ‰ µWUþÿ %ÎÁk ¯y�.*wÆ&w ƒÁ”N�ñ‹ÿÿVw зŠÐ�ÿÿì"z*}ÿÿ²ëy$%xd(µWUÿÿR.PŠÐ÷ ·ŠÁPPPP÷ .‚s$µWU UÜ%%xdUÜ%$µWUq.v‚  ¦æÀ÷‹w w ÁÂ#*Ä…y:zByU(uß5ßU@ß ¦ß _. qQ€WÊ qQ€W€ X:† X:† qQ€W¦Ü(¢ ïßUë‡ß   Œ ß HŸ ß k. qQ€W¢ X:vL qQ€W  qQ€WH X:;d*>°ß ‚ ÁÂ(_x·. qQ€W° qQ€W‚ X:† X:†( qQ€Wx2Œ–×f {  Ÿ .  X:†.Ba@ÎPoPß ˆ ßßß . qQ€Wˆ •Hq X:† •Hq X:†Ð$dˆ ß ôÀß V ß— ßU à. qQ€Wˆ qQ€Wô qQ€WV ärBx X:†.€ß ¦ß ‚ ß ¦ ÁÂ. X:† qQ€W¦ qQvHXó€¢ò�[óà.úÈKC. BaÀÚò BaÀÚó BaÀÚò BaÀÚó BaÀÚúQûÀ+ú Nˆ,Kðp. BaÀÚû BaÀÚú BaÀÚ BaÀÚ BaÀÚ&*&X7 BaÀÚ BaÀÚBaÀÚòø.ò ‰C ‡ ‰ýû ‰úøÁ  ‰ì4‰ ß5÷.@  ƒC BW!&W!!B "‰éÁ  X:†© >C ‡ÝBaÈö….öC à ƒ ,‰ß 'Ÿ ‰Àß   ±B Ö X:vL X:vL qQ€W ä.À ýß ŸP>Ÿ0> Ÿ@:—0€ß`<÷ ³. X:† X:†> X:†> X:†: &X:†<DIRDEF .IF DF YPHASE DIRDEF .ENDC DIRDEF DIRDEF DIRDEF , DFLGEV DIRDEF DIRDEF , DFLMAC, XMACRO DIRDEF DIRDEF WRDSYM: DIRDEF <WORD >, DFLGEV PSTTOP: ;TOP LIMIT .END ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������x�Î ¨:$[M‹w([M¶^��&��œ`Ã�w ��Ä��÷‹��Ä��w ��÷‹2��,��cYøM� õ–Ðpq �XzByAyÐ-y€ ��.��º��7��÷‹�� ·Š��w�(ÿÎ æö÷‹��w .U��$��zBy q �Xzg'z"Θ:Ê��.��àw�¨þÁ��w &ùÃe�Î æw�þþ€÷‹��À5�Ò���� ´-�"Ä…˜:%��.��·Š��÷‹��À5�·Š��ÀEùÿÀ%�‰e÷ Î����Ä…Xz {L˜:{L€¡��&��,��û÷‹��·Š��÷‹��·Š��Â��· d��*��¯y�� ÜkaKY”TkaKYßf›Ù��.��J�� w���Â��ƒ…�à ă`ÃÁ��C$W ��*��$��5axr {3Ê8YzPs lz�(;K€�����y�€W‚ qQ€W¦ X:†�0����”��ß v_�Ô���&�� X:†� qQ€Wv qQ€WÔ�qQ€W‚ Œ����‚ ß �ž�Ù���� kQBa� Ba@Ξ��Ba@Ξ�­����ž�÷ ²ÿ � �ß5�d�܇�R��&�� X:†� X:†� X:†d��ô‹w �i�� �� �£‚ °���� qQ€W‚ �qQ€Wˆ }����ˆ ß �´�½���� kQBa� Ba@δ��Ba@δ����"��´�ß TÁ�Â�ß |À�ß Vß Š��.�� qQ€WT X:†� X:†� qQ€W| qQ€WV«����Î�z_�¦|���� qQ€Wz qQ€W¦�BaÀóÖ� ��,��Ö�ß  ä� ß î _�î ß ôßU���‡�²��.�� qQ€W qQ€Wî qQ€Wî qQ€Wô "X:vLz�1����B�à €ŸP:�×ßU���‡�y���� X:†:� X:vL���lz‹w�õ�� ���LI�X� ����ã�� ���ø�NL�W��� Ba�Èø�� �c�� �� �ö�ò���� Ba�Èö��Ba�ÈVª����VŸ �ßU��‡����� X:;d � X:vL��•HqH�d��(��H�™w[Mö “y%` àQ¸QR Rô K-€[µz��…�����Œ–×f�w�����÷� @�‡����X:†@��Œ–;d�ˆ�����Á@�Â:�÷ <e��&�� X:†@� X:†:�qQ€W<�Ba�Èb��.��bC *‰!À �ß   ±�B À ýß �ŸPH�2���� qQ€W X:†� &X:†H�ô��,��ˆŸ0H�ëŸ@F�à ŸPF�æ�Ã Þ àßU���‡�Â��.�� X:†{��.��ñªV����¯”��š©¨p@��À©""@��ñª¸Q@��ö��.��½«¸j@������(D�ñª@Qh��•«�}h*�¯”�K����÷�����������æ��.����À��7��Ì Ô��ô%à[�æ��& æ�!ˆs����ñª¸Q ñª¸Q½«¸j À©"" ��&��&�%\�Ä��7�� 7�� …�À�w ��Ž���� ñª¸Qñª¸Q½«¸j š©¨pT����ó��.��ÔªSu����¯”��š©¨p@������(�Ôª€ph��ˆ����¯”�‘����÷�����������æ�� ����z\�����ó��.��v©Vu����¯”��š©¨p@������(�v©€ph��C����¯”�‘����÷�����������æ�� ����z\�ü����ó��.��ì¨Ru|��.��pû‰?Áå�y ��ë÷‹��‰5·Š��v���w Ü��&�� lz��¡A€ z zg'$ƒ*}Q��.��– �Ä ó‹��…�3Š��y���ó‹�� f¦æ&y ���� z*}z*}¶^@yz*} ��(��¼��„ƒ‚�3‘��y���÷����·Š��…�÷���*��¶^@yz*}`�dø€²2AyÐzBy.��&��Ü����ù7 ��7 ��…�À��w ��w�”ýÀÅ��*��%²2AyÐ µWUUÜ%%k ¨:��.��ú��ùÀ��w ����w ��òÀ��öaÁåþÿ� w ��,��ø€@ NÄ8U(Î ¨:Ä…Ä8$ãfxþÿ°��.�� ��…�Áå��� w � 1‘�…�& Ž w �Cƒ Ê����ßf› ßf g´-��y���}���[��"��ú�0�ß�2�ß <Â�ŠJ‘Ò‹ß "��.�� X:†0� X:†� X:†2� qQ€W< X:†�Å��$��V— °ø‡Á±¡˜þÉ• �_Þ ‡�f��.�� qQ€WV X:†° X:†± X:†Þ�Ba�È–�”��.��–�Â$�ß �� R‘8ß V— c�ù‡â‹÷ß5� X�-ß‹¶��.�� X:;d$� X:†�� qQ€WV X:;dc� $X:†X�‘�� ��¼�Š*Á^�ß ‚ß <ß JýÂd��.�� X:†Š Ô€|^� qQ€W‚ qQ€W< qQ€WJK��.��Ô���À�÷ �â•-�À �÷ �â• ��_�p Ä�â•��&�� X:;d�� X:;d� X:;d � "qQ€Wp ›��$��ú� �� à �ß ö Áe0�J�Ä ò‡�R���� qQ€Wö �Ô€|^�å����^�~�H� X:†F� X:†F� X:†� $X:vL��J�����Œ–×f�q�����÷�J�{����X:†J��Œ–;d�r�����÷J�F�,����X:†J�X:†F��lz‹w �Î�� �� �EN�R� ����Û�� ���dDS�å��� Ba�Èd��î�� ���b}���� Ba�Èb�qQ€WB����B÷��÷Õ@��÷��‡�÷x��.��X:†�X:vL�X:vL�X:†�X:vL� ��.��X��÷Õ@��÷��‡�É �fA�Ê•�Á RŒÀW��.��X:†�X:vL� X:vL�X:†�X:vL�²��.��~�fAœ�À ����Á�Œ¡� À�À�Àe�J�� ��¤Ê•�Á JŒÀŠüÒ‹À�À ó�‡�å�����ÀRà �Ë���������¯”��š©€p@������(�쨀ph�������º«€ph�¯”�Ä����÷�����������æ������z\�z\�,����ó��.��À©Ou����¯”��š©€p@��š©¨p@������(>�Ê����À©""h��¯”�p����÷�����������æ��.����ö5��ö5��w �� w ��w ��Ž����š©€pš©€p&š©€pä�� ��&� ¶�¶��6 �6 �–%�±����ó��.��O«ÕO����¯”������(�¹©Àvh�O«�Nh��m����P¬¨»h��¯”�¾����÷�����������æ�� ����Ö \�³����ó���������������������������������������������������������������������€��.��F„…�w �õÎ ô€ä Ä …�Ã��” ’Ã��Ã-��R����Õ}˜g$Õ}˜g(ó_��}��.��lÃ-��‰¾w���w���w D�÷ ���ÀÀê����¶^À´%ˆwå@ÕZìyj��.��’1���öÀ À1���ðw �÷ ��…�À±Š��È����[M‹w[MDÕZìy([M‹wœ��.��¸÷À ±Š��ò‰–&„ Ä ¦� ffÃ��ñŠ��à���� [MD$ÕZìy(´-�‡��.��Þ �@”Àí9� Àe ��Å fÅ Å …e`òcÄ íh�� �� 9�©��.��…�‚„…�Á��Â��Ã��w ��…�Á��Â��ö³��*��΀»Î�¥K (õ–Ðp"Î�&Ös*}Ž����*ŠÁ ýù…�ž����ó��.�� ±Œ:����¯��TABLE OF CONTENTS�Ù�����Ba@ÎÔ�a��.��Ô�÷ °� �Â8�À �ß .Ò�— <�÷‡Ò�À �Õ��.�� ÀRà� X:†8� qQ€W. X:†� X:†<�1����ú�ß ‡�d���� qQ€W�BaÀó0Š��.��0ßU���ßU���ß n ß   ß ‚ ‡�CßU�©��.�� X:vL�� X:vL�� qQ€Wn qQ€W  qQ€W‚ ��(��V��‡�ß VÅ ß äß 2ù‡�C!ô_�DU��.�� X:vL�� qQ€WV qQ€Wä qQ€W2 "qQ€WD§�����Ba@Î�4��.���ƒ ß   Œ ß \ `ƒ ý‡‡�Š ÊE�‡�ÊU�‡�Â���� qQ€W  qQ€W\j��.��&�ß ��ß X � �ßU���€�_�8��.�� X:;d� ‚���� �����×�E����Ñ�EZ�����qQ€W¼‹�� ��¼D‰��a���� Ba€Ô���Ba€Ô��Ý��&����ß >ß ² ß ��w�ê�ß è�ß $ûß ë��.�� qQ€W> qQ€W² X:†�� qQ€Wè� X:†$��,���:ZÅ^ß5�F�Åö À¢�ß t�ß�Æ�ß ��.�� X:†: X:†F� •Hq¢� qQ€Wt� $X:†Æ�5��(��B�Á*�ÂÄ�÷ ž�& Ÿ�À�ß þ 'æ[��.�� qQ€W X:†*� X:†Ä� ÀRà� qQ€Wþ ƒ��.��b��Á�EŠÅ�ÉEßÿÑUQa �Á�÷ f�z��&�� ÀRà� X:†� ÀRà� $X:†�½��.��ˆ�À��ß þ àß5@��÷ŧ�ôßE—ÿ�ßU��é÷��.�� qQ€Wþ X:ƒ��.��qQ€W����¯”��<@@�� #�}@��ÎK�}@����.��vLÀD@��zQÀD@��¬p¸e@��¬pÀ…@��ïq 5@��˜��.��œw@��»zÞ@��u~@@��ÑPZ@��ì¨@8@��Æ��.��ö¨@8@��E©@8@��v©@8@��–©¯@��–©ü@����.��™©��@��Ý©�‚@��+ª@8@��+ªÀ]@��6ªè&@����.��7ª@@��7ª€%@��7ª@8@��Ôª@8@��ñª@Q@��T��.��õª��@��*«@8@��,«0z@��-«ù}@��O«�N@��y��.��O«�i@��S«�2@��S«ð4@��U«�‚@��•«à@����.��•«�}@��º«@8@��º«˜{@��½«@j@��Ϋ@@��€��.��Ϋ@y@��ò«��@��ò« €@��j¬e;@������(àû��.��qQ€Wh��E��(�µW@(*�„�”�� œ@��%€M@��n; @��…��.��nR@��ž!Xz@��a"€ @��EöQ@��{L˜:@��¯��.��{L�}@��_MR@��hMŒ(@�� NÄ8@��{Q@��q��.��{QÚ}@��_X{Q@��›Y@��^y��@��*}ÖK@�� ��.��ln@��Ä…e @��Ä…Ä8@��Ä…˜:@������(�� ��.��&Ð(h%"hœ�%š^h¦�""ìh��{3Ê8h¶�y��.��{L"h8�{Lš^hL�{Q"h.�{Qš^h<�ÌQ`rhl�ñ��.��·R""h¬�_X"hT�_Xš^h\�‘Yš^h²�Ä…"hX� ����Ä…š^hd�¯”�x����÷�����&Ð��\��.����&f¦æ&f� �@ÀE�‰À ��w ��…„ƒ����a"€ "_MR{��.��&�‚�€�‰ ‰÷ …�X:;d� qQ€WX X:vL�� &X:;d��� ��L‚ ���� qQ€W‚ �Œ–;d �Û���� �ß��Ð���� X:;d��Ba@ÎN‚��.��Nƒ ƒ ¦ß æß   ß °ß î Ê`õŠß‹ � H��.�� qQ€Wæ qQ€W  qQ€W° qQ€Wî $ärBx �H��.��t� �ß °ß î ‡�ƒ ƒ à ÷ ��BW!<�%ß n��&�� X:†� X:†� qQ€W° qQ€Wî /��.��šV@B! à �À���’ÀE€ÿß P÷ 4�íß Y���� qQ€WV X:;d�� qQ€WPT��.��ÀDõ‹.ãßU���� à & €Á È÷ �ð&ß  ���� qQ€WD •Hq. X:vL��¾��.��æRŒ÷ �éà € (�‡ßU���&�ß :€e ó���� qQ†�†� X:†� X:†� &X:†�¢��(��®�ßEßÿ&�ßU&�Á"�÷ ,�ß ¾ß�Æ�ß $��.�� X:†&� X:†&� X:†"� qQ€W¾ X:†Æ�ä��*��Î�òß�Æ� �À�ß þ  �J‰÷‡�— ��.�� qQ€Wò X:†Æ� ÀRà� qQ€Wþ X:†�È�� ��ð�,ƒß ¾_�:Áw�Â$�B‰ß ç��.�� X:†, qQ€W¾ qQ€W: Ô€|w� X:;d$���$��Æ�ß Ìß�Æ�ß òß5�F�ÀX��.�� X:†Æ� qQ€WÌ X:†Æ� qQ€Wò X:†F�é�� ��$Â�Ð(�Â�ß Ìß‹Ê�Oß5�@`��.�� X:†Â� X:†(� X:†Â� qQ€WÌ X:†Ê�º��&��<:�K � �®À��ß þ "@‰Ãœ��.�� ‡�4R��(�4„��(�æ��.��˜:��(�]d��(�{ÀD(��'��(�kÀv(�ß����wC^( �ZŠÀv(�¯”�Ó����÷�����������æ��$����7 ��������qQ€W���Ž ��œ ���ž��,��O«�Nñª@Q½«@jŽ O«�iœ ½«@jþ�����Ž ��¤ ���® ��¬ ���ã��.��Ž O«�i¤  ½«@j® O«�i¬ ½«@j·����0�Ž ¦ ��j ����´ ¬ u��,��Ž ¦ º«˜{ j  U«�‚–©¯´ ¬ ,����@���,����® ���«��*�� ]d����,�½«@j ® O«�i ˜:���„����N���� Ž ������b�u��*��½«@j  Ž  E©@8™©��ò« €b�ƒ����^���~����ˆ� ‰ú‰æ��ˆ‰÷ (�� ��{QÚ}¬��.��L� ‰æ��÷ ‰ì ‰ê ‰æ��ï ‰æ��ëæ��æ����{L�}_X{Q Ä…e &ln|��,��r���æ�"ˆÁ��÷ Ò�w ��÷‹��À��Á��w Ú��*��n; nR_MRÄ…˜: Ä…Ä8$Ä…e J��.��–���w��� ‰ ‰w ��W ‰‰ú‰‰Q ‰üæB�!ˆ¦���� œ%€MEöQE��.��¼�Îe�À��€ãÀå‚�À%�ƒ‰‰0ˆ€ ÀE�€Â�'�� �� ^y�� ��.��â��  ýÁ @à‚Ã��w &�Ã��w �� w��7 ��Ç����{Q›Y$*}ÖK(ln��.��Ã�w �Ã�w �w���“““Ò “B`â …�“>����{Q�›Y�hMŒ((��.��.“‰�€WR X:vL�� $qQ€W:B��.�� � W � ß °ß î  ‡�ƒ ƒ Ã ß æžæ���� qQ€W° qQ€Wî $qQ€Wæý��&��2j�Þ ßU���ÂÁH�Lß î  ûí/��.�� •Hqj� X:vL�� X:†H� qQ€Wî �•Hql�P�� ��l�’ Ž R���� qQ€W’ qQ€WŽ �ô‹w�)�� ���(ø�¬���� qQ€Wø��qQ€WŽ ����Ž · �· �ß ���Õ��.��X:vL� X:vL� kQBa� Ba@ç���Ba@ç��·��&����ß Tæ��ÃH�ÄP�! W @�ü‚ßA�š��.�� qQ€WT X:;d�� X:†H� X:†P� X:†@�²��.���F�Å%+�Å%-�ß�€@�ß Võµ�.Ë5�ø+��&�� X:†F� X:†@� qQ€WŠ�X:†:� X:;d� ÀRà� X:†® qQ€Wþ ��.��Zh�÷ x�Á�É5�ß nÁp�B‰÷ ^�Á�É¥‘��.�� •Hqh� X:†� qQ€Wn Ô€|p� &X:†����.��€�a¨ß ‚Ò• �— à܇÷ 0�× �÷ &�À�*���� qQ€W‚ X:†à ÀRà�-��.��¦ß þ @‰Ò• �Á�ß nÒ• �Á�ß ‚ë ŠÁ™��.�� qQ€Wþ X:†� qQ€Wn X:†� "qQ€W‚æ��&��Ì®ß *®‡�÷ ��Àß4�À��‡�X��.�� X:†® qQ€W* X:†® X:†��•Hqh�Ù����h� =�% �R �G @�ž�����Ô€|p�–����p�******�SYMBOL TABLE������qQ€WÀ‡��.��ÀÀ�÷ š‡�À�‹�¶ ���������.��ò«��~�½«@j ¶ O«�i {ÀD��½«@jj����p�À ��Ð �����0���i��*��À O«�iÐ  ½«@jò«��0½«@jz����‚�������¨���������º��*��S«�2 E����S«�2 ¨� -«ù}S«�2—����’�������������P��.�� ZŠÀv��S«�2 ZŠÀv� S«�27ª@87ª€%ü��.�� ������Â�(1X,'VERIFY VO',A2,'-',A2)���h����½«@jò«�� Â�&½«@j����Æ�������Þ���������@��*��S«�2 E����S«�2 Þ� -«ù}7ª€% ��.��Ö������(1X,'WHICH DEVICE(SY,DK,DF,DC,n����½«@jò«�� ����ü�DT)?'/)rŒ�“w �`w �  7Š��…�   …��� ��ž!Xz<����T÷‹��–À��Á��w ��‡�¿����{L˜: NÄ8{L�} œ˜����ó��.��%:d����¯”��L xZ@��nÏG@��²{Q@��ƒ��.��²›Y@��²¸Ä@��%:d@��ž!½@��ž!Xz@��†��.��´%ˆw@��µ'È‘@��í' X@��ÞK !@��{Q@��Š��.��-S�.@��”YjR@��›Y@��kf��@��ÕfÏy@��*��.��„s�K@��å@@������(��%(d(¨hMŒ(h��­����¯”�‘����÷�����%(d�� ��&����7Š��w ��w ��÷ �w���÷ �w�Õ��.��ÕfÏy -S�.”YjR{Q�ž!½›Y��������ÿ/�� Ã��V •Hq.Õ��.��D�Ÿ D� ÷ \÷ „Åå0�bab b b ßgB�D� äï���� X:†D� "X:†B� $X:†D���.��j�Å%.�_ B�Þ�Å%E� ß Dæ�ß ��ß RŸŸ��.�� X:†B� qQ€WD X:;d� "X:;d� &qQ€WR ��.�����`D�Á@@T@T@Thß D�1×"3‚÷ ö�Ÿ 6���� X:;d� X:†D� X:†D�i��.��¶�F�÷ Ð�ße�F�ß D�ìß F�÷ Ë ú€æ �÷ ¶��&�� X:†F� X:†F� X:†D� X:†F�•��.��Ü�ê�÷ �Î5�÷ Ü�÷ Ø�÷ Ô�÷ ¾�Î óÖ ßå�>��,��F�Ÿ D�Ìß F�÷ Ä�û†ße€�F�ß‹G�ßU€�Ú��.�� X:†F� X:†D� X:†F� X:†F� X:†G�ú��.��&��Ž�÷ ,t�‰  ÄÝ��… ÷ ��%���� X:†�(X:†�� ��(��æc· ��8‰:‰ÄŒ÷ Æ�Zx�ÂÄ�÷­�?��.��X:vL�X:†Æ� •Hqx�X:†Ä�"X:†�¥��&��!�— ,ƒ÷ ª�Ò�Ò �Ò�÷��ö��.��X:;d!� X:†,X:† �X:†� X:†�Æ��,��$!� ÷-�"� — 0ƒ÷ „�Ò�Ò�÷ x�ÀÚ��.��X:;d!� X:†� X:;d"� X:†0 X:†�¹��*��HÂ�@a qø‚�‘€` 4ó‚ÁÂ�W H÷5� ��.��X:†Â� X:†q X:†4X:†Â� X:†H×��.��jF�Ñ�Ñ�Ä †Ò��@ÀåH�Ä †Ò�Ò<��.��X:†F�X:†�X:†� X:†H&X:†�’���� ���ä��������� ���*���������*��½«@jS«�2 ˜:�� � S«�2*6ªè&������������������°��,��S«�2 {ÀD��S«�2 7ª@87ª€%½«@j’����&��.(A2)���Ž ������ì��.��ò«��. ½«@jŽ O«�i {ÀD�½«@jË����<p Ò ����p Ü ����å��.��p Ò E©@8 ™©�� p Ü E©@8™©��W����L��p æ ��������)��,��*«@8p æ  E©@8 ™©��*«@8ò« €¢����Z`��¶���������R��.��`ò«��¶ ½«@jS«�2 E����S«�2ß��.��j|���������� ���Œ(1X,'UNIT NO.'/)��!�j��,�����Á �ÂÏ��,��µ'È‘{Q� ›Y�{Q�{Q �H��*��2� �w ��w ��à÷Š��÷���w ��ç7Šé��,��›Y �%:d²¸ÄÕfÏyÕfÏy „s�KÆ��.��T���7 ��÷e���Ä��ô �w ��Ä��ô �w ë��*��ÕfÏyÞK !ÞK !{QL xZ ›YÏ��(��z���÷µ���w 2�è÷��w ��w ��w 3��.��L xZ ž!Xz›Y�{Q�í' X ²{Q)����š���÷ �÷ �7 ��w�Tÿ÷�ß��*��²›Y{Q� ›Y�ÞK !{Q�����°��÷��ë7 ��÷ �÷-W��,��{Q�›Y� ›Y�kf��{Q�4����Æ����2÷���÷ �‘��á b(J’Ê�ƒ û÷ Œ� ß5�d�Â� W���� X:vL�� X:†d� &X:vL�-��.��L‚  òUÿH�±�r H�  ûË €ßU���Ëg@�û��&�� X:†H� X:†H� $X:vL�� (X:†@�ˆ��.��r � �ß�€�� À_�H×"Ì̇÷ 0�Y��.�� X:†� X:vL� X:†� X:;d�� qQ€WHU��.��˜Ÿ F�÷ B�÷ $�÷ �÷ 4�÷ $�÷ �¢l��‰���� X:†F�g��.��¾a þ‡ƒ ù‡�¡�Á    ‡�â b b b ‡�Áé����ä_�x ���� qQ€Wx�BaÀÚ>�*��.��>�÷ ¤�à �Å%,�ß VÁ��ß Hß5�X�_ ���.�� qQ€WV X:;d�� qQ€WH "X:†X� (X:vL �ô��.��d� ’��$����Ä †Ò�·Ä�Ñ��Å Ñ� �w��.��X:†� X:†�X:†Ä�X:†�X:† �u��$��¬Â�… wa�÷�"�€‡�·Ä�÷ �Â��.��X:†Â� X:†�X:†�X:;d"�X:†Ä�’�� ��ÈÄ�‡�Ö����X:†Ä��•Hqx�ú��&��x��� À Ààà�����€������ààj�����Œ–;d$��� ��$�wŠ!�ª����X:;d!��qQ€WÌ ��$��ÌÀDÐ�ÈÂ�%ÈåHw Ú�B:\��.�� X:†DX:†Â� X:†H X:†B X:†:v�� ��èD×-Ä� ƒ÷5�F�À Èë��.�� X:†DX:†Ä� X:† X:†F� X:† ý�����Æ�àÄ�Èå à�w ¬�:0��.��“�|-«ù} 7ª€%½«@jò«��Œ&½«@j´������� ���²��������–��*��S«�2 ˜:�� �S«�2 ² 6ªè&S«�2t���� ����������"�����,�� {ÀD�S«�2 7ª@8 7ª€%½«@jò«������°¶(O1)��#���$�������Ö‡��.��¶ ½«@j½«@jS«�2 E����S«�2ÖÐ��.��Æ����������%���(1X,'OPTIONS(NORMAL,LIø��"��-«ù} 7ª€% ½«@jò«�� ��.��ìST,SEARCH,FIX, OR ALL)?'/)��&��� ���,��$��½«@j"S«�2 $˜:�� �&S«�2(,•������������Ð ���������'�Å��.��6ªè& S«�2 Ð S«�27ª@87ª€%½«@j@�”�÷-7��*��kf��{Q�kf��›Y�›Y�l��*��Ü����'Ä��Ã��÷���w P�w t�÷ æ��.��kf��›Y� {Q›YÞK !{Q�ê��$��þ��÷���Ã��Ä��w 0�÷����.��›Y� kf�� {Q�{Q›YÞK !Þ��,���w N� ÷e���÷-����Çw���÷e��÷e�,��.��›Y�kf��ÞK !kf��´%ˆw"{Q���.��>�w����Ám��Â�Âl�÷‹��Ê �Ë �‰"¡�� ��›Y�å@ÞK !nÏG£��.��dw���w���Ä��w ��Ä��w �w ��…���ä��$��å@ ´%ˆw{Q›Y"%:dî��&��Š �f�€ C•��_� )ß��÷ p�÷ f�Á�W"�*ó��.�� X:vL� qQ€W X:†� X:†� "X:;d�c��.��Š�‰ à ! à ! Ã�Ã�C ß �ß �à  D��&�� X:;d� X:;d� X:;d� $X:;d� ��.��°��Á�É É á á ß5�X� À� �Í��.�� X:;d� X:;d� X:†X� X:vL� &X:vL �A��.��Ö�ßU��‡�ßU���‡�ß ÊÀ�ß @ Á�� ƒ ‹��.�� X:vL� X:vL�� qQ€WÊ qQ€W@ $X:†�Ý��$��ü�Á ß �ß æf_��ßU��� ‡�~��.�� X:;d� qQ€Wæ kQBa� X:vL���ô‹w��³������è!HX€¢�[à."ÈK~��.�� BaÀÚ BaÀÚ Ba–�X:†Æ�X:†Ä� X:†  X:† X:†:‰����÷HÂ�÷ Ä�‡�·Šü��.�� X:† X:†H X:†Â� X:† X:†Ä������(Í�·ŠÍ�·ŠÍ��‰Ã�Í�7ŠÍ�Äœ!��.��X:†Í�X:†Í� X:†Í�X:†Í�X:†Í�e����>È�=ƒ ÷ �D‰����&�� X:†È�X:;d� Ba€í���Ba€í��2��(����ß<��fÂ ß �� Á„�B‰Á �<‰Ÿ ½��.�� X:;d� X:†  X:†�� Ô€|„� X:;d �Ù��$�� ��Ò•+� ŠÁß *Á$�ß *Á„��.�� X:;d� X:† qQ€W* X:;d$� qQ€W*º����<�2�ß *�_�P��&�� Ô€|2� qQ€W* qQ€WP�qQ€WPÎ��.��—����(��0(A1)��(�p ð ������*��ò«��0 ½«@jp ð E©@8õª������<��D��Š��)�Jw ��Ù��*��ò« €Dò«�� Š ½«@jJ»zÞV����P��7 ������n® ��'��.�� {ÀD��O«�N S«ð4 Ϋ@yn® º«˜{Š��(��`" ��phw ������Æe�7 ����*�® ’��.��" Ϋ@p h¬pÀ…O«�N½«@j"® Þ����€��" ��������+� ��*��º«˜{" Ý©�‚ O«�i {ÀD��½«@jÈ����Ž��,�p ú ������¤ê��.��½«@jp  ú  E©@8™©��ò« €¤<���� �����-�X ���¨��,��O«�i ˜:���½«@j X ˜� À Â`ù�…�Œ����ó��.��yjR����¯”��c¸3@��nÏG@��0u@��Ã��.��ž!Xz@��ÞK !@��{Q@��{Qì@��ÌQ`r@��Ö��.��›Y@��›Yì@��ÕfÏy@��Lq‰@��}y" @��g��.��*}ÖK@��õ–Ðp@��õ–t@������(��yjR(Xu��.��L xZhP�²{Qhº²›Yh´²ÈÃh$²ýÃh.R��.��²¸Äh4-S�.h��”YjRh�‰ràyh@½rL hJÙ����„s�KhP¯”�Š����÷�����yjR��­��.����Ä��ô �ôe��…�w �…�Ä��ó´ �ô �����{Q›Y»��.��&�ô �w �w À�…�÷‹��ü �| 4�ê·Š­�� ��nÏGA��.��L���…�À��€ ™�ÀÚ BaÀÚ BaÀÚ"Œ�����#À+" N*ˆ,+�K*ð ��.�� BaÀÚ# BaÀÚ" BaÀÚ* BaÀÚ+ BaÀÚ*V����*�2&X3ß���� BaÀÚ2 BaÀÚ3�BaÀÚy��.��ß XC ‡�ß Xüúß XøöÁ  ß ôèB��&�� qQ€WX qQ€WX qQ€WX &qQ€Wô´��.��>ß €ß ¦ � ß5��@  ƒC BW!&�W!����� qQ€W€ qQ€W¦ X:†�ï����d!�B ß DäÁ C ‡�B���� qQ€WD�Ba�ÈU��.��C à ƒ ß æß �(Ÿ �ß ôÀ�ß @ ÷��.�� qQ€Wæ X:vL� X:vL� qQ€Wô $qQ€W@ ��.��<±�B À ýß �ŸP\�Ÿ0\� Ÿ@X�—0�€š�P· Î�†w j�˜¢Â¤ ƒR”þ€˜á•?�ù€˜;��&��X:†Î� X:†˜ X:†¢ X:†¤��.��vðµ�ò�ûÒ¥ �Ò• �Ò• �Âà£# „ †÷ �’���� •Hqò�&ÀRà �$�� ��œæ �ˆw �  �¢7Î�æ¢��.�� ÀRà � X:†  ÀRà � X:†¢X:†Î�l����´ æ˜ˆ‡�è���� X:†  X:†˜�Œ–×f�¡�����·ŠÉ�·ŠË�·ŠÌ�©��&��X:†É� X:†Ë�X:†Ì��Ô€|„�;����„� PAGE � ����qQ€W¾‡��(��¾ffˆfˆÝ5�@…�Á�÷ ”÷w  ÷‚¬���� •Hq��Œ–×f(�Á�� ��(�÷ Þâ����qQ€WÞ�qQ€WÞÌ�� ��ÞD‰Fö���� Ba›�O«�i ˜:���‡����®��.�Ê ������ÂQ��*��½«@jÊ   E©@8™©��ò« €ÂÜ����¾��@��/�Ê ����¶��*��ò«��@½«@j Ê E©@8õª��…����Î��Ö��ò��0�^ ��­��*��ò« €Öò«�� ò ½«@j^ O«�i ����Þ���1� ������2�k��,�� ˜:���½«@j  O«�i wC^��½«@j­����î��\��3�Ê (����U��*��ò«��\½«@j Ê (E©@8™©��µ����þ��^ �����4�Ê [��,��ò« €^  O«�i ˜:���½«@jÊ ¬����2������ ��F��*��2E©@8™©�� ò« €  O«�i½���œ�€ �-�@7-���‰w���&ô "�œ����ÕfÏy ÞK !*}ÖK"ÌQ`rß��.��r�6���ôå��B ´` �´à�ôe��Q��.��˜�À ôôe��w P� �B�fæ&w ��„ôà�� ��$}y" ���.��¾��ü�ƒ�÷‹��w ��< �€´ "�…�ü �a����nÏGc¸3Í��.��ä��4o� �×4ï� �Ó ��&| (�„ü�ß��.�� �´ �Àœ�0�| *�0@� ô���t �ó ,�� �� ÞK !a��.��0�·Š��ôe��…�Ä�w ��…�Ä�úÄ��w D��(�� ž!Xz{Qì�Lq‰ ›Yì�&{Q«��.��V:��÷‹��w ��w º�w ’þðÄ��w ��÷‹ê���� nÏGc¸3 ›Y��ß`p��&�� X:†� X:†\� X:†\� X:†X�e�� ��bZ�÷ �à €ŸPX�ÕßU���‡�ß��&�� X:†Z� X:†X� X:vL���lz‹w�/�� ���LI�X� ����ã�� ���NL�6��� Ba�È� �B�� �� �Ñ���� Ba�È�Ba�Èze����zŸ �ßU��‡�ï���� X:;d � X:vL��•Hqp�:��(��p�™w[Mö “y%` àQ¸QR Rô K-€[µz��]�����Œ–×f�w�����÷� ^�i����X:†^��Œ–;d�j�����Á^�ÂX�÷ zæ��&�� X:†^� X:†X�qQ€Wz�Ba�Ȇ`��.��†C ß Ê!À�ß @ ±�B À ýß �ŸPf�ž��&�� qQ€WÊ qQ€W@ "X:†� (X:†ž�ÀóF�BaÀóF‘��(��Fß‹���(‰÷ tÿÂñ�Ò• �ÁB�B‰Ÿ ‡�x��.�� Ô€|‹� X:;d�� X:†ñ� Ô€|B� X:† �����Ô€|‹�{����‹�.MAIN.�á����qQ€Wâc��.��âà �� ÷ °�f÷ ðÿ�Áe0�R�‡�&Ä�P���� &X:†�‹��.�� Ã@÷ �Ã(�÷ �@÷ �!�ñ„‡�� ÷ n�N���� X:†�‘��(��. À  �Àe �ÀeÉÿÀe �Àe ��‡�–�����•Hq–�ç����–�L�$ŽL�˜o��.�� X:†L� X:†$ X:†Ž X:†L� X:†˜ž���� �0L�:v��.�� X:†0 X:†L� X:†: X:†v�qQ€WN  ��.��N �‰‰!& F‰ÎRÀ¨�÷ 8÷ 0�öÎEŸ��������5�Ê <������o��.�� wC^��½«@j Ê  <E©@8™©��ò« €.����,4 �����6�Ê Fç��*��4 O«�i wC^� ½«@jÊ F1����<������H��\��7�Ä��,��E©@8õª��ò« € H ò«��\½«@jö����L ������8�^ ��Æ��(�� O«�i �'���� ½«@j^ O«�iì����Z���9�L ^ ������‚��.�� ˜:���½«@j L  ^ E©@8™©��ò« €å����jr �����:�ˆ PŸ��*��r O«�i wC^� ½«@jˆ P+����z������†��@��;�_��,��E©@8™©��ò« € † ò«��@½«@j0����Š���� �š��.��|��w ��w ¤�w Šþð…��ü� �Bfæ‘����nÏG c¸3å��.��¢&w ��„ü�ƒ�…�Ä��Ä��4 "���Ä����}y" ›Y{Q_��.��È� �Bô �& �e´ �à ö7��� ø�� ��$0u ��.��î&& ƒe÷ ��ùw �����w ��4 �#����0uõ–Ðp$õ–tí��.�� �4��4��…�Ä��w �…�Ä��úw ìÿw ®����{Q ›Y©��&��:òÿ…�ô%��ô��| 2�õô �…�ƒ����ó��.��­:t~����¯”��"¶^@��q �X@��Ñì@��Õ��.��ÑÄ8@��×k@��×ì@��×Ä8@��%ì@��)��.��%Ž@��%¡�f���.��¬Ÿ0f�êŸ@d�à ŸPd�æ�Ã Þ ßßU���‡�@��.�� X:†f� X:†d� X:†d� X:†� &X:vL��æ�����Œ–×f�q�����÷ß�h�…����X:†h��Œ–;d�T�����÷h�d�ð����X:†h�X:†d��lz‹w �’�� �� �EN�R� ����Û�� ���ˆDS�Á��� Ba�Ȉ��Ê�� ���†CR�Á��� Ba�Ȇ��È�� ���œ 7���� qQ€Wœ �qQ€Wœ Q����œ ß �væ���� kQBa� BaÀóv�BaÀóv±��.��vß ß Ê À�ß @Â� À ýƒPñà 1���� X:†  qQ€WÊ qQ€W@ö��*��œÃ÷ÿßj�‡�×'�˜XŸ t�ãßU���‡�Ð��.��¢�þÿÌ5øÿ+���� •Hq¨�½��.��t · � †Î ÷U��� ÷U���‹U€‡�D‰{����X:† �X:vL�� X:vL��–�� ��š H����� Ba€íH��Ba€íH���.��H�&Cfffff‰Á>¡¡B¡¡¡Ž ‡¤Xå���� X:†>\����n� ‰”$Î _��ð���� kQBa��•Hq¨�O����¨���+�y�-�È�*�à�/�¾�&���.�� Ba€í�� Ba€íy� Ba€íÈ� Ba€íà� Ba€í¾� ����¼�Ä�!���M���� Ba€íÄ��Ba€íx�q��.��x�‰  �”dŒb¤(â5`�ä5`�Òµ@�Ôµ@�ý���� X:† �Ÿ��.��ž� £ äÕ �ß �ÌE ÿ‡�SSST‡�_�þ J ŒB‡�â���� X:† � "qQ€Wþ Ä��.��£���¢��������²��*��S«�2 E����S«�2 ¢ -«ù}7ª€%D��.��š��<���Ð(1X,'BLOCK NUMBER TO SEARCH FO|����½«@jò«�� ÐH��*��ÀR(O6 FORMAT)?'/)��=��� ���ö���������*��½«@jS«�2 ˜:�� �S«�2ö 6ªè&æ����â������������>�¾��,��S«�2 wC^�S«�2 7ª@87ª€%½«@jõ����ò��ú(O6)��?������� µ��.��ò«��ú ½«@jS«�2 E����S«�2 À��������������������Õ��,��-«ù} S«�2 wC^�S«�27ª@87ª€%§��.����@���@(1X,'SEARCHING FOR BLOCK ',O6/Ý����½«@jò«�� ¤�²2@��%Ä8@��%":@��Ôòy@��V��.��ÔXz@��ž!Xz@��""ì@��Ü%µW@��_&L @�����.��t:˜:@��ƒ:òy@��{L€@��_M˜:@�� Nì@��¥��.��vQ{œ@��{Q@��{Q�2@��ÌQ`r@��›Y@��«��.��›Y�2@��zBy@��ln@��ø€ì@��ø€@@��F��.��ø€²2@��ø€Ä8@��Ä…ì@��Ä…y:@��Ä…Xz@��K��.������(��­:t~(B œh$ ¨:h–²ëyhO��.��ž!½h®�µ'È‘hº�í' Xh��U(Îh¤EöQhæs��.��Ev,hÌ MðxhD=MF h6_MRhr N‰hª®��.�� N:,hºa :hÀÝf8"hrq@QhôLq‰hîU����-y€hÄ…ˆYhJ¯”�q����÷����¥� X:†j� X:†� X:†t� "X:vL���•Hq��„������Àv@Q�dÀ@þ�����qQ€W¢ ¢��.��¢ ·Š�÷ r�E÷ ¤ Âr�÷ l�Áwl�÷ v�Á�ž��.��X:vL� X:†r�X:†r�X:†l�"X:†l�U��(��È R�÷-n� � †Á�÷ b�· n�7 p�ó÷-p�R��.��X:†n� X:;d �X:†n�X:†p�"X:†p�r��.��è �†Á�÷ H�· p�õÁp�Àj�€ Ñ­�ü€ †;��.��X:;d�X:†p� Ô€|p�X:†j�"ÀRà�B��.�� Áåa�÷ &�÷ 8⥠�ýÒ‹Á�€ÁU�ÁU�R�·ó���� Ô€|a�X:vL���.��4 r�7Š�‡�Â%ö�‚÷ �Â|�R�‡�Ò• �¦Â|�Žà¶��.��X:†r�X:vL� X:†ö�¦�Ä�ŒR‡�€&€� € N ß ¾ @ æ€ ����� qQ€W¾ f����ê�€ N � ß œ Ö €� ‡�g���� qQ€Wœ �qQ€Wœ G��.��œ æ�& Î Á @  ÀàŽ ö �ö€Ö ‡�&� Q��.��  Î ù †Á`@ à ø‰‰‰‰÷5u��.��è @��‰‰÷5`��7 �7 �÷U���Àê��.��X:†�X:†�X:†� X:† �&X:vL��å��.�� �‡��‰F‰ ÷ �ËE�7 �Ë5 �· �· �T��&��X:†�X:† �$X:† �(X:vL� ��.��4 w�J‰.÷-��4‰Ë5�÷U@���Ë5�*����X:†�•Hq�"X:vL��w��.��Z Ë5@�;÷U� ��ËE@�5Á �Â�÷ §�@×�� ��>)ˆ� ���@¥����@��A���B�Jw ����7 ����*��½«@j½«@j J¬p¸e {ÀD��O«�N×����V����d^w �����8��(��S«ð4Ϋ@yd ^œw {ÀD�“�� ��h�Æe�7 ����C�R ����D�L Â��.�� kÀv� O«�N½«@jR –©ü½«@jL ����€X ������Ž��¼ª��*��X E©@8™©�� ò« € Žò«��¼Z��"��Ž��E�® ��" ��¤žw ����7 ��.��½«@j®  º«˜{ " Ϋ@¤ž<@ ����¨����F�® ��( ��Àºw ü��.��O«�N½«@j ®  º«˜{( Ϋ@Àº?����¼����7 ����G�����¨��­:t~�� ��(����· �· �· ��÷‹��1×-��� ÷ İ��(��{Q� ›Y�ln{L€ln��*�� ��Á��Â�w ’÷ ö�÷ �À��w jÀ%��*�� Nì�%": %²2�{Q�{Q�2T��.��B��w ü�÷ �À��w dÀ��w LÀ�w Ð�÷ %��*��{Q� ›Y�_&L ›Y�2"›Y�ø��&��h��À��w F÷‹��÷‹��· �· ô��(��{Q� vQ{œÄ…Xzž!Xz{Q�Ï��(��†��÷ �À��w ÷ �À��w ÀO��*��›Y�{Q�Ôòy›Y�ƒ:òyŠ��.��¦��w ž�…�÷ �8Ä��Ä��$�3 �4��B��"��›Y�›Y©� X:†|� &X:†|�º����Z ¢" w ¬v�,�x�7 r�‡���.�� X:†v� ÀRà,� X:†x�X:†r��Ô€|p�ß�� ��p��Z����•Hqš�ã����š� ,���&�� X:†  ÀRà,� X:†�ÀRà*�±����*�����–�¨zò�����qQ€Wn Õ����n ÷��÷Õ@��÷��‡�÷0��.��X:†�X:vL�X:vL�X:†�X:vL�ˆ��.��„ ��÷Õ@��÷��‡�É �fA�Ê•�Á RŒÀ��.��X:†�X:vL� X:vL�X:†�X:vL�¦��.��ª �fAœ�À ����Á�Œ¡� À�À�Àe��� ��Ð Ê•�Á JŒÀŠüÒ‹À�À ó�‡�µ�����ÀRà4�¡����4�����×�Eª� ŠË ,ËUÁ����X:vL�� X:† � X:†�·��.��€ �)6‰Ë �4‰J‰÷U� �� Â�>‰€÷U�ò����X:vL��X:;d�ú��.��¦ ��W!.�À‹÷U€���— �‰Â �êW!.�b����X:vL��X:vL�� ��(��Ì ÷U� ��&‰$‰€‡�ÀÂ�÷ ¶ú È õú���� X:vL�� •HqÂ��•HqÂ�ñ����Â�Ô +�ì -�ò "�ô '� %�|��.�� qQ€WÔ qQ€Wì qQ€Wò qQ€Wô qQ€W w����Ö� <� ^���@���� qQ€W qQ€W �qQ€Wì µ��.��ì ‰ ‡�‚ ‰&‰ Q‘ ûè‰ËU�‡�‰W!>�y���� àw�îþÀà�÷ zùH� ���� •Hqà��•Hqà�3����à�$ C�* D�. «���—��,��u~@ O«�N½«@jS«�2 ˜:����S«�2|����Ш��������������f��,��¨�-«ù} S«�2 ZŠÀv��S«�2 ZŠÀv�Ü����à���������H�����¶��,��S«�27ª@8 7ª€% ½«@jS«�2 ˜:����Q����ð�� ������������Ë��*��S«�2 -«ù}S«�2 {ÀD��S«�2Ý�������������" ��( w��.�� {ÀD�S«�2 7ª@8 S«�2" S«�2( ~��.�����������I���h(1H0,6('* '),'LISTING X��(��S«�27ª@ 7ª€% ½«@jò«��h‹��.��6OF MFD FOR ',A2,O1,6(' *'),' ON ',5A2,Ì����\' AT ',5A2)h� ���h|���¬��›Y{Q��.��Ì�&w 6ÿ„ô �% ��0�w óµ@����.��ò�ó �„t �Á�Â�÷‹��Ä�w ¬�÷‹��·����{L€ Nì�(Ä…Xz¤��.��ÜÄ�w ž�×w���÷ ��À��w †�‡�Ã��Ä�y��(��Ä…ì�ÌQ`rvQ{œ$›Y( Nì�´��.��>w �…�Ã��øÃ��Ä�õÁ �Ã� Ë �Âd§���� {Q›YÄ…ì�R��.��dÀ ûw T�…�Âäùæ��÷‹��Î��ˆÄ�÷‹��_��&��ø€@_M˜:×k$ø€ì�(_M˜:|��.��ŠÄ�Bw *�& ˆÎ5�&ˆÆe�…�&&~����×ì�ò��.��°æ�"ˆÁ ùÌe���æs�³��3Š�����­�����Ñ�E0�����qQ€Wè [����è ß ������� kQBa� Ba€Ô���Ba€Ô��]��&����ß ˆ ß êß ��w�ß 2ß äûß =��.�� qQ€Wˆ qQ€Wê X:†�� qQ€W2 X:†äp��,���ZaÅ^ß5�d�Åö ÀÚ�ß Š�ß�†ß ¹��.�� X:†Z X:†d� •HqÚ� qQ€WŠ� $X:††ç��.��B�^ Á0�„÷ ¶�Á8�ñ �÷ ¨�& Ÿ�À�„��.�� qQ€W^ X:†0� X:†„ X:†8� $ÀRà�¬��.��h�ß .'æ�Á�EŠÅ�ÉEßÿÑUQa �c��&�� qQ€W. ÀRà� X:†� (ÀRà���.��Ž�Á�÷ p�À��ß .àß5@��÷ŧ�ôßE—ÿ�›��.�� X:†� qQ€W®�O�2 B�����.�� qQ€W$ qQ€W* qQ€W. qQ€W2 �qQ€W$ d��.��$ ‰L ‡�Âe�Âe�Âe�æ�·�‰·�‡��‰÷ ����X:;d�X:;d�"X:;d�ˆ��.��J ���Á�! ! W½ò� �Â--‰÷ �‚ ü‡ `‰ù��&��X:;d��X:;d� X:†� •Hqò�‡��.��p ‚ ù‡ûÑ ô$‰À�‡�&À À €eÀ À À ‡�&‰ ����X:†�œ��.��– @ðµ4�ò� $�‡ A�‡À €Àå�Àå÷ÿ7���� •Hqò�{��.��¼ ÀåÒÿÀå@�‡��‰�  ÷���CÃå0�× �‚ ‡D����X:;d��X:;d�7��.��â € „& „ †N`Ä Á ù†ÀU�€ö�Á`&‰Àe�å­��.�� w�‡�,‰ ‰7 �÷U���� ¯����h��J�������„������¢��*��½«@jS«�2 ˜:���� S«�2„-«ù}`��.��z����K���¼(1H ,6X,'UIC',2X,'FIRST UFD ½����7ª€%½«@j ò«�� ¼Â��.�� BLOCK',2X,'UFD ENTRY SIZE'/)��L���M�Æ¿���� ½«@j$½«@j(Æ…����Æw ������X7 ��è��.��ÑPZ ˜:��� 4R���� kÀv�XO«�Nœ����Ø��N�Z��¬ ��O�¦ ��4 Q��.��½«@jZ O«�i ¬ ½«@j¦ º«˜{4 A����ì��Ž ������ü��Y��,��Ý©�‚Ž E©@8 ™©�� ò« €üò«��k����ú.��P�¦ ��4 �� w ¿��,��.½«@j ¦  º«˜{4 Ϋ°��.��Ö�³�Äå��&ˆ&ˆ…� éÌe���æ3 Ø�� �� "¶^£��.��ü�3Š�s�³��Äå��&ˆ&ˆ…� éÁ��BÙ����"¶^&Ä…y:q��.��"…�ƒ€w h�@�KÃe��SSSSƒ¦ˆò¥…�� ��Ü%µWÈ��.��H��÷‹�� ¦æ ˆÆe�ö5�þÿ¦æˆ¦9�� �� ÔXz ��.��næÃà £”ˆ€”ƒŠ&Ä ‰0ˆ4��„à õ��.��”ÅÈ &ˆ&ˆ…�&Ð ø �� Àe�ø ��ø���� "¶^�ˆ��.��º����7�� È ø€…�w @�Ð��Ä�� Ð�� )��$��q �X q �X×Ä8 ø€²2&%Ž„��.��àw 8ÿ…�Ä��w "�Ð��òÄ�÷‹��Ä�Á��K��.�� %±�. X:†� X:†� (X:†�p��,��´�ßU��éßEßÿ,�ßU,�Á(�÷ 6�ß ú ß�D��.�� X:†� X:†,� X:†,� X:†(� "qQ€Wú J��$��Ø�†ß 8 ß�† �À�ß . g��.�� X:†† qQ€W8 X:†† ÀRà� qQ€W.����ô��ß ¦öÁu�ß t ž��.�� X:†� qQ€W¦ Ô€|u� qQ€Wt �Ô€|u�����u� END OF PASS 1�$�����Ba€Ôê��$��‡�— |ƒß ú _�xÂr�ß N ÁS��.�� X:†| qQ€Wú qQ€Wx X:†r� qQ€WN 3�� �� Œ�Â$�ß ‚ß †ß  ß�0��.�� Ô€|Œ� X:;d$� qQ€W‚ X:†† qQ€W ô�� ��8†ß 8 ß5�²�‡�@�ò�÷ û��&��X:†�•Hq�X:vL�� $•Hqò�ç��,��. �À5�÷ �÷U���÷-��� &‰õµ>���.��X:vL�X:vL�X:vL��X:;d��X:vL�R��$��R ò�û$‰÷U���ã"‰· �7 �÷��·��.�� •Hqò�X:vL��X:vL�X:vL�X:;d��l����n �ÀE€ÿ‡�M����X:vL��•Hqò���.��ò�������������������������������� –��.�� € ¤��.��> �@@@@@@@@@@@@@@@@@G����d@@@@@@@@@�����A�����qQ€Wv Ë��&��v ÷��� · ��(‰õµ�ò�ù· ��ÅŸü��.��X:;d³�@ ¬��������7 ����Q�¦ ® ����É��,��zQÀD O«�N½«@j¦ ® ì¨@8O«�iG����$¬ ��R���â��S���T�p b.��.��¬ ½«@j ò«�� ⽫@j½«@jp bó����:������F��¶��U�G��,��E©@8õª��ò« € F ò«��¶½«@j˜�� ��Jl��¬ ��V�Vw ��¬ 7 ��,��.��lO«�i¬  ½«@jVzQÀD¬ O«�N}����b��´ ¬ tP��W�v��M��,��–©¯´ ¬  t P½«@jvO«�i����t���X�d ~��® ��V��,�� {ÀD�½«@j d  ~Ôª@8® º«@8/����„��†��Y�v ��¬ ��Z�˜w ³��.��´�²2ÑÄ8%ì�t:˜:$Ñì�(%":Û��.��ÂU�w àþ…�À��&Á� Á ý€…�É f ˆã�� ��Ä…y:á����,Î5�àw nÿ@w ZÿÆe�…�ù����ó��.��i†�K����¯”��aKY@��¤!Xz@��f9:d@��‡��.��”Tk@��Ük@������(��i†�K(Fc¸3h~�ú��.��%:dh�´%ˆwh��42h~hD}y" hÐ�å@h�œ����õ–Ðph´�õ–thÂ�¯”�Q����÷�����i†�K��¬��.����´�…�¤�…�à w�ôÿR¤à üw�èÿæ7Š��w �¸�� ��$¤!Xz0��.��&� ƒ�w �÷ ��w�Èÿ€w�¾ÿ@˜@”w � x�� ��¤!XzB��.��L�÷‹��öÀ w �ò·Š��à ñêé€ çéÀE€ÿÀåµ�d�À‚Ð.�È��.�� X:†† qQ€W8 X:†d� X:†‚ X:†.���"��P‚ß  ß‹ŠRß5�@X�N � `��.�� X:†‚ qQ€W X:†Š X:†X� X:;d�i��&��j�ÂÎÀ��ß .$ß R à�÷ |�Á†��.�� ÀRà� X:†Î qQ€W. qQ€WR •Hq �O��.��ˆ�É5�ß š Á…�ß ‚÷ `�Á�É¥�a¨��.�� X:†� qQ€Wš Ô€|…� qQ€W‚ X:†�÷��.��®ß ® Ò• �— �Ú‡÷ 2�Õ �÷ (�À�ß .t��&�� qQ€W® X:†� ÀRà� &qQ€W.Ù��*��Ôß R Ò• �Á�ß š Ò• �Á�ß ® ê ŠÁœ��.�� qQ€WR X:†� qQ€Wš X:†� qQ€W® ¶��X:;d��X:;d�� •Hqò�X:;d����.��” ��û�‡�Ð $üà ÷���"‰�‡�À��÷ �‡�l����X:;d��X:;d��X:;d�ì��.��º À�÷ �‡�L‰æÁàƒCà� ±�@ @ý`€ ÀE�;��.��à � ƒ #1-��ò‚àñQ$ƒ L‰À�`~����&ÀRà� ��.�� À`B ‡L‰� € #Á`B ú‡� ‡�L‰� � € &��.��, #1-��Á`õ� w�7� s�B%Ú����ÀRà�ÀRà�&Bê��.��R ƒ Ãå� à ý‡�L‰·�7 �÷ t�À�÷ t����ÀRà�ÀRà�&ÀRà���.��x �µŠ�õ`��µ ��Æà‚@à€ RÀ ýõà��/��.��ÀRà� ärBx� ärh��·�O«�i†½«@j v O«�i¬ ½«@j˜����š��¬ 7 ����´ ¬ †’Ÿ��,��zQÀD¬  O«�N–©¯´ ¬ †’Ñ����®��[��� ��\���]�¦ ® ™��*��½«@jò«��  ½«@j½«@j¦ ® ����Â����4 ��® ����"��,��º«@8º«˜{4  Ý©�‚ ® ì¨@8O«�iµ����Ð���^�d ~��® ��ô��,�� {ÀD�½«@j d  ~Ôª@8® º«@8/����à��†��_�v ��ˆ��`�ôw ��.��O«�i†½«@j v O«�iˆ½«@jôÌ����ö��ˆ7 ����´ ˆ†î-��,��zQÀDˆ O«�N–©¯´ ˆ†î»��"�� ��a���b�w ��¸�U����¤!Xz¤!Xz™��.��r� �äÀe�Þàà Áw¤ �à û»@˜  � h�� �� �¸��.��˜�€ À � ÀE€ÿ �ïw ¾ÿ…�� êà …�R”à O��.��¾�ý…�à …�Rà ý…� à …�& @” € À ��.��ä�÷‹��@€ÿ÷‹��  �Î Ž   �ùÎ ï����f9:daKY{��.��   � „c„à‚ �„ à ÜÖ …�&w >ÿ ����0÷‹��€Ž ë€é€ê�� �� ��”Tk„����ó��.��Œ(�`����¯”��"¶^H�%"@��%š^@����.��ζ^@��Îð_@��δ‰H�Ü%µWH�42h~@��°��.��t:¶^@��t:ð_@��¥K (H�{L"@��{Lš^@��?��.��{L¶^@��[M¶^¹�A��&��öÎß p ·�÷ ��Àß4�À��‡�¢��.�� X:†Î qQ€Wp X:†Î X:†��•Hq ����� � =�% �R �G @�f�����Ô€|…������…�******�SYMBOL TABLE������qQ€Wî U��.��î À �÷ ¢‡�À �÷ .{÷ N  ÄÝ��… ÷ ����"X:†�‰��.�� ��i· ��÷ Lÿ÷ \ÿÄŒ÷ †^÷5 �d�Z°�(��.��X:†�� X:vL�X:††"X:†d� (•Hq°���(��: „÷­�!�— |ƒ÷ ª�Ò�Ò�Òù��.��X:†„ X:†� X:;d!� X:†| X:†�����Z �÷��!� ÷-�"� — l��.��X:†�X:†� X:;d!�X:†�X:;d"�à�����º� är» � (är» ��’��.��ž õà��Åå�ù€ƒ à ý€æ �Îe�€çÀå ‡���� ärh�� �Z����Ä 7 >†7>‡�w ¨ò�5����X:†> X:†>�Œ–×f,�A�� ��,�÷ >‚����X:†>�qQ€WÖ à��(��Ö L‰u��5Š�‡�7�€�‰fÅ�A��BÍ��.�� ärh�� ärBx�ÀRà�ÀRà� är» ��“��"��ö ��C���Ä�È …‡�Á�Â�Ü��.�� ärh�� ärBx�� X:†� X:†� X:†�e��.���Ä�‡�æ¦f¦�6�Þ �‚ƒ„À ‡�R ���� X:†� X:†�W��.��6RRRRRR‡�R”þ⋇�¶�Îå�¦Îe�w‡@���� &à‹w�wâ����\÷U���‡�»�” 7 ����c�%��,��½«@j½«@j zQÀD” O«�N½«@jH��"��$&w ���7 ����d�8w ��™��.��&zQÀD ˜:���O«�N½«@j8zQÀD����>��7 ����e�Jw ���� ��,�� 4R����O«�N ½«@jJÑPZ 4R����­����R���X7 ����f�L ^ ·��.�� 4R���� kÀv�X O«�N½«@jL ^ �����d������znw ��Š7 %��*��E©@8™©��ò« € z nvLÀDŠS����x����g�. Ž ������(��,��O«�N½«@j .  Ž E©@8õª��ò« €����ˆŽ��2��h���i�˜w ��Œ��*��Žò«��2 ½«@j½«@j˜¼�H�_M¶^@��_Mð_@��N HH�F��.��{Q"@��{Qš^@��_X"@��_Xš^@��cYøMH ���.��ÿ_p&@��ßf gH�ãfxH �\qP¥@��&y¶^@��K��.��Ry8^@��Ä…"@��Ä…š^@��Ä…¶^@��꤀W@�����.��ê¤ÀÁ@������(��œ:a (¬q �XhfaKYhé�)��.��nÏGho�Î" hhÑkhÑìh>ÑÜ%h£��.��ÑÄ8h6×kh4×ìh.×Ü%h>×Ä8h&§��.��%khT%Îhx�%ìh^%Žhò%²2h†���.��%Ä8hV%":hŒ�%xdhè�%óyh‰�&ø€h¤z��.��&ZŠh”Ákhâ�Î�hf�ÎŽhàΘ:hv�Ä��.��΀»h`�ÔXzhq�Þƒh¶UÜ%hô�ƒ*}hÈ<�½��.��n €ƒ÷ „�Ò�Ò�÷ x�À‚@a ‘ø‚�‘€` l��&�� X:†€X:†�X:†‚ X:†‘è��,��” „ó‚Á‚W h÷5�d�Ñ�Ñ�Ä †Ò����.�� X:†„ X:†‚ X:†hX:†d� X:†�d��(��¸ �@Àåh�Ä †Ò�Ò�Ä †Ò�·´��.��X:†� X:†hX:†�X:†� X:†�Í��"��Ø „Ñ��Å Ñ� �w‚… wa�÷��.��X:†„X:†�X:† �X:†‚X:†�+����ò �"�€‡�·„÷ �„‡�H��.��X:†�X:;d"�X:†„X:†„�•Hq°�K��&��°��� À Ààà�����€������àà2�����Œ–;d$��� ��$�wŠ!�ª�������®����X:vL���kQBa��������kQØr¦‡�‡�‡�������ÀRà�·���������������Ì��.�� BaÀÁ�� Ba�È�� Ba@Î�� Ba€Ô�� BaÀÚ��ð����(�����������Â��.�� Ba�á�� Ba@ç�� Ba€í�� BaÀó�� Ba˜w��þ�����Œ–vL �ö�� �� �‡�_����ó�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������¿�ÑPZJ����ž����X7 ����j�+��.�� ˜:��� 4R���� kÀv� XO«�N½«@jš����®°w �������X7 I��,��°ÑPZ 4R���� 4R���� kÀv�X†����À����k�Ž��¬ ��l�Ž T��*��O«�N½«@j Ž O«�i¬ ½«@jŽ ³����Ò������m�Ž �����,��O«�i kÀv��½«@j Ž O«�i kÀv������à��n�¦ ® ����4 ��Ž C��.��½«@j¦  ®  º«@8º«˜{4 Ý©�‚Ž ¢����ò������þ��ž ��o�Î��,��E©@8™©��ò« € þ ò«��ž ½«@jO����¦ ��4 ��w ����+��(��¦ º«˜{4  Ϋ@ À��.��a"€ h´-�hl�Ç8œQh^f9:dhm�t:˜:hr�Ñ��.��¡A€ h&�;K€h&�{L˜:ht�{L�}hœ{L€hê�¶��.��[MDh[M‹wh�_M˜:hs� Nìh‚ NÄ8hzl��.��{Qìh–{QÚ}hx”Tkhp�µWUh_X{Qhäç��.��›YìhªÕZZ h,ÕZìyh¶^Àhð¶^@yhL�¼��.��ó_��hî`�dhV�5axrhôßf›hl�Ös*}hl�"��.��AyÐhè^y��hê¯y��hìzhì�zg'hí�¥��.��zByhî�z*}hr�YzPshlz�h��*}ÖKhæö��.��Õ}˜ghâlnhäÜkhn�ø€ìhNø€@hæ\��.��ø€²2hø€Ä8hFÄ…e hÀÄ…ìhnÄ…Ä8hf¯��.��Ä…y:hÄ…˜:hu�Ä…Xzhë�Á����X:;d!��ô‹w�O�� ���3f -���� qQ€W �qQ€W o��,�� ÿ�÷•ÿ�!�‡�ÀdÐ�È‚%Èåhw ä�bï��.�� X:;d!� X:†dX:†‚ X:†h &X:†bT����, Zd×-„\ƒ÷5�d�Àä��.�� X:†Z X:†d X:†„ X:†\X:†d�h�� ��B ZȆà„ÈåZà�w ¶�T³��.�� X:†ZX:†† X:†„ X:†Z X:†TG����Z ZV÷h‚÷\c��.�� X:†Z X:†V X:†h X:†‚ X:†\u��"��h „‡�·Š�·Š�·Š�÷ ØÃ��7Š`��.��X:†„ X:†�X:†�X:†�X:†�¡�� ��‚ �ÄœˆAƒ ÷ �ß ���ý������&��ZŠI9����¯”������(�����(��²����÷�����������æ������� æ �5ˆ0ˆÀZŠqQó�� �� �Þ����ó�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Ã�ÑPZ�������X7 ����p�¦ ® >��.�� 4„���� kÀv�X O«�N½«@j¦ ® Á����(����4 ��:4w ����n��*��º«@8º«˜{4  Ϋ@ :4ÎK�}ú����<�7 ����q�¦ ® ����{��.�� ˜:���O«�N ½«@j¦ ® º«@8º«˜{g����N4 ��\Vw �����7 ��¼��,��4 Ϋ@\ Vïq 5 ˜:���O«�N¯����d��r�L X ������xÈ��*��½«@jL  X  E©@8™©��ò« €xS����t��p ��s�������¢Ò��.��ò«��p ½«@j S«�2 ˜:����S«�2¢d����„���������������J��.��-«ù} S«�2 ˜:���Ä�ZŠø€h¨cŒ²2hšž����£œQh`Z£Xah\¯”�ž����÷�����œ:a ��¦��.����INLOLSUPDFSCBCMEEDIPTRBLMBDERWBSSKLEZRš����&�������������Â��*��&y¶^&y¶^&y¶^ &y¶^ &y¶^Ry8^¯����2�������������¶��*��Ry8^Ry8^Ry8^ ÿ_p& ÿ_p&ÿ_p&�����>�������������ª��*��ÿ_p&ÿ_p&ê¤ÀÁ ꤀W ꤀Wê¤ÀÁ¿����J�������������ž��*��\qP¥t:¶^_M¶^ {L¶^ Ä…¶^ζ^����V�������������������(��t:ð__Mð_\qP¥ \qP¥ Îð_�r�u�� ��r������}� ���†�c����†�U������� ���â����Å��.��X:†� X:†ˆX:;d� kQBa� Ba€í�������Ba€í��Ö��$����ß<��fÂàß �� Á™�ß ‚Á²��.�� X:;d� X:†à X:†�� Ô€|™� qQ€W‚��$��� �ß 4 Ÿ �Ò•+� ŠÁÞß p Á´��.�� X:;d � qQ€W4 X:;d� X:†Þ qQ€Wp É����8�$�ß p Á2�ß p �_�š ��.�� X:;d$� qQ€Wp Ô€|2� qQ€Wp qQ€Wš ~�����qQ€Wš §��.��š · Ž†w p�ˆ’” ƒR”þ€˜áÅ€�ùÉ•˜��&��X:†Ž X:†ˆ X:†’ X:†”q��.��À ?�ö€˜ðµ�.ûÒ¥ �Ò• �Ò• �Âà£# „ †Ì���� •Hq.:�� ��æ ÷ 6�æ6�ˆw ��6�Æ��.��i†|L����¯”��qQ€W@��Ñ�¯@��Þ""@��¸��.������(˜#«phxy:Þh¶�ÎK�}hâ�¬p¸ehq��.��¬pÀ…h�TqÞhÚ�ïq 5hö�œwh¶�»zÞh,Ð��.��ÑPZh�Ñ[h�t…e h{ÀD(�����(��0����÷�����������æ������7 �w ���0ˆM���� qQ€W��� ��.���÷�’�÷�Š�@7|�7z�A�Á%�7p� ��.��6�÷@�h�7 h�÷ �×-��DT÷ N�7 H�÷UF����{ÀD�{ÀD��i��.��\��H�÷->��ƒ= �æ¢�æ®�ˆæ®�ˆÁ%�ä���� {ÀD�¢�®�"®�Ó��.��‚� 8 ��÷5�À�ø���w ��¨�¢�…�������o�����Ç�S«�2 ˜:���S«�2Õ��.��–������t���æ(1H1,3('* '),'LISTING OF [��"��7ª@87ª€%½«@j ò«��æ(��.��¼',O3,',',O3,'] USER DIRECTORY ',3('* '—����â)//)��u������� ������Ä��*��½«@j S«�2 ˜:����S«�2 -«ù}Æ��.��ø����v���p (3X,'FILE EXT',7X,'DATE',2X,L����7ª€%½«@j ò«�� p ��.�� 'TYPE',2X,'USAGE',2X,'LOCK',3X,'START'Z��.��D ,2X,'LENGTH',6X,'END',2X,'PROT',5X,'EB|�� ��j P'//)~� ���p p����p ��w���x�¦ ��4 ��Ž ë��*��½«@j½«@j ¦ º«˜{4 Ý©�‚Ž 7����‚ È��&��â�x� ô�������������������������{����x� ô�� D���� ���������×�� ���\Œ����\����t�è���hÆ���� è�h�à•��$��à�����������E�������������Ÿ����42h~42h~���(�������������Ñ�E��������������‰���� %"%š^�2å����2����×�E������������i�� ���R•�� ��R�����������������������‡����%"%š^�v±�� ��v�����������������������c����{Q"{Qš^�˜k��"��˜�������������������������?����{L"{Lš^�¾K�� ��¾���������������É�’7²��.��ÀRà6� ÀRà6� X:†� ÀRà6� X:†’â����þ Žæ�戈‡� ��&��X:†Ž X:†� X:†ˆ�Œ–×f�Ý�����·Š‰·Š‹·ŠŒf��&��X:†‰ X:†‹X:†Œ�Ô€|™�ã����™� PAGE �÷����qQ€W 2��(�� ffˆfˆÝ5�@…�Á �÷ Vów jó‚Ï���� •Hq ��Œ–×f(�½�� ��(�÷ . �����qQ€W. �qQ€W. "����. ß �¾���� kQBa� BaÀó¾�BaÀó¾!��$��¾ß ���ß Z÷ ÿ±ҕ �ÁB�ß ��.�� Ô€| � X:;d�� qQ€WZ X:†± Ô€|B�Œ��,��Ú‚¦æ��6ˆÂe �Ò• �¦æ�6ˆÂe�Ÿà‡�‡���� qQ€W�����Þ""¨� ¢�ž��.��¨������������ð@Ð 7öÿw�ïÿæ®�ˆæ®�Â����"®�(®�E��.��Î� ˆÖ Ö ¸��…�æ®�ˆ…�@Bœ�ÂE�ÿ¸��t�� ��®�0��.��ô�…�@B’öf�f�æ�"ˆ…�f�& "ˆ€â��.��…�f�f�æ�6ˆ…�æF�!ˆ€…�������Â��.��@�?��ÿ�ÿÿÿÿÿÿ?ÿÿÿ� � � � � � � è��.��f� � � � � � � � …�@Ð   r v l�� ��$vU����Œ‚6B �@@…�¤�� ��6³����ó�����������������������������������������������������������������������������������������������������������������������Ë�������Ž ��ž ��y� ��,��E©@8™©��ò« € Ž  ò«��ž ½«@j½����’ ¦ ��4 ����˜��z�5��*��¦ º«˜{4  Ý©�‚ O«�i˜½«@jñ����¢ ��{�L X ������¶ A��*��½«@jL  X  E©@8™©��ò« €¶ ����² ��ô ��|�������Ü Ë��.��ò«��ô ½«@j S«�2 ˜:����S«�2Ü ¥���� ��������˜���������}�ï��.��-«ù} S«�2 ˜S«�27ª@87ª€%½«@j��.��Ø ��ô (1H0,'UFD BLOCK = ',O6/)��~����š�� ��ò«��ô  ½«@j$½«@j(š÷����þ ® �� ����€�¤Ž��;��.��® º«˜{  U«�‚ ½«@j¤ŽÌ�������������Ä…"Ä…š^�â'�� ��â�����������������������÷����_X"_Xš^�&����&94>�0Ò����94>0�4š����4����@���� @�DÖ����D��ëæò�P}����ëæ òP�T=����T��YT`��`����YT ``�dÐ����d��ÅÀÌ�pª����ÅÀ Ìp�xh����x��¡œ¨�„î����¡œ ¨„�Œ¬����Œ��}x„�˜2����}x „˜� ð���� ��éäð�¬Æ����éä ð¬�´„�����Í�‚ $X:†à�Ô€| �Ø���� �.MAIN.�Ì����qQ€W4 ��.��4 à �� ÷ ¸�f÷ ðÿ�Áe0�R�‡�&Ä�ñ���� &X:†�‹��.��Z Ã@÷ �Ã(�÷ �@÷ �!�ñ„‡�� ÷ v�ð���� X:†�‘��(��€ À  �Àe �ÀeÉÿÀe �Àe ��‡�@�����•HqÎ�¯����Î� ä~ ˆ��.�� X:†  X:†ä X:†~ X:†  X:†ˆz����Ø�P Z–¾��.�� X:†P X:†  X:†Z X:†–�qQ€W  &��.��  ÷ °÷ Ð�"& ÷ ’ÎRÀà�÷ ®÷ 0�õÎEþÿî���� •Hqà���.��Æ Ì5øÿ· � †Î ÷U��� ÷U���‹U ����X:† �X:vL��&X:Î��.��qQà[����¯”��äf4R@��\q†@�� ©`;@��†��.��ñª@Q@��,«0z@��O«�N@��½«@j@������(4�\����qQà[h������(��T����÷�����������æ��*����7 ��������qQà[����w ���7 �����½��.��O«�Nñª@Q½«@j�äf4R O«�N"½«@jd����"�$�w ���7 �������Ø��"��$�\q†O«�N½«@j ©`;»����ó��.��äf4R����¯”��ÎK�}@��ïq 5@��ì¨@8@�����.��E©@8@��v©@8@��–©¯@��™©��@��Ý©�‚@��.��.��+ªÀ]@��7ª€%@��7ª@8@��ñª@Q@��,«0z@��þ��.��-«ù}@��O«�N@��O«�i@��S«�2@��S«ï4@��2��.��•«�}Ï�º«˜{¿���� ������®® �� ��œ��.�� U«�‚½«@j ®® º«˜{ U«�‚&����" ��‚�¸® �� ����ƒ�Â;��.��½«@j¸ ®  º«˜{ U«�‚½«@jÂÇ�� ��6 Ž�� ����„�D w ��˜7 £��.��Žº«˜{  U«�‚ ½«@jD zQÀD˜Í�� ��N ����…�V w ��Ì7 ����†�}��,��O«�N½«@j V vLÀDÌO«�N½«@j§����f : Ž ������v ��  h��.��: Ž E©@8 ™©�� ò« €v ò«��  ï����v ��‡�: ��˜��ˆ�† w ��M��*��½«@j:  O«�i ˜½«@j† ÑPZn����Œ �����X7 ����‰���.�� 4„��Ð��,��´��zf��Ž��¢ÿÿÓ×ÝáÛ��V��K��.��z fŽ¢Ó×Ýá Û$V��&��ØFÿÿ��z��f����������ONOFE��G����F zf�…����ØlJ‚0L^~:,Û��.��ØlJ ‚ 0L^~:,F����B2t�ô� ¾�#•�.��B2t � ô� ¾�0��.��0�TOO MANY GLOBAL SWITCHES� �UNKNOWN ç��%��VOPTION� �BAD NUMERIC FIELD� å� ���tq����t�COMMANDm� ���~g����~�BUY MORE CORE� /� ����U����� �FATAL ERROR� ›� ��Ñ�vL��„����ì €‡�ß �L�¡���� kQBa� Ba€íL��Ba€íL�‹��.��L�&Cfffffß .ÁŽ¡¡B¡¡¡Ž ‡���� qQ€W. X:†Ž ����r�¤Xß \”$Î _��/���� qQ€W\ kQBa��•Hqà�ó����à�‹�+���-�Ò�*�ê�/�È�&�™��.�� Ba€í‹� Ba€í�� Ba€íÒ� Ba€íê� Ba€íÈ�p����ô�Î�!��� ���� Ba€íÎ��Ba€í€�_��.��€�ß H  �”dŒb¤(â5`�ä5`�Òµ@�Ôµ@�X���� qQ€WH X:† �“��.��¦� £ äÕ �ß �ÌE ÿ‡�SSST‡�_�dJ ŒBæ���� X:† � $qQ€WdU��.��Ì�‡�ŒR‡�€&€� € N ß @ æ€ ¿���� qQ€WÒ�@��º«@8@��º«˜{@��½«@j@��ò«��@��»��.��ò« €@��j¬e;@������(Väf4Rh��4R��(�ú��&��4„��(�kÀv(�˜:��(�¯”�«����÷�����������æ��"����7 ��������äf4R���*��8��^��,��O«�Nñª@Q½«@j*O«�i8ò«��S�� ����º�������¤������� �*��:����Bó��.��½«@j * º«@8:v©@8O«�iBª����0��� �*��D�� �2��å��.��½«@j* O«�i D½«@j2º«˜{ ����D�������� �$F�� ��*��Ý©�‚O«�i� ½«@j$FE©@8����T�����\����� �b�w ��Ó��� 4„���� kÀv� XO«�N½«@j„����œ ��ž ��Š���‹�L X ��Â��*��ò«��ž ½«@j ½«@jL X E©@8æ����® ����¸ ��š ��Œ���9��,��™©��ò« €¸  ò«�� 𠽫@jS«�2Ê����¾ ����Þ ����������4��,�� ˜:����S«�2Þ  -«ù}S«�2 kÀv��Y��.��Î �������������ø (1H0,'TOTAL BLOCKS = '<��(��S«�27ª@8 7ª€% ½«@jò«��ø Ä�� ��ô ,I6)��Ž�– ‚ ����œ ����ž g��.��½«@j – ‚ ì¨@8O«�iœ ½«@jž ���� | ����¤ ����| Ž ��Ý��.��| ì¨@8O«�i ¤  ½«@j| Ž E©@8���� ��Ô�� E��%�� �COMPARE CAPACITY EXCEEDED� µ� ���¾'��.��¾�RAN OUT OF BUF HEADERS� �SYNTAX ERR�����äOR IN COMMAND� ï� ���ôñ��.��ô �IO ERROR� � DEVICE INIT ERROR� � D��.��EVICE OPEN ERROR� �LIST�UPDATE�MASTl��.��@ER�NEWMAS�WRONG NUMBER OF INPUT DEVIß�� ��fCES� � ���lx����l�TOO MANY SWITCHES� ó� ���‚b����‚�ILLEGAL SWITCH� È�� ���šJ����š�FILCOM V��.���� >����ó��.��*’ÀD����¯”��²{Q@��²›Y@��²ÈÃ@��K��.��²ýÃ@��42h~@�� Mðx@��=MF Õ��� ��ò��€ N � ß ö Ö €� ‡�l���� qQ€Wö �qQ€Wö ‰��.��ö æ�& Î Á @  ÀàŽ ö �ö€Ö ‡�&� ó��.�� Î ù †Á`@ à ø÷ F�÷ fÿ÷ ìÿì��.��B÷ îÿ÷5@�� ÷ Øÿ÷ Úÿ÷5`��7 �h����X:†�"X:†�(X:†�Â��.��h7 �÷U���À�‡�÷ Ø÷  ÷ �ËE�7 ����X:† � X:vL��X:†�Ñ��.��Ž �Ë5 �· �· �w�¦÷ N7÷���÷ ôú÷-���&��X:† �X:† �X:vL �"ÀRà�`��.��´��÷ ÂË5�÷U@���Ë5�Ë5@�G÷U~����X:†�•Hq�X:vL�����.��Ú� ��ËE@�AÁ�Â�Ö�>��,��™©��ò« €\� •«�} ½«@jb�ÎK�}ç����h���7 �����v�w ���ó��,��� ˜:��� O«�N ½«@jv�ïq 5�Æ����~��7 �������������.�� ˜:���O«�N ½«@jS«�2 ˜:����S«�2ÿ����Ž�Ì�������������€��,��Ì�-«ù} S«�2 ˜:���S«�2 ˜:���@����ž������2*����Ó��*��S«�27ª@8 2 *ì¨@8º«˜{ö����®���2N������£��*��S«ï42N ì¨@8 º«˜{S«ï4%��.��¼�������������ô�(1X,'[',O3,',',O3,']',���(��S«�27ª@8 7ª€% ½«@jò«��ô�Ò��,��â�×���( ��ž ��‘�| ‚ 4��.��™©��ò« €(  ò«�� ž ½«@j| ‚ W����0 ����Ð��’�����;��*��v©@8O«�iÐ ½«@jS«�2 ˜:����•����> ��` ��������Ð���N��.��S«�2` -«ù}S«�2ÐS«�2 kÀv�ˆ��.��P ���������“���š (1X,'AVERAGE FILE SIZEŸ��(��S«�27ª@8 7ª€% ½«@jò«��š !��.��v = ',I5,' BLOCKS,',I5,' WORDS EACH')��N�� ��(½«@j³����œ ”���•�p Ò����‚ Ž ��‰��.��½«@j p  ÒE©@8™©��‚ Ž E©@8¤����° ������¼ ��Æ ��“��,��õª��ö¨@8ò« € ¼  ò«��Æ –©¯c�Ø�@�� Nì@��¸��.��{Qì@��·R""@��-S�.@��‘Yš^@��”YjR@��™��.��›Yì@��‰rày@��½rL @��Ä…ì@��Ä…ˆY@��;��.������(��*’ÀD(a0uhZÔEhÎ�ÔEMhÈ����.��Ôòyh²�n; h>nRh<ž!Xzh]¤!Xzh`†��.��_&L hø�ƒ:…:hò�ƒ:EMhì�ƒ:òyhÖ�¥K NhÖ���.��ÞK !hl�vLÌyhø�vQ{œh{Qh��{Q�2hn����.��{QØOhŽ�‰Y�xh†�›Yh6�›Y�2hŽ�›YØOh²�…��&��½Y@ hª�kf��hXÕfÏyh\¯”�"����÷�����*’ÀD$�����$�6�����������Ž��(��6�-S�.‰rày ·R"" Mðx42h~s����0������¼����{Qì�Ù�÷ ˆ ŠË 8ËU �5÷ Š?����X:vL�� X:†� X:†�É��.���Ë �÷ x÷ š÷U� �� (Â�÷ `'€÷U�A����X:vL��X:;d�þ��.��&��W!.� W!$�À‹÷U€���— �÷ òÂz����X:vL��X:vL����.��L �åW!.�÷ D÷U� ��÷ ð÷ Þ€‡�Àú�f����X:vL�� (•Hqú�Ó����r÷ òú È ô¥�����•Hqú�ƒ����ú�.+�~-�†"�ˆ'�¢%�z��.�� qQ€W. qQ€W~ qQ€W† qQ€Wˆ qQ€W¢­����¬<�º^���½���� qQ€W¬ qQ€Wº�qQ€W~Ô��.��~÷ Ðþ ‡�‚ ÷ ®÷ ÄÉŸ��ÑÅ€� ÷à÷ Š����X:;d��’��*��¤��11X,O6,10X,I5,'.')���2:����8��0:��.��½«@j2:ì¨@8 O«�i"8$–©¯&0k��"��DB:�������P��P�æR��.��DB:� ½«@j•«�} 4R��� 4„���‰��.�� �\�æôþ\�æ�\��æ�\���æ�\������å����kÀv�*����Fæ��\���æ�\��ë����ó���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Û����¾ –¬ �Ì��–���—�. Ž â��.��–¬ kÀv� Ì ½«@j½«@j. Ž z����Ò ������Þ ��þ ��˜�}��,��E©@8™©��ò« € Þ  ò«��þ ½«@j ����â ä w ����7 ����™�ž ® A��,��ä zQÀD 4R����O«�N½«@jž ® I����ø ����¤ ��š���›� w ��_��,��ì¨@8O«�i¤  ½«@j½«@j vLÀDQ���� Ü7 ����œ�L X ����D��*��ÜO«�N ½«@jL X E©@8™©��À���� ��( ��ê ����ž – ��¡��.��ò« €( ò«�� ê  ½«@jž – v©@8|����2 ��Ð��ž�������h ¶��.��O«�iн«@j S«�2 Ü�²{Q²ÈÃ�Z�®����Z�������������Ž��(����”YjR½rL  ‘Yš^ =MF Ä…ˆY€����f������†����›Yì�²›Y²ýÃ�n���.��n���†���z�MASTER LINE 00000� �J�ª�{��"���†� Nì�z�&J�(ª�ö��.��”���š�NEW MASTER LINE 00000� ��È��¿���� Nì�š�$�&È�(�i��.��º�Î���Â�+DEL 00000 00000� ��ì�P�ò�3��&��Î�Ä…ì� Â�"�$ì�&P�(ò���.��à���æ�+INS 00000 00000� �þ�� *****�����Ä…ì�æ� Nì� þ�ü��.�� �.�******************************ˆ���Ý�¬þËU�‡�÷ †þW!>�Öw�²þÀ÷ ¦ùH�º���� •Hq�•Hq±����ÆC�ÎD�ÒO�ÖB�ìF���ô��.�� qQ€WÆ qQ€WÎ qQ€WÒ qQ€WÖ qQ€Wìà�����qQ€WÆx��.��Æ÷ ˆþL ‡�Âe�Âe�Âe�æ�·�÷ Hþ·�‡�r����X:;d�X:;d�&X:;d�€��.��ì÷ ¦ùâ‡�÷ \÷���Á�! ! W½. �Â--w��&��X:;d��X:;d� X:†� •Hq.��.��÷ 8�÷ �‚ ü‡ `÷ &�‚ ø‡úÑ ó÷ À�Ú����(X:†�ˆ��.��8‡�&À À €eÀ À À ‡�÷ @ðµ4�. $�‡ ���� •Hq.(��.��^ A�‡À €Àå�Àå÷ÿÀåÒÿÀå@�‡�÷ Ò� º��.��„ Þ��.��qQà[����¯”��äf4„@��\q†@�� ©`;@��T��.��ñª@Q@��,«0z@��O«�N@��½«@j@������(4�\����qQà[h������(��T����÷�����������æ��*����7 ��������qQà[����w ���7 �����½��.��O«�Nñª@Q½«@j�äf4„ O«�N"½«@j2����"�$�w ���7 �������Ø��"��$�\q†O«�N½«@j ©`;»����ó��.��äf4„����¯”��#«p@��zQÀD@��¬pÀ…@��$��.��ÑPZ@��t…e @��ì¨@8@��ö¨@8@��E©@8@��“��.��v©@8@��–©¯@��™©��@��Ý©�‚@��ì©��@��ÿ��.��+ªÀ]@��7ª@@��7ª€%@��7ª@8@��´ª��@��&��.��Ôª@8ß�˜:����S«�2h o����B ��������œ ��¤ ��Ð\��*��-«ù} S«�2 œ S«�2¤ S«�2ÐR����T ������������Ÿ�ß��,��S«�2 kÀv�S«�2 7ª@87ª€%½«@jz��.��d ��â (1H0,'NUMBER OF FILES SEEN = ',I5,v����ò«��â S��.��Š /' NUMBER OF BLOCKS USED = ',I5,/' AVEI��.��° RAGE FILE SIZE = ',I5,' BLOCKS,',I5,' i��.��Ö WORDS EACH')�� �F ����¡���¢�ô w ���7 å��,��½«@jF –©ü½«@j½«@j ô $ #�}‰��"��ü ����£���f�\���P��P� ��(��O«�N½«@j •«�} µW@�� µW@�‚��&�� �P������ Nì� g��.��,**************� � DIFFERENCES FOUÝ�� ��RND� i� ���X��� ��X����—����ó�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������á�÷���CÃå0�× �‚ ‡€ „& „ †N`Ä ����X:;d�� X:;d�S��.��ªÁ ù†ÀU�€ö�Á`÷ ˜�Àe�äw�‡�÷ � Ÿ���� X:†�Š��.��Ð÷ ÿ7 �÷U���� ‡�@�. ÷ �À5���&�� •Hq�X:vL�� •Hq."X:vL�g��.��ö÷ �÷U���÷-���÷ F�õµ>�.ú÷ ,�c��.��X:vL �X:vL��X:;d��X:vL� "•Hq.!��(��÷U���á÷ �· �7 �÷���ÀE€ÿ‡�à��.��X:vL��X:vL�X:vL �X:;d��X:vL�F�����•Hq.N��.��.������������������������������� Y��.��T € â�@��ñª@Q@��õª��@��÷ª@8@��,«0z@��!��.��-«ù}@��O«�N@��O«�i@��S«�2@��S«ð4@��1��.��•«�}@��º«@8@��º«˜{@��½«@j@��Ϋ@@��€��.��ò«��@��ò« €@��j¬e;@������(H äf4„h��Ÿ��.��{ÀD(�µW@(*�4„��(�kÀv(�ô&@(�Ý��&��˜:��(�wC^(�…� &( �¯”�€����÷�����������æ��$����7 ��������äf4„�� �† ��” �� �S��,��O«�Nñª@Q½«@j† O«�i” ½«@j�����P † ��– ����ž �� �‹��.��P † º«@8 –  v©@8O«�iž ½«@jR����.����† ��  ���Ž ��D y��.��½«@j†  O«�i   ã� �P��P� �P�æ��\�±��.�� µW@� µW@ � µW@� µW@ �4R����½��(��4 �P�æ��\��P�æ��\�æ�\�æÁ��.�� 4R��� 4„���� 4„���˜:����˜:������&��T �\�æ �\�æ�\�æ��\��P�æ€��.��˜:�� � ˜:�� �˜:���]d���� ]d�����.��r ��\�æ�\�æ��\�æ�\�æ��\�æ��\���æ��.��{ÀD�� {ÀD�kÀv��kÀv�wC^��k��.��˜ �\���æ�\���æ�\���æ�\��æSY\�SY��.��¾ ��æN \�N ��æ�\���æSY\�SY��æDC\�DC[��.��ä ��æDF\�DF��æSY\�SY��æDT\�DT��æ@�\�¥��.�� @�æN \�N ä��.��qQà[����¯”��\q†@��ZŠI9@�� ©`;@��ð��.��ñª@Q@��,«0z@��O«�N@��½«@j@������(4�\����qQà[h������(��T����÷�����������æ��*����7 ��������qQà[����w ���7 �����½��.��O«�Nñª@Q½«@j�ZŠI9 O«�N"½«@jÎ����"�$�w ���7 �������Ø��"��$�\q†O«�N½«@j ©`;»����ó��.��ZŠI9����¯”��d4@@��ÑPZ@��Ñ[@��Ž��.��j˜��@��ì¨@8@��ö¨@8@��E©@8@��–©¯@��ë��.��™©��@��Ý©�‚@��+ªÀ]@��7ª€%@��7ª@8@��a��.��Ôª@8@��ñª@Q@��*«@8@��,«0z@��-«ù}@��>��.��O«�Nå�h��.��z �@@@@@@@@@@@@@@@@@ ���� @@@@@@@@@����������qQ€W<���(��<÷��� · ��÷ �õµ�.ø· ��ÅŸ•��.��X:;d�X:;d��X:;d�� •Hq. X:;d��Ö�� ��\��…����X:;d���ô‹w�n�� ���xKø����� qQ€Wø��qQ€W^2��.��^€Åå ÿø�‡�Ð $üà ÷���÷ Èÿ�‡�À��J����X:;d��X:;d�/��.��„÷ j�‡�À�÷ `�‡�À�÷ V�‡�÷ f�7 f�· ç���� X:;df�&X:;df�U��.��ªh�À�Ðh�È�"�ƒ÷U���À�÷ $�‡�l��.��X:;dh� X:†� X:;dh�X:†�X:vL��X�����ô‹w�µ�æ�½«@jŽ º«˜{D :����B���¢ ������R���§��,��Ý©�‚¢ E©@8 ™©�� ò« €R�ò«�� ����P�ä���J Ž ª ����D ¯��,��佫@j J  Ž ª ì¨@8º«˜{D ÷����b������������V † ƒ��.��Ý©�‚ì¨@8O«�i kÀv�� ½«@jV † F����r���������Ž ��D x��.��ì¨@8O«�i kÀv� ½«@jŽ º«˜{D Ú����‚���˜�† �� ��š�’�w d��,��Ϋ@˜�†  º«˜{ Ϋ@š�’�È�� ��”�������7 �����Ž † ����Ì��,��¬pÀ…O«�N½«@jŽ † ì¨@8º«˜{Ü����¬�D ��Ä�† ��& ��Æ�£��,��D Ϋ@ç���æA \�A ��æÿÿ\�ÿÿæL \�L ¨��.��0��æS \�S ��æH \�H ��æF \�F ��æ��\�²��.��V����æ�\��æDT\�DT��æ8�\�8�?�æ@\�ç��.��|@æ�\������L1��æ�\�����æ**\�**°��.��¢��æ**\�**��æ**\�**��æ**\�**��æ**\�v�� ��È**��L2����æDT\�DT��L3��.����ó��.��<  ����¯”������(��ZŠÀv(�µW@(*�G��.��wC^( �{ÀD(�]d��(²˜:��(�õ_Àv( �#��.��E��(��'��(�4R��(4„��(kÀv(�y����…� &( �¯”�ü����÷�����˜:������ �����í�� ��� �ß�� �� ��â�����E����‚���è�@��O«�i@��S«�2@��S«ï4@��S«ð4@��^��.��U«�‚@��•«�}@��º«@8@��º«˜{@��½«@j@��Ö��.��Ϋ@@��ò«��@��ò« €@��j¬e;@������(¶‡��.��ZŠI9h��]d��(�˜:��(�4R��(�wC^( �ë��.��4„��(�{ÀD(��'��(�kÀv(�õ_Àv( �"����¯”�‘����÷�����������æ��$����7 ��������ZŠI9�����(���Ç��,��O«�Nñª@Q½«@jO«�i(½«@jô�������0�����8���ï��.��O«�i0 ½«@jO«�i8½«@jÃ����0�:��H���äê����:��.��:O«�iH ½«@jäêE©@8™©��Þ���é�� ���úMЬ���� qQ€WÐ�qQ€WÐ×��&��Ð÷5€�d� · f�÷�j�÷E�j�7 ��.�� X:†d�X:;df�X:†�X:;dj�X:;dj�z��.��îl�‡�÷ &æÁàƒCà� ±�@ @ý`€ ÀE� � |����X:;dl�>��.��ƒ #1-��ò‚àñQ$ƒ#÷ ê�À�`À`»����$ÀRà�¢��.��:B ‡÷ Ø�� € #Á`B ú‡� ‡�÷ Â�� � ¢��.��`€ #1-��Á`õ� w�7� s�€ ����ÀRà�ÀRà�(€¡��.��†%ƒ Ãå� à ý‡�÷ €�·�7 �÷ v�À]����ÀRà� ÀRà�]��.��¬�÷ �µŠ�õ`��µ ��Æà‚@à€ RÀ ýÃ��.��ÀRàê�Ä� †  º«˜{& Ϋ@Æ�¯��"��¼�¾�w ������7 �����Ž ² ��7��*��¾�¬pÀ…O«�N½«@jŽ ² ì¨@8k����Ö���D ��ð�† ��, �� ��.��º«˜{D Ϋ@ ð� † º«˜{, Ϋ@È��$��æ�ò�ê�w ������7 �����Ž º ��ä��.��ò�ê� ¬pÀ…O«�N½«@jŽ º ì¨@8.�� ����D �� w ����¨  7 ,��,��º«˜{D Ϋ@  #«p¨  Ñ����������Ä ���Ž º Œ��*��O«�NS«ð4O«�i Ä  ½«@jŽ º t����*����D ��<6w ����Æ Ÿ��.��ì¨@8º«˜{D  Ϋ@ <6#«pÆ !����@Œ ë�� ����ýÿö�����…� &��Œ�����������À�����wC^�¬�� �����ì�� ����å�� ����í�����˜:�� ��� �� ���á�����{ÀD��M�� ��������ð�����]d����%�� ����X˜������'����¿�� ������ò�����wC^��²�� ������ò�� ����á�� �����ê�����µW@��{������************ð�����ZŠÀv��Ì�� ����024 :�����õ_Àv��\��(��������� �@�€������� �@�€Ö����ó��.��Þ""����¯”��+ªÀ]@��7ª€%@��7ª@8@��6��.��ñª@Q@��,«0z@��-«ù}@��O«�N@��S«�2@�� ��.��S«€4@ì����B���J������������µ��.��ò« €J�ò«�� �� ½«@jS«�2 ˜:����¸��.��R���f����������������(1H1,6('* '),'MAP ��,��S«�2f�-«ù}7ª€%½«@jò«����À��.��x�VERIFICATION',6(' *')//)������š�w ��•����½«@j ½«@j$š�(ÑPZ–����ž����PR7 �����TÜ��.�� ˜:��� 4R���� P RO«�N½«@jT’����²���ð���������'��*��º«˜{ðÝ©�‚ O«�i 4„����½«@jã����À����d��b���\��™��.��½«@jd O«�i b½«@j\º«˜{����Ô�����@blÊ����õ��,��í��ÀRà� ärBx� ärh�� är» �«��.��Òõà��õà��Åå�ù€ƒ à ý€æ �Îe�€çÀå’���� är» �� ärh�� �����ø ‡7 ކ7އ�w Ší�Ý���� X:†ŽX:†Ž�Œ–×f,�—�� ��,�÷ Ž1����X:†Ž�qQ€WQ��,��÷ �u��5Š�‡�7�€÷ .�fÅ�A��B±��.�� ärh�� ärBx�ÀRà� ÀRà� $är» ��…��"��2��C���Ä�È …‡�Á�Â�ÃZ��.�� ärh�� ärBx�� X:†� X:†� X:†�e��.��L�Ä�‡�æ¦f¦�6�Þ �‚ƒ„À ‡�RÊ���� X:†� X:†�W��.��rRRRRRRR‡�R”þ⋇�÷ Êú&÷ îö÷ (î�7 ������Î ���Ž t È��.��Œ O«�N S«ð4 O«�iÎ ½«@jŽ t ö����T����D ��f`w ����ò��*��ì¨@8º«˜{D  Ϋ@ f`#«p¹����h�° 7 ������Ö ���‡��.�� …� &�°  O«�N S«ð4O«�iÖ ½«@j‘����zŽ z ����D ���Šw d��,��Ž z ì¨@8 º«˜{ D Ϋ@�Š�����Œ�����¸ 7 ������Þ a��.��#«p …� &� ¸ O«�NS«ð4O«�iÞ %���� ���Ž à ����D ��]��*��½«@jŽ  à  ì¨@8º«˜{D Ý©�‚ ����°��î ���Ž ª ����D ‰��.��O«�iî ½«@j Ž ª ì¨@8º«˜{ï���•«�}@��½«@j@��ò«��@��j¬e;@��¨��&������(¢�Þ""h��˜:��(�¯”�¤����÷�����������æ�� ����7 ��������Þ""���������÷��,��O«�Nñª@Q½«@jS«�2 ˜:����S«�2–�� ���8��������������������„��.��8�-«ù} S«€4S«€4S«�27ª@87ª€%[��.��0������œ�(1H0,6(2H* ),'DEVICE ERROR DURý����½«@jò«�� œ���.��V�ING TRAN ',6(2H* )/1X,'BLOCK NUMBER = «��'��|�',O6/1X,'FUNCTION WORD = ',O6/)� ���œ�M����œ������L����½«@j•«�} ����ó��.��zQÀD����¯”��I�K@��j8ð�U«�‚–©¯ @ blÊ�½«@jÓ����æ�ü������ö���@¢��.��üE©@8 ™©�� ò« €ö�ò«��@Ÿ����ö����ü��n���:��è��.��½«@jü O«�i n½«@j:º«˜{����� ��w ������PR7 6��*��Ϋ@ ÑPZ 4„����PR����� �����2:����8ï��*��O«�N½«@j 2 :ì¨@8O«�i8õ����0���J��p�� �äê��Ò��.��½«@jJ O«�i p½«@jäêE©@8Ê����D����N��Â��!���l��,��™©��ò« €N ò«�� ½«@jS«�2����T����’��������8���ñ���.��˜ & &÷ BïÀ�÷ dÿ÷ @�Å�ÿ÷ Ü�÷ L’’#��.��¾ ’÷ ”ýÀ˜ˆ $È”Èe�‡�7 �w�Hß +���� X:†˜X:†”"X:;d���� ��ä���õ���� kQBa� Ba�á���Ba�á��G��"����ßU���‡�ß Êùß æß�¦ßê��.�� X:vL�� qQ€WÊ qQ€Wæ X:†� X:†¦Ô�� ����¨ß ”�ß ìß À&ß «��.�� X:†� X:†¨ qQ€W” qQ€Wì qQ€WÀ��&��2�”Œß ¦ß ¢ ÷ Ê� Ò�ÒªßU@�5��.�� qQ€W” qQ€W¦ qQ€W¢ X:vL� X:†ª�� ��P��ß äß îß ô  ¦ß'à��.�� X:vL� qQ€Wä qQ€Wî qQ€Wô X:†¦ò�D Ø����Â����ö ���Ž ø ��o��*��Ý©�‚O«�iö  ½«@jŽ ø ì¨@8Z����Ò��D ���� ���Ž  í��.��º«˜{D Ý©�‚ O«�i  ½«@jŽ  j����ä����D ��öðw ����¨ ���.��ì¨@8º«˜{D  Ϋ@ öð#«p¨ Ë����ú 7 ������ ���Ž € 6��.�� O«�N S«ð4 O«�i ½«@jŽ € $��������D ���� ���M��,��ì¨@8º«˜{D  Ý©�‚ O«�i ½«@j�� ��† ��2 ��2*w ��Ä ��7 ��,��† º«˜{2  Ϋ@ 2*t…e Ä ¶����6�����È ¢ ��������,��O«�N½«@j È ó�Àv@��œS��@��b��.��ì¨@8@��ö¨@8@��E©@8@��v©@8@��™©��@����.��Ý©��@��Ý©�‚@��ì©��@��+ªÀ]@��7ª@@��@��.��7ª€%@��7ª@8@��ñª@Q@��õª��@��*«@8@��…��.��,«0z@��-«ù}@��O«�N@��O«�i@��S«�2@��Ò��.��S«ð4@��U«�‚@��•«�}@��º«˜{@��½«@j@��‘��.��ò«��@��ò« €@��j¬e;@������(ÒzQÀDh��P��.��{ÀD(�wC^(�µW@(*�]d��(�˜:��(�ð����õ_Àv( �¯”�¶����÷�����������æ��$����7 ��������zQÀD�� �B����� �à��,��O«�Nñª@Q½«@jBO«�i�½«@jl�����H’������,���ì�Ò�ô�¹��.�� ˜:����S«�2’ -«ù}S«�28S«�2ã����h��:��xr����1��.��7ª@8:O«�i x rº«˜{S«ï4Ê����x�������@xpp��½��.��S«�27ª@8 –©¯ @xpp7ª€%š��.��Š��"���Â(1H0,6('* '),'MAP NUMBER ',I3, ����½«@jò«�� ÂX��.��°6(' *')//8(2X,O6))��#���$�d��€��%�B��*��½«@j½«@jd O«�i"€$½«@j(B����Ö��Þ��z����˜��*��º«˜{ÞÝ©�‚ z º«˜{Ý©�‚ ����ä������ð��ê��&�ú��,��E©@8™©��ò« € ð ò«��꽫@j����õ�f��"��h��¨ßU���Ńÿß ’ß Z‡�Â��.�� X:†� X:†¨ X:vL�� qQ€W’ qQ€WZ£�����qQ€WèR����èß �‚�…���� kQBa� Ba�á‚��Ba�á‚�?��.��‚�ß n À�º&ß æ$¤ª&÷ ¨�Ńÿû��.�� qQ€Wn X:†� qQ€Wæ X:†¤ X:†ª­��.��¨�ß Ÿœ’ÒÊ�’ß Z‡�ƒ ß ô÷ @�ß ��.�� qQ€W X:†œ X:vL� qQ€WZ qQ€Wô���(��Î�tß ôßÿÿ¤÷ l�ß tß À æ��.�� qQ€Wt qQ€Wô X:†¤ qQ€Wt qQ€WÀ��,��î��æ&ß äß îÅ‚ÿ_�²ßU���‡�À�ß æ��.�� X:vL� qQ€Wä qQ€Wî ö� ¢ E©@8™©��ò« €Ê����FN �� �� �È † ��„��,��N O«�i   ½«@jÈ † E©@8•����X����d �� ��!�Ø Î��.��™©��ò« €d  O«�i ½«@jØ î����j¢ ������x��xÛ��*��¢ E©@8õª�� ò« € xò«��x����x��"���#�Ø ¢ ������—��,��½«@j½«@j Ø ¢ E©@8™©��ò« €æ��.��Š�����$���æ(1H0,6('* '),'LOCKED FILk��$���ò«�� ½«@jò«��æ±��.��°E ',6('* ')/1X,2(A2,A1),'.',A2,A1,'[',ç����ÖO3,',',O3,']'/)� ���æ����æ��%�������˜����÷��.��H’E©@8 ™©�� ò« €,�ò«��ì�����,��� �ŠN������@�‘��*��½«@jŠ N E©@8õª��ò« €@�����<���ì��� �������†�*��.��ò«��ì�½«@j S«�2 ˜:����S«�2†�����L�����������������“��,��-«ù} S«�2 wC^�S«�27ª@8S«�2ý����^�T��Z��`�����o��*��TS«�2Z S«�2 `S«�27ª@³����n������������l��.��S«�2 ˜:���S«�2 ˜:��� S«�27ª@8Ü��.��|����� ���ì�(1H0,6('* '),'SEARCHING FOUNþ����7ª€%½«@j ò«�� ì�—��.��¢�D BLOCK ',O6,6('ø�ô������0��������8}��.��S«�2 ˜:����S«�2 0 -«ù}S«�28H������€�����B��Þ)��*��S«�2€S«�2 7ª@8Bº«˜{Þ–������z���������6��,��S«ï4zº«˜{  S«ï4S«�27ª@8¤��.��&����'���Ä(1H0,6('* '),'MAP VERIFICATIf����7ª€%½«@j ò«�� Ľ��.��LON ERROR',6(' *')/1X,'MAP NUMBER =',I3É��.��r,',WORD NUMBER =',I3/1X,'RECONSTRUCTEDš��.��˜ ENTRY =',O6/1X,'SYSTEM ENTRY =n�� ��¾',O6).� ���Ä#����Ä��(�B��Þ��z��5��.��½«@jB º«˜{ù�qQ€W² X:vL��û��(�� � ªæ�€ß æÅ%?�ŸSªß a��.�� qQ€W X:vL� X:†ª qQ€Wæ X:†ªÑ��.��2Dß ÐÀ�ß ˜¡� íÖ ‡�  �ß À&à ð��.�� qQ€WD qQ€WÐ qQ€W˜ X:vL� $qQ€WÀ¥��.��X#ß'¤�&ƒß æß ª Å%\�0ß úÅ ß ��.�� X:†¤ X:vL� qQ€Wæ X:†ª "qQ€WúÝ��$��~ª:�ß ’ß Vúß tß ªáŸ ~��.�� X:†ª qQ€W’ qQ€WV qQ€Wt X:†ª(��(��š�ß Vß ’ ß ’õE ß ’E ß5€�æ��.�� X:vL� qQ€WV qQ€W’ qQ€W’ qQ€W’��(��ºX� À� �ßU€��€‡�ß ú���;��*��½«@jS«�2 ˜:���� S«�2˜-«ù}O����ø�� ��& ��, ���Z��*��S«�2 S«�2 &  S«�2, S«�23���������������Ï��.��7ª@S«�2 ˜:��� S«�2 ˜:���S«�2����������&���'�Ð ¢ ��ø��,��7ª@87ª€%½«@j ½«@jÐ ¢ E©@8‚����(����2��Ò��(���‡��,��™©��ò« €2 ò«�� Ò½«@jS«�2'����8����x��������Ö ���J��.�� ˜:����S«�2x -«ù}S«�2Ö S«�2Z����L���� ��& ��, ��*��7ª@8S«�2  S«�2 & S«�2, ����Z�����������|�����û� *')/1X,'FOR FILE ',2(��+��È�A2,A1),'.',A2,A1,'[',O3,',',O3,']')� ���ì�ý����ì�������Š’������¹��,��½«@j½«@j Š’E©@8Ý©��ò« €�� ��þ���:��� w ���7 ��/��.��ò«��: ½«@j j8Àv�O«�N¥������������Šš��¢\��.��S«ð4O«�i� ½«@jŠšv©@8¢Õ����(��ª����¸�����C��,��ì¨@8ªì¨@8 O«�i ¸½«@jò«��ë����8L���Šš��ª����u��.��L½«@j Š šv©@8ªì¨@8O«�i$�� ��J¸���Rw ��� 7 ����y��.��¸½«@jü� ÞÝ©�‚zº«˜{’����Ö������‚��)�B����,��Ý©�‚*«@8O«�i ‚ ½«@jBº«˜{g�� ��æÞ��öîw ��‚��7 ����Þ��.��ÞΫ@ö îj˜��‚O«�NS«ð4¸����þ��Š��*�z����w��.��O«�iн«@j zº«˜{Ϋ@Y����w ��‚��7 ������’Ó��*��j˜�� ‚O«�NS«ð4O«�i’R����&��+�:��b��,�„\��Ì��.��½«@j: O«�i b½«@j„\º«˜{Â����:����������o��,��Ý©�‚ö¨@8  E©@8™©��ò« €T����HN��ð��-�T����¸���ý�Dß Ž��.�� X:†X� X:vL� X:vL � X:vL� qQ€WD¥��.��ÚXfæÃ�÷ 8� ß ’ƒ…Ο l�Ál�ÁeÊ��.�� qQ€WX X:;d� qQ€W’ "X:;dl� &X:;dl�]��.���?�fæÃ �÷ �Å$�ß ’ ß ’ƒ…¶� ß &���� qQ€W’ qQ€W’����&ö f÷ ðÿ…Åe0�_�’?���� qQ€Wö qQ€W’�qQ€Wî+����îß �<Ã���� kQBa� Ba�á<�Ba�á<Ç��&��< ß 2ßU@��ß ´À5�� ƒ ß%âº��,�� qQ€W2 X:vL� qQ€W´ükQ qQ€Wâ\��,��Z� à à €‡�ß €�À5��÷ ò�ßÎ��ß ©��,�� X:†� X:;d€�üËx "X:†Î $X:;d��þ��.��S«�27ª@ S«�2 ˜:���S«�2 ˜:�����.��h���������)���Ò(1H0,6('* '),'OPEN FILÇ��(��S«�27ª@8 7ª€% ½«@jò«��Òñ��.��ŽE,USAGE COUNT=',O6,6(' *')/1X,2(A2,A1)Ö��.��´,'.',A2,A1,'[',O3,',',O3,']'/)��*���+�×����"½«@j&½«@jy����Úh n ������ê��˜–��.��h n E©@8 ™©�� ò« €êò«��˜Š����ê��,�������B������ƒ��*��½«@jS«�2 ˜:���� S«�2B-«ù}£����ü�� ��& ��, ��2 ��.��S«�2 S«�2 &  S«�2, S«�22 á���� ������� ��Ö ��É��,��S«ÿ� RœS��� O«�NS«ð4—����bª����À���º��„º��.��ªì¨@8O«�i À ½«@jºº«˜{„º����t����È���²x��a��*��Ý©�‚O«�iÈ ½«@j²xE©@8Ÿ����„����Ž��Þ���²&��*��ì©��ò« €Ž ò«�� Þ½«@j²ï����”��~��Â����Ð;��*��º«˜{~Ý©�‚  ö¨@8O«�iÐq����¢���²��~��Â��²{��.��½«@j² º«˜{ ~Ý©�‚Â*«@8²Ð����´��~�����Ê’��6��*��º«˜{~U«�‚ ½«@jÊ’E©@8(����Ä����ØÌw ���7 ��!��*��õª��ò« €��.��Nò«��𠽫@jTº«˜{Ý©�‚€����Z:��œ����”��÷��.��:º«@8œ º«˜{ Ý©�‚”Ôª@8†����j��zd��”����\‘��.��Ôª@8zd º«@8 ”Ôª@8ì¨@8\®����z����¤��.�����‘��*��ì¨@8O«�i¤ ½«@jS«�2 ˜:����T����ˆ��ª��������¤��¤V��*��S«�2ª-«ù}S«�2¤S«�2¤‘��.��š���������/���â(1X,'LOST BLOCK NUMBERa��(��S«�27ª@8 7ª€% ½«@jò«��âá��)��À = ',I5,' DECIMAL(',O6,' OCTAL)')� ���â����â��0�*:����0��1�ö���¸��(��~Zß ôÀ�ß V Å� ß ¢ß /��.�� qQ€WZ qQ€Wô qQ€WV ÀRà� X:†¢§��(��ž’ß ¢ß <Ä ß ’ß JùW!'�ß ˜��.�� qQ€W’ X:†¢ qQ€W< qQ€W’ qQ€WJ����¾’ß ä»Ÿ ¢ß V×s��.�� qQ€W’ qQ€Wä X:†¢ qQ€WV�Ba�ÈÒ‘��.��Òß Ê*Ú!ß Ê$ß ôÅ ƒ ß Vüß ã��.�� qQ€WÊ X:†š qQ€WÊ qQ€Wô $qQ€WVÛ��*��øtß Êß æÁ�ffß  À �ß Q��.�� qQ€Wt qQ€WÊ qQ€Wæ X:†� qQ€W ¬��&��¡¡ �ß�w�ðýßU���öß Ü��.�� qQ€W X:†��27ª@ S«�2  S«�2Ö S«�2ƒ����Þ ��î ��ö �� ��×��.��Þ S«�2î  S«�2 ö S«�2 S«�2¼����, �� ���������-�G��,�� S«�2  S«�27ª@87ª€%½«@jð��.��>��˜(1X,2(A2,A1),'.',A2,A1,2X,4A2,A1,5����ò«��˜¥��.��dX,A1,5X,O2,5X,O1,2X,O6,2X,I5,'.',2X,O6Ï����Š,3X,O3,3X,O6)c� ���˜M����˜��.���/�È ¢ ������m��,��½«@j½«@j È ¢ E©@8™©��ò« €ö����ª°��Þ��0�è ��* ��1���.��°ò«��Þ ½«@jè O«�i* ½«@j‚����¾Àw ��* 7 ����Œ Ø ÌI�K�O«�Nx����Ø��������������Ö��,��½«@j•«�} ½«@jS«�2 ˜:����S«�2_����è����������������^��,��-«ù} S«�2�S«�27ª@87ª€%@��.��ü�����<(1X,6(2H* ),'BLOCK NUMBER OUT p����½«@jò«�� <Ý��!��"OF RANGE = ',O6,6(2H *)/)q� ���<«��&��<�����f�\�æ��\�æ�\���P�„��*��½«@j•«�}wC^��wC^� µW@��®��(��Z�P��P� �P��P� �P�æz��.�� µW@� µW@� µW@ � µW@� µW@ �×��.��z��\��P���P�æ�\���æ��\���æ��*��½«@j* : ì¨@8O«�i0½«@j;����ô��@bš0��2�:��ø��,��–©¯@b š 0½«@j:O«�i+����b��3�Œ\������/��.��b½«@j Œ \º«˜{Ý©�‚ö¨@8?����������&��È´��*��E©@8™©�� ò« € &ò«��Èü����&��4�T����:��œ4��.��½«@jT º«˜{ Ý©�‚:º«@8œœ����8����”����zd��.��º«˜{Ý©�‚ ” Ôª@8Ôª@8zde����H��”����\����ž��,��º«@8”Ôª@8 ì¨@8 \ì¨@8O«�i3����V¤��5�������‚������ X:†� X:vL�� X:† ë����8�ßU���‡�Ï���� X:;d� X:vL���ô‹w0�Ï����0�€ xÐWyî8Žn�A��.�� BaÀÚx BaÀÚy BaÀÚŽ BaÀÚ��BaÀÚx¦��.��x ß úß HßU���‡�ûß úÁ��à ß `��.�� qQ€Wú qQ€WH X:vL�� qQ€Wú "X:;d��_��.��žtß ôð@’B �  Å ß V� ôC _�t|��.�� qQ€Wt qQ€Wô qQ€WV (qQ€Wt�qQ€Wô¾��.��ô÷ îü<÷ Vÿ Â��¦Ã<�Ä>�C!W!^�õµƒ���� X:;d�����.��8�.÷ 2ýù÷ ýŽC D÷ ý C!D!ù����� •Hq.B��.��@Á Á � õ€Ž ÅU�€÷U���Àn�*  ‰��,��ÀzQÀD * O«�N–©¯Œ *  U����Ôº��2���ä��3���4�¢ ��*��º½«@j ò«�� 佫@j½«@j¢ K����è��2 ��5�è ¢ ����ë��*��O«�i2 ½«@j è ¢ E©@8™©��ƒ�� ��ø�����´��6�w ��î 7 (��.��ò« €�ò«�� ´ ½«@jzQÀDî ô��������7�è ������8�\ ��.��O«�N½«@j è  O«�i ô&@��½«@j\ Ä����"��: ��9�,w ����ˆ��(��O«�i: ½«@j ,ÑPZ ô&@������4��¸ < 7 ����:�, † c��*�� ô&@��¸ <  O«�N½«@j, † É����F����2 \� ����]d���� ]d��� õ_Àv�����.�� �æ�\��æ�\��æ�\���æ�\���æ�•����Æ\���æ�\���c����ó��.��I�K����¯”��+ªÀ]@��7ª@@��7ª€%@��Y��.��7ª@8@��ñª@Q@��,«0z@��-«ù}@��O«�N@��à��.��S«�2@��S«€4@��•«�}@��½«@j@��ò«��@��.��.��j¬e;@������(ì�I�Kh��µW@(*�˜:��(�Ü����¯”�‘����÷�����������æ�� ����7 ��������I�K���������ç��,��O«�Nñª@Q½«@jS«�2 ˜:����S«�2–�����T�����������������È�§��,��T�-«ù} S«€4S«�27ª@8S«�2È�†����!��.��¤½«@j S«�2 ˜:����S«�2‚-«ù}¤����j��¤��¤������� ��,��S«�2¤S«�2 ¤ S«�27ª@87ª€%¶��.��z��6���º(1X,'FREE BLOCK NUMBER = ',I5,H����½«@jò«�� º]��!�� ' DECIMAL(',O6,' OCTAL)')¢� ���º+����º��7�":����(��8���*��½«@j" : ì¨@8O«�i(½«@jK����Ì��@bš��9�B��7��,��–©¯@b 𠽫@jBº«˜{5����ÞÞ��z������:�B��.��ÞÝ©�‚z º«˜{ U«�‚½«@jB”����ð:����H��@€P@��,��:ì¨@8O«�i Àp��P:Š����X:vL��X:;dn� "X:;dp�Ê��.��f��Š÷ ìü7n�‡�Àn�à x‘��Å H 7��÷ ¼ü����X:;dn�X:;dn�$X:;d��þ��.��Œ7n�‡�÷ ¢�fÅ'�÷ �…ö7 ¢Â5�Âå����X:;dn� X:†¢ X:†¢<��.��²�¦÷ �R‘‡�Àž À �÷ ÊýÀ �7 �7í����X:†ž"är» �&ärh ���.��Ø�7ž ‡�° �‡�ð � €&È �üÈg����är» � X:†žÁ��.��þž·ž‡�÷ ¶ÿâ Á�¦fR Á%žû‚R’H��&��X:†žX:†ž X:†� X:†ž1��.��$·  ‡�˜€÷ ¼ÿ€÷ ®ÿ�â @÷ *þ „����X:†  X: ��;�\ ¢ ����*��ì¨@8O«�i2  ½«@j\ ¢ E©@8G����V����`��´��<� > Â��.��™©��ò« €` ò«�� ´½«@j > Â����h����\ ¢ ������i��,��E©@8™©��\  ¢  E©@8´ª��ö¨@8ë����v��‚\ ��������=�@��.��ò« €‚\  ÷ª@8 O«�i ô&@��½«@jT����†ˆw ����7 ����>�, ð —��,��ˆzQÀD ô&@��O«�N½«@j, ð ï����œ² ��������¬��Ù��,��² Ôª@8E©@8 ì©�� ò« €¬ò«��Z����ªà��?�����@���A�ð , 8��.��ཫ@j ò«�� ½«@j½«@jð , I������.���Î���Ô����������,��S«�2Î�S«�2 Ô� S«�27ª@S«�2ð����>������������œ��.�� ˜:���S«�2 ˜:��� S«�27ª@87ª€%„��.��L������Â�(1H0,6('* '),'MULTIPLE ALLOCAT¿����½«@jò«�� Â�Y��.��r�ION OF BLOCK ',O6,6(' *')/1X,' FOR FILæ��.��˜�E ',2(A2,A1),'.',A2,A1,'[',O3,',',O3,'Û�� ��¾�]')†� ���Â�'�� ��Â��������P��P��P� ��*��½«@j•«�} µW@�� µW@� µW@�N����Ú� �P��P� �P�Á���� µW@ � µW@� µW@ �����ó�����������������������������������  H –©¯@€PF�����Ð��;�¦������ü��.��н«@j  ¦E©@8™©��ò« €Ô������¼���<�:����.L��.��ò«��¼�½«@j :º«˜{Ϋ@.�� ��$&w ��n���R7 ����=�¸��,��&Ñ[ n kÀv�RO«�N½«@jˆ����<��¼���>���?�"*��î��.��ò«��¼�½«@j ½«@j"*ì¨@8V����P������\��¸��@�1��,��E©@8™©��ò« € \ ò«��¸½«@jß����`������†��������(Ä��.��S«�2 ˜:����S«�2 † -«ù}S«�2(ÿ����r��0���������A���ò� †˜����J÷ ¤ÿ÷  ‡�¼���� X:† �Ba�áÒ���,��Ò÷ ’�Bß ��< \�æJ�ˆæV�æJ�ˆ ß „��.�� X:†�� ÀRà\� ÀRàJ� ÀRàV� ÀRàJ�e��.��ö2ß ´À5��øÄ�à Ì%âòƒ ƒ Ã%�íß ���,�� qQ€W2 qQ€W´ükQ X:†� qQ€Wâ���.��Ê ß ”çÌ å÷ àüß €�ßæJ�ˆß €�æ��.�� qQ€WÊ qQ€W” X:;d€� ÀRàJ� $X:;d€�¶��(��BJ�ˆ ß \�ùß\�ÉßU� �� €� (��.�� ÀRàJ� ÀRà\� ÀRà\� X:vL�� X:;d€�ò�� ��b�‡������ X:;d��qQ€WT–����Tß �f0���� kQBa� Ba�áf�Ba�áfq�À������Ì����B���,��E©@8õª��ò« € Ì ò«��½«@jÇ����Ð� 4 ������à��ðì��.��� 4 E©@8 õª�� ò« €àò«��ð{����à��C���D�Ž – ����” £��*��½«@j½«@j Ž – ì¨@8O«�i” ����ò��Œ   ž 8���E�����F�A��.��–©¯Œ    ž  8�½«@j•«�}½«@j`����������F�������� a��.��S«�2 ˜:����S«�2 F -«ù}S«�2 C������& ��, �������_��,��S«�2& S«�2 ,  S«�27ª@S«�2.����(������ö ��±��,�� ˜:���S«�2 ˜:��� S«�2 ö S«�2;�����;COPYRIGHT 1971,1972,1973 DIGITAL EQUIPMENT CORPORATION, ;MAYNARD, MASS., 01754 ;TEST V001A R0=%0 SP=%6 CR=15 LF=12 INIT=EMT+6 WRITE=EMT+2 WATE=EMT+1 RELEASE=EMT+7 EXIT=EMT+60 BEG: .WORD 0 ;ERROR IS FATAL LKBK: .WORD 0 .RAD50 /LDA/ ;LOGICAL NAME .WORD 1 .RAD50 /KB/ ;DEVICE NAME BUF: .WORD 15. .WORD 0 .WORD 15. BYTE CR,LF .ASCII /ALL IS WELL/ ;MESSAGE .BYTE CR,LF .EVEN START* MOV #BEG,SP ;SET THE STACK MOV #-5,R0 AGAIN: MOV #LKBK,-(SP) INIT ;INITIALIZ�.��S«�20S«�2 7ª@87ª€%½«@jò«��L��.��„¸(1H1,'TOTAL FREE BLOCKS =',I5,' TOTAæ�� ��¸/��(��ªL LOST = ',I5)��B���C�ö®������Ì��,��½«@j½«@jö®E©@8 ™©��"ò« €a��$��ÊØÎw ���7 ����D����P�æü��.��ØÎ d4@O«�N½«@j•«�} ]d���Í��$��æ�\�æ �\��P�æ�\�æ��\���.��˜:��� ˜:�� � 4R���wC^�4„������.���P�æ��\���P���P�æ��\���æ�\�¥��&�� 4„��� �'���� 4„���� õ_Àv��G��.��(��æ�\���æ�\���æ�\��æ�\���æ@�é��.�����&��fðß Ê ß ”ß ¦Ÿ €�ß ¢ óÀó��.�� qQ€WÊ qQ€W” qQ€W¦ X:;d€� qQ€W¢ 7�� ��„€�‡�b���� X:;d€��ÀRàH�Ã�� ��H�����Ôx�¨zT�»zkQÔx����{���� qQ€WT�kQBa��b������kQØr¦‡�‡�‡�������ÀRà`�u����`�����������Š��.�� BaÀÁ�� Ba�È�� Ba@Î�� Ba€Ô�� BaÀÚ��ð����j�����������€��.�� Ba�á�� Ba@ç�� Ba€í�� BaÀó�� Ba˜w��þ�����Œ–vL �ö�� �� �‡�_����ó����������������������������������������������������������������������������������������������������������������������.��42 ���������G���è(1H0,6('* '),'FILE S��,��2 S«�2 7ª@8 7ª€%½«@jò«��è‡��.��ZIZE IS INCORRECT',6(' *')/1X,2(A2,A1),ë��.��€'.',A2,A1,'[',O3,',',O3,']'/1X,'SYSTEMñ��.��¦ THINKS FILE SIZE =',I5,'.'/1X,'ACTUALû��.��Ì FILE SIZE =',I5,'.')��H���Ì��i���� ½«@j$ò«��&Ì(½«@j´����òI�������4�������� ;��.��S«�2 ˜:���� S«�2 4-«ù}S«�2 F������& ��, �������p��,��S«�2& S«�2 ,  S«�27ª@S«�2.���������� ��±��,�� ˜:���S«�2 ��E THE KB MOV #BUF,-(SP) MOV #LKBK,-(SP) WRITE ;WRITE THE MESSAGE MOV #LKBK,-(SP) WATE ;WAIT TILL DONE BITB #47,BUF+3 ;ANY ERRORS? BEQ OK ;NO - BRANCH INC R0 ;TRIED 5 TIMES? BNE AGAIN ;NO - BRANCH OK: MOV #LKBK,-(SP) RELEASE ;RELEASE KB EXIT ;GO BACK TO MONITOR .END START ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������N\�@���æ�\��æ�\���æ�\�������æ½��.��t�\���æ�\�����æ�\���æ�\���æ�\�l��$��š�æ�\����æ��\���æÿÿ\�ÿÿ!����ó��.��d4@����¯”��ü ��@��ì¨@8@��E©@8@��6��.��–©¯@��™©��@��Ý©��@��+ªÀ]@��7ª€%@��5��.��7ª@8@��ñª@Q@��,«0z@��-«ù}@��O«�N@��à��.��O«�i@��S«�2@��S«ð4@��•«�}@��º«@8@��-��.��½«@j@��ò«��@��ò« €@��j¬e;@������(DÂ��.��d4@h��{ÀD(�]d��(�˜:��(�wC^( �E����¯”�‘����÷�����������æ�� ����7 ��������d4@���������ž��,��O«�N; COPYRIGHT 1972 DIGITAL EQUIPMENT CORPORATION ;VERSION NUMBER V08 .TITLE DV.LP .IFNDF CENT .IFNDF LP11 LP11=80. ;DEFAULT TO 80. COLUMN LP-11 .ENDC .ENDC .IFDF LP11 LP.SIZ=LP11 ;NUMBER OF PRINT POSITIONS LP.SK2=12 ;LF -- TRANSLATION OF "SKIP-CH-2" (22) .ENDC .IFDF CENT LP.SIZ=CENT ;NUMBER OF PRINT POSITIONS LP.SK2=13 ;VT -- TRANSLATION OF "SKIP-CH-2" (22) .ENDC .GLOBL LP ;DRIVER FOR LP11 AND CENTRONICS 101 ;CHANGE LINES LP.NAM TO LP.SK2 FOR ;DEVICE DEPENDENT CHARACTER˜:��� S«�2  S«�2*��.��": ���������J���Ø(1H0,6('* '),'FILE E@��,��: S«�2 7ª@8 7ª€%½«@jò«��ØŽ��.��HND BLOCK IS INCORRECT',6(' *')/1X,2(A2º��.��n,A1),'.',A2,A1,'[',O3,',',O3,']'/1X,'S¡��.��”YSTEM THINKS END BLOCK =',I5,'.'/1X,'A ��.��ºCTUAL END BLOCK =',O6/)��K���àu����"½«@j&ò«��(àÜ����à��L�������$������ƒ��*��½«@jS«�2 ˜:���� S«�2$-«ù}½����ò�� ��& ��, ���[��*��S«�2 S«�2 &  S«�2, S«�23��������������Ô��.��7ª@;COPYRIGHT:- DIGITAL EQUIPMENT CORP.,MAYNARD,MASS. ; 1971,1972 ; ;VERSION NO:- V09 ; ; .TITLE DV.MT .GLOBL MT ; ;**************************************************************** ; CAUTION ; THE RELEASE PROCESSOR (EMT007) DIRECTLY REFERENCES THE ; TABLE LABELLED 'GTABLE:'. THEREFORE, ABSOLUTELY NO ; MODIFICATIONS MAY BE MADE WHICH WILL ALTER THE RELATIVE ; DISTANCE BETWEEN THE LABELS 'MT:' AND 'GTABLE:' ; 28-NOV-72 ;***********************************************************ñª@Q½«@jS«�2 ˜:����S«�2–��.���*��������������b�(1H1,6('* '),'LISTINß��&��*�-«ù} 7ª€%½«@jò«��b�r��.��>�G OF HOLES AND NEIGHBORS',6(' *')//)��L�� ��(½«@j³����d� �������~���������÷��*��S«�2 ˜:���� S«�2 ~�-«ù}7ª€%ñ��.��v��� ���Î�(1X,'HOLE SIZE',2X,'OCTAL ADDR����½«@jò«�� Î�M��.��œ�ESS',2X,'# OF BLOCKS IN ','USE ABOVE T"����Â�HIS HOLE'/)|� ���Î�����Î��� �êö������ ���.��½«@jê ö º«@8O«�i½«@j����â����� �þ����ISTICS LP: .WORD 0 ;CURRENT DDB PTR .BYTE 322 ;FACILITIES INDICATOR .BYTE 0 .BYTE <LP.SIZ+31.>/32.;NO. BUF UNITS/BUFFER MCO #D16 ;(ALLOWS 96 BYTES/TRAN) .BYTE LP.INT-LP ;INTERRUPT ENTRY .BYTE 200 ;INT STATUS (PRI=4) .BYTE LP.OPN-LP ;OPEN ENTRY .BYTE LP.TRN-LP ;TRAN ENTRY .BYTE LP.CLS-LP ;CLOSE ENTRY .BYTE 0,0 ;SPECIAL,SPARE LP.NAM: .RAD50 /LP/ ;DEVICE NAME LP.CSR=177514 ;CSR ADDR LP.TRP=200 ;TRAP VEC ADDR ;FOR LP11, USE 12(LF) ;FOR CENTRONICS, USE 13(VT) LP.S«�2 ˜:��� S«�2 ˜:���S«�2����ö �� ���������M�l��,��ö S«�2  S«�27ª@87ª€%½«@j��.�� �� (1H0,6('* '),'FILE GROSSLY EXCEEDSˆ����ò«�� &��.��F LENGTH',6(' *')/1X,2(A2,A1),'.',A2,A1Ï��.��l,'[',O3,',',O3,']'/1X,'SYSTEM THINKS L_��.��’ENGTH =',I5,'.'/1X,'SYSTEM THINKS END ð��.��¸ =',O6/1X,'THIS MESSAGE PRINTED IF 2ú��.��Þ*LENGTH BLOCKS'/1X,'ARE ENCOUNTERED BE��.�� FORE THE END')��N���àæ��\���P��P��.��½«@jò«��à{ÀD�� µW@�� &µW@�***** .CSECT R0=%0 ;DDB PTR R1=%1 ;LCMMD PTR R2=%2 ;CMMD REG R3=%3 ;SP FUNC BLOCK PTR R4=%4 ; R5=%5 ;SCRATCH SP=%6 PC=%7 ; ; ; MTS=172520 ;TM11 STATUS MTC=172522 ;TM11 COMMAND MTBRC=172524 ;TM11 BYTE/RECORD COUNTER MTCMA=172526 ;TM11 CORE MEMORY ADDRESS MTD=172530 ;TM11 DATA BUFFER MTRD=172532 ;TM11 READ LINES ; PS=177776 ;PROCESSOR STATUS ; ; ;MTS BITS ; ILC=100000 EOF=40000 CRE=20000 PAE=10000 BGL=4000 EOT=2000 RLE=1000 BTE=400 NXM=200 SELR=100 BOT=40 CH79=20 SDWN�¤��.��O«�i½«@j þO«�i½«@j4����ö���$���þ��&���r��.��O«�i$½«@j þO«�i&½«@j���� ��.�����0���þ5��.��O«�i.½«@j O«�i0½«@jþö����ö����8�����@1��.��öì¨@8O«�i 8 ½«@jO«�i@�����0���ö��B���2ö����.��½«@jö O«�i B½«@j2öº«@8‡����D��8���Nw ��87 ��ü��*��O«�i8½«@j Nü ��8O«�NÝ����Z��ö������j��(��,��S«ð4öE©@8 ™©�� ò« €jò«��Š�LIN: .WORD 0 ;# CHARS SENT FOR THIS LINE LP.BKS: .WORD 0 ;BLANK COUNTER BTCT: .WORD 0 ;TRAN CHAR COUNT (COMPL) BUFAD: .WORD 0 ;BUF PTR ;REGISTER DEFINITIONS R0=%0 R1=%1 R2=%2 R3=%3 R4=%4 R5=%5 SP=%6 PC=%7 LP.FRM: .BYTE 15,14 ;CR,FF ;OPEN AND CLOSE LP.OPN:LP.CLS: JSR PC,LP.STS ;SIM INT ADD #LP.FRM-.,R1 ;R1=PC BY LP.STS MOV R1,BUFAD ;ADDR OF CR,FF MOV R2,BTCT ;R2=-2 BY LP.STS BR LP.INT ;TRAN LP.TRN: JSR PC,LP.STS ;SIM INT MOV LP,R0 ;DDB ADDR MOV 6(R0),BUFAD ;SAV÷��*��* ��P� �P��P� �P��P�æ¢��.�� µW@� µW@ � µW@� µW@ � 4„���‚��&��L ��\�æ�\�æ�\�æ��\��P�æ¨��.��kÀv�� kÀv�kÀv�ô&@�� ô&@�3��.��j �\�æ �\�æ��\�æ�\�æ�\�æ�\��æ��.��˜:��� ˜:�� �…� &��…� &�…� &�e��.��� �\���æ �\� �����æ��\���æ�\��æ�·��.��¶ \��æ�\�� ����æ�\���æ�\���æ�r��.��Ü \���æ�\��æ�\���æ�\���æ�\��æ��.�� �\���æ�\������æL \�L ����æC \�C ±��(��( ����æ�\���æ�\�����æDT\�DT��=10 WRL=4 RWS=2 TUR=1 DENB=140 PARB=10 ; ;MTC BITS ; ERR=100000 DEN=60000 POWR=10000 PAR=4000 UNIT=3400 CUR=200 INT=100 ADEX=60 CMMD=16 GOB=1 ; ;MTRD BIT ; GAPSDN=10000 ; ;COMMANDS ; RWU=0 READ=1 WRITE=2 EOFM=3 RWD=4 SKPR=5 BSPR=6 ; ; ; ;THIS IS THE DEVICE DRIVER FOR THE TM11/TU10 ; MT: .WORD 0 ;BUSY INDICATOR .BYTE 177 ;ALL GENERAL STRUCTURE EXCEPT OPEN .BYTE 40 ;SPECIAL STRUCTURE = MAG TAPE .BYTE 20 ;BUFFER SIZE = 512 BYTES .BYTE INTJ-MT ;INTERRUPT HAND ���h˜���ö����������.��˜½«@j  öì¨@8O«�i½«@j����|2�����ö����ß��.��2O«�i ½«@jöì¨@8O«�i����Ž$�����H��������.��$½«@j ò«�� H½«@jE©@8•����¢����¬��:�����<��,��™©��ò« €¬ ò«�� :½«@jS«�2H����²����Ú��������$��-��.�� ˜:����S«�2Ú -«ù}S«�2$S«�2²����Ä��@����������›��,��S«�2@ S«�27ª@87ª€%½«@jÄ��'��Ö��ö(4X,I5,'.',9X,O6,31X,I5'.')\���ò«��ö!E BUF ADDR MOV 10(R0),BTCT ;DDB WORD COUNT ASL BTCT ;CHANGE TO BYTES ;INTERRUPT LP.INT: LP.DIS: BIC #100,@#LP.CSR ;DISABLE TST @#LP.CSR ;ERROR TEST BMI LP.ERR ;NO ERROR,SO CONTINUE MOV R2,-(SP) MOV R1,-(SP) MOV LP.LIN,-(SP) TST BTCT ;CURRENT BYTE RESIDUE BEQ LP.DNE ;DONE (NO MORE) MOV BUFAD,R2 ;CURRENT BUF ADDR LP.LOP: ;MAIN LOOP MOVB (R2)+,R1 ;NEXT CHAR BEQ LP.DNP ;SKIP IF NULL LP.LPB: ;NOTE: THE NEXT FOUR INTRUCTIONS MAY BE DELETED, ; IF TRAILING SPACE SUPP��Y����ó���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������#LER .BYTE 240 ;PRIO FOR INTERRUPT SERVICE .BYTE 0 ;NO OPEN ENTRY .BYTE TRANS-MT ;TRANSFER ENTRY .BYTE CLOSJ-MT ;CLOSE ENTRY .BYTE SPECJ-MT ;SPECIAL FUNCTION ENTRY .BYTE 0 MT.NAM: .RAD50 /MT / ; OPNFLG: .BYTE 0,0,0,0,0,0,0,0 ;SET BY OPEN ROUTINE,CLEARED BY CLOSE LCMMD: .BYTE -1,-1,-1,-1,-1,-1,-1,-1 ;1 BYTE FOR EACH DEVICE .BYTE 0,0,0,0,0,0,0,0 ;DEN/PAR FOR EACH DEVICE OFFSET=GTABLE-LCMMD ;DISPLACEMENT GTABLE: .BYTE 0,0,0,0,0,0,0,0 ;UNIT REWIND GOVERNING INTRET: .WORD 0 ;ADDR FOR$�öG����ö���(������ w��*��½«@j(  E©@8Ý©��ò« € õ�����������.�� ���.��ò«��½«@j O«�i.½«@j®������0��!���$��"�ö&��.��O«�i0½«@j O«�i$½«@jö����.��@��#���H��$�:ö§��.��O«�i@½«@j ò«��H½«@j:öu����B����@��%���üB&Ê��.��ì¨@8O«�i@ ½«@j–©¯üB&*����T:��&�������„������£��.��:½«@j S«�2 ˜:����S«�2„-«ù}����h��.��0�����ü��*��S«�2.S«%RESSION IS NOT NEEDED -- ; TRAILING TABS WILL STILL BE SUPPRESSED, HOWEVER... CMPB R1,#40 ;BLANK? BNE .+10 INC LP.BKS ;JUST INC BLANK COUNT AND MOVE ON BR LP.TRT CMPB R1,#13 ;VT? BEQ LP.DNP CMPB R1,#22 ;CHANNEL 2? BNE .+6 ;NO MOVB #LP.SK2,R1 ;YES, TRANSLATE CMPB R1,#177 ;RUBOUT? BEQ LP.DNP TSTB @#LP.CSR ;CHECK DEVICE READY BPL LP.STI ;QUIT IF NOT ;DEVICE CAN ACCEPT ANOTHER CHAR ;PROCEED TO CHECK CMPB R1,#11 ;TAB? BEQ LP.PTB ;YES, GO SIMULATE IT BLO LP.CLO ;NOT A&;COPYRIGHT 1971,1972 DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ;VERSION NUMBER: V003.1 10-NOV-72 ; REVISED TO PROVIDE FOR FILLER CHARS. IF ; TERMINAL NON-STANDARD ; .TITLE DV.KB ;DRIVER FOR TELETYPE MODEL ASR33 NOV 70 ; ;CONSIDERS TELETYPE AS 2 DEVICES:- ; A) KEYBOARD & PRINTER TERMINAL ("KB") ; B) PAPER TAPE READER/PUNCH ("TT") ; ;KB INPUT WILL BE ACCEPTED AND BUFFERED INTERNALLY, ; INDEPENDENTLY OF PROGRAM REQUESTS FOR DATA, AS ; LONG AS SPACE REMAINS. DATA WILL BE PASSED TO THE PROGRAM' RET FROM INT HANDLER TCMMD: .BYTE 0 ;LAST CMMD SAVE LOCN FOR ERR RECOVERY ERRSW: .BYTE 0 ;SET BY ERR RECOVERY IF NOT RECOVERED RETRY: .WORD 0 ;RETRY COUNT FOR ERROR RECOVERY TRYCNT: .WORD -15. ;INITIAL RETRY COUNT LASTAT: .WORD 0 ;ADDR IN LCMMD VECTOR FOR INT HANDLER CMA: .WORD 0 BRC: .WORD 0 INTENB: .BYTE 0 ; .EVEN INIT: MOV 12(R0),R1 ;GET UNIT NUM BIC #174377,R1 ;CLR EXTRA BITS MOV R1,@#MTC SWAB R1 ADD PC,R1 ADD #LCMMD-.,R1 ;ADDR IN LAST CMMD VECTOR MOV (SP)+,R4 ;SAVE RETU(�2 0 S«�2S«�2E��.��x������'���ä(1H0,' BIGGEST HOLE SIZE =þ��"��7ª@87ª€%½«@j ò«��ä0��.��ž ',I5,'.',' ADDRESS = ',O6,'(OCTAL)'/'3��'��Ä TOTAL FREE BLOCKS = ',I5,'.'/)ý� ���ä��.��ä��(���æ�\��P�æ�\��æ�\���æ��S��"��½«@j•«�} {ÀD� ]d���c��.�� \���æ�\���æ�\���æ�\�����æ�\���á����0��æ�\���æ�\�����ë����ó��.��ü ������¯”��œS��@��ì¨@8@��ö¨@8@��Ž��.��E©@8@��v©@8@��Ý©�‚@��ì©��@��+ªÀ]@��ð��.��7ª€%@��7ª@8@��ñª@Q@��õª��@) TERMINATOR EITHER CMPB R1,#15 ;CR,FF,VT,LF? BHI LP.CLO ;NO BEQ LP.RSC ;TREAT CR SPECIALLY ;GUARANTEE CR BEFORE TERMINATORS LP.TRM: TST @SP ;AT BEGINNING OF LINE? BEQ LP.RSB ;YES ;NO, FORCE CR DEC R2 DEC BTCT MOVB #15,R1 LP.RSC: ;RESET COUNTS CLR @SP ;NEW LINE BR LP.RSB LP.CLO: ;CHECK LINE OVERFLOW CMP @SP,#LP.SIZ BGE LP.DNP ;SKIP IF FULL INC @SP ;ELSE COUNT LINE CHARS DEC LP.BKS ;CHECK BLANK COUNT BMI LP.RSB ;GO AHEAD IF NO BLANK COUNT MOVB #40,@#* ; AT MONITOR REQUEST, ONE LINE AT A TIME, WHERE A ; LINE IS DEFINED AS A SET OF CHARACTERS TERMINATING ; AT EACH OCCURENCE OF LINE-FEED, VERTICAL TAB OR ; LINE-FEED. THE LINE WILL ALSO BE ECHOED AT THE ; PRINTER (SUBJECT TO PROGRAM OR OPERATOR CONTROL) ; WHEN TRANSFERRED TO THE PROGRAM. ; DURING PROCESSING, THE FOLLOWING CHARACTERS WILL ; RECEIVE TREATMENT SHOWN:- ; ; ESC (OR ALT MODE) - WILL CAUSE NEXT CHARACTER ; TO LOSE ANY SPECIAL PROPERTIES I.E. AS ; GIVEN BELOW OR AS TERMINATOR ; CTL+RN ADDR MOV (SP)+,R5 ;SAVE ORIGINAL PC MOV @#PS,-(SP) ;SIMULATE INT CALL MOV R5,-(SP) MOV @#44,-(SP) ;SAVE REGS JSR R5,@(SP)+ MOV R4,-(SP) ;RESET CALLING PC MOV R1,LASTAT ;SAVE FOR INT HANDLER JSR PC,READY ;CHECK IF UNIT READY TSTB (R1) ;CHECK IF DEVICE INITIALIZED BPL INITX ;BRANCH IF IS MOVB #DENB,10(R1) ;SET DEFAULT DEN=800,PAR=ODD CLRB (R1) ;CLEAR NON INIT STATE INITX: RTS PC ; INTJ: JMP INTH SPECJ: JMP SPEC CLOSJ: JMP CLOSE ; ; ; ; ; GO: MOV (SP)+,INTRET ;SAVE IN,��,«0z@��Q��.��-«ù}@��O«�N@��O«ðf@��O«�i@��S«�2@����.��S«€4@��S«ð4@��•«�}@��º«˜{@��½«@j@��a��.��Ϋ�d@��ò«��@��ò« €@��j¬e;@������(Xå��&��ü ��h��]d��(�õ_Àv( �¯”�C����÷�����������æ��"����7 ��������ü �����&��.'��*��O«�Nñª@Q½«@j&v©@8.¾���������<������2�,�w £��*��ì¨@8O«�i< ½«@jΫ�d2�,�}����.�����,7 ����.������,��œS�� ,O«�NS«ð4.ì¨@8O«�i3����B�D���>�� ����L§��.��D½«@j > º«˜{ -LP.CSR+2 ;OTHERWISE, PUT OUT A BLANK BR LP.LPB ;AND TRY AGAIN LP.RSB: CLR LP.BKS ;SHOW NO BLANKS WAITING FOR PRINT LP.TBF: MOVB R1,@#LP.CSR+2 ;OUTPUT CHAR LP.DNP: LP.TRT: INC BTCT ;UPDATE BUF RESIDUE BNE LP.LOP ;MORE? ;DONE FOR NOW TSTB @#LP.CSR ;DEV BUSY? BPL LP.STJ ;YES LP.DNE: ;NO, SO NO INTERRUPT MOV (SP)+,LP.LIN ;RESTORE TEMPORARIES MOV (SP)+,R1 MOV (SP)+,R2 MOV @#S.RSV,-(SP) JSR R5,@(SP)+ ;SAVE REGS MOV LP,R0 ;DDB PTR JMP @14(R0) ;DDB COMPLETE - EXIT./U - WILL DELETE CURRENT LINE, IF ANY INPUT EXISTS. ; (WILL CAUSE ECHO OF CR-LF ALSO (REV.7/4/71) ; IF NONE, WILL TERMINATE CURRENT LINE OF OUTPUT. ; RUBOUT - WILL ERASE PREVIOUS VALID CHARACTER IN ; THE LINE. IT WILL BE ECHOED:- \(DEL.CHAR.) ; SUCCESSIVE RUBOUTS WILL PRODUCE STRING ; OF DELETED CHARS. (IN REVERSE) BETWEEN ; \...\. IT WILL BE IGNORED IF NO CHARS. ; ARE AVAILABLE FOR DELETION ; RETURN - WILL ECHO RETURN/LINE-FEED (WILL ; THEREFORE ALSO ACT AS TERMINATOR) ; OTHER CHARAC/T RETURN ADDR GOA: MOV CMA,@#MTCMA MOV BRC,@#MTBRC CMPB (R1),#WRITE ;CHECK IF THIS IS A WRITE BNE GO2 ;BRANCH IF NOT GO1: BIT #WRL,@#MTS ;CHECK IF WRITE LOCK ON BEQ GO2 ;BRANCH IF NOT JSR PC,READY1 ;ISSUE ACTION MSG BR GO1 ;GO TEST IF LOCK STILL ON GO2: JSR PC,READY ;CHECK IF DEVICE READY BISB 10(R1),@#MTC+1 ;SET DEN AND PAR BIS #INT+GOB,R2 ;SET INT ENB AND GO BITS BIC #010200,R2 ;INSURE BIT 12 STAYS RESET MOVB R2,@#MTC ;ISSUE INSTRUCTION GO3: MOV @#46,-(SP) ;RESTORE REGS JSR0Ý©�‚O«�iLv����T����6������h�Ô��*��½«@j6  E©@8ì©��ò« €h�Š����d���œ��� �6����F@��.��ò«��œ�½«@j 6º«˜{Ý©�‚Fû����v����� �� �N����*��ö¨@8O«�i  ½«@jNE©@8&����†�����’�.�� �� �|��.��õª��ò« €’� . O«�i ½«@jU����˜������� ���V��Â�'��,��O«ðf•«�}½«@j S«�2VS«�2Â�Ý����¨������������������� �&��*��-«ù} S«€4S«�27ª@87ª€%½«@jL��.��¾���ü�(6(2H* ),' INDEX OUT OF RANGE IN "c����1 ; LP.STI: DEC R2 ;SET TO RESCAN BYTE LP.STJ: MOV (SP)+,LP.LIN ;SAVE COUNTS FOR INTERRUPT MOV R2,BUFAD MOV (SP)+,R1 ;RESTORE REGS MOV (SP)+,R2 BIS #100,@#LP.CSR ;ALLOW INTERRUPT RTI ;RETURN TO USER LP.ERR: ;ERROR ON DEVICE MOV LP.NAM,-(SP) ;SHOW DEVC NAME MOV #402,-(SP) ;GIVE 1-2 ERR CODE IOT BR LP.DIS ;TRY AGAIN ; ;INTERRUPT SIMULATOR LP.STS: MOV (SP)+,R1 ;RTN PC MOV (SP),-(SP) ;OLD PC CLR R2 ;ADDRESS PS (-2) MOV -(R2),2(SP) ;OLD STATUS MOV @#LP.TRP+2,(R2) ;NEW ST2TERS MAY PRODUCE SPECIAL ECHO (SEE ; KB OUTPUT BELOW) ; ;KB OUTPUT WILL ALSO BE EFFECTED ON A LINE-BY LINE ; BASIS. THE FOLLOWING CHARS. WILL BE ECHOED AS ; SHOWN:- ; ; ALL CTL CHARS. (OTHER THAN THOSE FOR FORM CONTROL ; WILL APPEAR:- ^(CORR. CHAR.) ; HORIZONTAL TAB WILL BE REPLACED BY SPACES ON ; A MODULO-8 BASIS. ; FORM-FEED WILL BE REPLACED BY LINE-FEEDS ON A ; MODULO-8 BASIS. ; VERTICAL TAB, RUBOUT (IF NOT RESULT OF KEYBOARD ECHO) ; & NULL WILL BE IGNORED. ; N.B. ECHO WILL OCCUR 3 R5,@(SP)+ RTI ;RETURN TO INTERRUPT ; ; READY1: MOV MT.NAM,-(SP) ;ISSUE ACTION DIAG - MOV #402,-(SP) ;DEVICE NOT READY IOT READY: BIT #SELR,@#MTS ;TEST IF DEVICE READY BEQ READY1 ;BRANCH IF NOT BIT #GAPSDN,@#MTRD BNE READYX BIT #TUR+RWS+SDWN,@#MTS BEQ READY1 READYX: RTS PC ;RETURN TO CALLER ; ; ; TRANS: JSR PC,INIT ;INIT CHECK DEVICE MOV 6(R0),CMA ;SET BUFF ADDR MOV 10(R0),BRC ;SET WORD COUNT ASL BRC ;CVT TO BYTE COUNT MOV 12(R0),R2 BIC #177713,R2 ;CLR ALL BUT READ4ò«��ü�E��.��ä�BIT", BLK = ',O66(2H* ))�������æ�á����½«@j "O«ðf$•«�}0��.�� \���f�\�æ��\��P���P�æ�\��æü����]d���� ]d��� õ_Àv��i��.��0�\��æ�\���æ�\���æ�\���æ��\���Å�� ��V��›����ó��.��j˜������¯”��ö¨@8@��ñª@Q@��«@8@��=��.��*«@8@��,«0z@��O«�N@��O«ðf@��O«�i@��³��.��•«�}@��½«@j@������(z�j˜��h��¯”� ����÷�����������æ��"����7 ��������j˜�����V�\�����ã��,��O«�Nñª@Q½«@jV�\�*«@8O«�iU�����h����V�\�������ATUS MOV R1,PC ;RETURN ; ;TAB SIMULATOR LP.PTB: MOV @SP,-(SP) ;CURRENT LINE POSITION ADD LP.BKS,@SP ;+ACCUMULATED BLANKS BIS #177770,@SP ;MOD(X,8)-8 SUB (SP)+,LP.BKS ;ADD 1 TO 8 BLANKS BR LP.TRT ;MOVE ON S.STAT=177776 ;PS ADDR S.RSV=44 ;ADDR OF REGSAVE ROUTINE .END LP ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������6ALSO IF APPROPRIATE CHAR APPEARS ; WITHIN DELETE STRING ON INPUT. ;TT INPUT AND OUTPUT WILL BE PASSED DIRECTLY TO OR FROM ; THE PROGRAM, AT MONITOR REQUEST ONLY, AND IT ; WILL NOT BE PROCESSED IN ANY WAY, (INCLUDING NO ; INPUT ECHO). ; NEITHER WILL BE ALLOWED TO PROCEED WHILE ; THE CORRESPONDING KB COMPONENT IS ACTIVELY ; ENGAGED VIZ. KEYBOARD WAITING INPUT TO SATISFY ; A MONITOR REQUEST OR PRINTER IN THE MIDDLE OF ; OUTPUT FROM MONITOR OR LINE OF INPUT ECHO.(& VICE ; VERSA). ; HOWEVER IN ORD7 AND ADDR EXT BITS BIT #4,R2 ;CHECK INPUT/OUTPUT BEQ TRANO ;BRANCH IF OUTPUT MOVB #READ,(R1) ;SET LAST CMMDSREAD SUB #2,R2 ;SET UP READ CMMD BR TRAN2 TRANO: BIT #EOT,@#MTS ;CHECK IF AT EOT BEQ TRAN1 ;BRANCH IF NOT MOV 10(R0),16(R0) ;RETURN WORD COUNT TRAN7: BR SIMCOM ;REJECT CMMD - EXIT TRAN1: MOVB #WRITE,(R1) ;SET LAST CMMD S WRITE ADD #4,R2 ;SET UP WRITE CMMD TRAN2: JSR PC,GO ;GO INITIATE I/O MOV @#MTBRC,R2 CMPB (R1),#READ ;COME HERE AFTER INT ERR CHK BNE TRAN6 ;BRANCH ��p����3��.��h�½«@j V� \�ö¨@8O«�ip�½«@j6����.�j�����x����b�r���ø��.��j�«@8O«�i x� ½«@jb�r�ö¨@8û��.��@���T����N�����æ�\���f�\�f�\�æ�·��&��O«�iT�½«@j N�O«ðf•«�}k����f�\���æ�\���æ�\���\����ó�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������9 MPAR  ;NOT NECESSARILY BR IOGEN MPAR: CMPB R2,#',  ;CHECK FOR COMMA BEQ IOGEN  ;JUMP IF OK TRAP+70.  ;GIVE MISSING PAREN ERROR BR IO013 ; EDERR: TRAP+117.  ;NO BUFFER ADDRESS BR IO013  ;PUNT ; EDCOD: JSR PC,NXTCH ;GET A CHARACTER CMPB R2,#',  ;IS THERE A COMMA PRESENT? BNE EDERR  ;NO, OOPS JSR PC,GET  ;GET THE ARRAY DESCRIPTOR CMP R3,#1  ;IS IT AN ARRAY?? BNE EDERR  ;NO JSR PC,PVAR ;YES, GO OUTPUT THE MESS BR IO016  ;AND:ER THAT BOTH READER & PUNCH MAY BE ; CONCURRENTLY IN USE THE ROUTINES TO HANDLE THESE ; DEVICES WILL MAINTAIN THEIR OWN INDICATORS OF ; THEIR STATE OF READINESS FOR USE AND WILL CAUSE ; TT ALWAYS TO APPEAR IDLE TO THE MONITOR(THEY ; WILL ALSO SCREAM IF THE PROGRAM TRIES TO MAKE ; THEM DO MORE THAN ONE TASK AT A TIME!!!!) ; THE DRIVER HAS NO MEANS OF KNOWING WHEN THE READER ; OR PUNCH IS PHYSICALLY 'IN GEAR'. THE USING ; PROGRAM MUST THEREFORE TAKE THE RESPONSIBILITY ; FOR NOTIFYING THE OPERATOR;IF NOT READ BIT #EOF,@#MTS ;IF EOF, SET INIT CNT IN RESIDUE BEQ TRAN6 MOV BRC,R2 TRAN6: ASR R2 ;CHECK IF ODD BYTES SHORT REC BCC TRAN3 ;BRANCH IF NOT MOV @#MTCMA,R5 ;PUT NULL IN NEXT BUFF POS CLRB (R5) INC R2 ;ROUND UP WORD COUNT TRAN3: BEQ .+6 ;BRANCH IF NO RESIDUE BIS #100000,R2 ;INSURE NEG WORD COUNT BIT #RLE,@#MTS ;CHECK IF LENGTH ERROR BEQ TRAN4 ;BRANCH IF NOT INCB ERRSW TRAN4: MOV R2,16(R0) ;RETURN RESIDUE WORD COUNT TRANX: TSTB ERRSW ;BRANCH IF NO ERRORS BEQ TRAN5 <R5,LSTLIN .WORD ADDR .ENDM .MACRO SERROR NUMBER JSR R5,SERROR .WORD 2000!NUMBER .ENDM .MACRO ERROR ARG ; SERROR <''ARG> BIS #ERR.'ARG,ERRBTS .ENDM ERRMNE: XXX= 000001 .IRPC CHAR, ABEMNOPQRTU ERR.'CHAR= XXX XXX= XXX*2 .ASCII /CHAR/ .ENDM .EVEN .MACRO SETNZ ADDR ;SET ADDR TO NON-ZERO FOR T/F FLAGS MOV SP,ADDR .ENDM .MACRO INIT FILE ;INIT A FILE MOV #FILE'CSI,R4 CALL INIT .ENDM .MACRO OPENO FILE ;OPE= CONTINUE ������������������������ ; ; UPON ENTRY TO IOGEN, R2 WILL CONTAIN EITHER A COMMA OR A ; RIGHT PAREN. IF A COMMA, THE END AND ERR CONDITIONS ; MUST BE CHECKED, IF A RIGHT PAREN, END AND ERR ARE NULL. ; ; THE TOP OF THE STACK IS: ; -1 IF RANDOM ACCESS ;  0 IF UNFORMATTED ; +1 IF FORMATTED ; ; THE SECOND ITEM OF THE STACK IS: ; -1 IF FIND ;  0 IF READ ; +1 IF WRITE ; +4 IF ENCODE ; +5 IF DECODE ; IOG06: BISB BITM+5,MISC+4 ;SET ENCODE FLAG MOV #P8,R4  ;GET ADD> OF ITS REQUIREMENTS ; IN THIS RESPECT. ; ;FOR BOTH TT AND KB, THE USER MUST USE A MONITOR KEYBOARD ; CALL TO INDICATE END OF AVAILABLE DATA. ; ;N.B. 1) IN USE FLAGS OPERATE AS FOLLOWS:- ; ; TT.ISW & TT.OSW:= WHEN IN USE CONTAIN ADDRESS ; OF DDB FOR DATASET UNDER SERVICE. ; IF ACTUALLY UNDERWAY, THIS WILL ; APPEAR AS A POSITIVE VALUE. IT ; WILL BE NEGATED IF THAT SERVICE ; MUST WAIT FOR KB TO RELEASE ; APPROPRIATE DEVICE. ; KB.ISW:= WILL BE SET ONLY IF INPUT ; NEED? BIS #100000,12(R0) ;SET ERR BIT TRAN5: BR TRAN7 ;TAKE DONE EXIT ; SIMCOM: CLRB ERRSW ;CLEAR ERROR SWITCH TSTB INTENB ;BRANCH IF INT RET BNE MTEXIT TSTB -3(R0) ;BRANCH IF CALLED FROM QUEUE BNE MTEXIT ADD #20,SP ;REMOVE PC,PS AND REGS MTEXIT: CLRB INTENB JMP @14(R0) ;COMPLETION EXIT ; ; SPEC: JSR PC,INIT ;INIT CHECK DEVICE MOV 2(R0),R3 ;GET FUNC BLOCK ADDR MOVB (R3),R5 ;GET FUNC BYTE SUB #SPFST,R5 BMI TRAN5 ;BRANCH OUT IF NOT CMP #SPLST,R5 ;SUPPORTED FUNCTION BLO TRA@N AN OUTPUT FILE MOV #FILE'CSI,R4 CALL OPENO .ENDM ������������������������ .SBTTL PARAMETERS TAB= 11 LF= 12 VT= 13 FF= 14 CR= 15 SPACE= 40 CH.IOR= '! CH.QTM= '" CH.HSH= '# CH.DOL= '$ CH.PCT= '% CH.AND= '& CH.XCL= '' CH.LP= '( CH.RP= ') CH.MUL= '* CH.ADD= '+ CH.COM= ', CH.SUB= '- CH.DOT= '. CH.DIV= '/ CH.COL= ': CH.SMC= '; CH.LAB= '< CH.EQU= '= CH.RAB= '> CH.QM= '? CH.IND= '@ CH.UAR= '^ ������������������������DEFFLG= 00ARESS OF ENCODE STRING BR IOG6B IOG6A: BISB BITM+6,MISC+4 ;SET DECODE FLAG MOV #P9,R4  ;GET ADDRESS OF DECODE STRING IOG6B: JSR PC,PUTNAM ;GET THE NAME BITB BITM-4(R5),MISC+5 ;DO WE ALREADY HAVE IT? BNE IOG03  ;YES BISB BITM-4(R5),MISC+5 ;NO, BUT SET IT FOUND BR IOG06C  ;AND OUTPUT THE REST OF IT ; IOGEN: MOV 2(SP),R5 ;GET THE I/O TYPE BLT IOG04  ;SKIP IF FIND BGT IOG05  ;IT IS A WRITE BISB BITM+0,MISC+4 ;SET THE READ GLOBAL BR IOG04 IOG05: BED BY THE PROGRAM IS NOT ; IMMEDIATELY AVAILABLE. WILL ; CONTAIN PTR TO LAST CHAR. IN ; ECHO SCAN. ; KB.OSW:= WILL BE SET TO 1 WHILE ; PRINTER IS OPERATING ON OUTPUT ; & NEGATIVELY DURING INPUT ECHO. ; IN LATTER CASE REMAINS SET UNTIL ; LINE TERMINATOR HAS BEEN DESPATCHED ; ; 2) ON ENTRY FROM MONITOR, BOTH TT & KB EXPECT ; R0 SET TO DDB ADDRESS & R5 TO THAT OF ; PROCESSOR STATUS REGISTER (AS CURRENTLY ; PROVIDED BY S.CDB) .GLOBL KB ;REGISTER ASSIGNMENTS: R0=%0 R1=%1CN5 CMPB #3,1(R3) ;CHECK IF VALID FUNC BLOCK BHI ABORT ;ABORT IF NOT ASL R5 ADD PC,R5 ADD #SPECT-.,R5 JMP @R5 ;GO TO PROPER SP FUNC ROUTINE ; ; SPFST=1 SPLST=8. ; SPECT: BR OFFLIN BR WEOF BR RWND BR SKP BR BSP BR PARDEN BR TUSTAT BR TRAN5 ;8 UNIMPLEMENTED (RESERVED) BR GOVERN ; ; ABORT: MOV R3,-(SP) ;ISSUE SP FUNC BLOCK BAD ABORT MOV #1433,-(SP) ;WITH ADDR OF SP FUNC BLOCK IOT ; OFFLIN: JSR PC,EOFCK ;WRITE EOF IF NECESSARY CLRB (R1) ;SET LAST CMMD=OFFLINE D0010 RELFLG= 000040 GLBFLG= 000100 REGFLG= 000001 LBLFLG= 000002 MDFFLG= 000004    ;RLD TYPES RLDT00= 00 ; ABSOLUTE DATA RLDT01= 01 ; INTERNAL RELOCATION  TST #C RLDT02= 02 ; GLOBAL RELOCATION  TST #G RLDT03= 03 ; INTERNAL DISPLACED RELOCATION TST ABS RLDT04= 04 ; GLOBAL DISPLACED RELOCATION TST X RLDT05= 05 ; GLOBAL ADDITIVE RELOCATION TST #X+6 RLDT06= 06 ; GLOBAL ADDITIVE DISPLACED RELOCATION TST #X+6 RLDT07= 07 ; NEW CSECT RLDT10= 10 ; SEQUECMP R5,#4  ;IS IT ENCODE/DECODE? BEQ IOG06  ;YES, DON'T NEED GLOBAL HERE BGT IOG6A BISB BITM+1,MISC+4 ;SET THE WRITE GLOBAL IOG04: INC R5  ;AND MOV R5,R3  ; MULTIPLY ASL R3  ; BY ADD R3,R5  ; THREE MOV @SP,R3  ;GET THE INC R3  ; FORMATTING ADD R3,R5  ;WE NOW HAVE A TABLE INDEX SUB #2,R5  ; WHICH MAY BE USED TO OUTPUT ASCII BPL IOG01  ;FUDGE CLR R5  ; THE FIND INDICATOR IOG01: MOV R5,R3  ;PICK UP A WORD ASL R3  ; INF R2=%2 R3=%3 R4=%4 R5=%5 SP=%6 PC=%7 TKS=177560 TKB=TKS+2 TPS=177564 TPB=TPS+2 ;DESCRIPTION TABLE - TERMINAL DEVICE (KB): KB: .WORD 0 ;BUSY FLAG .BYTE 327 ;FACILITIES: I/O,ASC,M/U,OPN,CLS .BYTE 1 ; ALSO TERMINAL .BYTE 2 ;STD BUFFER = 32 WORDS .BYTE KB.INT-KB ;POINTER TO INT SVCE KB.PSP: .BYTE 200 ;INT SVCE PRIORITY ;ALSO USED AS PRINT SUPPRESS SW. .BYTE KB.OPN-KB ;DESPATCH TABLE TO ROUTINES .BYTE KB.TFR-KB .BYTE KB.CLS-KB .BYTE 0 ;CURRENTLY NO SP. FUNC. .BYTEGMOVB #1,@#MTC ;ISSUE DISABLED RWV BR TUSTAT ;GET STAT AND EXIT RWND: JSR PC,EOFCK ;ISSUE WRITE EOF IF NECESSARY JSR PC,RWNDC ;ISSUE DISABLED RWD BR TUSTAT ;GET STATUS AND EXIT RWNDC: MOVB #RWD,(R1) ;SET LAST CMMD=RWD TSTB OFFSET(R1) ;REWINDS SUPPRESSED? BNE RWNDX ;YES BIT #BOT+RWS,@#MTS ;IS IT REWOUND BNE RWNDX ;YES, BRANCH MOV #16,R2 ;ISSUE RWD JMP GO RWNDX: RTS PC ; EOFCK: CMPB (R1),#WRITE ;IF LAST CMMD WAS WRITE BEQ EOFCK1 ;BRANCH RTS PC ;ELSE RETURN EOFCK1: MOV #6,R2 HENCE BREAK RLDT11= 11 ; LIMIT RLDT15= 15 ; SECTOR ADDITIVE RELOCATION TST #O RLDT16= 16 ;SECTOR ADDITIVE DISPLACED RELOCATION TST #O+6 GSDT00= 00*400  ; OBJECT MODULE NAME GSDT01= 01*400  ; PROGRAM SECTION NAME GSDT02= 02*400  ; INTERNAL SYMBOL TABLE GSDT03= 03*400  ; TRANSFER ADDRESS GSDT04= 04*400  ; SYMBOL DECLARATION GSDT05= 05*400  ; LOCAL SECTION NAME GSDT06= 06*400  ; VERSION IDENTIFICATION BLKT01= 01  ;GSD BLKT02= 02  ; GSD END BLKT03= 03  IDEX TOO MOV IOG02(R3),R4 ;GET ASCII ADDRESS JSR PC,PUTNAM ;GET THE NAME BITB BITM(R5),MISC+2 ;SEE IF WE ALREADY HAD ONE BNE IOG03 BISB BITM(R5),MISC+2 ;SET FOUND BIT IOG06C: JSR PC,OUTGL ;GENERATE THE JSR PC,EOL  ; GLOBAL IOG03: JSR PC,OUTNAM ;NOW OUTPUT THE NAME JSR PC,OUTCOM ;AND CONTINUE TST (SP)+  ;DISCARD TOP OF STACK CMP R2,#')  ;IS THIS A NULL END OR ERR?? BNE IOG07  ;NO JSR R5,OUTLN2 ;YES, OUTPUT A NULL LIST INIT05 IOG14: TST J 0 .RAD50 "KB" ;DESCRIPTION TABLE - PAPER TAPE DEVICE (TT): TT: .WORD 0 ;AS FOR KB (EXCEPT NOT TERMINAL) .BYTE 327 .BYTE 0 .BYTE 1 .BYTE TT.INT-TT TT.EDI: .BYTE 200 ;ALSO USED AS DATA END FLAG .BYTE TT.OPN-TT .BYTE TT.TFR-TT .BYTE TT.CLS-TT .BYTE 0 .BYTE 0 .RAD50 "TT" KB.INT: TT.INT: JMP KT.INT ;COMMON ENTRY TO INT SVCE ;PAPER-TAPE SET-UP ROUTINES: ; 1) OPEN & CLOSE: ; ON OUTPUT REQUEST, OPEN & CLOSE WILL GENERATE ; APPROX. 6 INCHES OF BLANK TAPE AS ; LEADER OR TRAIK ;SET CMMD=WRITE EOF MOV (SP)+,INTRET ;SET INT RET ADDR JMP GO1 ;GO EXECUTE ; WEOF: MOVB #EOFM,(R1) ;SET LAST CMMD JSR PC,EOFCK1 ;GO EXECUTE WRITE EOF BR TUSTAT ;AT INT RET, GET STAT AND EXIT ; ; PARDEN: BIT #CH79,@#MTS ;IF 9 TRACK TAPE BEQ TUSTAT ;BRANCH (IGNORE NEW SETTINGS) MOV 4(R3),R5 ;GET NEW DEN/PAR BIC #176376,R5 ;CLR EXTRA BITS ASRB R5 ;SET INTO PROPER POSITION RORB R5 RORB R5 ROR R5 ROR R5 ROR R5 MOVB R5,10(R1) ;SET NEW DEN/PAR BR TUSTAT ; SKP: MOVB #SKPR,L; TEXT BLOCK BLKT04= 04  ; RLD BLOCK BLKT05= 05  ; ISD BLKT06= 06  ; MODULE END MT.RPT= 177601 MT.IRP= 177602 MT.MAC= 177603 MT.MAX= MT.MAC SRCLEN= 132. OCTLEN= 16. LINLEN= 132. LSTLEN= OCTLEN+LINLEN OBJLEN= 42. RLDLEN= 42. BPMB= 8.*2  ;BYTES PER MACRO BLOCK .IF NDF XFTN STKSIZ= 2000   ;SP SIZE .IFF STKSIZ=3000 .ENDC LPP= 56.   ;LINES PER PAGE    ;DIRECTIVE FLAGS DEFINED IN PST .GLOBL DFLGEV, DFLGDG, DFLCND, DFLRPT, DFLMAC M(SP)+  ;IS IT "FIND"?? BPL LISTPR  ;NO JSR PC,NXTCH ;GET A CHARACTER TST R2  ;IS THIS THE END OF LINE?? BEQ IOG13  ;YES TRAP+12.  ;NO SO GIVE ERROR IOG13: RTS PC BADIO2: TST (SP)+ ;POP JUNK ITEM JMP BADIO1  ;AND CALL REAL ERROR IOG07: MOV #OPTLST,R0 ;CHECK JSR PC,SCAN2A ; FOR END= OR ERR= BVS BADIO2  ;NOT A LEGAL FORM TST R0  ;WAS END= SPECIFIED? BET IOG08  ;NO JSR R5,OUTCH2 ;YES, OUTPUT '. JSR PC,OUTSL ;THE LABEL BVS NLER. ; FOR INPUT, ONLY ACTION WILL BE CLEARANCE OF ; ANY CURRENT END OF DATA INDICATOR. TT.OPN: TT.CLS: JSR R4,TT.DCK ;CHECK TRANSFER DIRECTION BR TT.OPI TT.OPO: CLR R2 ;FOR OUTPUT SET SW. MOVB #-100,R3 ;... & COUNT FOR L/T CODE BR TT.TFO ;JOIN TT.TFO FOR REST TT.OPI: BISB @PC,TT.EDI ;FOR INPUT, CLEAR EOF MARK TSTB -3(R0) ;COME FROM QUEUE? BEQ KT.IXT JSR R4,KT.ISM ;IF SO SIMUL8 INT. BR .+4 ;...TO ALLOW RTN AS REQD. KT.IXT: TST (SP)+ ;IF NOT IGNORE INTERIM RTN MOV 14(R0),PC ;..O(R1) ;SET LAST CMMD=SKP MOV #8.,R2 ;SET CMMD BR SKPBSP ;GO SET COUNT AND EXEC BSP: MOVB #BSPR,(R1) ;SET LAST CMMD=BSP MOV #10.,R2 ;SET CMMD BIT #BOT+RWS,@#MTS ;TEST IF AT BOT BEQ SKPBSP ;BRANCH IF NOT MOV 4(R3),6(R3) ;REJECT CMMD RETURN REC COUNT BR TUSTAT ;SET STATUS AND EXIT SKPBSP: MOV 4(R3),BRC ;SET RECORD COUNT NEG BRC JSR PC,GO ;GO EXECUTE CMMD MOV @#MTBRC,6(R3) ;SET RESIDUE REC COUNT NEG 6(R3) ; TUSTAT: MOVB 10(R1),R2 ;GET DEN/PAR MOVB (R1),R1 ;GET LAST CMMD SWABP������������������������ .SBTTL ROLL DEFINITIONS .MACRO GENROL NAME, BASE, TOP, SIZE .CSECT ROLBAS NAME'ROL= .-ROLBAS .WORD BASE .CSECT ROLTOP .WORD TOP .CSECT ROLSIZ .WORD SIZE*2 .ENDM .CSECT ROLBAS  ;ROLL BASE ROLBAS: .CSECT ROLTOP  ;ROLL TOP ROLTOP: .CSECT ROLSIZ  ;ENTRY SIZE ROLSIZ: .CSECT    ;START OF TABLE TO BE FILLED IN GENROL SYM, 0, 0,4 ;SYMBOL TABLE GENROL MAC, 0, 0,4 ;MACRO ROLL GENROL QIOG09 JSR PC,OUTCOM ;NOW OUTPUT A COMMA JSR PC,NXTCH ;GET THE NEXT CHARACTER CMPB R2,#')  ;IS IT A RIGHT PAREN?? BNE IOG10  ;NO, CHECK FOR COMMA JSR R5,OUTCH2 ;OUTPUT A NULL ERR ENTRY '0 IOG11: JSR PC,EOL  ;AND AN END OF LINE BR IOG14  ;NOW GO HANDLE THE LIST IOG10: CMPB R2,#',  ;IS THERE A COMMA?? BNE IOG09  ;NO MOV #OPTLST,R0 ;CHECK FOR ERR= JSR PC,SCAN0A ; NOW BVS IOG09  ;IT IS NOT THERE TST R0  ;IS IT ERR= ?? BEQ IOG09  R.& SHOW ACTION DONE ; 2) NORMAL TRANSFER: ; THIS ROUTINE MERELY SETS UP TRANSFER CONTROLS ; AS PASSED BY MONITOR IN ASSOCIATED ; DDB AND THEN USES INTERRUPT ROUTINES ; TO INITIATE TRANSFER REQUIRED, ; PROVIDED ALWAYS THAT THE CORRESPONDING KB ; COMPONENT IS NOT ALREADY IN USE. TT.TFR: JSR R4,TT.DCK ;CHECK TRANSFER DIRECTION BR TT.TFI TT.TFO: JSR R1,TT.OIC ;FOR OUTPUT SET-UP FOLLOWING:- TT.OSW: .WORD 0 ;USING DDB IF BUSY, NEG IF WAITING TT.OCT: .WORD 0 ;BYTE COUNT FOR TRANSFER TT.OBPS R2 BIS R2,R1 ;SET DEN AND PAR MOV @#MTS,R2 BIT #CRE+PAE+RLE,R2 ;TEST STATUS FOR ERROR BEQ STAT1 ;BRANCH IF NONE BIS #100000,R1 ;SET ERR BIT STAT1: BIT #EOT,R2 ;TEST IF EOT BEQ STAT2 ;BRANCH IF NOT BIS #1000,R1 ;SET EOT BIT STAT2: BIT #BOT+RWS,R2 ;TEST IF AT BOT BEQ STAT3 ;BRANCH IF NOT BIS #400,R1 ;SET BOT BIT STAT3: BIT #EOF,R2 ;TEST IF EOF BEQ STAT4 ;BRANCH IF NOT BIS #200,R1 ;SET EOF BIT STAT4: BIC #177753,R2 ;CLEAR ALL BUT WRL AND 79CH BITS SWAB R2 BIS R2,R1 ;STLSY, 0, 0,4 ;LOCAL SYMBOL ROLL GENROL SEC, 0, 0,5 ;SECTION ROLL GENROL COD, 0, 0,4 ;CODE ROLL GENROL DMA, 0, 0,2 ;DUMMY ARGUMENT ROLL GENROL END, 0, 0,4 ;END ROLL GENROL DUM, 0, 0,0 ;DUMMY (SEPARATES VARIABLE FROM FIXED) .IF NDF XFTN GENROL CND,CNDBAS,CNDTOP,2 ;CONDITIONAL ARGUMENTS GENROL CSI,CSIBAS,CSITOP,2 ;COMMAND STRING SWITCHES GENROL LCD,LCTBAS,LCTTOP,1 ;LISTING COLTROL .ENDC GENROL PST,PSTBAS,PU;NO, IS NOT IOG12: JSR R5,OUTCH2 ;QO OUTPUT '. JSR PC,OUTSL ; THE LABEL BVS IOG09  ;ALL IS GOODNESS NOW JSR PC,NXTCH ;GET A CHARACTER CMPB R2,#')  ;MAKE SURE IT IS A RIGHT PAREN BEQ IOG11  ;IT IS IOG09: TRAP+71.  ;ILLEGAL END= AND/OR ERR= TST (SP)+ }RTS PC  ;NOW RETURN R.R.M. IOG08: JSR R5,OUTCH2 '0 JSR PC,OUTCOM BR IOG12 ������������������������������������������ .GLOBL IOL,ARY001,LIST11,STKCNT .GLOBL OUTOCT,LQTMOD,COUNT,DONUM,IOL ;V: .WORD 0 ;CURRENT BUFFER POINTER KB.OSW: .WORD 0 ;KBO BUSY FLAG .WORD KT.OST-TT.OIX ;ENTRY IF PUNCH IMMEDIATE ;IF PRINT BUSY EXITS TO MONITOR TT.TFI: DEC R2 ;ADJUST POINTER FOR START ... JSR R1,TT.OIC ;OTHERWISE SIMILAR FOR INPUT TT.ISW: .WORD 0 TT.ICT: .WORD 0 TT.IBP: .WORD 0 KB.ISW: .WORD 0 .WORD TT.ISE-TT.OIX ;TERMINAL ROUTINES FOR SIMILAR SET-UP: ; 1) OPEN & CLOSE: ; THIS ROUTINE CAUSES CARRIAGE RESTORE IF OUTPUT ; IS TO FOLLOW; FOR INPUT, IT WILL ; MERELY CLEAR ANY CURRWET WRL AND 7,9 TRACK MOV R1,2(R3) ;RETURN STATUS BR COMJ ;EXIT GOVERN: JSR PC, EOFCK MOVB 4(R3), OFFSET(R1) BR TUSTAT ; ; ; CLOSE: JSR PC,INIT ;INIT CHECK ON DEVICE CLRB -10(R1) ;CLEAR OPEN FLAG JSR PC,EOFCK ;IF LAST CMMD WAS WRITE, WRITE 3 EOFS JSR PC,EOFCK JSR PC,EOFCK TSTB OFFSET(R1) ;REWINDS SUPPRESSED? BEQ CLOSE3 ;NO ; ; ISSUE 2 BSPS INSTEAD OF RWD IF OUTPUT ; OR SKIP TO END OF FILE IF INPUT ; CMPB (R1),#WRITE ;IF LAST CMMD WAS WRITE BNE CLOSE1 MOV #10.,R2 ;ISSXSTTOP,4 ;PERMANENT SYMBOL TABLE .CSECT IMPURE MACTOP: .BLKW   ;TOP OF MACRO STORAGE ROLNDX: .BLKW   ;ROLL INDEX ROLPNT: .BLKW   ;RMLL POINTER ROLUPD: .BLKW   ;UPDATE IF NON-ZERO .CSECT ���������������������������������� .CSECT IMPURE PASS: ,BLKW    ;NEXT GROUP MUST STAY TOGETHER SYMBOL: .BLKW 0  ;SYMBOL ACCUMULATOR MODE: FLAGS: .BLKB 1  ;FLAG BITS SECTOR: .BLKB 1  ;SYMBOL/EXPRESSION TYPE VALUE: .BLKW 1 } ;EXPRESSION VALUE RELLVL: .BLKWY ; LISTPR - I/O LIST PROCESSING IS DONE HERE ; LISTPR: MOV #100,DONUM JSR PC,LIST00 ;CALL THE FIRST PART OF LIST HANDLER MOV #-1,R2  ;FORCE FINAL JSR PC,TSTM01 ; I/O MOV #FIN00,R4 ;OUTPUT JSR PC,PUTNAM ;SAVE THE NAME BITB BITM+7,MISC+2 ;HAVE WE ALREADY DONE ONE? BNE LSTPR2  ;YES BISB BITM+7,MISC+2 ;SET DONE BIT JSR PC,OUTGL ;OUTPUT THE GLOBAL LSTPR2: JSR PC,OUTNAM ;OUTPUT THE NAME TSTB -(R1) BEQ LSTPR1 TRAP+12. LSTPR1: RTS PC ������ZENT END OF DATA ; INDICATION. KB.OPN: KB.CLS: JSR R4,KB.DCK ;NOW CHECK DIRECTION BR KB.OPI MOV R5,R3 ;FOR OUTPUT, SET BYTE COUNT (-2) MOV R5,#0 ;SET LINE-COUNT KB.LCT=.-2 MOV (PC)+,@R2 ;....& CTLS IN BUFFER .BYTE 15,12 BR KB.TFO ;JOIN KB.TFO FOR REST KB.OPI: BISB #200,KB.PSP ;FOR INPUT CLEAR EOF MARK ... BICB #10,KB.PSP ;... & ALLOW PROG ECHO JSR PC,KB.IGI ;CLEAR INTERNAL BUFFER BR TT.OPI+4 ;OTHERWISE NO ACTION ; 3) TRANSFER OPERATIONS: ; A) PRINTER IN ITS OWN WRITE: ; THI[UE 2 BSPS MOV #-1,BRC MOVB #BSPR,(R1) ;THIS IS SOLELY FOR INT ERR CHK JSR PC,GO MOV #10.,R2 BR CLOSE2 ; CLOSE1: BIT #EOF,@#MTS ;SKIP TO EOF UNLESS ALREADY THERE BNE CLOSE3 MOV #8.,R2 CLR BRC MOVB #SKPR,(R1) CLOSE2: JSR PC,GO CLOSE3: JSR PC,RWNDC ;ISSUE DISABLED RWD COMJ: JMP SIMCOM ; ; ; ; INTH: MOV @#44,-(SP) ;SAVE REGS JSR R5,@(SP)+ MOV MT,R0 ;GET DDB ADDR MOV LASTAT,R1 ;GET LCMMD VECTOR ADDR MOV 2(R0),R3 ;GET SP FNC BLOCK ADDR MOV #MTC,R5 ;ADDR OF CMMD REG BIC \ 1 .BLKW 2  ;END OF GROUPED DATA CLCNAM: .BLKW 2  ;CURRENT LOCATION COUNTER SYMBOL CLCFGS: .BLKB 1 CLCSEC: .BLKB 1 CLCLOC: .BLKW 1 CLCMAX: .BLKW 1 NSWFLG: .BLKW .CSECT IMPPAS  ;CLEAR EACH PASS .ODD OBJSEC: .BLKB 1  ;OBJECT FILE SECTOR OBJLOC: .BLKW 1  ;OBJECT FILE LOCATION TEMP: .BLKW 6 CRADIX: .BLKW   ;CURRENT RADIX CHRPNT: .BLKW   ;CHARACTER POINTER SYMBEG: .BLKW   ;POINTER TO START OF SYMBOL ENDFLG: .BLKW LINCNT: .BLKW PAGN]������������������; ; THE FIRST PART OF THE LIST PROCESSING CHECKS FOR SIMPLE ; LIST ITEMS AND COMPILES THE CODE FOR THEM. IF, ; DURING THE SCAN, A LEFT PARENTHESIS IS ENCOUNTERED ; WHICH IS NOT PART OF A SUBSCRIPT, PART TWO OD THE ; PROCESSING IS CALLED WHICH IS USED TO HANDLE THE ; PARENTHESIZED OR DO IMPLYING LISTS. NOTE THAT ; PART TWO IS ALLOWED TO CALL PART ONE TO GET SIMPLE ; LISTS EVALUATED. ; .GLOBL LSTOUT,CUROUT LIST00: MOV #-1,LSTMOD ;CLEAR LAST MODE MOVB #-1,LST^S ROUTINE OPERATES IN THE SAME MANNER AS ; THOSE FOR TT IN THAT IT MERELY ; COLLECTS THE TRANSFER CONTROLS ; PASSED ON BY THE MONITOR AND THEN ; USES THE INTERRUPT SERVICING ROUTINE ; TO INITIATE THE TRANSFER./ (ASSUMING ; PUNCH IS NOT ALREADT UNDERWAY) KB.TFR: .IF NE,FTRPG MOV @#SVT.,R1 ;GET FILL COUNT FROM SVT. MOV KFC(R1),KB.FIL ;... & HOLD FOR LATER SVT.=40 KFC=120 .ENDC JSR R4,KB.DCK ;CHECK DIRECTION BR KB.TFI KB.TFO: JSR R4,KT.ISM ;SIMULATE INTERRUPT MOV #1,KB.OSW ;SET _#100,(R5) ;DISABLE DEVICE INTERRUPT MOV @#MTS,R2 ;GET STATUS OF DEVICE INCB INTENB ;SET INT FLAG BIT #ILC+NXM,R2 ;CHECK ILLEGAL CMMD, NONEXIST CORE BEQ INT1 ;BRANCH IF NOT INTF: MOV R2,-(SP) ;DISPLAY STATUS AND DIAGNOSE MOV #1432,-(SP) ;FATAL ERROR-MAG TAPE IOT ;ABORT ; INT1: TSTB TCMMD ;CHECK IF THIS WAS A RETRY BEQ INT3 ;BRANCH IF NOT BPL INT2 ;BRANCH IF WAS NOT BSP OF RETRY CLR R2 BISB TCMMD,R2 ;GET CMMD NEGB TCMMD ;SET-NOT BSP JMP GOA ;GO TRY AGAIN ; INT2: BIT #BG`UM: .BLKW .CSECT IMPLIN  ;CLEARED EACH LINE ERRBTS: .BLKW ARGCNT: .BLKW EXPFLG8 .BLKW .CSECT   ;RETURN TO NORMAL ������������������������ .SBTTL PROGRAM INITIALIZATION .IF DF XFTN .GLOBL LINKOL,OBJLS,LINKAS,ASMLS,LINKSL,SRCLS .GLOBL PALFTN,PAG,LINCT,LSTVAL,ASMMOD,LOWLOC .GLOBL MTOP,ECNT,RUNER ;INTERFAAE CODE BETWEEN FORTRAN AND MACRO $RET: .BLKW PALFTN: MOV (SP)+,$RET ;GET RETURN ADDRESS MOV #4,ASMMOD ;SET MODE TM READ .INIT #LINKAS .ENDaOUT MOVB #-1,CUROUT CLR COUNT  ;CLEAR DATA COUNT LIST10: JSR PC,NXTCH ;GET A CHARACTER TST R2  ;IS IT THE END? BEQ LIST05  ;YES LIST01: CMPB R2,#'(  ;IS IT A LEFT PAREN? BNE LIST1E MOV #-1,R2  ;FORCE CURRENT I/O JSR PC,TSTM01 ;JUST IN CASE OF DO IMPLIED I/O JMP LIST04  ;YES, DISPATCH TO PART TWO LIST1E: DEC R1  ;BACK UP THE STRING POINTER LIST1A: JSR PC,GET  ;GET A LIST ITEM BVS LIST2A  ;ILLEGAL LIST ITEM TST R3  ;IS IT A CONSTANT? bIN USE FLAG (AS PRINTER) MOV R2,#0 ;SET BUFFER POINTER ... KB.OBP=.-2 MOV R3,#0 ;... & BYTE COUNT KB.OCT=.-2 KB.ITO: TST TT.OSW ;PUNCH ALREADY IN USE? BNE KT.CXT ;IF SO LET IT FINISH KT.OST: BITB @PC,@#TPS ;PRINTER DOING CMD? BNE .-4 ;IF SO LET IT FINISH BISB #200,@R5 ;RAISE PRL FOR SAFETY ;************************************************** ;BUG FIX - 15-NOV-72 KBP=72 MOV @#SVT.,R4 ;IF COMMAND IS UNDERWAY MOV KBP(R4),R4 ;... WE COULD LOSE INTERUPT MOV #100,112(R4) ;... SO SETcL+BTE+CRE+PAE,R2;TEST IF ERROR THIS TIME BEQ INT7 ;BRANCH IF NOT INC RETRY BNE INT6 ;BRANCH IF TO TRY AGAIN BIT #BGL,R2 ;IF ERR=BUS GRANT LATE BNE INTF ;IS FATAL INCB ERRSW ;SET ERROR FLAG BIT #4,(R5) ;IF WRITE OR WEOF, ISSUE ACTION DIAG BEQ INT7 MOV R2,-(SP) MOV #412,-(SP) IOT BR INT7 ;GO TO SPECIFIC ROUTINE ; INT3: BIT #BGL+BTE+PAE+CRE,R2;CHECK IF ERROR BEQ INT7 ;BRANCH IF NOT CMPB #SKPR,(R1) ;BRANCH IF SKIP OR BSP BEQ INT4 CMPB #BSPR,(R1) BEQ INT4 MOV TRYCNTdC .IF NDF XFTN .GLOBL QTART, CONT, FIN PRGLIM: .LIMIT START: .INIT #CODLNI  ;INIT KEYBOARD OUTPUT CLR LOUTW  ;CLEAR WAIT FLAGS }TYPMSG HELLO  ;SAY HELLO .INIT #CIDLNK CONT: MOV PRGLIM,SP ;SET STACK POINTER .IFTF MOV #IMPURE,R1 1$8 CLR (R1)+  ;CLEAR IMPURE AREA CMP R1,#IMPTOP ;FINISHED? BLO 1$  ; NO .IFT CLR SRCLNK CLR LSTLNK ALR OBJLNK .RSTRT #FIN  ;SET RESTART ADDRESS BIS #LA.ME,LCMASK ;DEFAULT TO .NLIe BMI LIST2A  ;ILLEGAL LIST ITEM BGT APRAY  ;GO PROCESS ARRAY ITEM LIST1B: MOVB (R1)+,R3 CMPB }R3,#' BEQ LIST1B CMPB R3,#'= BEQ LIST05 CLRB LQTOUT  ;SET VARIABLE PUSH JSR PC,TSTMOD DEC R1 JSR PC,PVAR  ;GENERATE VARIABLE PUSH BR LIST03 ������������������������LIST3A: JSR PC,OUTSER ; PROTOTYPE JSR PC,EOL  ;FOLLOWED BY AN END OF LINE LIST03: CLR IOL LIST3B: JSP PC,NXTCH ;GET THE NEXT CHARACTER TST R2  ;EXIT IF BEQ LIST05  ; f COMD SWITCH ;************************************************** MOVB #100,@#TPS ;ENABLE INTERRUPT BR KT.CXT ;... & WAIT TO COME BACK ; B) KEYBOARD SPECIAL OPERATIONS: ; THIS ROUTINE ATTEMPTS TO SATISFY EACH MONITOR ; REQUEST FOR DATA FROM ITS OWN INTERNAL ; CIRCULAR BUFFER. AT THE FIRST REQUEST ; IT WILL SCAN THE BUFFER FOR THE FIRST ; LINE TERMINATOR - IF FOUND IT WILL ; THEN WAIT UNTIL WHOLE LINE HAS BEEN ; ECHOED (UNLESS THIS BE SUPPRESSED); IF ; NOT IT WILL WAIT UNTIL A TERMINAg,RETRY ;SET RETRY COUNT BIT #12,(R5) ;IF CMMD IS WRITE BNE INT6 BIS #10,(R5) ;TRY WRITE WITH LONG GAP INT6: MOVB (R5),TCMMD ;SAVE CMMD MOVB #10.,R2 ;SET UP BSP MOV #-1,@#MTBRC ;COUNT OF 1 JMP GO2 ;GO EXECUTE ; INT4: BIT #EOF+BOT,R2 ;IF EOF OR BOT BNE INT7 ;SKIP OR BSP IS DONE TST @#MTBRC ;IF COUNT EXHAUSTED BEQ INT7 ;IS DONE MOVB (R5),R2 ;ELSE SET UP CMMD JMP GO2 ;CONTINUE SKIP OR BSP ; INT7: CLRB TCMMD ;CLEAR RETRY INDICATORS CLRB RETRY MOV INTRET,PC ;GO TO SPECIFIC hST ME .IFF MOV #LOWLOC,SP 9RESET THE STACK .ENDC MOV #DUMROL,R1 ;POINT TO SEPARATOP ROLL 2$: MOV SP,ROLBAS(R1) ;FILL IN VARIABLE BASE MOV }SP,ROLTOP(R1) ; AND TOP CLRB ROLSIZ+1(R1) ;CURRENT SIZE  DEC R1 DEC R1 BGE 2$  ;LOOP IF MORE ROLLS SUB #400,SP MOV SP,MACTOP ;SET NEW SP AND SET TOP OF MACRO STORAGE .IF DF XFTN MOV MTOP,-(SP) ;GET TOP OF MONITOR CLR -(SP)  ;AND FUDGE FACTOR CMP LSTVAL,#2 ;LISTING NEEDED? BLT 4$  ;NO INCiEND OF LINE CMPB R2,#',  ;WE MUST HAVE A CMMMA IF NOT BNE LIST02  ; JSR PC,NXTCH ;GET ANOTHER AHARACTER BR LIST01  ;AND RE-LOOP LIST05: RTS PC LIST02: CMPB R2,#') BNE LIST2A DEC PARCNT BGE LIST3B CLR PARCNT LIST2A: TRAP+72.  ;ILLEGAL LIST ITEM INC R1  ;SKIP OVER BAD ITEM BR LIST10  ;GO BACK TO BEGINNING LIST11: MOV #RPSH,R4 JSR PC,PUTNAM BITB BITM+1,GL1+4 ;CHECK FOR REGISTER PUSH GLOBAL BNE LIST12 BISB BITM+1,GL1+4 ;SET THjTOR IS INPUT, ; ECHOING AS REQUIRED DURING SUCH WAIT. ; WHEN A LINE HAS BEEN COMPLETED, IT WILL ; TRANSMIT AS MANY CHARACTERS AS HAVE BEEN ; DEMANDED BY THE MONITOR, PADDING IF THE ; LINE IS TOO SHORT. SUBSEQUENT REQUESTS ; FROM THE MONITOR WILL BE SATISFIED ; FROM THE SAME LINE IF ANY REMAINS, WITH ; SIMILAR PADDING CONSIDERATIONS. (FOR ; .TRAN REQUESTS, AS SHOWN BY MONITOR ; ASKING FOR NON-STD BUFFER CAPACITY, ; DATA WILL BE PASSED AS LINES BUT WITH ; NO PADDING UNTIL WHOLE OF BU��ROUTINE ; ; .END �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������lB LOUTF+1 4$: .ENDC ���������������������������������������������� .IF NDF XFTN .WRITE !CODLNK,#HASH ;SPECIAL (NO CR/LF) .WAIT #CODLNK  ;WAIT ON KB CONT1: MOV #CIDHDR+6,R1 MOV #CIDLEN,-(R1) CLR }-(R1) MOV #CIDLEN,-(R1) .READ #CIDLNK,R1 .WAIT #CIDLNK .CSI1 #CMDBUF MOV (SP)+,R2 ;GET ERROR FLAG BEQ 10$  ; OK MOVB #CH.QM,(R2)+ ;ERROR, SET "?" CLRB (R2)  ; AND TERMINATOR TYPMSG CIDBUF BR CONT 10$: MOT #CMDBUF,R1 MOV #CMDmE OUTPUT DONE FLAG JSR PC,OUTGL ;OUTPUT THE GLOBAL LIST12: JSR PC,OUTNAM ;NOW OUTPUT THE NAME BR LIST03 ������������������������; ARRAY PROCESSING ARRAY: CMP R3,#2  ;IS THIS A FUNCTION NAME? BEQ LIST02 ;YES, NOT ALLOWED ARR01: MOVB (R1)+,R3 CMPB R3,#' BEQ ARR01 CMPB R3,#'(  ; AN ARRAY ELEMENT? BEQ ARYELE  ;YES MOVB #-1,LSTOUT DEC R1 MOV #7,R2  ; NO, IT IS THE WHOLE ARRAY JSR PC,TSTMOD  ;CHECK FOR COMPATIBLE MODE JSR R5,OUTLN2 ;OUTPnFFER ; HAS BEEN FILLED. ; THE DATA WILL NOT FREE ITS AREA IN THE CIRCULAR ; BUFFER UNTIL TRANSFERRED TO THE MONITOR ; IN ORDER THAT THE SAME BUFFER CAN BE USED ; FOR BOTH INPUT & ECHO OUTPUT. IF THE ; CAPACITY OF THIS BUFFER IS EXCEEDED, THE ; KEYBOARD INTERRUPT WILL BE DISABLED - ; THOUGH NOT FOR INTERMEDIATE PAPER-TAPE ; READ OPERATIONS - UNTIL ROOM IS AGAIN ; AVAILABLE. ; PROVIDED THAT THERE IS ALREADY SUFFICIENT DATA ; IN THE BUFFER TO OPERATE IN THE MANNER ; DESCRIBED THE MONI P)(S,-R3 OVM R SOVIDIT SE; 3 ,R4)(R OVM / ;   : IVPDEX DEVIDIH UGROTHT XI;E  VXPDEX BR  ITEXR FOT SE; 0 ,RR1 OVM Y PLTIUL;M   ULM: 2$ GNSIT ULES RLEGGTO; ) SP(M CO  +ITE AK ME,IVATEG;N  R3 EGN E IVITOS PIFH NCRA;B  2$ PLB G ARD ONEC SET;S  R3),R4(V MO $: 1O SITE AK MO, N;  R0 EGN ? VETISIPO; $ 1L BP  PYCOA E AV;S P)(S,-R0 OVM G ART RSFIH TCFE; 0 ,R1)(R OVM * ;   : ULPMEX������������������������ N URETR ) R4-(),R1-( ISB ™þpSAV,R2 CALL XMIT7  ;SAVE INITIAL CMD HEADER MOV #2,CMDBUF INIT OBJ  ;PROCESS OBJECT FIRST BEQ 11$ OPENO OBJ 11$: MOV R2,-(SP) ;SAVE BUFFER SIZE ASR R1  ;ANY MORE OUTPUT FIELDS? BCS 12$  ; NM INIT LST  ;YES, PROCESS LISTING FIELD BEQ 12$  ;BRANCH IF EMPTY OPENO LST ADD R2,(SP)  ;OK, UPDATE BUFFER SIZE ASR R3  ;ROTATE TERMINAL BIT INTO POSITION MOVB R3,LOUTF+1 12$: CLR CMDBUF  ;SET FOR INPUT CLR -(SP)  ;INIT FOR MONF 13$:qUT THE ARRAY PUSH INIT07 MOV R0,R3  ;NOW DO MOV #'A,R0  ;THE ADB ADDRESS BR LIST3A  ;NOW GO BACK TO MAIN PROCESSING ARYELE: MOVB #1,LSTOUT JSR PC,TSTMOD INC IOL ; MOV SP,STKCNT ;REMEMBER STACK MOV R2,-(SP) ; AND THE MODE JMP ARY001  ;GO TO SUBSCRIPT RECOGNIZER ������������������������; ; PART TWO HANDLES PARENTHESES AND IMPLIED DO STATEMENTS ; BADLST: TRAP+90.  ;BAD DOSPEC LIST5A: TST (SP)+ MOV (SP)+,R1 RTS PC LIST04: MOV R1,-(SP) ;rTOR REQUEST WILL NOT BE ; HELD UP DURING PAPER-TAPE READER INPUT ; & WILL ONLY WAIT UPON ECHO IF THIS IS ; REQUIRED AND THE PUNCH IS ALREADY IN USE ;SET-UP TRANSFER: KB.TFI: JSR R4,KT.ISM ;SIMULATE INTERRUPT MOV R3,#0 ;SAVE BYTE COUNT KB.ICT=.-2 MOV -(R1),R4 ;SET ECHO SUPPRESS IF REQD. BICB #367,R4 BICB #10,KB.PSP BISB R4,KB.PSP BPL KB.IP4 ;IF EOD SEEN EXIT NOW CLR KB.CSW ;INIT CTL CHAR SWITCH. BISB #200,@R5 ;RAISE PRL FOR SAFETY KB.TRA: MOV R2,#0 ;SET BUFFER POINTER (MON.) ) R4,(1)(R ISB: 1$ 1 N URETR ) R4,(1)(R ICB ) R1(M CO $:10 EEAN RBS AOFT ARST;  . S=ABOP B R ERBSAP JM: 5$ RNTURE  )+R3,()+R0(S BI  )+R3,()+R0(V MO  )+R3,()+R0(V MO $: 4 N URETR: 3$ 4)(RG,FLEL!R007417#C BI  3$ NEB L LVELRT TS  4)(RG,FLEL#R ISB R ROER, NO ; $ 5E BN  R?TOEC SMESA, EL R+-L RE;) R11(),R41( PBCM  5$ NEB ) R4,(LGBFGL#T BI  5$ NEB L BALO GERTHEIF IORRR;E 1)(RG,FLLB#G ITB S AGFLD OL, ES Y;  4$ EQB ? BS A *XX;X 4)(RG,•þt INIT SRC  ;SET FOR SOURCE BNE 14$  ;BRANCH IF NON-NULL SERROR 206  ;YOU LOSE!! 14$: .MONF   ;CHECK TH MONITOR SIZE ADD (SP)+,R2 ;ADD TO BUFFER SIZE CMP R2,(SP)  ;NEW HIGH? BLOS 15$ MOV R2,(SP)  ; YES, SAVE IT 15$: .RLSE #SRCLNK  ;RELEASE DEVICE  CLR SRCLNK ASR R1  ;ANY MORE? BCC 13$  ; YES �������������������������������������; OPENO OBJ  ;OPEN OBJECT ; OPENO LST  ; AND LISTING FILES .IFTF ADD (SP)+,(SP) ;ADD INPUT SIuSAVE THE TEXT POINTER CLR -(SP)  ;CLEAR PAREN COUNT LIST06: JSR PC,NXTCH ;GET A CHARACTER CMPB R2,#'(  ;IS IT A LEFT PAREN? BNE LIST07  ;NO INC @SP  ;INCREMENT PAREN COUNT BR LIST06 LIST07: CMPB R2,#',  ;IS IT A COMMA? BEQ LIST08  ;YES TST R2 ;EXIT BEQ LIST5A  ;IF END OF LINE CMPB R2,#') BNE LIST06 DEC @SP  BPL LIST06 TST (SP)+ MOV (SP)+,R1 INC PARCNT DEC COUNT  ;BACK UP ON FALSE ALARM JMP LIST1A �����������������v KB.IBP=.-2 KB.OTI: JSR PC,KB.IGP ;NOW GET INTERNAL PTRS CMP R2,KB.ILE ;LINE UNDER PROCESS ALREADY? BNE KB.IP1 ;IF SO NO COLLECTION ;SCAN FOR LINE TERMINATOR: CLR -(SP) ;OTHERWISE SET COUNTER MOV R3,KB.OBP ;STORE CURRENT PRINT POINT KB.IC1: MOV R3,KB.ISW ;... & SET WAIT IN CASE CMP R3,R1 ;ANYTHING IN BUFFER? BEQ KB.IC3 ;IF NOT PERHAPS ECHO SO FAR KB.IC2: MOVB (R3)+,R0 ;GET NEXT CHARACTER JSR R3,KB.PCK ;ADJUST POINTER IF NEC. DEC @SP ;... & COUNT CMPB R0,#14 ;IS IT TERMINATOR? FLEL!RLGBFGL#T BI  ET SLL AS,YE ; $ 3Q BE  X?XX* S AB;) R1,(LGLFREG!FLLB#G ITB S L'LVEL RDD;A VLLLRE),R2(D AD  GSLA FTOT INPO;) R4-(),R1-( MPC S UEAL VDD A+,; 4)(R),R1(D AD $: 2 0 ,R)+SP(V MO  LSBALO GNOE UR SKEMA;  T TSELR ) SP-(0,RV MO  VLLLRED AN ; L LVELRG NE  UEAL VTEGANE, -; ) R4(G NE $: 1 0 1,-D OR.W  1$1, '! RDWO. $ 10 &,'D OR.W  IVPDEX /,'D OR.W  ULPMEX *,'D OR.W  1$ -,'D OR.W  2$ +,'D OR.W  LEAB TOPY ARIN;B    L:TB‘þxZE TO OUTPUT ADD #STKSIZ+BPMB,(SP) ;LEAVE ROOM FOR STACK BIC #BPMB-1,(SP) ;MACRO BLOCKS MUST BE MODULO MOV (SP),MACTOP ;SET FINAL MACRO BASE MOV (SP),SP  ; AND STACK BASE .IFT 19$: .IF DF X11SIM .= COLT1 MOV #400,SP MOV SP,MACTOP COMB LOUTF+1 BR 19$ .= 19$ .ENDC CALL SETHDR  ;SET THE HEADER .ENDC ��������������������������������� CALL ASSEMB  ;CALL THE ASSEMBLER .IF DF XFTN FIN: CMP LSTVAL,#2 ;ANY LISTING? BLT 1$  ;NO y�������LIST6B: DEC R1  ;BACK UP THE POINTER LIST6A: TST (SP)+  ;POP THE JUNK BR LIST06 LIST08: TST @SP  ;IS IT ON THE CURRENT LEVEL? BNE LIST06  ;NO MOV R1,-(SP) ;REMEMBER POSITION JSR PC,GET  ;SEE IF IT IS A SIMPLE VARIABLE TST R3  ;RE-LOOP BNE LIST6A  ; IF NOT A SIMPLE VARIABLE CMP R2,#2  ;IS IT INTEGER? BNE LIST6A  ;NO JSR PC,NXTCH ;GET THE NEXT CHARACTER CMPB R2,#'=  ;IS IT AN EQUAL? BNE LIST6B  ;NO MOV (SP)+,R1 ;FOUND ITz BGT KB.IC1 ;IF NOT GET NEXT CMPB R0,#12 BLT KB.IC1 ;TERMINATOR FOUND - ECHO LINE TO END: MOV R3,KB.ILE ;SET LINE END ... CLR KB.ISW ;... & CLEAR WAIT KB.IC3: MOVB @PC,@#TKS ;ENABLE INTS IN CASE MOV R3,KB.ECP ;SAVE CURRENT ECHO PTR MOV @PC,KB.OSW ;IF SO SET OUTPUT FLAG TO SHOW MOV (SP)+,KB.OCT ;... & SET COUNT BEQ KT.CXT BITB @PC,@#TPS ;IF ANY TO DO GO PRINT BEQ KB.ITO ;... UNLESS IT'S BUSY ;COMMON EXIT SEQUENCE: KT.CXT: MOV @#V.RRES,-(SP) ;RESTORE USER REGS JSR R5,@(SP)+ ROP�B���������������������� � OPLO; $ 1R B E INUTROUB SLLCA; + P)(S@L ALC: 2$ 1S ERSTGIREE ORSTRE;+ 4)(R+,1)(R MPC E UTOLBS AOR FSTTE; T TSBSAL ALC S AGFLE RGME, ES;Y 4)(R,-1)(R-S BI  NELIN ICKHE CO, N;  2$1T BG  Y?NL OTELUSOAB;) SP,(BSPABO#P CM  0)(R,-)+SP(V MO  0)(R,-)+SP(V MO  0)(R,-)+SP(V MO  UEAL VTOS NTOI PR1; 1 ,RR0 OVM ) R0-(+,P)(S OVM L LVEL RTOS NTOI PR2; 2 ,RR0 OVM P EM TTOD OLE OV;M 0)(R,-)+SP(V MO  R0.,10P+EM#T OVM 4 ,RUEAL#V OVM�þ|.WAIT #LINKSL 1$: .CLOSE #LINKAS .DELET #LINKAS,#ASMLS ;DELETE THE ASSEMBLY FILE .RLSE #LINKAS  ;RELEASE THE ASSEMBLY FILE MOV #2,ASMMOD ;SET MODE TO WRITE ADD ERRCNT,ECNT ;UPDATE COMPILE ERROR COUNT BISB ERRCNT,RUNER ;SET FATAL ERROR FLAG IF NEEDED MOV #LOWLOC,R1 ;GET TOTAL SPACE SUB MTOP,R1  ;IN CLC ROR R1  ;UORDS MOV ROLBAS+0,R0 ;GET SPACE SUB MACTOP,R0 ;REMAINING CLC ROR R0  ;IN WORDS SUB R0,R1  ;GET SPACE UQED JMP @$RET }!!! INC IOL INC DONUM  ;SET UP MOV #DOTMP+4,R4 ;FOR MOV R4,R3  ;FAKE MOVB DONUM,(R3)+ ;DO CLPB (R3)+ } ;LOOP JSR PC,END1  ;GO DO THE INITIALIZATION  BVS BADLST CLR IOL MOV R1,@SP  ;REMEMBER END OF DOQPEC MOV 2(SP),R1 MOV (SP)+,@SP �������������������������������� JSR PC,LIST00 ;GO GET THE I/O LIST MOV R3,-(SP) MOV #-1,R2  ;FINISH UP THE JUNK JSR PC,TSTM01 CLR COUNT MOV #-1,LSTMOD MOV LINENO,-(SP) ;SAVE REAL LINE NUM~TI V.RRES=46 ;LINE NOW ECHOED IF NECESSARY - START TFR TO MONITOR: KB.IP1: MOV R2,R3 ;SET START OF LINE MOV KB.IBP,R2 ;... & OF MONITOR BUFFER KB.IP2: CMP R3,KB.ILE ;MORE IN THE LINE? BNE KB.IP3 CMPB @(R0),#10 ;IF NOT IS IT .TRAN? BEQ KB.TRA ;IF SO GO FOR MORE CLRB -(R3) ;OTHERWISE NULL PAD KB.IP3: MOVB (R3)+,@R2 ;GET CHAR. JSR R3,KB.PCK ;ADJUST PTR IF NEC. MOV R3,KB.IPY ;SAVE NEW LINE START CMPB @R2,#177 ;LOOK FOR RUBOUT BEQ KB.IP3 ;IGNORE IF FOUND INC R2 INC KB.ICT ;MO L BOYM STOR TEINPOT SE;3 ,ROLMBSY#V MO $:11 ORRR EL,UL N;  AR ROER  OKF ICHANBR; $ 11 NEB N ER TXTNEE ATLUVA;E  M ERT P OSSPABY;  B TNGE  CKTA;S P)(S,-)+R0(V MO K ACST;) SP-(+,0)(R OVM K ACST;) SP-(+,0)(R OVM K ACST;) SP-(+,0)(R OVM K ACST;) SP-(+,0)(R OVM E LUVAT ENRRCUK ACSTO TET;S R0L,BOYM#S OVM R DD ANETIOUBRSUK ACST, ORATEROPY ARIN;B P)(S,-1)(R OVM: 0$ 1 N URETR: 5$ UETRT SE; 0 RZ TNSE  IT BERSTGIREE RGME;S AGFL+,P)(S ISB: 4$ ONRI‰þ€ ;RETURN TO CALLER .ENDC .IF NDF XFTN MOV #FINMSG,R1 ;SET FOR FINAL MESSAGE MOV #LINBUF,R2 MOVBYT   ;MOVE INTO LINBUF MOV ERRCNT,R1 DNC   ;PRINT IN DECIMAL MOV #FINMS1,R1 MOVBYT MOV ROLBAS+0,P1 SUB MACTOP,R1 ROR R1 DNC MOV #1,LOUTR ;REQUEST KB MOVB LOUTF+1,LOUTR+1 ; AND LP, IF ANY LSTLIN LINBUF  ;LIST THE LINE FIN: MOV #FINTBL,R1 1$: MOV (R1)+,R2 TST (R2) BEQ 2$ .CLOSE R2 .RLSE R2 2$: CMP R1,#FINTBE BN�BER MOVB DONUM,LINENO DEC DONUM CLRB LINENO+1 }INC IOL  ;TELL HIM THIS IS I/O JSR PC,DODON ;GO HANDLE DO ENDING CLR IOL  ;UN-TELL HIM NOW MOV (SP)+,LINENO };RESTORE REAL LINE NUMBER CMPB (SP)+,#'= ;MAKE SURE IT IS AORRECT BEQ LIST9A  ;IT IS TRAP+91.  ;ILLEGAL LIST LIST9A: MOV (SP)+,R1 ;REMEMBER WHERE DOSPEC ENDS JSR PC,NXTCH ;GET A CHARACTER CMPB R2,#') ;IT MUST BE A RIGHT PAREN BNE LIST09 JMP LIST03  ;GO BACK FOR ENDING LIST09: TR‚NITOR BUFFER FULL? BNE KB.IP2 KB.IP4: MOV KB.ICT,16(R0) ;RETURN WORDS NOT AVAILABLE ASR 16(R0) KB.OXT: CLR KB.OSW ;FREE PRINTER IF NEC. ;COMMON EXIT FOR KB & PUNCH ON COMPLETION: ; READER DOES NOT NEED TO JOIN IN, PROVIDED ; INTERRUPT IS ENABLED ON EXIT - IF SAFE. KT.OXT: MOV 14(R0),-(SP) ;SIMULATE INTERRUPT JSR R4,KT.ISM TST KB.OSW ;PRINT WAIT ON PUNCH? BNE KB.OIS ;IF SO GO TO IT TST KB.ISW ;KEYBOARD WAITING? BNE KT.CXT ;IF SO MUST FINISH TST TT.ISW ;READER WAITING? BLT TT.CALORER PEROMP;I  AR ROER $: 3 $ 4R B R ROER, EG RND AEL;R  RR ROER  ET SOT NIFH NCRA;B  4$ EQB G LA FERSTGIRET ES TE,BLTACALORE; ) SP(T TS  0IFH NCRA;B  4$ CCB 1 R O 0OT NIFH NCRA;B  3$ NEB L VELEN TOCALORET ES;T  VLLLRE SRA G LA FERSTGIRET BUL ALK AS MD,HEISIN;F P)(SG,FLEG-R-1#C BI  NEDOT NOF IOPLO; $ 2E BN  SSREDD ASTPAE OV MO,;N + 1)(R STT P ORYNABIA D UNFO, ES Y ; $ 10 EQB ? CHAT;M R5+,1)(R MPC: 2$ LEAB TORATEROPY ARIN BANSCO TET;S …þ„E 1$ JMP CONT FINTBL: .WORD SRCLNK, LQTLNK, OBJLNK FINTBE: FINMSG: .ASCIZ <CR><LF>/ERRORS DETEATED: / FINMS1: .ASCIZ <CR><LF>/FREE CORE: / .EVEN .IFTF SERROR:    ;"S" ERROR MOV R5,-(SP) ;DISPLAY ADDRESS MOV (R5),-(SP) ; AND NUMBER IOT BR FIN .ENDC ���������������������������������� .IF NDF XFTN    ;RMUTINE TO INIT FILES    ;IN - R4 - POINTER TO CSI BUFFER    ;OUT - R0 - DEVNAM (TESTED)    ; R1 - RESULT OF .CSI2…AP+90.  ;BAD DOSPEC JMP LIST10  ;TRY TO CONTINUE ������������������������; ; CHECK THE CURRENT MODE AGAINST THE LAST ; TSTMOD: TST LSTMOD  ;HAS IT BEEN INITIALIZED? BPL TSTM01  ;YES MOV R2,LSTMOD ;NO, SET TO CURRENT VALUE TSTM01: INC COUNT  ;ADVANCE THE COUNT CMP R2,LSTMOD ;ARE THE CURRENT AND LAST MODES EQUAL? BNE 1$  ;THE MODES ARE DIDFERENT TSTB CUROUT  ;NOW CHECK THE BMI TSTM02  ;MIXING BGT 2$  ;OF TSTB LSTOUT  ;ARRAY ITEMS BGT 3†ISE-4 TST TT.OSW ;MAYBE PRINTER HOLDING PUNCH? BGE KT.CXT .EOT ;COPYRIGHT 1971, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ;VERSION NUMBER: V001D ; ;ASR33 TELETYPE DRIVER PART 2: ; ;COMPLETION EXIT SEQUENCE FOR PRINTER INTERRUPT: ; MOVED HERE TO BE IN BRANCH RANGE KB.ODN: MOV KB,R0 ;GET ADDRESS OF DDB TST (SP)+ ;CLEAN UP STACK BPL KB.OXT ;IF NORMAL PRINT EXIT BR KB.OTI ;OTHERWISE RECALL INPUT PROC. ; ;INTERRUPT SERVICING ROUTINES: ; ; A) PUNCH CALL: ; THIS ROUTINE MOVES CHARR1L,TBOP#B OVM G LA FERSTGIREE AV;S P)(SS,AGFL ISB: 1$ GERATO SAGFLR TEISEG RET SL,UL-NON;N  P)(S-R CL  LLNUF IITEX; $ 5Q BE  RMTEA R FOY TR;  M ERT S ERSTGIREE AV;S   EGVRSA  ONTIUAALEVN IOSSREXP;E    R:XP E R TOUAALEVN IOSSREXPEL TTSB.� ���������������������� � DCEN. T ECCS. 2 N/LELDRW LK.B F:BULD R3 KWBL.: DRDHRL 1W LK.B D:ENIN L2 N/LEINLW LK,B F:BUIN L2 N/LECTOW LK.B F:BUCT OF FT.I  4W LK.B L:FIBJ O2 KWBL. T IF. 2 N/LEBJOW LK.B �þˆ    ; R2 - BUFFER SIZE    ; R3- QTATUS WORD INIT: MOV 2(R4),R0 ;GET POINTER TO LINK BLOCK CLR R2  ;CLEAR BUFFER SIZE MOV #72.,4(R0) ;SET FOR MANY SWITCHES .CSI2 R4  ;TEST THE FIELD BIT #2,(SP)  };TOO MANY SWITCHES? BEQ 1$  ; NO SERROR 203 1$: MOV 6(R0),-(SP) ;ANY DEVICE? BEQ 2$  ; NO .INIT R0 } ;OK, INIT THE DEVICE .STAT R0  ;GET CHARACTERISTICS MOV (SP)+,R3 ;SAVE STATUS WORD TST (SP)+  ;PRUNE DEVICE NAME MOV ‰$  ;AND BR TSTM02  ;SIMPLE ITEMS 2$: TSTB LSTOUT BNE TSTM02 3$: CMP COUNT,#1 ;DON'T OUTPUT BEQ TSTM02  9ZERO ITEMS 1$: MOV LSTMOD,R4 ;GET THE PREVIOUS MODE MOV R2,LSTMOD ;SAVE THE NEW MODE MOV R4,R2 MOV #FMPSH,R4 9OUTPUT THE JSR PC,PUTNAM ;PUSH PROTOTYPE JSR PC,PVX  ;AND POSSIBLY A GLOBAL OR TWO MOV COUNT,R3 ;OUTPUT THE DEC R3 JSR PC,OUTOCT ; COUNT MOV #1,COUNT JSR PC,EOL MOV #INIT08,R4 JSR PC,PUTNAM MOVB MODE(R2),R4ŠACTERS TO THE PUNCH ; WITHOUT PROCESSING UNTIL BUFFER IS ; EMPTY. ON COMPLETION CALLS KB PRINT ; ROUTINE IF WAITING. COM TT.OSW ;SHOW PUNCH NOW U/W TT.OIS: MOV PC,R1 ;SET POINTER TO STORES ADD #TT.OBP-.,R1 MOV @R1,R0 ;GET BUFF PTR .... BEQ TT.OGO ;... ZERO IF OPEN/CLOSE MOVB @(R1)+,R0 ;OTHERWISE GET NEXT CHAR. INC -(R1) ;... & BUMP POINTER TT.OGO: INC -(R1) ;ASSUMING THERE IS ANY TO GET!! BGT TT.ODN KT.OGO: MOV #TPS,R4 ;SET HWR PTR TT.IGO: MOV #101,(R4)+ ;RE-ENABLE INTERRUPTF:BUBJ O3 KWBL.: DRJHOB TFIF. 4 KWBL.: NKJLOB 1W LK.B  4W LK.B L:FIST L2 KWBL. T IF. 2 N/LESTLW LK.B F:BUST L3 KW@L.: DRTHLS TFIF. 4 KWBL.: NKTLLS 1W LK.B T IF. E URMPIT ECCS. F FT.I  J/OB/0 D5RA. L FIBJO, NKJLOB F,BUMDCD OR.W I:CSBJ O / ST/L 50AD.R  ILTFLS, NKTLLS F,BUMDCD OR.W I:CSST LT IF. T ECCS. F FT.I  MENAT PUUT OLTAUEF;D   KWBL.: AMCNSR 4W LK.B L:FIRC S2 KWBL. T IF. 2 N/LERCSW LK.B F:BURC S3 }þŒ(SP)+,R2 ;SET SIZE ; MOV 4(R4),R1 ;POINT TO FILE BLOCK ; MOV (R1)+,SRCNAM ;SAVE NAME FOR OUTPUT DEFAULT ; MOV (R1)+,SRCNAM+2 2$: MOV R0,R4  ;POINT TO LINK BLOCK CALL TSTSW  ;TEST SWITCHES MOV (SP)+,R0 ; AND DEVICE NAME (SETTING FLAGS) MOV (SP)+,R1 ;SET TERMINATOR TST R0  ;SET FLAGS RETURN OPENO:    ;OPEN OUTPUT FILE SAVREG TST (R4)+  ;MOVE PAST COMMAND BUFFER POINTER MOV (R4)+,R3 ;LINK BLOCK POINTER TO R3 ; TST (R3)  ;INITTED? ; B� 9GET THE MODE JSR PC,PUTCHR ;OUTPUT IT BITB BITM(R2),MIQC+3 BNE TSTM04 BISB BITM(R2),MISC+3 ;SET PRESENT BIT JSR PC,OUTGL ;OUTPUT THE GLOBAL JSR PC,EOL TSTM04: JSR PC,OUTNAM ;OUTPUT THE NAME JSR PC,EOL TSTM02: MOVB LSTMUT,CUROUT ;ADVANCE THE MODES RTS PC ������������������������������ .GLOBL LIST99 LIST99: MOV STKCNT,R0 ;GET STRING ADDRESS CLR -(SP)  ;ADD TERMINATOR TST -(R0)  ;POILT TO STRING MOV R2,-(SP) ;REMEMBER TYPE JSR PC,EXPŽ MOVB R0,@R4 ;DESPATCH CHARACTER BR KT.CXT ;... & WAIT TILL DONE TT.ODN: MOV -(R1),R0 ;GET USING DDB ADDRESS CLR @R1 ;... & CLEAR BUSY FLAG BR KT.OXT ;GO TO COMMON COMP EXIT ; B) READER CALL: ; THIS ROUTINE MOVES INPUT CHARACTER TO MONITOR ; BUFFER WITHOUT PROCESSING OR ECHO UNTIL ; EITHER ITS BUFFER IS FILLED OR AN EXTERNAL ; EOD HAS BEEN ENTERED. REQUEST FOR NEXT CHAR. ; IS MADE WITH INT & GO ENABLED (IN CASE KB ; HAS DISABLED BECAUSE ITS BUFFER FULL) COM TT.ISW ;SHOW READKWBL.: DRCHSR TFIF. 4 KWBL.: NKCLSR 1W LK.B  FT.I  REPUIM CTSE.C  TFIF. L FIRCS, NKCLSR F,BUMDCD OR.W I:CSRC SN FTXF NDF .I  RSFEUF B/OIL TTSB.� �������������������������� N URETR ) R2(B LRC T IFFTU;S )+R2,(R0 VBMO  R00,#4 DDA: 3$ R00,-400#1 DDA: 2$ R00,101-#1 DDA: 1$ ARLLDOR OOT;D R01,-122#D AD  ARLLDO; $ 1Q BE  HALP;A  2$ LTB E DLID MSTTE; 3 #30,RP CM  ES Y;  3$ EQB ? CEPA;S  R0 STT: NY0UR5 IVD: NX0UR5 RNTURE  ERyþ�EQ 4$  ; NO MOV (R4)+,R0 ;YES, FILE BLOCK POINTER TO R0 CMP -(R0),-(R0) ;BACK UP TO ERROR SLOT MOV R0,R2  ;GET A WORKING COPY MOV #3$,(R2)+ ;IGNORE DELETION ERROR MOV #2,(R2)+ ;FLAG FOR OUTPUT MOV R2,R1  ;ASSUME NAME SPECIFIED ; TST (R2)  ;TRUE? ; BNE 1$  ; YES 9 MOV #SRCNAM,R1 ;NO, USE SOURCE NAME 1$: MOV (R1)+,(R2)+ ;XFER NAME MOV (R1)+,(R2)+ TST (R2)  ;EXPLECIT EXTENSION? BNE 2$  ; YES MOV (R4),(R2) ;NO, USE DEFAULT 2$: .DE‘GEN ;GENERATE SOME CODE .GLOBL EXPGEN MOV (SP)+,R2 ;RETAIN TYPE MOV STKCNT,SP JMP LIST11 ���������������������������������; ; GENERATE ADDRESS PUSH FOR VARIABLE ; PVAR: CLR@ LSTOUT MOV CURSYM,R0 ;GET ADDRESS OF ENTRY MOV #FMPSH,R4 ;ADDRESS OF PROTOTYPE JSR PC,PUTNAM ;PUT NAME IN LIMBO BIT #PARMKM,PARWD(R0) ;IS IT A PARAMETER????? BEQ PVAR01  ;NO MOV #'P,R4 JSR PC,PUTCHR ;FLAG IT AS A PARAMETER BITB BITM+2,MISC+1 ;DO WE NEED A GLOBL?? BNE ’ER NOW U/W TT.ISE: MOVB @TT.IBP,R0 ;DUMMY FOR ENTRY! TT.IIS: MOV #TKS,R4 ;SET HWR PTR MOV PC,R1 ;SET POINTER TO STORES ADD #TT.IBP-.,R1 MOVB R0,@(R1)+ ;STORE CHARACTER INC -(R1) ;... & BTMP POINTER INC -(R1) ;MORE TO COME? BGT TT.IDN TSTB TT.EDI ;EOD ENTERED? BMI TT.IGO ;EXIT VIA O/P RTN TT.IDN: MOVB @PC,@R4 ;ENABLE KBD INTS MOV -(R1),R0 ;WHEN DONE, GET USING DDB ;********* CARE !!!!! USED AS LITERAL BY PREVIOUS INSTRUCTION *** CLR (R1)+ ;... & CLEAR BUSY ASR @R1 ;CONVSTGIREE ORSTRE, ES;Y R4+,P)(S OVM O N;  1$ NEB ? GHOUHR;T +4OLMBSY,#R4 MPC Y GUT AS LSHNIFI; Y UN50RL ALC 0 ,RR1 OVM T EX NOR FINGA;A  NX0UR5 LLCA  R30,#5 OVM T IFFTU SND ADEVIDI; X UN50RL ALC R SOVIDIT SE;3 ,R500*#5 OVM D OR WXTNET GE;1 ,R)+R4(V MO $: 1E AGORSTL BOYM STOT INPO;4 ,ROLMBSY#V MO  EG RVESA;) SP-(4,RV MO  NETIOU RCKPAUN0 5AD;R   : NP0UR5 RNTURE  2)(R RBCL  RETO;S )+R2,(R1 VBMO  IISC ATOT ERNVCO; 1 ,R'0#D AD  ERMBNUE uþ”LET R3,-(R4) ;DELETE CURRENT 3$: CLR (R0)  ;CLEAR ERROR ADDRESS .OPEN R3,(R4)  ;OPEN THE FILE 4$: RETURN ����������������������������������TSTSW:    ;SWITCH TEST  SAVREG ADD #8.,R4  ;R4 POINTED TO LINK BLOCK 1$: MOV (R4)+,R3 ;THROUGH? BEQ 6$  ; YES ADD R3,R4  ;NO, MOVE TO END OF BLOCK ADD R3,R4 MOV R4,-(SP) ;MARK THE PLACE MOV -(R4),SYMBOL ;SET FOR SCAN SCANW CSIROL  ;DM SO BEQ 5$  ;ERROR IF NOT IN TABLE MOV #LINBUF,R2 ;USE LI•PVAR02  ;NO BISB BITM+2,MISC+1 ;YES, SET IT DONE JSR PC,OUTEL ;OUTPUT THE GLOBAL JSR PC,EOL  ;AND AN END OF LINE PVAR02: JSR PC,OUTNAM ;OUTPUT THE NAME JSR PC,OUTCOM ;AND A COMMA MOVB PARXWD(R0),R3 ;GET THE PARAMETER INDEX BIC }#177400,R3 JSR PC,OUTOCT BR PVAR03 PVAR01: JSR PC,PVX JSR PC,OUTST ;AND THE SYMBOL NAME PVAR03: JSR PC,EOL  ;FINALLY AN END OF LINE RTS PC �����������������������������������PVX: BITB BITM+1,MISC ;DO WE NEED A GLOBAL?–ERT ANY REMAINING COUNT MOV @R1,16(R0) ;... & GIVE TO MONITOR MOV 14(R0),PC ;EXIT DIRECTLY TO MONITO ; 2) TERMINAL INTERRUPTS: ; A) KEYBOARD CALL: ; THIS ROUTINE STORES INPUT IN BUFFER, CONVERTING ; ALT MODE TO ESC, FLAGGING CHAR AFTER THESE ; TO STOP SPECIAL ACTION & FOLLOWING CR WITH ; LF. ALLOWS MORE INPUT IF ROOM IN BUFFER ; BY LEAVING INT ENB BUT WILL ACCEPT ONLY ; CTL/U WHEN THE BUFFER IS FILLED. CALLS PROC. ; ROUTINE IF CURRENTLY AWAITING DATA. KT.INT: BCS KT.INO ;COMMON ENEVRIET;R R1+,P)(S OVM: 1$ SEUREC;R  NCDL ALC O ER ZSSLEUN ; $ 1Q BE  DEVIDIT EX NOR FET;S  R10,RV MO  ERNDAIEM RVESA;) SP-(1,RV MO  SOO ;D   IVD R SOVIDIT SE; 3 ,R0.#1 OVM N IORSVEON CERMBNUL MACIDE;   : NC�D���������������������� � CTSE.C  +1UFLBTT C=ASTL T2 ./82 KWBL.: UFLBTT 3W LK.B R:HDTL TW LK.B V:SATL TE URMPIT ECCS. C ND.E  ENEV. / E AG P2 -7/Z CIAS.: 3$ 1/ XXCXDEOVTNOCEPGSAUUL/J 50AD.R  N/JUAYRMAPARBMFEAN/J 50AD.R $:12 0.10 .,31 .,qþ˜NE BUFFER FOR UNPACKING 2$: MOVB #SPACE,(R2)+ ;SET DELIMITER DEC R3  ;END? BEQ 4$  ; YES MOV -(R4),CHPPNT ;SET CHARACTER POINTER DEC CHRPNT  ;GET A RUNNING START 3$: GETR50   ;GET CHAR AND TEST FOR A/N BLE 2$  ; NO, THROUGH MOVB R5,(R2)+ ;OK, STUFF IT BR 3$ 4$: CLRB (R2)  ;SET TERMINATOR MOV #LINBUF,CHRPNT SETNB  CLR ERRBTS CLR ARGCNT ; CLR R3 CALL @SYMBOL+2 MOV (SP)+,R4 TST ERRBTS BEQ 1$ 5$: SERROR 203 6$: RE™ BNE }PVAR04 ;NO BISB BITM+1,MISC ;SET THE DONE BIT JSR PC,MUTGL ;OUTPUT THE GLOBAL JSR PC,EOL  ;AND AN END OF LINE PVAR04: JSR PC,OUTNAM ;OUTPUT THE NAME JSR PC,OUTCOM ;ALD A COMMA RTS PC ; ; MODE: .BYTE 'B,'L,'I,'R,'D,'C,'X,%A .EVEN ������������������������ .NLIST BEX OPTLST: OPT1 OPT2 OPTEND 0 OPT1: .ASCII /END=/ OPT2: .ASCII }/ERR=/ OPTEND = . .EVEN FMPSH: .ASCII / $PSH/ .BYTE 0 RPSH: .ASCII / $PSHR1/ .BYTE 15,12,0 FMTšTRY ON INT. TST TT.ISW ;IF INPUT, READER'S BABY? BGT TT.IIS ;IF SO GIVE IT TO HIM! KB.IIS: JSR PC,KB.IGP ;GET INTERNAL BUFF PTRS MOV PC,R4 ;SET CHECK STRING POINTER ADD #KB.ICS-.,R4 BICB (R4)+,R0 ;STRIP PARITY BIT CMPB R0,(R4)+ ;^U INPUT? BNE KB.IG1 ;IF NOT CONTINUE CMP R1,R2 ;OTHERWISE ANY OTHER INPUT? BNE KB.IG1 MOV KB.OSW,R5 ;IF NOT, PRINT U/W? BLE KB.IG5 BISB R5,KB.PSP ;IF SO STOP LINE OUTPUT BR KB.IG5 ;... & FORGET IT! KB.IG1: MOV R1,R3 ;SET MOVING PTR KB.ESW: BR .30 .,31 .,30 .,31 .,31 RDWO. 0 3, 1.3, 0.3, 1.3, 9.2, 1.3D OR.W $:11 ENEV. > AB<T./INMA/.F><F IZSC.A $:10 RNTURE  AVLSTT2,RV MO  YTVBMO  R1$,13#V MO  R23,#B SU  NP0UR5  )+R2,('-#B OVM C DN  R1+,P)(S OVM 2 L+BOYMSR CL  OLMBSY),R1$(11$-12 OVM ) SP,(1)(R-D AD  3$ GTB ) SP,()+R1(B SU $: 3E BLTAH NTMOS/AY DTOT INPO; 1 ,R1$#1 OVM: 2$ P)(S.,67#3 OVM8 1$ 2$ LEB . 66#3),SP(P CM  1$ MIB T BIA T EACH;) SP,(2037#B SU  TEDAE THT GE;  E mþœTURN CSIBAS: .ASCII /LI/ .WORD LIST .ASCII -NL/ .WORD NLIST .ASCII /N / .WORD NSWPRO CSITOP: NSWPRO: MOVB #1,NSWFLG RETURN .ENDC ������������������������ .SBTTL ASSEMBLER PROPER ASSEMB:    ;ASSEMBLER PROPER MOV MAIN.,PRGTTL ;INIT DEFAULT TITLE MOV MAIN.+2,PRGTTL+2 MOV LCMASK,-(SP) ;STACK LISTING CONTROLS MOV LCLVL,-(SP) CALL NXTPAS  ;PROCESS PASS MOV (SP)+,LCLVL MOV (SP)+,LCMASK INC PASS  ;SET FOR PASS 2 NXTPAS: C�LAB: .BYTE '0 FMTLB1: .BYTE 15,12,0 .EVEN IOG02: P1,P2,P3,P4,P5,P6,P7 P1: .ASCII / $FIND/ .BYTE 0 P2: .ASCII / $INRI- .BYTE 0 P3: .ASCII / $INI/ .BYTE 0 P4: .ASCII / $INFI/ .BYTE 0 P5: .ASCII / $OUTRI/ .BYTE 0 P6: ,ASCII / $OUTI/ .BYTE 0 P7: .ASCII / $OUTFI/ .BYTE }0 P8: .ASCII / $ENCD/ .BYTE 0 P9: .ASCII / $DECD/ .BYTE 0 INIT05: .ASCII /0,0/ .BYTE 15,12,0 INIT07: .ASCII / $PSH,/ .BYTE 0 INIT08: .ASCII / $ž+4 ;ESC SW. (BR .+2 WHEN SET) BIS -(R4),R0 ;FLAG CHAR. IF LAST = ESC CLRB KB.ESW ;ASSUME ESC COMING CMPB R0,(R4)+ ;RUBOUT? (OR FLAGGED) BHIS KB.IG2 ;IF SO OMIT ESC CHECK CMPB R0,(R4)+ ;ALT MODES (375/6)? BGE KB.IG5 CMPB R0,(R4)+ ;... OR ESCAPE? BEQ KB.IG5 ;IF SO SET SWITCH KB.IG2: INCB KB.ESW ;... BY OMITTING THIS ;STORE CHARACTER IF ROOM IN BUFFER: SUB R2,R1 ;MORE ROOM IN BUFFER? BMI .+6 SUB #KB.IBZ,R1 ;... ALLOWING WRAP AROUND ADD #3,R1 ;(SAFETY MARGIN) BLT KB.IG3 BAT.D  #ONSIER VOR FTOIT;D   YTVBMO  R12,O+LLHE#V MO  INE TLTIE OV;M  T BYOVM 1 ,R0$#1 OVM T ARSTO TNTOI;P R2F,BUTL#T OVM R FEUF BERADHEE THT NI;I    R:HDET�S������������������������ N VE.E  F><LF><LR><C IZSC.A $:10 RNTURE  NTOU CNELIW NET SE;T CNIN,LPP#L OVM T ISTLI;R HDTL#TK,LNST#L TERI.W  1)(R-R CL  1)(R,-R2 OVM H GTEN LTEPUOM;C  R21,RB SU 1 ,RUFLBTT#V MO  YTVBMO  R1$,10#V MO  ALIMEC DTOT ERNVCO;  C DN  R1M,NUAGPV MO  ERMBNUE AGiþ ALL INIPAS  ;INIT FOR PASS LINE: CALL GETLIN  ;GET THE NEXT INPUT LINE CALL STMNT  ;PROCESS THE STATEMENT CALL ENDLIN  ;POLISH OFF LINE TST ENDFLG  ;END SEEN? BEQ LINE  ; NO, CONTINUE JMP ENDP ������������������������INIPAS:    ;INITIALIZE FOR PASS MOV #IMPPAS,R1 ;SET TO CLEAR VARIABLES 1$: CLR (R1)+ CMP R1,#IMPTOP ;FINISHED? BLO 1$  ; NO CALL SETSRC  ;INIT SOURCE ZAP SECROL  ;ZAP THE SECTOR ROLL MOV R50ABS,SYMBOL ;SET ". ABS��IO/ .BYTE 0 FIN00: .ASCII / $IOF/ .BYTE 15,12,0 .EVEN .END ;  0 IF READ ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������¢GT KB.IG4 ;IF NOT FOR 1 CHAR ONLY .. CMPB R0,#25 ;... ALLOW ^U ONLY BNE KB.IG4 KB.IG3: MOVB R0,(R3)+ ;OTHERWISE STORE INPUT JSR R3,KB.PCK ;... & ADJUST PTR CMPB R0,(R4)+ ;FOLLOW CR WITH LF ... BNE .+6 MOVB (R4)+,R0 BR KB.IG3 MOV R3,KB.IPX ;SAVE POINTER KB.IG4: MOV R3,R1 KB.IG5: MOVB @PC,@#TKS ;REENABLE INTERRUPT MOV KB.ISW,R3 ;INPUT AWAITED? BEQ TT.ODN-2 ;IF NOT, EXIT MOV KB.OCT,-(SP) ;OTHERWISE PICK UP ECHO CNT BMI .+4 ;LEAVE ANY REMAINING ... CLR @SP ;OTHERWISE ZERO IT PHE TMPBU; M NUAGPC IN  ERMBNUE AG PTOT INPO;2 ,RAVLSTT OVM E INUTROR DEEA;H    R:DEEA HN FTXF NDF .I ������������������������ T ECCS. T UNCOR ROER;  W LK.B T:CNRR ES AGFLT AI WNGTIIS;L 2 KBBL.: TWOU LT ESQUREG INSTLI; 2 KBBL.: TROU LS AGFLG INSTLI; 2 KBBL.: TFOU LE URMPIT ECCS. C ND.E  RG ASTPAN URET;R  R5 TSR 1 ,R)+SP(V MO  GSREE ORSTRE;2 ,R)+SP(V MO $:12 TFIF. G LA FITWAT SE; W UTLO CBIN  ITE ITWR;R HDST#LK,LNOD#C TERI.W $:11 RSROEReþ¤." MOV R50ABS+2,SYMBOL+2 CALL CSECTF  ;MOVE ONTO ROLL  CLR SYMBOL  ;DITTO FOR BLANK CSECT CLR SYMBOL+2 CALL CSECTF MOV #8.,CRADIX ;SET CURRENT RADIX COMB OBJSEA  ;FAKE OUT SEQUENCE BREAK RETURN R50ABS: .RAD50 /. A@S./ R50DOT: .RAD50 /. / MAIN.: .RAD50 /.MAIN./ �����������������������������������������SETSRC:    ;SET SOURCE DOR BEGINNING OF PASS .IF NDF XFTN MOV #CMDSAV,R1 MOV #CMDBUF,R2 CALL XMIT7  ;SET CSI BUFFER .IFTF GET����� �!�"�#�$�'�(�*�-�.��¯Øÿ³ÿÀùà�àà���€�€€Àÿ€ý�€�ÿ ÿ�� ÿ�`?�Àÿ�`ÿÿÿ‰�à�À)�,�L�O�P�T�}�öý�A�ÇÿÿÿÀ€�@@�@E�F�D�G�H�À��I�øÿQ�Àþ�øÆÿ+�\��@� ^� ^ ÀBÿÿ�ÿ��T�}�öý�A�ÇÿÿÿÀ€�@@�@E�F�D�G�H�À��I�øÿQ�Àþ�øÆÿ+�\� ÀBÿÿ�ÿ�� ½,VM½,`^½lóÌe6 Àd€ˆËŸò_ËŸÄ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������¦ JMP KB.IC1 ;... & GO PROCESS ; B) PRINTER CALL: ; THIS ROUTINE HANDLES ALL PRINT OPERATIONS, ; INCLUDING SPECIAL ECHO AS REQD.I.E.:- ; CONVERSION OF HT & FF, DISCARDING OF ; NULL, VT & PRINT RUBOUT, CONVERSION ; OF CTL CHARS TO ^ FOLLOWED BY ASSOC. ; NORMAL CHAR. ; IT ALSO EFFECTS ERASURE OF UNWANTED INPUT BY ; ACTUALLY REPLACING CHAR WITH RUBOUT, ; (INCLUDING ESCAPE IF PRECEDING) & ; PRODUCES APPROPRIATE ECHO. FOR ^U ; IT ADJUSTS LINE START TO REMOVE ; UNWANTED GARBAGE & RELEASG INIM TIDVO;A  NKTLLS#T AI.W  NO ; $ 12 EQB ? EDSTUEEQ RKB; R UTLO TBTS  TECALIUP D'TON DS,YE ; $ 12 MIB ? PT LASE AM SCEVIDEG INSTLI; 1 F+UTLO TBTS  FT.I  AGFLT AI WET;S  +1TWOULB NCI F FT.I  DRTHLS,#SLNKLI#E ITWR. $ 12 EQB ? NGTIIS LCEURSOY AN; L KSINLT TS  FF.I  ITE ITWR, ES;Y DRTHLS,#NKTLLS#E ITWR. T IF. : 0$ 1F FT.I  AG,PPC SRJ F IF. T IMPDU, ES9Y  ERADHE LLCA  NO ; $ 10 GEB ? ERADHER FOE IM;T  NTNCLI ECD O N;  1$1Q aþ¨SRC:    ;GET THE NEXT SOURCE FILE .IFT MOV #SRCLNK,R1 TST (R1)  ;FILE OPEN? BEQ 1$  ; NO .CLOSE R1  };YES, CLOSE IT .RLSE R1 .IFF MOV #LINKAS,R1 TST (R1) BEQ 2$ .CLOSE R1 2$: .IFT 1$: INIT SRC  ;INIT THE SOURCE FILE MOV R1,CSISAV ;FLAG POSSIBLE TERMINATOP TST SRCFIL+4 ;EXPLICIT EXTENSION? BNE 4$  ; YES, USE IT MOV #-1,SRCFIL+4 ;NO, ASSUME ".PAL" .=.-4 .RAD50 /PAL/ .=.+2 MOV #3$,SRCFIL-4 ;SECOND CHANCE IF NOVج g˜¬ ­ �‹F��ÂÙ ¨—3?@ÒÛÛÏ+�3?+�æ ��gA[hB[áõ˜-M-N_Ù j×"�oV_„6_n[Wh€ÀiW NÛÏ€ÀÙ G¤—ž ��e+�X€ÀW_WG_"-��4MWÛÏ6ßX4 D›+-��WøÞ; 1D›4-"š4-��������������������������������õ �L-ý�X €ÀX-ý�P �ÀXÍý �Û N"ý �â ƒ4‘—þ�Cåÿþ �÷ÿÕWþ——òÿÐg_ˆ˜Ö™ WØ× Ö× CÒöIDÒôIEÒ�€ ÷I— ß�Â… úI— LÒ” MÒgßPÒ�ÂŽ öIøIßøITÒ�– ûIüI— JÒõIp àÿ‰W夗êÿº—夗Ù%˜ãŽ=Ö¨½�Tز Ô—‰W�° 1D›¦ ½�° =Ö» =VÙáÏ%˜ýÿÕWª ~Wª ��ˆ˜WØÇ ÖÄ ½-ý��ÒÐùIð €Â× úÿÕW|­\õ ýIò €Âa óIå ý �Ú ÔÄZ ÐølžÒ”kŒB!´�€ÐPÐ÷¨U_ú——úÿíV_6_ñÍö�ªES KB BUFFER ; AREA IT OCCUPIES. ; IT WILL NOT BE CALLED FOR SUPPRESSED ECHO; ; HOWEVER FOR SUPPRESSED PRINT IT ; PERFORMS NORMAL PROCESSING, ONLY ; STOPPING ACTUAL OUTPUT TRANSMISSION. ; ;ENTRY FOR OUTPUT INTERRUPT: KT.INO: TST TT.OSW ;ON OUTPUT INT MAY BE PUNCH BGT TT.OIS ;IF SO GO TO ITS ROUTINE ;STANDARD SEQUENCE FOR PRINTER PROCESSING: ; GETS CHAR. OR ITS SUBSTITUTE & SETS UP FOR NEXT ; A) GET CHARACTER FROM BUFFER: KB.OIS: MOV KB.OBP,R3 ;GET BUFFER POINTER IF NOT MOV KB.OSW,-BE  D?TEESQUREG INSTLI; 1 R+UTLO TBTS  FT.I  DEMOR EACL; ) R1-( LRC T UNCOT SE;) R1-(2,RV MO  NTOU CERCTRAHA CTEPUOM;C  R21,RB SU F LET;S )+R2,(LF#B OVM R CFFTU;S )+R2,(CR#B OVM K ANBLT RSFIO TVEMO; + 2)(R TBTS  4$ EQB S AB TND A; 2)(RB,TA#B MPC $ 4Q BE  ESACSPG INILRA TIMTR;) R2-(E,ACSP#B MPC: 4$ LLNUO TCKBAE OV;M  2)(R-B STT R KEAR MET;S  )+R1(R CL  R12,F-BUST#L OVM L UL NONE ATINRMTE; $ 3E BN  ERXF;+ 2)(R+,1)(R VBMO $: 3X DEIN]þ¬T THERE BR 5$ 3$: CLR SRCFIL+4 ;FAILED, TRY WITHOUT EXTENSION 4$: CLR SRCFIL-4 ;NO MORE ERRORS ALLOWED 5$: MOV #4,SPCFIL-2 ;INPUT .OPEN #SRCLNK,#SRCFIL .IFF .OPEN #LINKAS,#ASMLS .IFTF INPSRC:    ;INPUT A SOURCE BUFFER MOV #SRCBUF,R1 CLR -(R1)  ;CLEAR COUNT CLR -(R1)  ; AND MODE MOV #SRCLEN,-(R1) ;SET MAX LENGTH .IFT .READ #SRCLNK,R1 ;READ IT .IFF .READ #LINKAS,R1 .IFTF RETURN .ENDC ������������������������GETLIN:    Ok—^x�^^ú]ï0��{š€Âxƒß@Âx„ßÀÀø™ù0R‚ï�€Âú€Àx…Ÿ�Âx’Ò€Àš€€Âª€×U�ÂL�Ð1zC[BÛ|€Â-B[9@ÀB[V€À=4B[kC[�ðV×A[áõ˜�ÀÒ˜VWµ|œz CÛEP_J4µ—BÛµzBÌ—?|œz:7_Pf_ k×ZP_X_Ì—Rµ—@‡zU7z z×if_…þ™z×µµ—7_|€Àr7€Â�7€ÂÛÏ{9@À�9@À�zdz:7_“Ì—a:7_|7€Â�9€Â77_z7�7_7?Ÿ)ßxWzW|×$€À|W9ߌ€Âª‹€Àª‹‹j{W‰Wĵ��|€Àš«1��€€Àþ™°1q€À«u€Àõ™U��Z€À¼Q¼1��Z€ÂÁQTÁ1��ûÿx™kÛ–Á‘Ôh@ÂÓC�ÂOD›Û–Ç1��ƒ€Àßúÿx™záúÿº—Û–Á‘ÂéGï|€ÀîCïOD›®(SP) ;GET SWITCH FOR LATER CHECKING KB.OGO: INC KB.OCT ;MORE IN BUFFER? BGT KB.ODN CLR R5 ;WILL BE USED AS RUBOUT SW. MOV PC,R4 ;FOR MORE, SET CHK STRG PTR ADD #KB.OCS-.,R4 MOV R3,R2 ;HOLD BUFF PTR AGAINST ECHO SIT MOVB (R3)+,R0 ;GET CHARACTER ... JSR R3,KB.PCK ;... & ADJUST PTR ; B) IF ECHO PRINT, TAKE DELETE ACTION IF REQUIRED: TST @SP ;CHECK IF ECHO PRINT BPL KB.OG1 ;IF NOT OMIT ALL THIS CMPB R0,#25 ;CHECK FOR ^U BNE KB.OD0 TST KB.CSW ;SECOND TIME THRU? BNE KB.OS6N IOATINSTDET SE;2 ,RUFTBLS#V MO  NTMEGUARH TCFE;1 ,R)+R5(V MO $: 2F FT.I  SLNKLI#T AI.W  FF.I  NKTLLS#T AI.W  FT.I  2$ CCB P LOR FTOIT;D  +1TWOULB SRA F IF. : 1$ ES;Y  NKDLCO#T AI.W  NO ; $ 1C BC  B? KONG INITWA; W UTLO RBAS  FT.I  P)(S,-R2 OVM S EG RWO TVESA;) SP-(1,RV MO  NELIA T IS;L   : INTLLS TFIF. E OD MKBO TET;S TROU,L#1 OVM E AGSSMEA E YP;T    G:MSYP TN FTXF NDF .I  UTTPOUG INSTLI TLBT.S ������������������������ T ECYþ°;GET AN INPUT LINE SAVREG MOV #IMPLIN,R1 8$: CLR (R1)+  ;ALEAR LINE-DEPENDENT VARIABLES CMP R1,#IMPTOP BLO 8$ 1$8 MOV #LINBUF,R2 MOV R2,LCBEGL ;SEAT UP BEGINNING MOV #LINEND,LCENDL ; AND END OF LINE MARKERS .IF NDF XMACRO MOV MSBMRP,R1 ;ASSUME MACRO IN PROGRESS BNE 10$  ;BRANCH IF SO .IFTF MOV #SRCBUF,R1 .IF NDF XFTN .IFF .WAIT #LINKAS .IFT .WAIT #SRCLNK .ENDC TSTB SRCHDR+3 BEQ 2$ .IF NDF XFTN BIS CSISAV,ENDFLG dWoW U ØÿæZ㤗•ˆ˜WØD›æZü×–‡œ~��1WØ5U5·˜U•>€ÀõÉ�€À‡œ�×§��U5�ò‘À—À—ûÿº—’÷›ß5÷�U�™h@À-ú$_l%_W×&_Y×'_(_X×)_V×:_WY×X×€Â|6*_VЗ[×З+_Ë–¢–v�Âvl?œš€Àcm?–š&_m>—úÿ�™äßÛ–ûÿx™&×–+ž¥��*_&_r@Âkm?–š(_m(_rm?@Àv–š%_m%_k?Ž•$_k+_�Â|Ó–*_Eý ��ÿ�öXMm€Àˆ2ÕX-ý �‹üÿŒõÿÿY@Dd|‚P4�1 UŽOIó��„W.ßxוx���8Zò‘Ǒב’÷›[ÜŸ5„×.€ÀœZ._'zWkWX€ÂÔЗa_ˆW‡WÁ‘¼9‹�ÂJŠŸ•Á‘Ék@_ A_h@ÂA_ÑŠ�ÂJŠkWzWa_½Á‘Óជ׈×V€Âó€W‡WÁ‘JЇ×|œPa_:axeW|׋‹ €À|WÛ�€Â9ß zWŸ•‹JŠkW² ;IF SO SET UP CRLF ECHO KB.OD0: MOV #0,R5 ;RUBOUT SWITCH ON? KB.DSW=.-2 BEQ KB.OD2 CMPB R0,@R4 ;IF SO RUBOUT AGAIN? BNE KB.OD3 ;NO - GO CLEAR SWITCH NOW KB.OD1: CMP R5,KB.IPY ;ANY TO DELETE? BEQ KB.OGO ;IF NOT IGNORE CMP R5,KB.IBS ;ADJUST IF NECESSARY BNE .+6 ADD #KB.IBZ,R5 CMPB -(R5),@R4 ;IGNORE IF DELETED ALREADY BEQ KB.OD1 MOVB @R5,R0 ;ERASE DELETED CHAR. MOVB @R4,@R5 KB.OD2: CMPB R0,@R4 ;IF NO DELETE SW, RUBOUT NOW? BNE KB.OG1 MOV R2,R5 ;IF SO SET SWITCH BR .+4CS. W LK.B P:TYLK BW LK.B T:PNLD RW LK.B T:PNBJ OE URMPIT ECCS. N URETR: NXJIOB NTDPRL2,F+BULD#R OVM T PNBJ,OUFJBOB#V MO I:INBJ O : 9$ DCEN. L KOIN#L ITWA. R HDLD#RL,KOIN#L TERI.W  FF.I  NKJLOB#T AI,W  DRDHRL,#NKJLOB#E ITWR. N FTXF NDF .I  DCEN. $ 9R B F IF. P NO  IM1SX1 DF NIF. ) R0-(1,#V MO  0)(RF,BULD#R UBS ) R0-(T,PNLDRV MO  0)(RP,TYLKBV MO  R0F,BULD#R OVM: MPDDRL ITINT US JO, N;  NIJIOB OSBL  D?RLN INGHIYTAN;2 F+BULD#RT,PNLDRUþ´ BNE 9$ .ENDC CALL GETSRC BR 1$ 2$: MOV SRCHDR+4,R0 ;GET BYTE COUNT CLRB SRCBUF(R0) ;SET A TERMINATOR MOVBYT   ;MOVE THE STRING CALL INPSRC  ;ALL SET FOR THE NEXT BUFFER CMPB -(R2),#FF ;TERMINATOR A FF? BNE 3$  ; NO .IF NDF XFTN CLR LINCNT  ;YES, FORCE NEW PAGE .IFD MOV #60.,LINCT JSR PC,PAG .ENDC 3$: CMPB -(R2),#CR ;A VALID CR? BEQ 4$  ; YES TSTB (R2)+  ;NO, DON%T ZAP THE CHAR 4$: CLRB (R2)  ;ZAP END OF LINE Cá8Ä—ýÿq™á8��ûXÿ˜V6ò Àõ8õXõ8��ÿ8�KÿXÿ8ÛJÿXÿ84_ÿXÿ8@¨3Y6Yÿ8ŸZZЗ2_ÿX� ÛÊQ� ÛÊÈ�ÃÏ3_2ÛÏ€Ð*� 3ßÛ��Ò�Ð3ß3_Ä—4ÏUx2a_ Ÿ5_ ŸõY5ß�Â>a_2ÿ8˜õ5�ÂH3ÛÊR�K3ÛÊPÚ�ËQÛJÚ3_ÿXÿ8�aYŽ[�aY�bYý �_ãÿU ����ú¤EÉ4×��P_g9zgYg9UxPq™g9��P_ `P_sq9��P_}›x9D›P_zxYx9��P_�9z�Y�9¤— D›P_ˆ�Y�9��"ڀ¥õYŽ9€Â¥øYîÿûYõÀõY"�ËøÙÀ"ZûY™õÀŽYŽ9��Áѧ9ŽY§Y§9ЗîY§Y€Â§9íÿÁY»ÁÀÁQîÙ�ÃÁQŽÀŽYÁYµ§9��_ß~€ÂÁ9DßYp@ÂÖî™w˜ŒÜ@ÂÒšÖP_̨ßYî™w˜ Ÿ\_�È_Ä�Ãì_ß�ÃìÀ�Ãì\ß�Ãì__P_×Á9šÁ9��~¶ KB.OD3: CLR R5 ;IF ALSO AT END OF STRING ... MOVB #134,R0 ;... REPLACE WITH \ KB.OD4: ADD #5,R4 ;BUMP STRG PTR .... BR KB.OS3 ;... & GO SIT FOR NOW ; C) PROCESS FOR SPECIAL CHARACTERS: KB.OG1: MOVB (R4)+,R1 ;ADJUST CHECK POINTER BICB (R4)+,R0 ;STRIP PARITY BIT ... BEQ KB.OGO ;... & IGNORE NULLS CMPB R0,R1 ;... RUBOUT .... BEQ KB.OGO CMPB R0,(R4)+ ;... & VERTICAL TAB BEQ KB.OGO MOV R0,R1 ;SAVE IN CASE REQUIRED LATER CMPB R0,(R4)+ ;REPLACE HORIZ. TAB ... BNE KB.OG2 MOP CM $: 1: 9$ DCEN. L KOIN#L ITWA. R HDBJ#OL,KOIN#L TERI.W  FF.I  NKJLOB#T AI.W  DRJHOB,#NKJLOB#E ITWR. N FTXF NDF .I  DCEN. $ 9R B F IF. P NO  IM1SX1 DF NIF. Y PTEMF ICHANBR ; $ 1Q BE  ZESIE UTMPCO;) R0,(UFJBOB#B SU  D)TEITINT NO (LLNUF IITEX; X INBJOQ BE  0)(RT,PNBJOV MO  RYNABID TEATRMFO;+ 0)(R1,#V MO  R02,R+HDBJ#O OVM R FEUF BCTJEOBE THP UM;D    P:DMBJ�O���������������������� � 16DTRL; 0 01601D OR.W  15DTRL; 0 01601D OR.W  0D Qþ¸HAR 5$: MOV #LINBUF,CHRPNT SETNB BR SETLIN .IF NDF XFTN 9$: ERROR E  ;EOF BEFORE .END BR 4$ .ENDC ����������������������������������������������� .IFT 10$: CALL 20$  ;MOVE A CHARACTER BGT 10$  ;LOOP IF GT ZERO BEQ 19$  ;END IF ZERO MOVB -(R2),R0 ;TERMINATOR, BACK UP POINTER CMP R0,#MT.MAX ;END OF TYPE? BLOS 22$  ; YES MOV R1,-(SP) ;REMEMBER READ POINTER MOV MSBARG,R1 TST (R1)+  MOV R2,R3  ; AND WRITE POINTER NEG R0   åRѲå€ÂÁå�•ÖÁå•ÞÒå•êÿ8L@Ìn7Ѹµ�ø��8L@Ìn7Ѹ¶�ø��8LVÌ‹@0n7Ѹ²Hþ�8L@Ìn7Ѹ´Hþ�8LÌKþ�8LVÌ›@0n7Ѹ²Hþ�8LÌKþ�8LVÌ‹0Kþ�8LVÌ`1ƒ�v3·K‰¶ ߀�€8LVÌ`1ƒ�v3·qK�ÿ8LVÌ`1ƒ�v3·K !\‰X$�hþ�8LVÌ`1ƒ`±ƒ fn·–h°H HtÃÐJƒéJ¨Ã�hV…¦‚`°ƒ+ß �€8LVÌ`1ƒ`±ƒ fn·–h±H HtÃÐJƒéJ¨Ã�hV…¦‚`°ƒ+ß �€8LVÌ“@0n7Ѹ²Hþ�8L@Ìd‰ß€�€8L@Ìn7Ѹ³Hþ�8LÌK %T°‹`0°‚�èJ†E•h��ðo��H†«Å V2`1ƒ�v3·K�!‰Ñˆ®1,Z‰A�ÿ8L@Ìn7Ѹd±ðo��8LVÌ‹@0n7Ѹd±�h��ø��8LVÌ`1ƒ�ºVB #40,R0 ;... WITH SPACES .... TSTB #7 ;... UNTIL NEXT TAB STOP KB.TCT=.-2 BNE KB.OS2 ;MEANWHILE SIT ON HT KB.OG2: CMPB R0,(R4)+ ;FORM FEED ... BNE KB.OG3 MOVB @R4,R0 ;... IS REPLACED BY LF .IF EQ,FTRPG TST KB.LCT ;... UNTIL PAGE-END BNE KB.OS3 .IFF MOV KB.LCT,#0 ;SET FF SWITCH KB.FSW=.-2 .ENDC KB.OG3: CMPB R0,(R4)+ ;LINE-FEED.... BEQ KB.OS4 ;... MUST LOOK FOR PAGE-END CMPB R0,#15 ;CR MAY RESTORE PRINT BEQ KB.OS5 ;... SO GO CHECK CMPB R0,#32 ;NOW LOOK FOR OTHER CTOR.W  0D OR.W  0D OR.W  11DTRL; 0 00001D OR.W  0D OR.W  0D OR.W  06DTRL; 0 01601D OR.W  05DTRL; 0 01601D OR.W  04DTRL; 6 00401D OR.W  03DTRL; 4 00201D OR.W  02DTRL; 6 00401D OR.W  01DTRL; 4 00201D OR.W  0D OR.W  PETYD RLY BLEAB;T    L:TBCR P N URETR 2 ,RNTDPRL OVM P DMBJOL ALC R TEINPOD RLT SE;T PNLD,RR2 OVM : MPRDPC������������������������ N URETR: 1$ 2N URET RUETRT SE; 0 RZ TNSE  AKRE BCEENQUSET SE;C LOBJ,OOCCLCL OVM C PTEMþ¼;ASSUME MACRO CMP MSBTYP,#MT.MAC ;TRUE? BEQ 12$  ; YES, USE IT MOV MSBCNT,R0 ;GET ARG NUMBER 12$: MOV R3,R2  ;RESET WRITE POINTER 13$: CALL 20$  ;MOVE A BYTE BGT 13$  ;LOOP IF PNZ BLT 14$  ;END IF LESS THAN ZERO DEC R0  ;ARE WE THERE YET? BGT 12$  ; NO 14$: TSTB -(R2)  ;YES, BACK UP POINTER MOV (SP)+,R1 ;RESET READ POINTER BR 10$  ;END OF ARGUMENT SUBSTITUTION 19$: MOV R1,MSBMRP ;END OF LINE, SAVE POINTER BIS #LC.ME,LCFLAG ;FLA wK×?½Ÿõ_• õ_•J1 –J•*õ_—J—*õ_—j•J–Jr ý�t ��÷�t ��‚ ó߈ ‘ �Â’ „T“ ßJ” 1K˜ 3Kt µ” @�h™ ����¨ } � y | ~ ñ 8 H I c d g m n o p ˜ � ü õ ª ž�  d e f g h i j k l m n p q r s t u v w x y z | } ~  € � ‚ ƒ „ … † , . 0 2 4 6 8 : < > @ B D F H J L N P R T U X Z [ ] ^ _ ` a b c ƒ…÷øùúûüýþÿ�     !#$%&'()*+,‘×Âò6=IJ�hÿB������Â�À �9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿH J ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿc j ����h ¾L CHARS BGT KB.OG4 BISB #100,R0 ;THESE MUST BE CONVERTED COM #0 ;... & PRECEDED BY ^ KB.CSW=.-2 BNE KB.OS1 KB.OG4: DECB KB.TCT ;RESET TAB STOP IF NEC BPL KB.OG6 KB.OG5: MOVB @R4,KB.TCT KB.OG6: MOV R5,KB.DSW ;STORE LATEST DELETE SW. TST (SP)+ ;TRUE PRINT? BPL .+4 ;IF NOT ADJUST FOR ECHO INC R4 BITB @R4,KB.PSP ;BECAUSE,AFTER ALL THAT, .... BNE KB.OIS+4 ;... MAYBE NO PRINT ANYWAY!!! MOV R3,KB.OBP ;SAVE LATEST PTR SETTING JMP KT.OGO ;JOIN TT TO OUTPUT ;SPECIAL CASES: ; 1)DAUP;C LOLC,CR5 DDA 2 R O 1NTOU CKEMA; 5 RC IN $:20 NTJPOB1,RV MO $:19 )+R1,(+1UEALVB OVM N IOCTRUSTINE YT BIFH NCRA;B  9$1Q BE  R5 STT + 1)(RE,LUVA VBMO  ERNTOI PVESA;T PNLD,RR2 OVM: 7$ 1T IVEMO, ES;Y )+R2,(UEALVV MO  NO ; $ 17 CCB ? UEAL VNY;A 4 RL AS $:16 )+R2,(+2OLMBSY OVM T IVEMO, ES;Y )+R2,(OLMBSY OVM O N;  6$1C BC  D?TEESQUREL BOYM SNY;A  R4 SLA: 5$ 1 + 2)(R0,RB OVM X DEINE UTMPCO;0 ,RUFJBOB#B SU  R01,RV MO  DECOT SE, ESIþÀG AS MACRO EXPANSION BR 5$ 20$: BIT #BPMB-1,R1 ;MACRO, END OF BLOCK? BNE 21$  ; NO MOV -BPMB(R1),R1 ;YES, POINT TO NEXT @LOCK TST (R1)+  ;MOVE PAST LINK 21$: MOVB (R1)+,(R2)+ ;MOVE CHAR INTO LINE BUFFER RETURN 22$: CMP R0,#MT.MAC ;MACRO? BNE 23$  ; NO CALL ENDMAC BR 1$ 23$: CALL ENDRPT BR 1$ .ENDC SETLIN: MOV #OCTBUF,R1 1$: MOV #SPACE*400+SPACE,(R1)+ ;BLANK FILL CMP #LINBUF,R1 ;TEST FOR END (BEGINNING OF LINE BUFFER) Ñ zKÿÿÑJÙ 4KØÊǸ�4+–Ü”È�Á’@Â�µ –ÜŒМê^Œ›7¹ßƒŠò |›w4+¹Ÿ¢ž‰_ÌŽÕŽþtÍmÈ@ÂŒ›ŽÊ�›7€ÂÅÞž|¨ø`8�ãŽø@À¤Ax¤7`ø�Â�8¢žsM`8�µ –ܼ4+@ÂÌŽÕŽ›7¢ž´T4+¹Ÿ¢ž�_¾ÜŽ›w¤7`ø�¬8ÕÊÕJ`�z ÑJò zK.��4+òŸt—²7t—þ7t—Ì.��|ÜŽòK›7͘Õ.��4+ªŸÜ.4k�ÐÜ.��4+¹Ÿ›÷A]Y�ã.��ò ê.òK©ß@Âê.ÐüŒžê.��Þ˜ç˜C�ô.��ò |ú. ú.›wú.��Y�ÞXÙ 4K¸�ÞX�Â/Aœ��kËlËd ÞÞ¼J––I�¼jÞ^™ßœß�Âtç˜ /¼ tÍmËt��4+¹ŸiK �i H�jËjKH�kËkKH�lËlK¼*ªß@À€4+ªŸ¼j­_4k¼êj ²wk þw$/��&¯ŸðÞC/p��&¯ŸìÞ�Âp¸ÀÂpI/��&¯ŸðÞ�ÂI�S/��:�øÞZ/ËZOZ/��Å*ÆJ¤7ÅjÆ ¤w CTL CHARACTERS (FIRST PASS): KB.OS1: MOVB #136,R0 ;ECHO ^ THIS TIME CMPB -(R4),-(R4) ;MOVE STRING POINTER BACK ... ; 2) HORIZONTAL TAB: ; (ALSO RUBOUT \ ECHO) KB.OS2: INC R4 ;GO TO LF IN STRING TST R5 ;TAB UNDER DELETION? BEQ KB.OS3 ;IF SO GO AND SIT MOVB R1,(R5)+ ;OTHERWISE USE DELETE SIT .IF NE,FTRPG ;10-NOV-72 ;THE FOLLOWING COMMENT NO LONGER APPLIES:- ; 3) FORM FEED: .ENDC KB.OS3: MOV R2,R3 ;AS WELL AS NORMAL SIT DEC KB.OCT ;... BY ADJUST CNT & PTR BR KB.OG3 ; 4) ;Y )+R2,(ORCTSE VBMO  NO ; $ 15 CCB = LD RNY;A  R4 SLA: 4$ 4S ESDRADG INRTTA SND A; + 1)(RC,LOLCCV MO  PETYK OCBLT SE, ES;Y )+R1,(03KTBL#V MO O N;  4$4E BN  M?TE ISTIR;F UFJBOB,#R1 MPC 1 ,RNTJPOB OVM P FEUF BMPDU, OMROO N;  3$1I BH  ENDLRLF+BULD#R0,RP CM  R02,RD AD  ZESID RLT GE, ES;Y  R04,RB OVM O N;  3$1I BH  M?OO;R -1ENJLOBF+BUBJ#O0,RP CM  ND EEW NTEPUOM;C  R05,RD AD  ERNTOI PDECOT GE;0 ,RNTJPOB OVM: 4$ 1R FEUF BMPDU; P DMCRPEþÄBNE 1$ RETURN ���������������������������������ENDLIN:     ;END OF LILE PROCESSOR SAVREG CLR ROLUPD CLR LOUTR  ;CLEAR LIQTING REQUEST TST R5  ;BRANCH IF END OF LINE BEQ 1$ CMP R5,#CH.SMC ; ";" BEQ 1$ ERROR Q 1$: TST PASS  ;PASS 1? BEQ 20$  ; YES TST ERRBTS  ;ANY ERRORS? BNE 10$  ; YES, GO DIRECTLY, DO NOT COLLECT, ETC. .IF DF XFTN CMP LSTVAL,#2 ;LISTING REQUESTED? BGE 13$  ;YES, GO DO IT .ENDC TST LCLVL  ;TESó–&+ë—ð^: Y�8Ët—²—Ñ”:L¦M¦-4K:,ï^p—: õÑÙ s:�Ù ðÌN)‡ïÌN*œM¸×ùÿ˜X:�´Ô�áŸü^€Àn ŠŸK‡]�¸K¸W˜X‹n¶Ê^œ4KŒ>¹Ÿì^p—œ ë—ÌN» ÿÿÇJœ�Ñ”k�Мð^´ÿÿµÊ·‚ÿÿµÊ‚&2@Âј7—i ¦m™ß¬~Í�Ân²—Ñ”¸Êÿÿ˜Xç˜&¯ŸìÞ�Âp‘ß :L¦M:,O—¸�¶ úÎÆp³ŸãN¸¢žvMú€Âí½ßíÒ¢žuMú¸ßí➎_4+¯ŸÈìÞô�Ã÷4+¹Ÿø›7¦íã΢ž~Mÿÿ˜Ø˜X: õј@ÀÑ™ßÆpÿÿ˜Ø�‚¶ €À‚I�–ܘXȘ@Àp~Í�Âp:�Æß«Ù ”¿P┚ß�Ânú½ß;EÓ€Â/0ë—ì^žt—E“Æß�ÂnÕt—E“ÆßSnE€ÀxÕESt—¸—ï^ÐJ, ��K“ï^p— E3��Øœ@Âr½Ÿ|½ß�Âr4+¹ŸK3Ó íÞx³ÒJ|fÒ€À„4+½ŸòKï^4k¶ zKÆ LINE-FEED: KB.OS4: .IF NE,FTRPG TSTB #0 ;IF FILL NOT YET UNDERWAY ... KB.FIL=.-2 BNE KB.O4B MOVB KB.FIL+1,KB.FIL ;... START IT NOW BEQ KB.O4C ;... UNLESS NONE TO DO KB.O4A: MOV R2,R3 ;OTHERWISE SIT FOR FILL DEC KB.OCT BR KB.OG5 KB.O4B: CLR R0 ;USE NULL FOR FILL ASLB KB.FIL ;... UNTIL ALL DONE BNE KB.O4A KB.O4C: ;THEN .... .ENDC INC KB.LCT ;IF AT PAGE-END ... .IF EQ,FTRPG BLE KB.OG5 .IFF BLE KB.O4D .ENDC MOV #-7.,KB.LCT ;... RESET LINE COUNT .IF NE,FTRPG L ALC: 3$ 1C PEW NET;S )+R2,(OCCLCL OVM: 2$ 1+ 2)(R0,T1LD#R OVM: 2$ 4R FEUF BNTREUR CMPDU, ES;Y  MPRDPC LLCA  ES Y;  2$4S LOB ? ERFFBUD RLT ENRRCUN IOMRO;4 N-LELD+RUFDBRL,#R2 MPC O N;  4$1Q BE  S? UONE OV MPCD DI;C LOBJ,OOCCLCL MPC: 1$�1���������������������������� � 2$1R B C SEBJ,OECCSCL VBMO  )+R2,(+2AMCNCL OVM E AM NORCTSEW NED AN ;+ 2)(RM,NALCCV MO  7PETYD RLT SE;+ 2)(R7,T0LD!R OVM: 1$ 4S ERFFBUT ENRRCUP UM DS,YE; P DMCRPL ALC S YE ; $ 41 OSAþÈT OVER-UNDER RIDE BLT 20$  ;IF <0, LIST ONLY IF ERRORS BGT 13$  ;IF >0, LIST UNCONDITIONALLY .IF NDF XFTN BIT #LC.COM,LCMASK ;COMMENT SUPPRESSION? BEQ 2$  ; NO MOV CHRPNT,LCENDL ;YES, ASSUME WE'RE SITTING AT COMMENT 2$: BIT #LC.SRC,LCMASK ;LINE SUPPRESSION? BEQ 3$  ; NO MOV #LINBUF,LCENDL ;YES, POINT TO START OF BUFFER 3$: TSTB ROLSIZ+CODROL+1 ;ALYTHING IN CODE ROLL? BEQ 4$  ; NO BIT #LC.MEB,LCMASK ;MACRO BINARY EXPANSION? BNE 4$  ; sÍuxI�0—C�»ŸvÍvsÍvxC�0—I�»Ÿ™ßœß‚t¥P`tç˜7— 4K¸�ј: œMœ-O— O¼ŸZO»Ÿ7Q¦ ÉJV6��–¸J瘶 €Àt&2@Ât³ŸìÞt–6��¦-»Ÿ˜ß¬›—–Ü¥²— RõQ 2™ß­œßʈó–õ1õQ 2ó–õ1 R 2™ßÄœßÄõQó–õ1�Ð]—õq 2™ß­ë—ð^:,O—М³_Õ:,­˜ØÜ.¹ŸÍ˜²— RõQ 2™ßáœßáÙˆó–õ1 2™ßÙ¸—ë^:,A]A=½ŸÈJ­_õQ Rõq¤6��òÞÞXó6O—Þ8¹Ÿ€Â¥ßë—ð^Þ8@Àˆôó6­˜¥³ß�ÂÜNÜ.kÏSÏ–ÜkO–ÜSOœ-O—ó6¥­ß"ó6À—¸_Þxp—úx—O—ó6¹Ÿ¢ž�_Ü.¹Ÿ¢ž‘_Ü.¹Ÿ��––»ŸR7—07��:L: HË|¦M&:l¦m»Ÿ77��ÕN¯Ÿ…PÀÀKÕ�ÂÕ.½ŸãNC7��ÜN4K¯Ÿ¥PÀÀXÜZUŒÜ.½ŸúNO7��x—&Róÿ]�¶ €Ëó–&ì^]7ÊKB.O4D: TST KB.FSW ;IF FF & STILL MORE LINES ... BNE KB.O4A ;... SIT SOME MORE, ELSE ... .ENDC BR KB.OG5 ;RETURN TO RESET TAB STOP ; 5) CARRIAGE RETURN: KB.OS5: TST @SP ;TRUE PRINT? BMI KB.OG5 BICB @SP,KB.PSP ;IF SO, REMOVE LINE SUPPRESS BR KB.OG5 ; 6) INPUT CTRL/U - RESTORE CARRIAGE: KB.OS6: MOVB -(R4),@R2 ;REPLACE ^U WITH LF MOVB -(R4),-(R2) ;... & PREV SLOT WITH CR CMP KB.IPY,KB.ILE ;LINE ALREADY U/W? BNE .+6 ;IF SO LEAVE END PTR MOV R3,KB.ILE ;OTHERWISE RESET IT ... MBL  D?RLT ENRRCUN IOMRO;0 -1ENDLRLF+BULD#R2,RP CM  NO ; $ 11 EQB ? GEANCHR TOEC;S ECJSOBC,SELCCB MP}C R FEUF BLD RTOR TEINPOT SE;2 ,RNTDPRL OVM Y TRENE BLTAR PERO PET;G R4),R4L(TBCRPV MO  TSBIR DEORH IG HARLE CS,YE;4 ,R007417#C BI  NO ; $ 20 EQB ? OR FEDLLCAE OD CCTJEOBY AN; P TYLKBT TS  EMITR PERO PSTLI; B PFETSL ALC O TWW NO; 0 RL AS  TEBYR FOE ONE AK;M  R0 DCA ? TEBY; 4 RL AS  R0 LRC O ER ZMNLUCOT IS;L   F0TPSE  PCE ATPD USTHU, ES Y; =þÌNO BIC #LC.ME,LCFLAG ;YES, IGNORE ME FLAG 4$: BIT LCMASK,LCFLAG ;ANYTHING SUPPRESSED? BNE 20$  ; YES, DON'T LIST .ENDC BR 19$  ;YES 10$: INC ERRCNT  ;BUMP ERROR COUNT INCB LOUTP  ;LIST TO KB BICB NSWFLG,LOUTR MOV #ERRMNE-1,R1 MMV #OCTBUF,R2 11$: TSTB (R1)+  ;MOVE CHAR PNTR AND CLEAR CARRY ROR ERRBTS  ;ROTATE ERROR BITS BCC 12$ MOVB (R1),(R2)+ 12$: BNE 11$ 13$: MOV #LINBUF,LCBEGL ;LIST ENTIRE LINE MOV #LINEND,LCENDL 19$: MOVôŸì^4k—Rn tÍmË~n+nKnk†Мì^�Âk4+@ a\˜R��Ât5 �Y°nënk0’›˜¼œí=ÞXÞ8ÃИÞXÞIßx�=Y�ÞØR€Â®tÍ®NÚÀÀØ@ÂÞ€ÂßKßß®· Ùf0· Ù�ÂnÄšˆß{½¶JY�¸WÁ›´À¸W^œì^&RÑÔÓ��ÈšÄ:t��¸ ›ßÍœßÈZÈ:��åÿ¸Ê&Rv ]�&&RÏ:��:�ËØ:��~ÍÜ::�¢ßæËÓKÜ:ÖK•RÜ:��ÛÃPÀÒPë:��À€À€Û@€ñ:��Ñ€Âù:¶ €Â€Å’ÀÂpëšÛ×ÛÑTÃÛWÒÀWÃЀÀ¸×†ž¸W‰�’sÍÑY�ÑTѤÖÑT@ÂY�§ß@À€Ñ’Û€Âd@Â5Y�’[ÑT¸¤Vt ¸WëšÛ×ìÀW~�ÑT5’€ÂdÜÿÞXÛY�öWÀÃtÍëWÀ×Û׸Y�¤Ö¸Wª�@ÂcÃö×·JÐÒÐë×@ÀWÃ\ÒPt ÛWÛW· ÈÃPÒÀÒPÞXJ‰�ë׸¶ÊµÎOV R3,KB.IPY ;... & RELEASE INPUT BUFFER CMPB (R4)+,(R4)+ ;RESET STRING PTR DEC KB.OCT ;ADJUST CNT FOR 1 CHAR ... BR KB.OD4 ;USE ANOTHER SPECIAL LOOP ;... TO ADJ. FOR OTHER & RESET ;SUBSIDIARY SUB-ROUTINES: ; 1) CHECK TRANSFER DIRECTION ON SET-UP ENTRY: ; CALLED BY JSR R4,TT.DCK OR KB.DCK ; RETURNS CALL+2 FOR INPUT, CALL+4 FOR OUTPUT ; WITH TRANSFER CONTROLS IN REGS. & ; SAVED PRIORITY IN R4 (FOR TT ONLY). TT.DCK: MOV @R5,@SP ;PREVENT INTERRUPT FOR NOW MOVB #340,@R5 KB.DCK: 0$2Q BE  E?ONS AS;P  SSPA STT: 1$ 1TOP UM BD,OR W;  R5 NCI E YT BIFH NCRA;B  1$ MIB E YP TLD RHE TET;G R4R,TOECSB OVM E YT BMESUAS; 5 RR CL D EN ; $ 21 EQB Y TRENL OL RDECOT EX NET;G  OLDRCO XTNE  LLROE OD CSSCERO;P    L:OLCR�P������������������������������������������ � DSOR WURFOE OV;M  T4MIXP JM $: 1T ENRRCUP UM DO,9N  MPRDPC LLCA  ES Y;  1$ OSBL  R?HEOTANR FOM OO;R 10N-LELD+RUFDBRL,#R2 MPC K OCBLD GSA P UM;D   : MPDDGS������������9þÐB LOUTF+1,LOUTR+1 ;SET LISTING FLAG ������������������������20$: CALL PCROLL 21$: TST LOUTR  ;ANYTHING REQUESTED? BEQ 24$  ; NO CLRB @LCENDL  ;SET ASCIZ TERMINATOR MOV LCBEGL,R1 MOV #LINBUF,R2 CMP R1,R2  ;ANY SHIFTING? BEQ 23$  ; NO 22$: MOVB (R1)+,(R2)+ ;MOVE IT OVER BNE 22$ 23$: LSTLIN OCTBUF  ;LIST THE LINE 24$: CALL SETLIN CALL PCROLL BEQ ENDLIF  ;EXIT IF EMPTY CLR @LCBEGL .IF NDF XFTN BIT #LC.BEX,LCMASK ;BINARY EXTEN���Âh>|žh>€ý�Â`ý�Âàü�Â0ý�Â`ü�Â�ü�Â@ü�Â@ý�ÂÀü�ÂÐü�Â0ü�ÂPü�€üŒžÑ –Ü|½ ��¬_ÎT®J�Âw 6 ¾^|ižÌ© ͸T¶ŸŸ^µ”Ì�� �Œ>��ÞJÞj‰]�Ý*¢>Ýj»Ÿ‡ß·ˆß¹�͹‰ß�»êŽÞê»Þ*ÏJêŽtÍÜJÈ|�ÂÆõ �ß ÿõ �О¢>ÛJ�Âמ“¢>€À¢>£��îÿÜJp ÞJמÐ>��ÞJÞ ÝJýÿÛJ×>��C7¢žŠ_O7¢ž€KÞ>ÿïôÿ÷ÿúÿ���@���À�€���€� ó���€��/�7����@0�8��@A�2�:��À1�9�-�4�<�,�3�;�ÀQ¯R�S�U�V�T�W�X� ².�6�>�B�5�=�ñ�õ�ö¯ò�ù�ú�û�ü�÷¯�± ²'°Ø²(ª�«`©*¯@¯?¯¡¯à¯�°2@ÒÀÒ€Ò@ÐÀЀÐ>ý§ÍûjtìYôåÙ�,5IK]€^ˆ_�`˜a b¨c°d¸eÀfÈ�‚ƒÄ Å(19A IŠP‹X a�hŽp�x�‘ˆ’�“˜ÒMOV R0,R1 ;SET MOVING POINTER ADD #6,R1 MOV (R1)+,R2 ;GET BUFFER ADDRESS MOV (R1)+,R3 ;... & WORD COUNT ASL R3 ;... AS BYTES BIT #2,(R1)+ ;CHECK TRANSFER FUNC BEQ .+4 ;IF READ TAKE 1ST EXIT TST (R4)+ ;IF WRITE TAKE 2ND RTS R4 ;... WITH R1 AT COMP RTN ; 2) SIMULATE INTERRUPT: ; CALLED BY JSR R4,KT.ISM ; WITH RETURN ON TOP OF STACK ; EXITS WITH SIM. INT CALL BELOW 'SAVED' REGS ON ; STACK (R0 CORRECTLY SAVED) KT.ISM: MOV 2(SP),@SP ;GET RETURN ADDRESS ... MOV @#P.STAT,2(SP) ;.������������ G FLLBGD OR.W  //G IISC.A  LGLFRE RDWO. / R /I CIAS. G FLEGRD OR.W  //% IISC.A  LGLFLB RDWO. / =/I CIAS. : 2TDPEN RNTURE  )+R2,(R0 VBMO $: 10 RB WAS $ 1E BN  DEMO+,3)(R ITB 0 ,R)+R3(V MO B:P2ND E N URETR: 6$ UFNBLI INTLLS  2)(R RBCL: 5$ NELIT EX;N  2$ BR  NELIT PUUT;O  UFNBLI INTLLS  AB TSTLAR EACL, ES;Y  2)(R-B LRC: 4$ NO ; $ 3O BL  E?IN LNE OOR FGHOUEN;. 50F+BUIN#L2,RP CM  ORATAREP;S )+R2,(AB#T VBMO $:10 5þÔSION SUPPRESSED? BEQ 21$  ; NO .ENDC BR 24$  ;YES, DON'T LIST ENDLIF: ZAP CODROL  ;CLEAR THE CODE ROLL RETURN ������������������������ .SBTTL STATEMENT PROCESSOR STMNT: .IF NDF XFTN TST CNDWRD  ;IN CONDITIONAL? BNE 20$  ; YES, @RANCH IF SUPPRESSED .ENDC GETSYM BEQ 6$ CMP R5,#CH.COL ; ":" BEQ LABEL CMP R5,#CH.EQU ; "=" BEQ ASGMTP .IF NDF XMACRO MSRCH BNE 11$ .ENDC OSRCH BEQ 7$ 1$: MOV #CLCLOC,R4 ;SET P›–ÐcU\–ü¼ 1–¼ ¢aUjUœ \–þ¿· ¼•· 1–· \–þ/�¼ ˜�œ ÐsUp@Àó ô sÕeÕcÕkß›–rÖö sÖW\–ý/î£ß�ÂÐlUs@À sÕgl_ÐvU›–kÕeÕ\–þ�Âû ÐsUgÕö \–þ_�Â$c@À!yk_cÕ$:k_›–jÕ1–)­›–:¤ß(1–�Â7ùÿjÕ@À5 ¤•›–,\–üJ¥ß�Â@r:_J\–ùOJ˜�\–þ/JÔ–îÞ—iÕk¦Ÿ§ßQNe��Zj`Zn\hchßoh •eÕo•—ho�Ю—ehohŸohŸeUh_oh_eUk¦Ÿ¨ßtN��‹‹|‹‹ˆ‹i€Â„<hU˜ �‘h<Ï�‘h€À�i�i •hÕhUiÕ\–þ/î\–þ�Âs@«egU›–rÖž\–ü«eÕcÕkßÐsU:þ Ô–îyÕOßhØiؼ•Ã\–þ¿Ã\–þ/î©ß�ÂÀÐyU›–±˜�ʨ•Ê ¤•ÊÐyU›–¼•Ã1–Ã\–Ö.. & REPLACE WITH STATUS SUB #12,SP ;'SAVE' REGS 1 THRU 5 MOV R0,-(SP) ;CORRECTLY SAVE R0 MOV R4,PC ;... & EXIT ; 3) COMMON SET-UP FOR TT: ; CALLED BY JSR R1,TT.OIC WITH ARGS FOLLOWING ; EXITS WITH THESE CORRECTLY SET-UP ; PROVIDED THAT REQUIRED DRIVER SECTION IS FREE ; (IF NOT TREATS AS FATAL ERROR - MORE THAN 1 USER) ; IF CORRESPONDING SIDE OF KB IS BUSY ; ALLOWS IT TO FINISH MOV R4,@R5 ;ALLOW INT TEMPORARILY TT.OIC: MOV R0,@SP ;SAVE DDB ADDRESS MOVB @PC,@R5 ;... &STOP INT AGYTTBSE LLCA  0$1E BG  1)(R,-#1 PBCM  2BDPEN LLCA  2BDPEN LLCA  RDTWSE LLCA  R1E,LUVA#V MO  2BDPEN LLCA  2BDPEN LLCA  R3T,P2ND#E OVM L BOYM SHE TCKPAUN;  P UN50R E OR MNO ; $ 5Q BE  OLMBSYT EX NHE TET;G  OLMRSY XTNE $: 3E AGORSTO TNTOI;P R2F,BUIN#L OVM: 2$ ANSCE BLTAL BOYM SOR FET;S  PDLURO LRC C ND.E  GEPAE TH; G PAC,PR JS  CEANDV;A CTIN,L0.#6 OVM $ 6E BN  #3L,VASTLP AM  FF.I  GEPAW NEE RCFO; T CNINLR CL  ES Y;  6$ NE}B ? 1þØOINTER FOR USE OF ALL DIRECTIVES BIT #100000+DFLGEV,MODE ;FORCED EVEN OR OP-CODE? @EQ 2$  ; NO BIT #1,(R4)  ;YES, ARE WE EVEN? BEQ 2$  ; YES INC (R4)  ;NO, MAKE IT SO ERROR B  ; AND FLAG "B" ERROR 2$: CLR R0  ;CLEAR FOR SUBROUTINES USE CLR R3  ; DITTO MOV MODE,R1  ;GET OP'S CHARACTERISTICS BMI 10$  ;BRANCH IF OP-CODE FLAG SET BIT #DFLGDG,R1 ;DATA GENERATING TYPE? BNE 3$  ; YES JMP @VALUE  ;NM, JUST BRANCH 3$: MOV (R4),-(SjZÝ]lZj«ŸjZ…@ÀÝjÕXjZk«ŸYkZ³•ëm�Âèj—˜€�m�Â#de_–•јˆ_€ÀùÿÿRÕRU@@ÂÿÿQÕQUkÕXkZ@–•@Àd@ÂÿÿPÕPUl¬ŸÕXlZ \›@k«Ÿˆ_kZd?@Â@d@Âe?ð“ÕXe \›d@À*d?@Â9�•d?À@À2˜�d?¬Ÿ]Õ˜€�dˆ_ˆ_ˆ?Õ˜kZkZjdd_kdd_ldÐwUR`ÕRÐ`URÐzUì ÐoUì s@Â’ÐuU’ÐtUÔ–îá•RÞ—kxÖ�Âlh •h_h¹ŸX_ºY_8�:»ßaRá•Rïm�”Š�„kÕXkZj—QU”d_d?ј€À�d?ÕXdÿÿRÕRU‚d?ð“ÕXd:»ßvRÐ_Umžüš˜›8@À£õ �ý �¨ðt ÙLäYÔÐŽ_ ‰•ÐB“+% e™Š^‡.B“Õ>@”×>2Ÿ€ÀºúÿüÞ{Ý^Þ^<ÕÐJU”ßŽß o_p_jÕÚAIN TST @R1 ;CHECK IF SECTION BUSY BEQ TT.OIG ;IF NOT CONTINUE BPL .+4 ;MAYBE SAME D/S AFTER RESTART COM @SP ;SO ALLOW FOR IN WAIT STATE CMP @R1,@SP ;... & CHECK BEQ TT.OIC-2 MOV @R0,@SP ;OTHERWISE GIVE EVIDENCE MOV #TT.MER,-(SP) ;CALL ERROR DIAG PRT ... IOT ;... & IT'S FATAL! TT.OIG: MOV R0,(R1)+ ;SET BUSY FLAG CLR TT ;... & 'FREE' DRIVER MOV R3,(R1)+ ;STORE BUFFER POINTER MOV R2,(R1)+ ;... & BYTE COUNT MOV R4,@R5 ;DROP PRIORITY MOV (R1)+,(SP)+ ;KB SIDE BUSY? BNE ONSIESPRUP SLEAB TOLMBSY;K ASCM,LYM.SLC#T BI  NO ; $ 6Q BE  T?PUUT ONGTIIS LNY;A  TFOULT TS  TNXF DF NIF. : 1$ ITP UM;D  MPDDRL LLCA  ND EET;S YPKTBL6,T0LK#B OV}M T IMPDU, ES;Y  MPJDOB LLCA  NO ; $ 1Q BE  T?PUUT OCTJEOBY AN; P TYLKBT TS  2SSPAF OND;E   : P2ND ES ERDLAN HDECOT ECBJOL TTSB.� ���������������������������� C ND.E  EXBT IS.L  ENEV. 2 ,115 TEBY. . .- +'E YT.B B:LT B/ 0)0000/0 IISC.A 1:GTLL B/ ( /I CIAS.: GTLL B/ XXXXXX-þÜP) ;YES, SAVE CURRENT PC }CALL @VALUE  ;CALL PROPER ROUTINE MOV (SP)+,(R4) ;RESTORE INITIAL PC 5$: RETURN ������������������������6$: MOV #10.,R2  ;NOT SYMBOL, PERHAPS LOCAL SYMBOL? CVTNUM BEQ 7$  ; NO CMP R5,#CH.DOL ;NUMBER, TERMINATED BY "$"? BNE 7$  ; NO GETNB CMP R5,#CH.COL BNE 7$ LSRCH   ;YES, DO A LOCAL SYMBOL SEARCH BR LABELF  ;EXIT THROUGH LABEL PROCESSOR 7$: SETSYM   ;RESET CHAR POINTER AND FLAGS BEQ 5$  ;NULL IF END OF S@ÂßÙS@ÂÙÐÞÀ<ÏRß@Â�ÂÇUÇUÇ5��\–þ/á5›–\–þå\–ý/á5jÕáUá5hØiؼ•\–þ¿Ëß�Â�\@À�VU›– ˜�¨• ¤•›–1–¼•\–þ¿&–kßeØfØ\–þ_�Âk_›–¤ß1–!&–›–¨• ¤•��\–ü/»ß/˜�&6áUá5��Æÿ:ß@À:Ðÿ:ß@À161V16���Ю—jÌoßp_EÍßGV:��KRWpÿÄÄÄÀ•XÄÄÄΟ�ÂËŸppjU<6��\6¯ŸU>_\6ÄÄÄÀËŸÏßlV\V:lV�À\6>_k\V\6 � �;� �/�+�-�*�&�!�\�.�%� � � ������”Ð߉V•?���”•_”ߘÄÄÄÀ—ÄÄÄ”_ËŸ“_„6��qÑß V’?��¦«®¹¾ÄÄÄÄÁÄÄÁÄÀÒŸˆ_’_’?ÄĦŸˆ_ÂÄÄÄÄÁÀ’_q߃–:_q_\–û›6\–ûß›6fß›6��y@ÀÒÞTT.OIX ;IF SO WAIT FOR NOW JSR R4,KT.ISM ;OTHERWISE SIMULATE INT ADD @R1,PC ;...& GO TO INT RTN TT.OIX: COM -10(R1) ;FOR WAIT, CVT BUSY FLAG RTS PC ;... & RETURN MONITOR P.STAT=177776 TT.MER=1420 ; 4) SET INTERNAL BUFFER POINTERS: ; CALLED BY JSR PC,KB.IGP ; ON FIRST ENTRY (FROM EITHER PROGRAM TFR REQUEST OR ; KBD INTERRUPT) ESTABLISHES ABSOLUTE VALUES ; FOR POINTERS & CONTROLS. AS THEN THESE ; WILL NOT CHANGE UNTIL DRIVER IS RELEASED, ; IT EFFECTIVELY REMOVES ROUTINE THAT DOES /I CIAS.: AMLN B/ /I CIAS. . 27 RDWO. 0 RDWO. . 27 RDWO.: LKFBBU ENEV. 2 ,115 TEBY. / THNGLE K OCBL /I CIAS. 2 ,115 TEBY. . 30 RDWO. 0 RDWO. . 30 RDWO.: TLKTBL EXBT ISNL. N URETR: 0$ 1$ 1R B P KEAR MAMGRRO PNKLA;B  TBBL1,RB OVM O ;N  4$ LOB ? NEDO;1 T-LGBL,#R2 MPC E AMFRA K ANBL;+ 2)(R1,RB OVM: 4$ ARLE CTOE ACSPF OSSREDD AET;G R2T,LGBL#V MO  REHES NKLA BMESOD EE NWE; 1 ,R' #B OVM G PAC,PR JS  ONTILEMPCOR FOT AI;W )þàLINE CMP R5,#CH.SMC ; OR COMMENT (;) BEQ 5$ MOV #WRDSYM,R1 ;NEITHER, FUDGE ".WORD" DIRECTIVE MOV #SYMBOL,R2 CALL XMIT4  ;MOVE PST ENTPY TO "SYMBOL" BR 1$ 10$: JMP PROPC .IF NDF XMACRO 11$: JMP MCALL .ENDC .IF NDF XFTN 20$: CALL SETCLI  ;UNSAT CONDITIONAL, TEST DIRECTIVE BMI 22$  ; BRANCH IF EOF BIT #DFLCND,R0 ;CONDITIONAL? BNE 1$  ; YES, PROCESS IT BIS #LC.CND,LCFLAG ;MARK AS UNSAT CONDITIONAL 22$: CLR R5 RETURN   ;IGNéƒÖéõ™ÐUU:uÖ�ÂÍ’_q~_ÐWU¤’_~q_‰•WÕÍšUÕ•��v_r<Ï2ß[vmšì9��r(ßü:mšõ9˜�õ9��������������������������������XÛßZ’�@XÜßZq�@:��XÝßZ��’_XÞß#Z��q_:��Xßß+Z`�@`Õ&:��Xàß2Z��`UXU�ÂZÕ.:��Xáß<Z��8:��•_jÚkÚlÚ"z_úÿ?_ýÿ=_”ß„–ˆ_£•—z?zˆr–€Âaˆ⟀Â\íÿˆßˆ_aãˆ_“}Öˆ_z?ˆßz=_�Âz_?_J>:��������ƒ–ˆ_�È@äßuZˆ��{ƒ‰š¢ÄÄÄĈ_r?埨ÄĈ_ør¿¨ÄÀÖŸ‹_ðÿr¿‹_rr_ˆÄĢˆ_r?¬Ÿ¨ÄÄÄĈ_r?柨Àˆ_�ÿr¿@ß�Â@_ˆ_r@€Âr_m:��ç=ß´Z¯:��½»ÀÂÄÆÀÄÄÄÆÀÄÄÀÀĦŸ¤_¯Z¯:��d_d_d?h_Ê:âSO. ; THEREAFTER ENABLES SETTING OF POINTERS WITH LATEST ; VALUES AS FOLLOWS:- ; ; R1:= CHARACTER STORAGE POINTER (KB.IPX) ; R2:= CHARACTER REMOVAL POINTER (KB.IPY) ; R3:= LINE SCAN POINTER (KB.ECP) ; N.B. BUFFER OPERATES IN CIRCULAR FASHION BETWEEN KB.IBS ; & KB.IBE. IT IS EMPTY WHEN R1=R2 & FULL WHEN ; R1-R2(-SIZE)=-1 (LEAVING ODD SPACE FOR JIGGERY-POKERY) ; CHARACTERS BEING PROCESSED REMAIN IN BUFFER BETWEEN ; KB.IPY AND KB.ILE UNTIL REQUIRED ECHO & LINE SCAN ; HAVE BEEN COMPLETED AND SLNKLI#T AI.W  ORPTRISCDEE THE ITWR;K BLUF#BL,KSIN#L TEPI.W $: 3N IOCTSES ABE THS IIT, NO; $ 1E BN  K?OCBLN MOOM C AITS ;I '$,#+1AMLNBB MPC O ;N  3$ NEB ? ORCTSE. BS A .HE TISTHS ;I '.,#AMLNBB MPC K ANBLE THE ORSTRED ANE ER HDSMR;W 2)(R ,#' VBMO  NCD N ;I R2T,LGBL#V MO  THNGLE; 1 RR RO  HE;T   LCC T GE;1 ,R10L+BOYMSV MO $ 5E BN  ERFFBU; 3 RC DE  XTTE;+ 2)(R ,#' VBMO $: 5E TH; 3 ,R#6 OVM R EACL;2 ,RGTLL#B OVM N REPAD REBEOBCLE ORSTRE;%þäORE LINE .ENDC ������������������������ .IF NDF XMACRO GETMLI:    ;GET MACRO-TYPE LINE CALL GETLIN  ;GET A LINE BIS #LC.MD,LCFLAG ;FLAG AQ MACRO DEFINITION .ENDC SETCLI: 1$: GETSYM   ;TRY FOR SYMBOL BEQ 4$  ; EXIT IF NO SYMBOL CMP R5,#CH.EQU ;ASSIGNMENT (=)? BEQ 3$  ; YES, IGNORE THIS LINE CMP R5,#CH.COL ;LABEL (:)? BNE 2$  ; NO GETNB   ;YES, @YPASS COLON BR 1$  ; AND CONTINUE 2$: OSRCH   ;TRY FOR OP-CODE MOV MODE,R0 @ÀÖëY_‚?ÚÉY_‚?¬ŸX_8�À=јÑX€ÀÀ=í�Y_ØÑ˜ÕØ�ÂÀ=í�sY_Ø��¦Y_ˆ_�?«Ÿ‹_€Âˆß€?«Ÿˆ_X_8�ˆ@Àí=yY_‹X_8�í=��¹�>À���˜_˜_˜_ •>��r+^,^-^.^/^0^>6_!C_�Ю—66_E¤_CÿÿCßC_6€Â>��������������1>�vP F^ïy^1^1>ˆ_1^/@ÂFˆß€Â1>ÃF^ß y^�� �%€väÿ=_ €ÀV €ÂYþÿ�ö�v ` `=_L:`_’a_qb_.’_<q_›–uÖ�Âe. •Ãß’ßÄÄÄÄìŸ~^`:_a’_bq_�� �~Æÿ1>@9��01�žž^7_Õÿ=_Ÿ7_yosv 7_ `=_Šàÿ=_ˆ_ˆ?7_‹_‹?7_‹ˆ_=_“Ö �`�� ´VF ˆS� jx{ºHJ¹ÍB7ò��~ mßÂ^÷��s gß¼^÷ �àÖŸ¡ß˜ðߘÜÿ=_�v€v `=_ÊמçæARE REMOVED ONLY WHEN GIVEN ; TO THE MONITOR OR SUBSEQUENT ^U HAS BEEN OUTPUT. KB.IGP: BR KB.IGI ;CHANGED TO BR .+2 AT 1ST ENTRY JSR R5,KB.ISP ;SETS REGS AS REQD ALWAYS. KB.IPX: .WORD 0 ;USING THESE VARIABLES ... KB.IPY: .WORD 0 ;... STORED HERE INITIALLY KB.ECP: .WORD 0 RTS PC ;NORMAL EXIT KB.ILE: .WORD 0 ;CONTROLS ALSO SET AT START KB.IBS: .WORD 0 ; KB.IGI: JSR R5,@PC ;INITIALISING ROUTINE: CLRB KB.IGP ;STOP ENTRY HERE HEREAFTER MOV PC,R1 ;GET ABS ADDR OF BUFFER ADD #KB.IBF-.,) R2,(')#B OVM H GTEN LALCT;O  RDTWSE LLCA  HE;T R21,GTLL#B OVM T GE;1 ,R10L+BOYM#S OVM Y TLECRRCOK ANBLE THP UET;S 2)(R ,#' VBMO  IISC ATO;  P UN50R T ERNVCO;2 ,RAMLN#B OVM: 2$ MENAM RAOGPR;) R2-(L,TTRGPV MO  HE TRETO;S 2)(R2,L+TTRGPV MO  AGFLM RAOGPRT SE;B LT,B'*#B OVM O NN,AIAG; $ 2E BN  INGA ACKHE;C  2)(R STT O ;N $ 2E BN  E?AM NAMGRRO PHE TISTHS ;I  )+R2(T TS  R2L,BOYM#S OVM E ON DENWHT UI;Q  0$1Q BE  EMITN AET;G  OLCRSE XTNE!þè ;MODE TO R0 BPL 4$  ;BRANCH IF DIRECTIVE 3$: CLR R0  ;FALSE 4$: RETURN ASGMTP: BR ASGMT ������������������������LABEL:    ;LABEL PROCESQOR CMP SYMBOL,R50DOT ;PERIOD? BEQ 4$  ; YES, ERROR  INC LSYFLG  ;FLAG START OF NEW LOCAL SYMBOL BLOCK SSRCH   ;NO, SEARCH THE SYMBOL TABLE LABELF= . BIT #DEFFLG,FLAGS ;ALREADY DEFINED? BNE 1$  ; YES MOV CLCFGS,R0 ;NO, GET CURRENT LOCATION CHARACTERISTICS BIC #377-<RELFLG>,P0 ;CLEAR ALL BUT RELOCATIO|ß�ÜoŸÀnß�\Pß@ÂÚ�à\Úý �þÿŠø^}Ÿ~ß� ïÈÄï^øŸï^ï^ºžs߀ßD�ß*vßTwßP{õ^ôÞ�ÿà\ïÞ\‚ß@ÀÒºžvߨ€ßAwß�Â6i÷]þ�؃Ü\4ï�À�À„Ÿô^€ÂÙx?nßõ^ïÞi÷]þ�ïÀnßôÞ@ÀcïÀnßxÿ@Âäïõ^mï€Âm„ß@ÂÙôõ^ïô^SÞ\Qà\ô…ß�ÂÞ\ö^oß@ÀtößÜö^ó��öï^�Àö �IÀÿ†M‡�\ö ��Àÿö �”ö �IÀÿúÿñ^ö �ýþÿøÿò^XßYß�À�ÀF�\ûÞôžð¾ï>Wß�ÂX_8žôõÞìô^ï÷Þüï^�¥X€À½Y_ôpß[_žY€ÀƒžXßï„ß`_ô„ßZ_øÿ__`?W_`ÿ�ÂX_`___ËX€Â¸à�XßYßï>W_ôZ_ò^œñ^–���vGž‡�\ö ��ìÿö �à=X€Àóô[_ƒž÷Y€Àƒžà�Šö��� �X€ÀôêR1 MOV #22,R2 ;SET ROTATION COUNT TST -(R5) ;SET POINTER TO STORAGE AREA MOV R1,-(R5) ;STORE ABS VALUE AS REQD ASR R2 BCC .-4 ;GO TO NEXT STORE BNE .-10 ;... BUT MUST MISS RTS PC KB.ISP: MOV (R5)+,R1 ;SET VARIABLE PTRS MOV (R5)+,R2 MOV (R5)+,R3 RTS R5 ;... & TAKE NORMAL EXIT ; 5) CHECK IF POINTER AT BUFFER END: ; CALLED BY JSR R3,KB.PCK WHERE R3 IS PTR FOR CHK KB.PCK: SUB #KB.IBZ,@SP ;RESET POINTER AS REQD. CMP @SP,KB.IBS BEQ .+6 ADD #KB.IBZ,@SP RTS R3 ;... & EXIT ; $: 1H RCEA SOR FDYEA RET;G  PDLURO LRC E AG POFD ENR FOK ECCH; G PA LLCA  CTINLC IN  LEIT THE TUT OUT;PL TTLK#BL,KSIN#L TERI.W  NO; $ 10 EQB ? NGTIIS LNY;A  SLNKLI STT: RTKPBL RYMAUM SCKLO BHE TUTTPOU TLBT.S  TNXF DFF .I  ������������������������ C ND.E  P2NDEP JM X:P2ND EN URETR F FT.I  SG MS1AS POFD EN; M P1NDEG MSYPT N FTXF NDF ,I  $:30 KSOCBLT EX TOR FITIN;P TYLK,B04KTBL#V MO  MPDDRL LLCA  D"GSF OND"ET SE;P TYLK,B02KTBL#V MO  ITP UM;DþìN FLAG BIS #DEFFLG!LBLFLG,R0 ;FLAG AS LABEL BIS R0,MODE  ;SET MODE MOV CLCLOC,VALUE ; AND CURRENT LOCATION BR 3$  ;INSERT 1$: BIT #LBLFLG,FLAGS ;DEFINED, AS LABEL? BEQ 2$  ; NO, INVALID CMP CLCLOC,VALUE ;HAS ANYBODY MOVED? BNE 2$  ; YES CMPB CLCSEC,SECTOR ;SAME SECTOR? BEQ 3$  ; YES, OK 2$: ERROR P  ;NO, FLAG ERROR BIS #MDFFLG,FLAGS ;FLAG AS MULTIPLY DEFINED 3$: INSERT   ;INSERT/UPDATE SETPF0   ;BE SURE TO PRINT LOCATION FIELú^ú>šÕ²��g\ºhßI_úÿJ_K_½8šý²š²š'²š=šOš³š_d7_²šsÿÿ:_âi_jßÀÄÄkŸl_©^š™3Ç/šø^ßøï€Âñï€ÂÊïó^îô^ðõ^ñö^¶š0�12_34_[1_3_ø^ß#óï^ôî^õð^öñ^/šï€À ø^ß#¶šðœ21_43_ßß9ßß1�ÂI›²3Ç/šø^ß8ï€Â1ï€ÂÊ¶š¶šš/šø^ßGï€Â@ï€ÂM¶šš0�g�²/šø^ßWï€ÂPï€Âʶššø^ßj/šø^ßgï€Â`ï€Àq5�Âo3Íg�²¶š3Çðœg�²5�ÂÇ7®�²/šø^߆ï€Â5�‹7®�ï€À”ëïWìðWíñWcš�5�›3°ó�ÿ^_ý�ß�«þß�«ó��ÿ^ó�ý1´ö�5�¹ô��DATA STORAGE AREAS: ; 1) INPUT CHECK STRING: KB.ICS: .BYTE 200,25,177,175,33,15,12 ; 2) OUTPUT CHECK STRING: KB.OCS: .BYTE 177,200,13,11,14,12,7,30 .EVEN ; 3) INTERNAL BUFFER: KB.IBF: .IF EQ,FTRPG KB.IBZ=KB+1200.-. .IFF KB.IBZ=KB+1264.-. .ENDC .=.+KB.IBZ .END �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������  MPRDPC LLCA  CKLO BND EUTTPOU; P DMSDGL ALC 1 ,ROLMBSY#V MO  DEMOG,FLEF+D03DTGS#S BI  AGFLL RET BUL ALR EACL;E OD,MG>FLEL<R1-#- ICB R TOEC VND EHE TET;G  OLDRENT EXN: 0$ 2 T IUTTPOU; $ 12 BR  4PETYT SE;E OD,M04DTGS#S BI  STMOR EACL;E OD,MG>FLLB!GLGLFREG!FLEF<D1-#- ICB O N;  3$1E BN  R?TOEC SEROPPR, ES;Y R5R,TOECSB MPC O N;  3$1Q BE  L?BALO;G DEMOG,FLLB#G ITB Y GUS HI TTHWID HEISIN F;  0$1Q BE  OLMBSYT EX NHE TCHET;F  OLMRSY XTNE $:þðD BR 5$ 4$: ERROR Q 5$: GETNB   ;BYPASS COLON MOV CHRPNT,LBLEND ;MARK AND OF LABEL JMP STMNT  ;TRY FOR MORE ������������������������ .SBTTL ASSIGNMENT PROCESSOR ASGMT: GETNB   ;BYPASS "=" MOV #SYMBOL+4,R1 ;SET MIX-MASTER REGISTER MOV -(R1),-(SP) 9STACK SYMBOL MOV -(R1),-(SP) RELEXP   ;GET NON-EXTERNAL EXPRESSION SETPF1   ;SET LISTING FIELD MOV (SP)+,(R1)+ ;RESTORE SYMBOL MOV (SP)+,(R1)+ BIT #ERR.U,ERRBTS ;ANY UNDEFINED'S? BNEó �ëÿó �xœÄMßM_½˜ÿMß@ÀØ‘ßPÊ·<ÈJßJ_K_ÀÈ‹ßxœÄÀˆŸ\·<Mß·<—œCßýÿNßá�ÐÚEßÐKßÀJ߀ÂLxœÄĒ߈Ÿ\·œL��8ß…_w›ÙÈ›ôÐß¾›÷Þ3�Â&œ1�ÂI›÷€ÂñÈ›�Âñ�ÀŠ8_w›Ù3�Â&œÈ› ñ @Àß�Âü¾›)È›�Â)3�Â&œŠ8_w›Ù3�Â&œ1�ÂI›ð<��8ß…_w›ÙÈ›4ÐßV¾›÷Þ3�Â&œ1�ÂI›÷€Â1È›�Â1�ÀŠ8_w›Ù3�Â&œÈ›M1M@À\ß�Â<¾›0=È›�Â0=�ÀŠ8_w›Ù^��ø���'šcš�ø��8ß“_w›ÞÈ›uÐß�ÂÞ@À„ß�ÂÞ¾›÷Þ9ß1�ÂI›÷€Â¥È›�Â¥5�•3�Â&œŠ8_w›ÖÈ›�Â¥�À5�£3�Â&œ˜5�ª3�Â&œø�g=��…_Š8_w›Â3�Â&œò RETURN .ENDC .IF NDF XFTN .CSECT IMPURE MSBBLK:    ;PUSHABLE BLOCK (MUST BE ORDERED) MSBTYP: .BLKW   ;BLOCK TYPE MSBPBP: .BLKW   ;PREVIOUS BLOCK POINTER MSBTXT: .BLKW   ;POINTER TO BASIC TEXT BLOCK MSBARG: .BLKW   ;POINTER TO ARG BLOCK MSBCNT: .BLKW 2  ;REPEAT COUNT, ETC. MSBMRP: .BLKW  } ;MACRO READ POINTER MSBEND:    ;END OF ORDERED STORAGE MACNXT: .BLKW MACLVL: .BLKW   ;MACRO LEVEL COUNT CONCNT: .BLKW ARGMAX: .BLKW .CSECT .E13 CKLO BISTHT PUUT;O  MPDDGS LLCA  R1L,BOYM#S OVM: 2$ 1N CA SERNN IOR FET;S  PDLURO LRC: 1$ 1X MAT SE, EL R; ) R1-(),R1}(V MO  S!OP O;  1$1Q BE  BS AMESUAS;+ 1)(R5,RV MO  EDINEF D1,E YP TTOT SE;+ 1)(RG,FLEF+D1>T0SD<G#S BI T BIL RET BUL ALR EACL;) R1,(G>FLEL<R1-#- ICB T GHRIN ICELA PND A;  R5 ABSW  ITE ATOLIS; 5 ,R77#3 ICB R TOEC SVESA; 5 ,R1)(R OVM 1 ,RDEMO#V MO  ERRKMAE AV;S P)(S,-PDLURO OVM H UGROTHF ICHANBR; $ 20 EQB R TOEC SXTNEE THT GEþô 3$  ; YES, DON'T DEFINE CMP SYMBOL,R50DOT ;MESSING WITH THE PC? BEQ 1$  ; YES BIS #DEFFLG,(R1) ;FLAG AS DEFINED MOV (R1)+,-(SP) ;NO, STACK VALUE MOV (R1)+,-(SP) SSRCH   ;SEARCH SYMBOL TABLE MOV (SP)+,-(R1) ;RESTORE VALUE BIC #-1-GLBFLG,-(R1) BIS (SP)+,(R1) INSERT   ;INSERT NEW VALUE RETURN 1$: TSTB (R1)+  ;PC, MOVE PAST FLAGS CMPB (R1)+,CLCSEC ;SAME SECTOR? BNE 2$  ; NO, ERROR MOV (R1)+,CLCLOC ;YES, SET NEW LOCATION QŽáŽÁ�AŒA�€Ñ�Á�A€�€Á€�q�Á…áƒÁƒk�������� ������†��QŽAŒá޲�Á�Ñ�A�€A€�€Á€�q�áƒÁƒÁ…~sÁ€�q�Á…áƒÁƒ�€ �k���`k�� €Pk����@k�� €îÿk�€�k��€k�€�k���k�€€k���`k����Pk����@k�� �k�� ���� ��€0���@���P���`���p��€���ñÿÏ];@C@< @ `Ï]ô ���bú @%°$ù$�EH%�€����H%²Ð0��ƒ�€�R‰† ��2�3Áƒ��������® �Â�`‹��ú�€�`�p������ú�€) ���x-��ڜܜ��ðÿ"0����•ÿÿŽ�R‰† ��2�~s�������� �Â������À`‹@“ ›� �@�`�����€����€@?�.�£�Àýÿÿ��ƒ£ � � �}�x�0� ÿÿ,��ð£þÿöNDC ������������������������ .SBTTL FIN .CSECT IMPURE  ;CLOSE OUT IMPURE SECTORS .CSECT IMPPAS .CSECT IMPLIN IMPTOP: .CSECT   ;BE NEAT .IF DF XFTN START = 1 .ENDC .END START ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������; L ROECST EXN R KEAR MANSCT SE;D UPOL,R)+SP(V MO $:10 ANSCR TOEC SOR FITIN; ) SP-( LRC K OCBLD GST PUUT;O  MPDDGS LLCA  EXND IO""TD AN ;2 ,RNTDPRL OVM X DEIN" OMFR "ET;S R1L,TTRG#P OVM S ERNTOI PHE TITIN; I INBJOL ALC 1 1 YP TCKLO BET;S YPKTBL1,T0LK#B OVM O N;  0$3Q BE  DCEN. L KOINLT TS $:33 AGPL ALC T NCLI.,60#V MO  3$3T BL  #2L,VASTLP CM  RYMAUM STADAE THT PUUT;O  RTKPBL LLCA  FF.I  T?ECBJ ONY AE,ONS AS;P  NKJLOB STT N FTXF NDF þøRETURN 2$: ERROR M 3$: RETURN ���������������������������������������� .SBTTL OP CODE PROCESSOR PROPC:    ;PROCESS OP CODE SWAB R1 ASL R1 BIC #177400,R1 ;ISOLATE TYPE CLR MODE  ;FORCE ABSOLUTE APPEND CODROL  ;STUFF BASIC VALUE CLR OFFSET CLR R0  ;FUNCTION REGISTER JSR PC,@PROPCT(R1) ;CALL ADDRESS HANDLER MOV ROLBAS+CODROL,R1 BIS R0,6(R1) ;SET EXPRESSION BITS RETURN PROPCT: .WORD PRCL00 .WORD PRCL01 .WORD PRCL02 .WORD RE圀À.Ó\ÿÿÒ\/æ|�•áÜ  `×Ü{ ßëX�X3ô�ó �ó�ú€Â"ö �ö�ý×ú×ü×û×ÖÖÖÖß;T‰TeTþ€Â �� �ý �Üüÿý�<��;ý���ú0á|ËÜ2Ì\ó �ú€ÂMö � ×ÜÿW±•ÿ€ÂMÿ×1ÀãÜÌÜÀnUuUnUuUÀã܇•Ä眜WÉ€Àkô�Àÿó �œÀÿú€Âvö �œÀÿÉ€ÂþÉØØ/æ|0á|Ø��G�€5ßGT€5��ÈÄÄÀ‡5��Ò\˜Ó<Ó\öWÓ<Ó\÷WûÿÒ\øÿøW÷ÀøW èœ�5÷WöÀöWš��æ×ç×è×ËÜ?Ì\ùÿÇ\CÆ\¥5��èœùW�ÈËéܹUù À¿ÅÈÓØÄÄÄÄÌüÛÄÄÛÄÀêœÌ|Ì|Ì\ùÄÄëœÃÄÄÄÄÛÀËÜ�ÂË\Ì|Ì|Ë€ÂÌ\ù±5 ��ÚºZOÊœÏZ´ŠT ’‚3�h����Ð÷��èäÀD�…DÅ4�8àL!ÁðB@eÁèä$��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������.I  2SSPAF ICHANBR; X P2NDEE BN  E?ONS AS;P  SSPA STT X MAETSL ALC R LENDHAS AS POFD EN;   : DPEN RSLENDHAE OD CCTJEOB TLBT.S ������������������������ C ND.E  CTSE.C  KWBL.: AVISCS 7. KWBL.: AVDSCM /21>N+LEID<C KWBL.: UFDBCI 3W LK.B R:HDID CR DEEA HERFFBUD ANMMCO; . 7W LK.B: UFDBCM 3.8= ENDLCI REPUIM CTSE.C  B//K 50AD.R  1D OR.W  I/CM/0 D5RA. K IN LUTNP IKB; 0 RDWO.: NKDLCI 0D OR.W  B//K 50AD.R  1D OR.W  O/CM/0 D5RA. þüGEXP  ;PRCL03 .WORD PRCL04 .WORD PRCL05 .WORD PRCL06 PROPCL= .-PROPCT ������������������������PRCL00: RETURN PRCL01: CALL AEXP RETURN PRCL02: CALL AEXP PRCL2A: SWAB R0  ;SHIFT LEFT SIX ROR R0 ROR R0 MOV R0,-(SP) TSTCOM CALL AEXP BIS (SP)+,R0 RETURN PRCL04: RELEXP CMPB SECTOR,CLCSEC BNE 2$ SUB CLCLOC,R0 ASR R0 BCS 2$ DEC R0 BIT #000200,R0 BEQ 1$ ADD #000400,R0 1$: BIT #177400,R0 BEQ 3$ 2$: ERROš! `ç ` `Ø Øç ØÐXçAÐíüÈ\È<ØÐÈÜèÈ|  ` ØÐXXçÐXšš@Â,í<3Üp @À1›h›@À]™Ð X @Â!XšØ6 ØY@ÂI `ÐX X!é `ÐXCêš  `âëX `ØÙTêš `P��@Â]9 `ÐX]9@ÂOí<3ÜPu™ÐXç `ÐXç��ü€À…5¦›êš‡™âëXÐÉXÖ˜0á|盂�� `‡9 @Âh› !XØØØš!Ø÷í<Ê\þÿíüí|3Ü© ةةةœÐíüÈ\Aî| #X @ÂÓ#Ø®Êí|Ê\›Êí|wšÞ@ï|òÿÇ\ ÊÜíÇ\Á `!é��Ê\ÐÈÜÈ\È<䜇•Ê9Èí|Bî| @ÂÜ `×!é!ðÜ@À�!ØØ `! ` ØçŠšÆÊÂÜùÃÜ�ÂÞí<È\ñÈ|ÐXX `!éØâ!é !XšØ÷Ø ` `! ` Øç ` ` Øç Ø!:��!òÜ:@Â%óÜ$Z®;!'X !X6ï|'Zš7ô| @Â4`/Zš`6ï|ÌÏ\ËÐ\ùÑ\-Ì\ËÜù× ØÿW±•ÿ€ÂDÿ×õóUý �óöÿÏÌ\ÐË\ÑùW!��Í\úÿÅ\ÍÄÄÍ\ÀÎ\Íöœ€ÂjÈØ�ÂÈØpÿÿÅÜ�Âr÷\`ÎÅ\_ÈXZ:��í<È\È<Øw:Øw:Øw:äœÊ™Ê\Ê™‡•Ê\Ê\wZw:��ÐÈÜÈ\3Ü’È<Ø�ÂøÜ�ÂùÜ� ؊ZŠ:��wš�ÀÃÜ�š:Ššš:Ðíüí|ñ ` `  `ú `š: Ø@À !X@ÂÁš@Â÷Ø@Âå!Ø@ÀåÅ  `!éXÏ  `ú `  `!í<3ÜÇÐíüî| #XØÇ ØÇ ØÇ#Ø@Âå#Ø@ÂÇ  `! `ç��í<3Üê:3í| @Âõ `ð›ê:Ð$Xšší<3ÜÙ›h›K IN LUTTPOUB ;K  0D OR.W K:LNOD C0 RDWO. N VE.E  VT#,,'LFR,CE YT.B  ,4,04D OR.W H:AS H D XEMI CTSE.C  ENEV. / 1SSPAF OND/EF><LR><C IZSC.A M:P1ND EN FTXF NDF .I S ERDLAN HRDOAYBKE TLBT.S ������������������������ N URETR 1 ,R)+SP(V MO  YXTBSE NEB 0 RC DE  R0 ABSW  )+R2(B STT $ 1T BG  R0 CBDE  2)(R LBRO  R1 SLA: 1$ 2)(R0,/1'0#@ OVM 0 ,R#3 DDA 0 RB WAS: YXTBSE R03,#V MO  R1 ORR C CL  UY GSTLAE THT GE; 1 RB ORR F AL HFT þ�R A MOV #000377,R0 3$: RETURN PRCL058 REGEXP BR PRCL2A PRCL06:    ;TRAP TYPE MOV VALUE,-(SP) ;SAVE THE VALUE EXPR   ;EVALUATE THE EXPRESSION (NULL OK) SETIMB   ;TREAT AS BYTE CMPB SECTOR,#200 ;ABSOLUTE? BNE 1$  ; NO TST (SP)+  ;YES, PRUNE STACK MOV VALUE,R0 ;VALUE TO MERGE RETURN 1$: ZAP CODROL  ;CLEAR CODE ROLL STCODE   ;STORE ADDRESS MOV #100000,MODE ;SET FOR ABSOLUTE BYTE SWAB (SP) MOV (SP)+,VALUE ;SET ORIGION��ÂÆÿ ��À�?�� ��þ�º��€Àÿ ���¿ÿW�ÿÿÎ; � �0�(�;�JSQWž£ã"8f^Æ"Gb°©€ØúJT·U�À$ôáªÉ@ôÕ‰�5ÆÊƒzØžpFÝÏÙA6 Ì”¹�vf‰�÷arÀC*É W´FÏr•o/ �¬5þ€�šô5S¯T1ÉÄ-©G¸/�t…5­@^M•¡P ¤å4®µþóÞ.]Ëß6`‚ @6-¯{�úöuèïã·_àÝV É .�$vJ ‘u?öE¦ˆ:1�–KI‹<5þ,˜ZònIﳘªó³eÇà²{ŒÔz0VÐ/ï ¤@Lt÷Èuu‹Mw´O…÷«ý¸ï”ÓËfø®Ô�,>õÏt~"ŸÑß?#`É"°n¯emöz´VµO0@xÂõã–IÍtV+ÀnöÁõ$Lª.8 õy„�knzïO­Í<tÚpÖRN]ýq—�S`h$樗4�‡ö[ ¬�t쯖bJÁáÀ.% Í´8tTqÊbuØËïz yB��›ä6’&!àBm†®+�Ú…Qô…‚­ñûb؉’Ï@”âEaí‘þÂ}º€Ñ`6& ¢O€$€ °¸‚úGYïX@ X¤HÓˆÚXŒH�U€/ ø¯f#òßy¬ºåW´Ð"4ç¦.¤?ÛCç´/¦¿Y¢N¥�-&»¥Y4Ôp(�Õ¸šT™sÈp(ø( P1/„fèÙó[H—’ ©Yò: û¹:nÌÚû`z´’ÚòÆmnðdpÐH0Î@pGHˆhPgR°è[è!Zžßl&ZŸß`&Z ßf&Z2ÌZZÅL+_ÂZö�&Þ�Å�!çœÅ�•yß¡�Å�–Æ_Þ�90ÌZZÅbO1ÌZZÅhO/ÌZZÅnO‚u�:�žÍ˜_…™_Ζžƒ�ž‘€Âƒ–ž:˜–ž#™ß:·ß„ú�:��~_�>ú�����>����#Z”^#:•^ú �’üÿú �–>ø�����ø�üÿø �ÆŸ€ÀºÏŸ€À·z¦ø�:ƒu�:$G*'04³@\BçD¶F/H…JÈLlNËPÎRCT±V­Z…\^z`zbzdzfzhzjzlzn‡p‡rMtWz…‚…„…†…ˆ…Š…Œ…Ž…�…’…”…–…˜…š…œ…ž… …¢…¤…¦…¨…ª…¬…®…°…²…´*¼Gþÿÿ£Žòwè!LEO TTELAPUNIMA; 1 RB WAS + 2)(R0,RB OVM + 2)(R0,RB OVM S CEPA STHUID PA;+ 2)(R0,RB OVM 0 ,RCEPA#S OVM E LUVAT GE; 1 ,R1)(R VBMO  EXND ICKTA;S P)(S,-R1 OVM: YTTBSE YXTBSE BR  R05,#V MO  IT BINE OV;M  )+R2(B OLR 1 RL AS  VETIMIRI PET;S 2)(R2,0/#' VBMO  UEAL VALTUACT GE; 1 ,R1)(R OVM G REK ACST;) SP-(1,RV MO D:WRET S E BLTAE YT BORD OR;W YTTBSE D,WRETSD OR.W T:PFET S N URETR: 2$ 2)(RG,#' VBMO  2$ EQB ) R1,(LGBFGL#T BI  '" ";) R2,(CL.XþAL VALUE STCODE CLR R0 RETURN �������������������������������������������AEXP:    ;ADDRESS EXPRESSION EVALUATION INC EXPFLG CLR -(SP)  ;ACCUMULATE ON TOP OF STACK 2$: CMP R5,#CH.IND ;INDIRECT (@)? BNE 6$  }; NO BIT #10,(SP) ;YES, SECOND TIME AROUND? BEQ 4$  }; NO ERROR Q  ; YES 4$: BIS #10,(SP) ;SET IT GETNB   ;MOVE PAST BR 2$ 6$: CMP R5,#CH.HSH ;LITERAL (#)? BNE 10$  ; NO GETNB   ;YES, MOVE PAST GLBEXP   ;EVALUATÿ�ÿÿÿÿÿÿÿÿÿÿÿÿÏþ$Õ�÷Yß_N}ÿþÿÿÏþ¬[ž×_èI ÿþÿÿûØ›ÃzÅž×_ì7ÉÿþÿÿÏþâ¥r^ß_äå ÿþúÿC8’Ã}§ßÂ�¶/ý�–“õK‰í»{ä/êkô.²�×_èòwÿÿÿÅØº§ÿ{ö…ÙÒß_*U$?ÿ{özÅ’×_*!?ÿ|ö…›Òß_*Tb?ÿîÆ�Ù^ß_†Fø?ÿöŸÖžÕ_èòá?ÿÿÿûØ›ÃzÅž×_ì7ÉÿþÿÿÚÙ›kÏž×_è`êÿþÿÿÏþæÝŸúžÕ_ì|ãÿþÿÿÏþûkÏ^ß_äsÿÿþ|ö{éû{ä/êjô.²�V×_èµ»þÿÿÅØº§ÿ{özÅ’×_*!?ÿÿÿÏþ¬[ž×_èI ÿþÿÿûØ›ÃzÅž×_ì7ÉÿþÿÿÚÙ&“[ž×_è­+ÿþ{özÅ’×_*!?ÿÿÿÏþ¬[ž×_èIyÿþÿÿûØ›ÃzÅž×_ì7ÉÿþÿÿÚÙf“[ž×_èm+ÿþ{özÅ’×_*!?ÿÿÿÏþ¼[ž×_èIyÿþÿÿûØ›ÃzÅž×_ì7Éÿþ|ö{èûƒ›Ò½)ê탛Ò½)ì탛Ò½)W£ŸˆÔšCÚüÒKϦײ(Ij÷þÿÿÅØº§ÿ¦Ï²(Òß_*ôý?ÿÿÿÿÿÿÿÿÿÿÿÿÿÿóÙÛÂzÅ]Ö_lHÿþúÿs]Ê«ïVëzíë«{†éË}‰W£jäêËr�ËûZÛÂzÅ]Ö_l˜W7ÿÿÿÅØº§ÿfϲ(Òß_*<ü?ÿÿÿÏþÒ½jM”Þ_Ê@[ÿþ|ö…ÙÒß_*T$?ÿÿÿÏþÒ½jM”Þ_Ê@[ÿþ{özÅ’×_*!?ÿöŸÖžÕ_èòá?ÿÿÿÏþÒ½jMž×_ì½0ÿþÿÿÏþ[“[ˆøÄKÏfß²($8¿þÿÿûØ›ÃzÅ”Þ_Êâÿþ{özÅ’×_*!?ÿÿÿÏþÒ½jMž×_ì½0ÿþ|öj…’×_*.a?ÿÿÿòØPëCKž×_è;ÿþÿÿÏþæÝŸúžÕ_ì|ãÿþÿÿôÙÛó[ˆ^ß_äÕÿþúÿ�V×_èŠV?ÿÿÿûØ›ÃzÅž×_ì7Éÿþ|ö{íûjÏÙªЫú[Ûó[ˆž×_èâ(?þÿÿÅØº§ÿ{ö…ÙÒß_*U$?ÿ{özÅ’×_*!?ÿ|ö…›Òß_*Tb?ÿîÆ�Ù^ß_†Fø?ÿöŸÖžÕ_èòá?ÿÿÿÏþæÝŸúžÕ_ì|ãÿþÿÿÏþ›ûkÏ^ß_äóþÿþúÿ�V×_èŠV?ÿÿÿûØ›ÃzÅž×_ì7ÉÿþúÿsŸûj¿YûªЫÚ[››kÏž×_èú?þCH#B OVM $ 2Q BE  1)(R,-LGLFREG!FLLB#G ITB: FFTPSE TEBYR ORDWO;) R0T(PFET@S LLCA  R2.,+9UFTBOC#V MO  R1E,LUVA#V MO G REAVS: FBTPSE R0 LRC: F1TPSE RDWOT IS;L  RDTWSE BR  R2.,+2UFTBOC#V MO  R1C,LOLC#C OVM G REAVS: F0TPSE FFTU SNGTIISLL TTSB.� ���������������������� � CTSE.C  G)INRSPAR FO (ELAB LOFD EN;  W LK.B D:ENBL LE IN LOFD ENO TERNTOI;P   KWBL.: DLENLC NELIF ORTTA STOR TEINPO;  W LK.B L:EGCB LS TEBYG LA;F   KWBL.: AGFLLC INPLIM CTSEþE EXPRESSION BIS #27,(SP) ;SET BITS BR AEXP32  ;USE COMMON EXIT 10$: CMP R5,#CH.SUB ;PERHAPS AUTO-DECREMENT (-)? BNE 12$  ; NO MOV CHRPNT,SYMBEG ;PERHAPS, SAVE JUST IN CASE GETNB CMP R5,#CH.LP ;YES? BNE AEXP20  ; NOT A CHANCE CALL AEXPLP  ;PROCESS PARENS BIS #40,(SP) BR AEXP36 12$: CMP R5,#CH.LP ; "("? BNE AEXP22 CALL AEXPLP  ;EVALUATE REGISTER CMP R5,#CH.ADD ;AUTO-INCREMENT (+)? BNE 14$  ; NO GETNB   ;YES, POLISH V¿HMÄúL„AИ��é HLÃY¤bÐ�h��®|KLM™tŠÔИ�� Çkèš‚¹ÈL×™lŠÔÐÐ��å HLÃY¤fÐ�h��`;èš„¹ÈLTÃK� LHLTÃK��Äü8MÄÖB©ΩLÐèš`±õJžI¤š h}XÄ–Ó:†EL¢ Z¬’Ôê|��ßìšLÚY¤bÐúJ¤E™l˜AZ@RdLªO ¢@Æ™t‚Ô ‚ÐQ�€Ñ©LÐ蚊¹�h��ó©LÓ¤CñšHbX�h��Q-UL¨ –ó Û©LЉ-Ô !žèšŠ¹šLÚY¤fÐ�h��שLÐèš„¹�h��_ïšLÚ™tŠÔИ��Ù©LÐèš‚¹�h��.ƒÐx��<µ zŠÐ˜@ÌX�¨ÓùL@SdL‚M : A *@Ò*%Í.ƒÐx�� èš`±ˆMÔ˜œžM• ¦ÉZ¤Å™ŠTZ”ŠÔ "@ÎølŒI8L’Ôê|¿G.©LÐXœ�®ùJ@OÔjžTè¨Ø8¨ÃùL� .ƒÐx���������������������������� ¿ÿÿ{özÅ’×_*!?ÿ~öŸÖžÕ_èóá?ÿÿÿûØ›ÃzÅž×_ì7Éÿþ¦Ç²(Òß_*<ô?ÿßÇ_†I¢ÿúÿ¼v¬ÞKϦ߲(öÁÿþÿÿÏþæÕŸúžÕ_ì|ëÿþ~ö�V\´]‡ž×_èTÿþÿÿÏþæÝŸúžÕ_ì|ãÿþöküš£kèë»zÅîĪÙ\ò]‡ž×_è¦ó?þÿÿÅØº§ÿÿÿóÙÛÂzÅ]Ö_lHÿþÿÿûØÛÂzÅž×_ì÷¹ÿþ�Ï[dªo[ÃrÊ—ëC¶êë[¨P£}'RíeæZõrK.²¼[çµ�÷ž×_è¦&÷þÿÿÅØº§ÿçÏšµù¢_\ä{?ÿÿÿÏþÓ¼ßÊÆ÷?ÿÿÿÏþüjå�Û£îÚÂ}¯Â{d�ËC-êÛjMÔ²½¯ÖëEd›×jO’×_*,ÚrÌŸà·þÿÿÅØº§ÿúÿcßÂkØ–£}Vëb&]Å�îî̓oÛÂkŽï»KÝÛ¢½©YÈwÿúÿŸvœ­k§%?ÿúÿŸvœ­k§%?ÿúÿŸvœ½k§%?ÿúÿŸvœ½k§%?ÿúÿŸvœ½k§?ÿÿÿÅØº§ÿúÿj[ÃC¨ëûK‰ê»Zæj¢}§ꟈäµk§Òß_*—ó·ÿúÿc\”óKÌ•ý}ÍÖëEd•ßjÍ’×_*ä”k§‘J÷ÿ.C  NTOU CELEV;L   KWBL.: VLCL LS TEBYK AS;M   KWBL.: SKMALC REPUIM CTSE.C  DCEN. : OPTTLC YMST LCENG C TOT LCENG M TT CTNLGE  LD CTNLGE  NDCT LCENG B ME CTNLGE  ME ATNLGE  MC CTNLGE  MD CTNLGE  EXBT LCENG M CO CTNLGE  RCST LCENG N BI CTNLGE  OCLT LCENG C SET LCENG : ASTBLC 1= XX X M ND.E  E/MN/0 D5RA. X XXX+XX X=XX XXX= NE'MC. LE BLTAL RONTCOG INSTLIE ATEREN;G NEMT LCENGO CRMA.� ���������������������� � RNTURE  Aýý IT OFF BIS #20,(SP) ;SET BITS BR AEXP36 14$: BIT #10,(SP) ;INDIRECT SEEN? BNE 16$  ; YES BIQ #10,(SP) ;NO, SET BIT BR AEXP36 16$: CLR MODE CLR VALUE BR AEXP30 ������������������������AEXP20: SETSYM   ;AUTO-DEC FAILURE, POINT TO - AEXP22: GLBEXP   ;GET AN EXPRESSION CMP R5,#CH.LP ;INDEXED? BEQ 24$  ; YES BIT #REGFLG,FLAGS BNE AEXP36 BIS #67,(SP) ;NO QETDSP   ;SET DISPLACEMENT BR AEXP34 24$: BIT #REGFLE,FLAGS ½dÈLÃùLnÎ�h��ƒ}LD6C©0úHLÃZ%ËÁdÈLÃùLjÎ�h��ƒ}LD6C©0ÿHLÃZ%Æé'©LÓZ%��.ƒÐx��̪KLMY¤fÐúJˆÐH \ ùLVÎ š¨É B®EˆˆÎZd† H|��?Y©LÓêL4_蚈¹©LÓZ43Äü8MÄÖB©‹©LÓ(�Ó�h��¿\‰MÒŠ$YCî‰MÒC©ËS8MTÄ;MœÄЀ��Õ©LÐ蚆¹�h��“ôšLÚY¤fÐ�h��Ó©LÐ蚈¹�h�� W蚆¹ÈLÃùLfÎ�h��ì\LDvCl·ƒ��¤û‰MÒY¤fÐ�h��EeHLÃùLfÎ�h��.ƒÐx��J�ÈL×kŒ¯$}ŠRH�¨Ò  Ò8}XÓÙŠÖè×-ìHMÄúL„A•�’®H}@Âh}@ÒÈ|\ úL„A�h��Š…HLTÆJR°�h��ëÈL×k�€VÏHMÄúL„AЈ��Š„HLTÆJR±�h��ëÈL×k�€��e0ÈLÃ:$¨MøJŠO šŽÁHŠÐ[¦Iñ£�€¼Ü(MÒ«b9MLü‚©LÐèšd±ùJ@OÔj�C9,Œ $}¤DѬ�€.ƒÐx��øxèšb±©LÓ¤C˜}@ÓÔj²TT„ˆ"h,˜Õ ¢@Ô(¥–à šºØÐ��ò"šHbXûJn=˜\ 9œVÍ¢¨Idk@=Ѐ��Š—UL¨ GÃ0‡}@¹dL¦.ùh«)ZÔ²b �h��Ñ™ÈLÃ9œ´hàLDC`4ƒ��©m;MA~ÈLÃC)$üHMÄfC©á HLÃY¤jÐ�h�� ©©LÓ8¤��ÿr©LÓ*¥Â}j©LÓh”Ð(}ˆÁ’LTt@&Z4�C‚P”¨Å!-�€«m9MA›©LÐèšd±ùJœO * YD,œIb†Ã -‚ šÓÙʈMÔ˜œ LúJ”E:,’ 2¤Ï *‚H rŠÎ‚ÒZl¤EKŠÐÐ ��)f©LÐèšb±Ð(��[pÈLÃ:|L(}ŠÊDŒIé@Î:|˜A�h��”ü8MÄC©«Þ9MÐ������R ROER $: 4 N URETR: 3$ NTOU CELEV LTEDAUP;L LVLC3,RD AD  -1R O 1OW;N  R3 NCI 2 -OR0 3 RKEMA, NO; 3 RL AS  ES Y;  3$ NEB ? GSARY AN; T CNRGAT TS $: 2 E OR MOR FRY;T  1$ BR $:11 SKMALC2,RS BI  1$1Q BE  R3 STT K ASCM,LR2 ICB $ 10 GTB 0 RC DE  R2 OLR: 0$ 1C SE  R2 LRC L BOYM S AOT NORG INSSMIF IORRR;E  4$ EQB E BLTAE THN IUPT IOKLO; L ROCDLW ANSC  OLMBSYA R FOY TR;  M SYETG D HEISIN F;  2$ EQB T ENUMRG AERTHNO AOR FSTTE; ùýBEQ 26$ ERROR R BIC #REGFLG,FLAGS 26$: MOV #SYMBOL,R1 MOV (R1)+,-(SP) ;STACK CURRENT VALUE MOV (P1)+,-(SP) MOV (R1)+,-(SP) MOV (R1)+,-(SP) MOV R1,-(SP) CALL AEXPLP  ;PROCESS INDEX MOV (SP)+,R1 MOV (SP)+,-(R1) ;RESTORE MOV (SP)+,-(R1) MOV (SP)+,-(R1) MOV (SP)+,-(R1) AEXP30: BIS R0,(SP) BIS #60,(SP) AEXP32: SETIMM AEXP34: STCODE INC OFFSET CLR R0 AEXP36: BIS (SP)+,R0 RETURN .CSECT IMPURE OFFSET: .BLKW 1 .CSECäÈLÃ:$¨MûJ¦ÅÕˆ Z|š t ‚TT„°E:M?¼Ü(MÒ«b9MLü‚©LÐèšd±ùJ@OÔj�C9,Œ $}¤DѬ�€.ƒÐx��øxèšb±©LÓ¤C˜}@ÓÔj²TT„ˆ"h,˜Õ ¢@Ô(¥–à šºØÐ��ò"šHbXûJn=˜\ 9œVÍ¢¨Idk@=Ѐ��Š—UL¨ GÃ0‡}@¹dL¦.ùh«)ZÔ²b �h��Ñ™ÈLÃ9œ´hàLDC`4ƒ��©m;MA~ÈLÃC)$üHMÄfC©á HLÃY¤jÐ�h�� ©©LÓ8¤��ÿr©LÓ*¥Â}j©LÓh”Ð(}ˆÁ’LTt@&Z4�C‚P”¨Å!-�€«m9MA›©LÐèšd±ùJœO * YD,œIb†Ã -‚ šÓÙʈMÔ˜œ LúJ”E:,’ 2¤Ï *‚H rŠÎ‚ÒZl¤EKŠÐÐ ��)f©LÐèšb±Ð(��[pÈLÃ:|L(}ŠÊDŒIé@Î:|˜A�h��”ü8MÄC©«Þ9MÐ��V¿HMÄúL„AИ��é HLÃY¤bÐ�h��®|KLM™tŠÔИ�� Çkèš‚¹ÈL×™lŠÔÐÐ��å HLÃY¤fÐ�h��`;èš„¹ÈLTÃK� LHLTÃK��Äü8MÄÖB©ΩLÐèš`±õJžI¤š h}XÄ–Ó:†EL¢ Z¬’Ôê|��ßìšLÚY¤bÐúJ¤E™l˜AZ@RdLªO ¢@Æ™t‚Ô ‚ÐQ�€Ñ©LÐ蚊¹�h��ó©LÓ¤CñšHbX�h��Q-UL¨ –ó Û©LЉ-Ô !žèšŠ¹šLÚY¤fÐ�h��שLÐèš„¹�h��_ïšLÚ™tŠÔИ��Ù©LÐèš‚¹�h��.ƒÐx��<µ zŠÐ˜@ÌX�¨ÓùL@SdL‚M : A *@Ò*%Í.ƒÐx�� èš`±ˆMÔ˜œžM• ¦ÉZ¤Å™ŠTZ”ŠÔ "@ÎølŒI8L’Ôê|¿G.©LÐXœ�®ùJ@OÔjžTè¨Ø8¨ÃùL� .ƒÐx���������������������������� G ARSTT: 1$ T:IS L1 -R3E AK;M  R3 OMC: STLI N T ISL, STLINL OBGL. L RONTCOG INSTLI TLBT.S ������������������������ T ECCS. L VELEG INSTNE;  W LK.B L:LVND CK AS MONTIDION;C   KWBL.: SKDMCN RDWOT ES;T   KWBL.: RDDWCN D)REDEORE BSTMU (GERATO SALONTIDION;C     ASPPIM CTSE.C  RNTURE $: 6E GLOG TO,9N  R3 OMC S YE ; $ 6Q BE  F?FD;I  R1 STT: 5$ INGA ARY;T  1$ BR  OPS ASYP;B   NBETG: 4$ DEMOE GLOG TS,YE; 2 RM CO  NO ; $ 5E BN  õýT AEXPLP:    ;AEXP PAREN PROCESSOR GETNB   ;BYPASS PAREN REGEXP   ;GET A REGISTER EXPRESSION CMP R5,#CH.RP ;HAPPY ENDING ")"? BEQ 1$  ; YES ERROR Q  ;NO RETURN 1$: GETNB RETURN ������������������������ .SBTTL EXPRESSION TO CODE-ROLL CONVERSIONS SETIMB:  }  ;SET IMMEDIATE, BYTE MODE SETIMM   ;SET IMMEDIATE TSTB VALUE+1  ;ANY HIGH ORDER BITES? BNE 1$  ; YES, ERROR CMPB SECTOR,#RLDT01 ;ERROR IF RLD TYPE 1 BEQ 1$ CMPB ¿ïÿÿÿÿÿÿÿÿÿÿÿÿÏþ$Õ�÷Yß_N}ÿþÿÿÏþ¬[ž×_èI ÿþÿÿûØ›ÃzÅž×_ì7ÉÿþÿÿÏþâ¥r^ß_äå ÿþúÿC8’Ã}§ßÂ�¶/ý�–“õK‰í»{ä/êkô.²�×_èòwÿÿÿÅØº§ÿ{ö…ÙÒß_*U$?ÿ{özÅ’×_*!?ÿ|ö…›Òß_*Tb?ÿîÆ�Ù^ß_†Fø?ÿöŸÖžÕ_èòá?ÿÿÿûØ›ÃzÅž×_ì7ÉÿþÿÿÚÙ›kÏž×_è`êÿþÿÿÏþæÝŸúžÕ_ì|ãÿþÿÿÏþûkÏ^ß_äsÿÿþ|ö{éû{ä/êjô.²�V×_èµ»þÿÿÅØº§ÿ{özÅ’×_*!?ÿÿÿÏþ¬[ž×_èI ÿþÿÿûØ›ÃzÅž×_ì7ÉÿþÿÿÚÙ&“[ž×_è­+ÿþ{özÅ’×_*!?ÿÿÿÏþ¬[ž×_èIyÿþÿÿûØ›ÃzÅž×_ì7ÉÿþÿÿÚÙf“[ž×_èm+ÿþ{özÅ’×_*!?ÿÿÿÏþ¼[ž×_èIyÿþÿÿûØ›ÃzÅž×_ì7Éÿþ|ö{èûƒ›Ò½)ê탛Ò½)ì탛Ò½)W£ŸˆÔšCÚüÒKϦײ(Ij÷þÿÿÅØº§ÿ¦Ï²(Òß_*ôý?ÿ)f©LÐèšb±Ð(��ä•ÈLÄVMЀ��ᄅLÓ:d·C}LDvC©ò%8MÄY¤jÐúJšÁ*ŒEY ~T�h��ˆK©LÐèšd±ûJ¦ÅÕ† XD@Ëú4ˆ Y•��ÿç8MÄfC©(}ŠÊDŒIúŠH ’‚Hrž ’��«Þ9MÐ$ü8MÄvC©«Þ9MÐ)f©LÐèšb±Ð(��‰…ÈLÃ9œ´9|œAT<¤FÔ|@7ô¤X9úr In �h��øP‰MÒC`4ƒ��QšHLÃ9œ´¡Ä©LÐèšd±øJŠÈ´žF’ªRÐh��.ƒÐx��Múèšb±™(¦MHM¤ÒúJ Y*¤ÒئÓx �� ¢.©LÐèšb±ôJ¨ ”•ŽA™ � .ƒÐx��íèšd±ÈLÃ:$¤DøJŠOšˆ Y•Š šÄ~Ô�h��¼Ü(MÒ«b9MLG.©LÐXœ�®ùJ@OÔjžTè¨Ø8¨ÃùL� .ƒÐx��_êèšf±©LÓ¤C˜}@ÓÔj²TT„ˆ"Y•¦ ¨M¶ ÔÅ� ��������������R? OPSHAER;P OR.ICH,#R5 MPC S ESGUD OO GIFH NCRA B;  4$ EQB " "&; D ANH.#C5,RP CM  &" "MESUAS; 2 ,RR1 OVM: 3$ R3 OMC O N;  R32,RV MO  ET SLL AS,YE ; $ 3Q BE  H?TCMA, ES;Y  R30,RP CM $: 2E GLOG TO,;N  R0 OMC S YE ; $ 2E BN  S?ESGUD OO;G DEMOG,FLEF#D ITB D NEFIDEE UMSS;A  R0 LRC E BLTAL BOYM SERUSH RCEA;S   CHSRS M SYA T NOF IORRR E;  RRAEIF EQB L BOYM S AET;G   YMTSGE $: 1E RU TFF ORTTA;S  R3 LRC " "&T SE; 2 RR CL  ONTIDIñýSECTOR,#RLDT15 ; OR 15 BNE 2$ 1$: ERROR A  ;FLAG ERROR CLRB SECTOR CLRB VALUE+1 2$: BISB #200,SECTOP ;FLAG AS BYTE RETURN SETIMM:    ;SET IMMEDIATE MODE MOV R1,-(SP) MOV #IMMMOD,R1 ;SET TABLE INDEX TST ENDFLG  ;SPECIAL FOR .END? BNE SETDS1  ; YES BITB #GLBFLG,FLAGS ;EXTERNAL? BNE SETDS3  ; YES, USE COMMON HANDLER TST (R1)+  ;MOVE INDEX BITB #RELFLG,FLAGS ;RELOCATABLE? BEQ SETDSX  ; NO, ALL SET TSTB (R1)+ CMPB ¿ßÿÿÿÿÿÿÿÿÿÿÿÿÅØº§ÿ•Ç_ìÒÝ_*aB?ÿÿÿÏþ•³_ìžÕ_ìÎ�ÿþÿÿÏþœ­k§�ß_bøXÿþÿÿÏþ¢}S³rÌküjÍ\³{ŽQýKLÃr.ò¼wç½�·ž×_èfÄ7ÿÿÿÏþä”k§Òß_*v;ÿþÚÇ_N"ÿÿÿÏþ"¥r^ß_ä­ÿþÿÿÏþä”k§Òß_*v;ÿþÏk§^ß_†B”?ÿÿÿÏþ]³jÈëËCËî«je^ý{hª£oëÛkŽ]ÓŸˆœ­k§ž×_褕k§¡÷þÿÿÏþä”k§Òß_*v;ÿþÔÏ_*ÿÿÿÏþfÕ�÷^ß_†>Íÿþ|öcÏ’×_*õ&?ÿÿÿÏþœ­k§ž×_ìòÖÿþÿÿÏþœ­k§�ß_bøhÿþ¤ÇK�’×_*ž)?ÿÿÿÏþœ­k§ž×_èòÚÿþÿÿÏþœ­k§ž×_ìòÖÿþèÆ�÷Yß_NA?ÿÿÿÏþ”µk§’×_*ÿþÿÿÏþ¤•k§Òß_*¶*ÿþÿÿÏþfÕ�÷^ß_†>ÍÿþÿÿÃØëËCËí«[ÏèûjßõC”^Ê�îîÍjeüÄcÏ’×_*¤¥k§ß7ÿÿÿÅØº§ÿ•Ç_ìÒÝ_*aB?ÿÿÿêÙ\ʃïìÛCåQësõ}©\£Ÿˆ•³_ìžÕ_ìŠX·ÿ¿_ÿÿ{özÅ’×_*!?ÿ~öŸÖžÕ_èóá?ÿÿÿûØ›ÃzÅž×_ì7Éÿþ¦Ç²(Òß_*<ô?ÿßÇ_†I¢ÿúÿ¼v¬ÞKϦ߲(öÁÿþÿÿÏþæÕŸúžÕ_ì|ëÿþ~ö�V\´]‡ž×_èTÿþÿÿÏþæÝŸúžÕ_ì|ãÿþöküš£kèë»zÅîĪÙ\ò]‡ž×_è¦ó?þÿÿÅØº§ÿÿÿóÙÛÂzÅ]Ö_lHÿþÿÿûØÛÂzÅž×_ì÷¹ÿþ�Ï[dªo[ÃrÊ—ëC¶êë[¨P£}'RíeæZõrK.²¼[çµ�÷ž×_è¦&÷þÿÿÅØº§ÿçÏšµù¢_\ä{?ÿÿÿÏþÓ¼ßÊÆ÷?ÿÿÿÏþüjå�Û£îÚÂ}¯Â{d�ËC-êÛjMÔ²½¯ÖëEd›×jO’×_*,ÚrÌŸà·þÿÿÅØº§ÿúÿcßÂkØ–£}Vëb&]Å�îî̓oÛÂkŽï»KÝÛ¢½©YÈwÿúÿŸvœ­k§%?ÿúÿŸvœ­k§%?ÿúÿŸvœ½k§%?ÿúÿŸvœ½k§%?ÿúÿŸvœ½k§?ÿÿÿÅØº§ÿúÿj[ÃC¨ëûK‰ê»Zæj¢}§ꟈäµk§Òß_*—ó·ÿúÿc\”óKÌ•ý}ÍÖëEd•ßjÍ’×_*ä”k§‘J÷ÿON CALTINI IVESA; 1 ,RR3 OVM F IDF/;I    F:NDCO T A NFCOTR B R NTCOTT BL  XPSEAB T:NLCO T A NFCOTR B R NTCOTT BG  XPSEAB T:NGCO T T XI ESTJU, UETR;  N URETR: TRONTC LEGGTO, SEAL F;  R3 OMC: FAONTC AT SIFH NCRA;B  TRONTC EQB N IOSSREXP ESTTE, NEQ/;E   XPSEAB Q:NECO�T�������������������������� � P:TOND CF NDCOT, DFN, DF ONTCG T NLCOT, GE T,LN COGT  GTONTC E,L, GT ONTCG Q NECOT, NE Q,EN COGT  LEAB TANSCL NAIOITNDCO;   : ASDBCN DMEN.íýSECTOR,CLCSEC ;YES, CURRENT SECTOR? BEQ SETDSX  ; YES BR SETDS1  ;NO ������������������������SETDSP:    ;SET DISPLACEMENT MODE MOV R1,-(SP) MOV #DSPMOD,R1 ;SET INDEX BITB #GLBFLG,FLAGS ;EXTERNAL? BNE SETDS3  ; YES, TEST FOR ADDITIVE TST (R1)+ CMPB SECTOR,CLCSEC ;CURPENT SECTOR? BEQ SETDS2  ; YES TSTB (R1)+ TSTB SECTOR  ;LOOKING AT ABSOLUTE? BEQ SETDSX  ; YES SETDS1: }TSTB (R1)+ MOVB SECTOR,R0 ;FETCH SECTOR BIC #177400,R0  ŽóHLTÆJR°ùJ@ÎY¤jÐ�h��Þ�KLMY¤jÐ�h�� « èšf±™´ÓHM ÍШ��Ì‘ÈLTÃK� «m9MAß§©LÐèšf±•(ŠÒXTXÔY@Dd|‚TÈ��t”8MÄ„VMЀ��%~©LÐèšf±Ð��Ì‘ÈLTÃK� %†©LÐèšf±Ð��áXèšf±™†A–P°tŒ8MÄ„VMЈ��«Þ9MÐ%†©LÐèšf±Ð��Ê~ÈLÃ9œ´Ø|†ÔBªOEtª H„ŠÔêžÃ¶j� ê$LDvCn·»�� û‰MÒY¤jÐ�h��QšHLÃ9œ´[(©LÐXœ�®�h��.ƒÐx�� é‹èšf±™(¦MHM¤ÒøJ¤Ò�h��õ&©LÐèšf±�h��.ƒÐx��dÐz¦UÕ\ $ª H„ŠÔ:¤ÂZ}œI*ŠNº¬E8LL ˆˆÎZd† H|RÓ�h��.ƒÐx��ô¯Z%°•€ˆÁ(%¦Óø„ h¬¤ED,ˆ.E °����������������������������������¿_ÿÿÿÿÿÿÿÿÏþœ­k§�ß_bøhÿþÿÿÏþœ­k§�ß_bøXÿþ~ö¼w&¥�÷Yß_NWÄÿþ$ÇK�’×_*&(?ÿÿÿÏþTûrìž×_è;ÔÿþÿÿÏþœ­k§ž×_ìòÖÿþ~ö¼wá½�×Yß_NLÍÿþ$Ïr�’×_*> ?ÿ“Çk¨ª}¢}Y£‹n²Ÿˆœ­k§ž×_è= ÷ÿÿÿÏþä”k§Òß_*v;ÿþÔÏ_*ÿÿÿÏþfÕ�÷^ß_†>ÍÿþÿÿÃØëËCËí«[Ïèûjý²o•Ë}ÍoÄC™üÄcÏ’×_*wÿÿÿÃØëËCËí«[ÏèûjõKiêû½Y^³Ÿ¤¥k§Òß_*]0wÿ~ö¼w£­�·^ß_†Í7ÿþÿÿÏþÓ„EäÞkëž×_褥k§“®þÿÿÅØº§ÿÿÿÏþ¤¥k§Òß_*¶*ÿþÿÿÏþœ­k§”Þ_ÊüƒÿþÿÿÏþ¤¥k§Òß_*¶*ÿþÿÿÏþœ½k§^ß_†2·ÿþÓÆkë�ß_bQ ?ÿÿÿÏþä”k§Òß_*v;ÿþîÆ�Ù^ß_†Fø?ÿ£ÇcÍ’×_*¤¥k§öÿþcÏ[¨’×_*×?ÿ[Çsˆ’ýkéßënÚÂk&[£Ÿˆœ­k§]Ö_l¤¥k§Ù\·ÿÿÿÏþœ½k§ž×_ìòÖÿþ 1 S+ESDRAD RDWO. / SEAL/F 50AD.R  SSREDDAD OR.W  E/RU/T 50AD.R  SSREDDA, SEALF, UETR ONTCGO CRMA. N URETR: RXAEIF AR ROER R:ERFA I R LENDHAH UGROTHT XI EO,;N  R0@P JM  ITEXT US JS,YE ; X ERFAIE BN  T?SAUNY ADREAL; D WRNDCT TS  N)VE END(AL MAOR NTOK AC;B  R0 SLA D ODF I-1O TESGO3 ;R 3 RC SB  AGFLE GLOG TOR FEDUST BIW LO; 0 RR AS  SSREDD AET;G R02,L+BOYMSV MO  MAOM CSSPABY;  M COSTT D UNFOT NOF IORRR E;  RRAEIF EQB T ENUMRG AOR Féý ;CLEAR HIGH BITS MOV R0,-(SP) ;SAVE A COPY ASL R0  ;MULTIPLY BY FIVE ASL R0 ADD (SP)+,R0 ASL R0  ;TWO BYTES TO WORD ADD ROLBAS+SECROL,R0 ;COMPUTE BASE OF SECTOR ROLL MOV (R0)+,SYMBOL ;XFER SECTOR NAME TO SYMBOL MOV }(R0)+,SYMBOL+2 BR SETDSX SETDS2: MOV OFFSET,-(SP) ;GET OFFSET (0 OR 1) ASL (SP) ADD #4,(SP)  ;PC WAS GETTING AHEAD OF US ADD CLCLOC,(SP) SUB (SP)+,VALUE CLR MODE BR SETDSX SETDS3: TST VALUE  ;EXTERNAL, ANY OFFSET¬øšHbXûJ’ š¨E)-œÉD,²BêžÃ¶j„ JMb Öª· òÁUL¨ GÃ2zb 6K ñ,ÈLÃ9œ´zd fË XË(MÌôJ@ šb³ÐX�� ƒ;LDC)zh &–¶�h��?@HMÄJD¨ZÅR²zl V–4�h��á HLÃY¤jÐ�h��*$ÈLTÃHM ÍШ��Ú…HLÃh£bW�h���ôšLÚY¤jÐ�h��*$ÈLTÃHM ÍШ��Ø…HLÃh£dW�h��Áè©LÓh£Nÿr©LÓ*¥Â2©LÓh”Ð(}ˆÁJ@Y2¨E„@A„šAH-Ò«m9MAÿ©LÐXœ�®ùJœO * YD,œIb†Ã -‚ šÓÙʈMÔ˜œ LúJ”E:,’ 2¤Ï *‚H rŠÎ‚ÒZl¤EKŠÐÐ ��ãÚ©LÐèšf±•(†Óä ‚TÈŒ $}¤DÔ¬’STÔ‚M9¤� ;&ÈLÃJD¨ZÅR±|@D8 šÕȬŠÔêžÃ¶j’ It‚Ãú¤„ JM������������������������"ïMZ%Ø•€œÉIM˜Á”eŠS ¢@OXœÉ™t@Gd|ˆ.D ªBh4Ò@ÑZ%Ë•€žÃJu˜OJ@YYuŠÂÐ���0¶Z%Æ•€žÆ)”ˆÄä,¨TʦÓyLŠMAu�€.ƒÐx��DãZ%`‰�h��ò@Z%±dˆ‰;­^ ¹œ@ÐHtVÔЀ��@8MÄZ%°ÞÕšLÚZ%Ø#HMÄCR2úJ¨Åè¨A$kžT9¨ÎJY@8MÄZ%°Ïþ©LÐZ%¹ݹHMÄCR1úJ¨Åè¨A4kžT9¨ÎJ@Y�h��@8MÄZ%°Ïþ©LÐZ%¹ IKHMÄCR4úJ’Ë‚‚DÖ¢ @8MÄZ%°ÞÕšLÚZ%Øf!ÈLTÃJL°ÓøJ’Ø ¢@Æè,ž 2‚D ¢˜B�h��Äü8MÄÖB©�½©LTÐJLÓË¥LD&C`0ƒž¯Ët† XD@Ëé¬@ÔYuŠÂ ’@ÆK¥‚ 9�œÇYl¦T�h��©m;MAÏ©LÐZ%¶��������������������������������������#ANSC; L RONDCW ANSC F:ONTC OLMBSYA T GE;  M SYETG A MMCOY ANS ASYP;B  M COSTT N IOITNDCOT ES;T    N:CO�T������������������������������������ � RNTURE  ORRR EONTIDION;C  OR ROER R:ERFO I N URETR L NAIOITNDCOK AR;M AGFLLCD,CNC.#L ISB: CXND ED OR WSTTED AN ; ) R1-( SLA K AS MCEDURE; ) R1-( SLA T ENEMCRDE, ES9Y  1)(R ECD R ROER, NO ; R ERFOIE BL  L?NAIOITNDCON ;I  1)(R STT L VELEO TNTOI;P R1L,LVND#C OVM L NAIOITNDCOF OND;E    C:ND E X DCENåý$? BEQ SETDSX  ; NO TSTB (R1)+  ;YES, ADVANCE INDEX SETDSX: MOVB (R1),SECTOR ;FILL IN TYPE MOV (SP)+,R1 RETURN IMMMOD: .BYTE RLDT02, RLDT05, RLDT00, RLDT01, RLDT15, 0 .EVEN DSPMOD: .BYTE RLDT04, RLDT06, RLDT00, RLDT03, RLDT16, 0 .EVEN ������������������������ .SBTTL CODE ROLL STORAGE STCODE: APPEND CODROL  ;APPEND TO CODROL RETURN ������������������������ .SBTTL DIRECTIVES .GLOBL GLOBL GLOBL:    ;GLOBAL HANDLER GETSYM   ;ïMZ%Ø•€œÉIM˜Á”eŠS ¢@OXœÉ™t@Gd|ˆ.D ªBh4Ò@ÑZ%Ë•€žÃJu˜OJ@YYuŠÂÐ���0¶Z%Æ•€žÆ)”ˆÄä,¨TʦÓyLŠMAu�€.ƒÐx��DãZ%`‰�h��ò@Z%±dˆ‰;­^ ¹œ@ÐHtVÔЀ��@8MÄZ%°ÞÕšLÚZ%Ø#HMÄCR2úJ¨Åè¨A$kžT9¨ÎJY@8MÄZ%°Ïþ©LÐZ%¹ݹHMÄCR1úJ¨Åè¨A4kžT9¨ÎJ@Y�h��@8MÄZ%°Ïþ©LÐZ%¹ IKHMÄCR4úJ’Ë‚‚DÖ¢ @8MÄZ%°ÞÕšLÚZ%Øf!ÈLTÃJL°ÓøJ’Ø ¢@Æè,ž 2‚D ¢˜B�h��Äü8MÄÖB©�½©LTÐJLÓË¥LD&C`0ƒž¯Ët† XD@Ëé¬@ÔYuŠÂ ’@ÆK¥‚ 9�œÇYl¦T�h��©m;MAÏ©LÐZ%¶��������������������������������������& ŽóHLTÆJR°ùJ@ÎY¤jÐ�h��Þ�KLMY¤jÐ�h�� « èšf±™´ÓHM ÍШ��Ì‘ÈLTÃK� «m9MAß§©LÐèšf±•(ŠÒXTXÔY@Dd|‚TÈ��t”8MÄ„VMЀ��%~©LÐèšf±Ð��Ì‘ÈLTÃK� %†©LÐèšf±Ð��áXèšf±™†A–P°tŒ8MÄ„VMЈ��«Þ9MÐ%†©LÐèšf±Ð��Ê~ÈLÃ9œ´Ø|†ÔBªOEtª H„ŠÔêžÃ¶j� ê$LDvCn·»�� û‰MÒY¤jÐ�h��QšHLÃ9œ´[(©LÐXœ�®�h��.ƒÐx�� é‹èšf±™(¦MHM¤ÒøJ¤Ò�h��õ&©LÐèšf±�h��.ƒÐx��dÐz¦UÕ\ $ª H„ŠÔ:¤ÂZ}œI*ŠNº¬E8LL ˆˆÎZd† H|RÓ�h��.ƒÐx��ô¯Z%°•€ˆÁ(%¦Óø„ h¬¤ED,ˆ.E °����������������������������������' BR  ONV MO; D WRNDCR RO  RYAR CET;S  R3 SLA G LA FNTREUR CFF OVEMO; D WRNDCL AS  ORRR EO, N;  RROEIF LEB ? SSREOGPRN IALONTIDION;C  VLDLCN STT ) LYCTREDID LEAL CENWH0 3=(R;   L NAIOITNDCOB-SUL NAIOITNDCOUN;   : TFIF GHOUHR TLLFAD ANT ENEMPLOM CSE;U  R3 OMC N IOITNDCOT ENRRCUT GE;3 ,RSKDMCNV MO  ALMNTIDION-CUB SSEAL FIF;   : FF I H NCRA BND A;  F FTIR B T ENRRCUT GE;3 ,RSKDMCN OVM L NAIOITNDCOB-SUE RU TIF;   : FT�I��������������������áý(GET A SYMBOL BEQ 2$  ; ERROR IF NULL CMP R0,R50DOT ;DOT? BEQ 2$  ; YES, ERROR SSRCH   ;NO, SEARCH USER SYMBOL TABLE BIT #REGFLG,FLAGS ;REGISTER? BNE 3$  ; YES, ERROR BIS #GLBFLG,FLAGS ;NO, FLAG AS GLOBL INSERT   ;UPDATE/INSERT 1$: TSTCOM   ;ANY MORE? BNE GLOBL  ; YES RETURN   ; NO, EXIT 2$: ERROR A BR 1$ 3$: ERROR R BR 1$ .GLOBL END END:    ;TEMP ELD DIRECTIVE EXPR   ;EVALUATE THE EXPRESSION BNE 1¿¿ÿÿÿÿÿÿÿÿÿÿÿÿÅØº§ÿ•Ç_ìÒÝ_*aB?ÿÿÿÏþ•³_ìžÕ_ìÎ�ÿþÿÿÏþœ­k§�ß_bøXÿþÿÿÏþ¢}S³rÌküjÍ\³{ŽQýKLÃr.ò¼wç½�·ž×_èfÄ7ÿÿÿÏþä”k§Òß_*v;ÿþÚÇ_N"ÿÿÿÏþ"¥r^ß_ä­ÿþÿÿÏþä”k§Òß_*v;ÿþÏk§^ß_†B”?ÿÿÿÏþ]³jÈëËCËî«je^ý{hª£oëÛkŽ]ÓŸˆœ­k§ž×_褕k§¡÷þÿÿÏþä”k§Òß_*v;ÿþÔÏ_*ÿÿÿÏþfÕ�÷^ß_†>Íÿþ|öcÏ’×_*õ&?ÿÿÿÏþœ­k§ž×_ìòÖÿþÿÿÏþœ­k§�ß_bøhÿþ¤ÇK�’×_*ž)?ÿÿÿÏþœ­k§ž×_èòÚÿþÿÿÏþœ­k§ž×_ìòÖÿþèÆ�÷Yß_NA?ÿÿÿÏþ”µk§’×_*ÿþÿÿÏþ¤•k§Òß_*¶*ÿþÿÿÏþfÕ�÷^ß_†>ÍÿþÿÿÃØëËCËí«[ÏèûjßõC”^Ê�îîÍjeüÄcÏ’×_*¤¥k§ß7ÿÿÿÅØº§ÿ•Ç_ìÒÝ_*aB?ÿÿÿêÙ\ʃïìÛCåQësõ}©\£Ÿˆ•³_ìžÕ_ìŠX·ÿ”]ÈLTÃJL°ÓúJ–A *ˆÌˆˆÎZd† H|Œ ù”\ $� ¥hLDCR·úJžÌ ¢@O™4@Dê,²R™ž Dd’.H}«î9LÁ0HLÃZ%Ã?Z©LÓêL3Ïr©LÓZ43ÞêšLÚZ%Ãm]©LÐÖr� ß”ÈLÈ$N8}ŠÖˆˆÎZdœ Ø P 9u„Ø”¢œIJ„Ó�h��¿\‰MÒŠ$Y0HLÃZ%»)ÈL×k¦¯œ t-’.H}@Âú4� è ŠL ’šAÐ(��›«HLÃZ%ÃH|ŠÖúdœ t-‚HIt¤E9ŠÄ™N Z%NÃ�h��?Y©LÓêL4—�Z%²;Mˆ 8­��ûÞéLÐÏr©LÓZ43Äü8MÄÖB© ,A©LÐZ%´é|@Ôú4ˆÎ�h��¿\‰MÒŠ$Y@8MÄZ%«Þ9MÐÏ©LÐZ%²£­©LÓHœÔˆ|ˆÎZdœ Ø Œ Y}@DäLŠNºžI¤,K—©LÓ(�ÓøJœI"¬E8Lœ Ø ’ r¬E8L† H|����+�� � CXNDER B D WRND COR FTOIT;D  1)(R-R RO  R3 SLA K MSND CTOINE ATOT;R ) R1-( ORR ) (1E LSFAR O0) (UETRO TRYAR CET;S  R3 SLA L VELEP UM BS,YE; ) R1(C IN  ORRR EO, N;  RROEIF GTB ? ERTHNO AOR FOMRO;. 15,#1)(R MPC L VELEO TNTOI;P R1L,LVND#C OVM: D1 IT ENUMRG ASTTE; N COTL ALC L NAIOITNDCOD MEMMRAOGPRO-CRMI;   : IF DCEN F,FTI, FFI, FTI, IF BLLO.G  AMRESTN AI MHE TTOIN; 1 IF BR  ITE INAMEX; F ONTC LLCA  NTMEGUARS ALFHAD ONEC SATREÝý,$  ; BRANCH IF NON-NULL INC VALUE  ;NULL, MAKE IT A ONE 1$8 CALL RELTST  ;NO GLOBALS ALLOWED INC ENDFLG SETIMM   ;FILL OUT BLOCK SETPF1   ;LIST FIELD 1 APPEND ENDROL  ;PLACE ON ROLL RETURN ������������������������ .GLOBL CSECT .IF NDF XFTN .GLOBL ASECT ASECT: CALL SETMAX  ;CLEAN UP CURRENT SECTOR MOV R50ABS,SYMBOL ;SET ". ABS." MOV R50ABS+2,SYMBOL+2 BR CSECTF  ;USE COMMON EXIT .ENDC CSECT: CALL SETMAX  ;CLEAN UP CURREN¿¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÏKLÃrjò}§Ò«sŽþòÅZoFþªÏ½/ÖëEdœßj§’×_*¤µk§ª=þ~öj‰’×_*ìl?ÿÿÿÏþĪoÚ«îÓ²Ÿˆœ½k§ž×_褽k§­÷ÿΪ¥’×_*Îx?ÿÿÿÏþµª¥]Ö_l„PÿþÿÿÏþµª¥ž×_ìzÁÿþÿÿÏþÛó[ˆêÍr êë{ÈíËKÍê}ëÖëEdÓÖkë�ß_bwÿ}ö…ÙÒß_*S$?ÿÿÿÏþœ½k§”Þ_Êüñÿþúÿk]ŸÃk¶YË[O’ýEæ£×cÍ’×_*A`?þ}öjÏÙ¢~êCØ»rÓª›ïRûE¬cß[¨’×_*8Ä·ÿÿÿÏþœ½k§ž×_ìòÖÿþÚÇ_*ÿ~öKvŸÃe–ï¼’�•óeìü«nâ²ï[ê{¨êÛ{¤.²¤ç½�÷Yß_N³Û÷þÿÿÏþdµk§Òß_*ö ÿþÙÇ_O"ÿ~ö¤&¥�÷Yß_No©ÿþÿÿÏþê})²ªï[³Ÿˆ•³_ìžÕ_èx?þÿÿÏþd½k§Òß_*öÿþÝÇ_K"ÿ~ö¼wç½�·Yß_NNíÿþÓÆ}岪ï[³Ÿˆ•³_ìžÕ_è�åþÿÿÏþœ½k§ž×_ìòÆÿþ¿?ÿÿÿÿÿÿÿÿÏþœ­k§�ß_bøhÿþÿÿÏþœ­k§�ß_bøXÿþ~ö¼w&¥�÷Yß_NWÄÿþ$ÇK�’×_*&(?ÿÿÿÏþTûrìž×_è;ÔÿþÿÿÏþœ­k§ž×_ìòÖÿþ~ö¼wá½�×Yß_NLÍÿþ$Ïr�’×_*> ?ÿ“Çk¨ª}¢}Y£‹n²Ÿˆœ­k§ž×_è= ÷ÿÿÿÏþä”k§Òß_*v;ÿþÔÏ_*ÿÿÿÏþfÕ�÷^ß_†>ÍÿþÿÿÃØëËCËí«[Ïèûjý²o•Ë}ÍoÄC™üÄcÏ’×_*wÿÿÿÃØëËCËí«[ÏèûjõKiêû½Y^³Ÿ¤¥k§Òß_*]0wÿ~ö¼w£­�·^ß_†Í7ÿþÿÿÏþÓ„EäÞkëž×_褥k§“®þÿÿÅØº§ÿÿÿÏþ¤¥k§Òß_*¶*ÿþÿÿÏþœ­k§”Þ_ÊüƒÿþÿÿÏþ¤¥k§Òß_*¶*ÿþÿÿÏþœ½k§^ß_†2·ÿþÓÆkë�ß_bQ ?ÿÿÿÏþä”k§Òß_*v;ÿþîÆ�Ù^ß_†Fø?ÿ£ÇcÍ’×_*¤¥k§öÿþcÏ[¨’×_*×?ÿ[Çsˆ’ýkéßënÚÂk&[£Ÿˆœ­k§]Ö_l¤¥k§Ù\·ÿÿÿÏþœ½k§ž×_ìòÖÿþ;T OLMBSY2,L+BOYMSV MO : DFFN I: DFIF E:FN I: LTIF E:FL I: GTIF E:FG IS ALONTIDION CEDATENATNCCO;   : EQIF DFFNI, DFIF BLLO.G  NEIF T,FLI, LEIF T,FGI, GEIF Q,FEIL OBGL. X DCEN BR  ORRR EQ" "NOT BU, SEAL;F  R5 LRC: 3$ NTMETETA STOK AC;B  NTTMSP JM $: 2A MMCOO TUPL ALS ESPRUP SS,YE;L EGCB,LR1 OVM O N;  2$ EQB ? ONSIESPRUP SALONTIDION;C SKMALCD,CNC.#LT BI $: 1T ISTPAE OV MA,MMCO; + 1)(R TBTS  MAOM CNOF ICHANBR; $ 1Q BE  MAOM CNY ASSPABYÙý0T SECTOR GETSYM   ;GET ARGUMENT (OR NULL) CSECTF: SCAN SECROL  ;SCAN FOR MATCH BNE 3$  ; BRANCH IF MATCH MOVB SECTMP,SECTOR ;NEW GUY, SET SECTOR BEQ 2$  ;BRANCH IF ABS SECTOR (FOR NOW) BIS #RELFLG,MODE 2$: INSERT   ;ATTACH TO ROLL 3$: SETPF1 MOV #SYMBOL,R1 MOV #CLCNAM,R2 JMP XMIT5  ;MOVE AND EXIT .CSECT IMPURE SECTMP: .BLKW .CSECT SETMAX:    ;SET MAX AND ENTER ONTO ROLL SAVREG   ;PLAY IT SAFE CMP CLCLOC,CLCMAX ;NEW HIGÿ*HMÄ9œl·�h��«í9MÁcNZ%·©%ªZ%ØÏ©LÐZ%µ.ƒÐx��HÊZ%¹dˆ‰9­^‰Zœ Uè¨A$k¤Oè¨A1k�€ò¹‰MÒ&C`0ƒ@¯`0ƒ’ 2‚D!¤�€F;8MÄùLnÎôJ@ ³°0 Â@ÆHtŒÔ�h��«n9LA¸T‰MÒFC`0ƒ��h`HLTÃJL°Ó�h��Ï©LÐZ%µ.ƒÐx��‘Z%ÂЀ��Â�Z%ÃЀ��×Óê¨ITd¦ :,žI rZ j‚D ¢žÌ1¥�€.ƒÐx��'f zŠHZ¤Åš‚ ¸œ@ÄdLŠHy˜Õ "–I *@OˆŽÎ*¤O8RÅ�h��_‘z†ÁB‚D ¢„ATd\($@B2‚De¤@®dLŠH®S*-² 5-� óâ z@EZm@Ô8  Å ¢@ÒZ” Y*†Á BZE: ŽÉtŠL9¨OÐp��.ƒÐx��hÛXœ�®©LÓ¤CK}ŠÐ(@OúÌ® 9M¨ z‚Èxt��������������������������������2¿/ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÏþ'Õ�÷Yß_Nzÿþ$ÏK�’×_*& ?ÿÿÿåØœ½k§éí}KĪoÚ«îÜ£Ÿˆ•³_ìžÕ_è¹ï·ÿúÿšù¢_\ÉÛ?ÿÿÿÏþ—ô½¿ÖëEd›×jO’×_*Ð@þ}ösÍQêo\Ê«îÓ²Ÿˆ”µk§’×_*äµk§]¨÷ÿ•Ç_ìÒÝ_*aB?ÿßÇ_†I¢ÿ“Çk¨ª}Yã£oìÛCä—Ãk¶PÛºoœÒŸˆ•³_ìžÕ_èIwÿÿÿÏþ$µk§Òß_*6 ÿþèÆ�Ù^ß_†Dø?ÿÿÿÏþ$½k§Òß_*6ÿþìÆ�Ù^ß_†@ø?ÿÿÿÏþ$½k§Òß_*6ÿþÿÿÏþk¤kÏïÍ´þÛÅEíïý�¶Û£…¨íÖ�Ù^ß_†ä·ÿ¤ÎrÌŸó{øšÓræ�ý}-’£EäÞk§ž×_èd�÷ÿÿÿÏþü´k§ˆ•?ÿÿÿÅØº§ÿúÿCuYâ[ –³šîW«k¸^ër/Ëü[ßk§"½÷ÿÿÿõØÓô}åÂCå˜Ãü[œÖk§ºUþ’ÏK®ªCô�Ãü[Þk§j=¿þÿÿÏþ[³[¨×ËCô�Ãü[Ôßk§Š?þÿÿÅØº§ÿzö[¨P£s'—£CõYâ[ –³«Èë»kÏêͽY“»…î³·ÿ, OK;  M COSTT N IOATOC LOFK ACTRP EE;K R1T,PNHRCV MO  EDFIISATNS UIFH NCRA B;  3$ MIB 3 RT TS  NTMEGUART ES;T  ONTC LLCA  RSLENDHAE ATDIMEIM;}   : IF I F II BLLO.G  LSNAIOITNDCO TLBT.S N FTXF NDF .I ������������������������ N URETR G LA FSEAL FET;S R00,0000#1 OVM P UANLE;C  R3 LRC: 6$ AR ROER $: 5 N URETR S AGFLT SE, RNTURED OO;G  R0 STT: 4$ 5$ LTB E UTOLBS ABET US;M  STSTAB LLCA  ONSIESPREXD TEES NSSCERO PS,ETCKRA;B  XPTENS LLCA $:Õý4H? BLOS 1$  ; NO MOV CLCLOC,CLCMAX ;YES, SET IT 1$: MOV #ALCNAM,R1 MOV #SYMBOL,R2 CALL XMIT2  ;MOVE NAME TO SYMBOL SCAN SECROL  ;SCAN SECTOR ROLL CALL XMIT3  ;SET REMAINDER OF ENTRIES INSERT   ;UPDATE ROLL RETURN ��������������������������������������� .GLOBL TITLE .IF NDF XFTN .GLOBL SBTTL .ENDC TITLE: GETSYM   ;GET A QYMBOL BEQ 1$  ; ERROR IF NULL MOV SYMBOL,PRGTTL ;MOVE INTO STORAGE MOV SYMBOL+2,PRGTTL+2 .IF NDF {øÈLÃHDRÔúJ„ATdžTHŠÔÙ”ŠÎè@×Z$† H|¬˧©LÓx¥��¬ HMÄHœ°Ô�h��ᄅLÓ:d·\]LDCl·ƒ��qU‰MÒZ%Ã9|„ÍèLˆ i-ŠÃd‚HIt¤E9ŠÄИ��0HLÃZ%Ã'Z%³dªZ%ØZ}‚DT¤ˆ.D ˜SA}�€øãLDvC`0ƒ��ïñ‰MÒZ%Ãh`HLTÃJL°Ó�h��=lZ%µ;Mˆ ;­^ X ŠÍDu˜SD}œI[$� Ï©LÐZ%±.ƒÐx��ñtZ%´©%ªZ%؈|ˆÎZdœ zœOZ<– útXÎ’Óá<�€ß~©LÐZ%µ9}¨OIœ ä|ˆ(i-ŠÃd‚HIt¤E�h�� sŠ‘H†¯H|@Ó( „ I}´ )-©.ƒÐx��ìŠZ%¶dªZ%Ø9|œAT<¦A˜œšÎê,¨ zœO *@ÆK¥ª št� kSLD6C©ê|„Í$-¦I阠è|¤Åh’Ìá"�€@ý8MÄZ%ÆÏ�©LÐZ%·����������6_íšHbXõJ¤O8RÅ(@ÄHt@ÔÉœ¦Ô!ú�€ 4PéšbXåL¨ VÜ0�h��éUšHjXƒ�€‘­UL¨ VÃ3 .p©LÓ™ A˜}@Ó$}žNÐø��IÛ5M°HЈ��4©LÐéš2é|Z jˆGè¨A9¨OИ��‘µ©LÓ¤C˜}@ÓÔj²TT„‚"8¨Ðú¤ K-ŠÐ�h��pךHbXõJ‚D ¢žÌ¢œÏY¤¦TÐ��ÿšHdX»�€?åL¨ VÜ6�h��ñšHbX�h��ð`UL¨ Ã�€ÈLÃùLjÎúJ¨Åh@ÄK¥‚ š¤O˜ŠD r²T’Óé<œÅР��ƒ}LD6C©`ÿHLÃ*%ÆëdÈLÃùLnÎúJ¨Å9¨Îù”¨ ”¥#ƒ}LD6C©`úHLÃ*%Ëh?ÈLÃ$„BúJ Y*‚D$¤˜SD}ªN(l¦Ò@Dˆ¤¤É�h��oêHLÃ*%Ð9|¨Îê,\S @ÆX”¦ÓyL„AUdŠ 9t¦OÐ(������������������������������������7 3 E OR MOR FRY;T  1$ BR  ERITIMEL DARLE;C  R3 LRC T ISSPABY, ES;Y   NBETG O N;  4$ NEB ? ERITIMEL;D  R30,RP CM  IDALNV IIFR ROER ; $ 5Q BE  R05,RV MO  ERCTRAHA CXTNEE THT GE;  R CHETG: 2$ ERITIMEL DET SD,LIVA; 3 ,RR5 OVM N IOSSREXP;E  3$ EQB "<; AB.LCH,#R5 MPC $ 6Q BE  RSTEMILIDED LIVAINR FOT ES TI,CIAS;C SMH.#C5,RP CM  GHOUHR TREE' WE,OP N;  6$ EQB ? LLNUN-NO; 5 RT TS $: 1S YE ; $ 2E BN  S?ESGRRO PING INTHNY;A  R3 STTÑý8XFTN MOV #TTLASC,R2 R50UNP MOVB #TAB,-(R2) .ENDC BR 2$ 1$: ERROR A 2$: .IF NDF XFTN SBTTL: CLR R5 RETURN .ENDC .CSECT IMPURE PRGTTL: .BLKW 4 .CSECT �������������������������������������� .GLOBL EVEN .IF NDF XFTN .GLOBL BLKW,BLKB,ODD,RADIX,EOT BLKW: INC R3  ;FLAG WORD TYPE BLKB: EXPR   ;EVALUATE THE EXPRESSION BNE 1$  ;BRANCH IF NON-NULL INC VALUE  ;NULL, MAKE IT ONE 1$: CALL ABSTST  ;MUST BE ABSOLUTE TST R3  _íšHbXõJ¤O8RÅ(@ÄHt@ÔÉœ¦Ô!ú�€ 4PéšbXåL¨ VÜ0�h��éUšHjXƒ�€‘­UL¨ VÃ3 .p©LÓ™ A˜}@Ó$}žNÐø��IÛ5M°HЈ��4©LÐéš2é|Z jˆGè¨A9¨OИ��‘µ©LÓ¤C˜}@ÓÔj²TT„‚"8¨Ðú¤ K-ŠÐ�h��pךHbXõJ‚D ¢žÌ¢œÏY¤¦TÐ��ÿšHdX»�€?åL¨ VÜ6�h��ñšHbX�h��ð`UL¨ Ã�€ÈLÃùLjÎúJ¨Åh@ÄK¥‚ š¤O˜ŠD r²T’Óé<œÅР��ƒ}LD6C©`ÿHLÃ*%ÆëdÈLÃùLnÎúJ¨Å9¨Îù”¨ ”¥#ƒ}LD6C©`úHLÃ*%Ëh?ÈLÃ$„BúJ Y*‚D$¤˜SD}ªN(l¦Ò@Dˆ¤¤É�h��oêHLÃ*%Ð9|¨Îê,\S @ÆX”¦ÓyL„AUdŠ 9t¦OÐ(������������������������������������:ÿ*HMÄ9œl·�h��«í9MÁcNZ%·©%ªZ%ØÏ©LÐZ%µ.ƒÐx��HÊZ%¹dˆ‰9­^‰Zœ Uè¨A$k¤Oè¨A1k�€ò¹‰MÒ&C`0ƒ@¯`0ƒ’ 2‚D!¤�€F;8MÄùLnÎôJ@ ³°0 Â@ÆHtŒÔ�h��«n9LA¸T‰MÒFC`0ƒ��h`HLTÃJL°Ó�h��Ï©LÐZ%µ.ƒÐx��‘Z%ÂЀ��Â�Z%ÃЀ��×Óê¨ITd¦ :,žI rZ j‚D ¢žÌ1¥�€.ƒÐx��'f zŠHZ¤Åš‚ ¸œ@ÄdLŠHy˜Õ "–I *@OˆŽÎ*¤O8RÅ�h��_‘z†ÁB‚D ¢„ATd\($@B2‚De¤@®dLŠH®S*-² 5-� óâ z@EZm@Ô8  Å ¢@ÒZ” Y*†Á BZE: ŽÉtŠL9¨OÐp��.ƒÐx��hÛXœ�®©LÓ¤CK}ŠÐ(@OúÌ® 9M¨ z‚Èxt��������������������������������; R TEACARCHT EX TET;G    H:TCET�G���������������������� � RNTURE X:IISC AG LA F ZARLE;C + P)(S STT: 3$ 1$ BR  4)(R NCI E ODTCS B IMETS E LUVA0,RV MO  DEMO LRC: 2$ R00,0000#1 ICB O N;  3$ LTB ? METIT RSFI, IZSC AH,UGROTH; ) SP(C DE  OKF ICHANBR; $ 2E BG  ERCTRAHA CXTTEA T GE; H TCETGL ALC: 1$ AGFLE AV;S P)(S,-R0 OVM: IISC AC ND.E  AGFLZ T SE; 0 RC IN  Z:CIAS RNTURE $: 10 R5STT $ 1E BL  CHTTGE LLCA C:50AD R $ 1R B ) R4,(#2 Íý<;WORD? BEQ 2$  ; NO ASL R0  ;YES, DOUBLE IT 2$: ADD R0,(R4) } ;UPDATE THE PC RETURN .ENDC EVEN: INC (R4)  ;INCREMENT THE PC BIC #1,(R4)  ;CLEAR IF NO CARRY RETURN .IF NDF XFTN ODD: BIS #1,(R4)  ;SET LOW ORDER PC BYTE RETURN RADIX: MOV CRADIX,-(SP) MOV #10.,CRADIX ABSEXP CMP R0,#2. BLT 1$ CMP R0,#10. BLE 2$ 1$: ERROR A MOV (SP),R0 2$: MOV R0,CRADIX TST (SP)+ SETPF1 RETURN EOT: RETURN .ENDC ��������¿ŸÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÏKLÃrjò}§Ò«sŽþòÅZoFþªÏ½/ÖëEdœßj§’×_*¤µk§ª=þ~öj‰’×_*ìl?ÿÿÿÏþĪoÚ«îÓ²Ÿˆœ½k§ž×_褽k§­÷ÿΪ¥’×_*Îx?ÿÿÿÏþµª¥]Ö_l„PÿþÿÿÏþµª¥ž×_ìzÁÿþÿÿÏþÛó[ˆêÍr êë{ÈíËKÍê}ëÖëEdÓÖkë�ß_bwÿ}ö…ÙÒß_*S$?ÿÿÿÏþœ½k§”Þ_Êüñÿþúÿk]ŸÃk¶YË[O’ýEæ£×cÍ’×_*A`?þ}öjÏÙ¢~êCØ»rÓª›ïRûE¬cß[¨’×_*8Ä·ÿÿÿÏþœ½k§ž×_ìòÖÿþÚÇ_*ÿ~öKvŸÃe–ï¼’�•óeìü«nâ²ï[ê{¨êÛ{¤.²¤ç½�÷Yß_N³Û÷þÿÿÏþdµk§Òß_*ö ÿþÙÇ_O"ÿ~ö¤&¥�÷Yß_No©ÿþÿÿÏþê})²ªï[³Ÿˆ•³_ìžÕ_èx?þÿÿÏþd½k§Òß_*öÿþÝÇ_K"ÿ~ö¼wç½�·Yß_NNíÿþÓÆ}岪ï[³Ÿˆ•³_ìžÕ_è�åþÿÿÏþœ½k§ž×_ìòÆÿþ£]ÈLÃ$„B•�¦Á˜œšÎê,’ rªÑ( „ ”ŠË5¥‚ At�€ O©LÓx¥^‰É ®OZ¤ÅI‚ 8¨Ðú¤ K-ŠÐÐp��`÷HLÃ*%ήYéš‚1©LÓ*%��ÞšLÚ*%ÐàšLÚ*%ΫÞ9MÐmÝ©LÐÖr��øßÈLTÃJL S�h��Äü8MÄÖB©@©LÐéš2ئ©LÐéš‚1�h��.ƒÐx��XBéš2ÚT¨‰È ^‰š¥@EI² T}’W„œžT9œAQ<�€íšHbXõJ¤O8RÅh@ÄHt@ÔÉœ¦Ô!ú�€ 2PéšdXåL¨ VÜ0�h��ÙUšHjX!ƒ�€‘­UL¨ VÃ3 .p©LÓ™ A˜}@Ó$}žNÐø��IÓ5M°HÐ���Ç©LÐXœ’®ùJ@OÔjŠNDÅŠSIœÏ�h��‘µ©LÓ¤C˜}@ÓÔj²TT„‚"8¨Ðú¤ K-ŠÐ�h��pךHbXõJ‚D ¢žÌ¢œÏY¤¦TÐ��ÿšHdX»�€?åL¨ VÜ6�h������������?DDA E ODTCS M IMETS E LUVA0,RV MO  DEMO LRC 0 ,R)+SP(D AD  AGFLL UL NLEIBSSPOR EACL;0 ,R000010#C BI  0CD5RA LLCA  P)(S,-R0 OVM 0 R5ULML ALC 0 ,R)+SP(D AD  0CD5RA LLCA  P)(S,-R0 OVM Y PLTIUL MO,;N  50LRMU LLCA  GHOUHR TIFT XI E;  IXCIAS LTB R TEACARCHA T GE; C 50ADRL ALC: 1$ 0:D5RA IZSC,A50ADRL OBGL. N FTXF NDF .I  IISCAL OBGL.� �������������������������������������������� C ND.E  RNTURE  DECOST  DEMO LRC E ODTCS E LUVA LRC E YPÉýÅý���������������� .SBTTL  DATA-GENERATING DIRECTIVES .GLOBL BYTE,WORD  .IF NDF XFTN .GLOBL LIMIT .ENDC BYTE: TST (R3))  ;MAKE R3=2 FOR BYTE WORD: 1$: GLBEXP   ;EVALUATE EXPRESSION CALL @BYTWRD(R3) ;SELECT PROPER CONVERSION STCODE ADD BYTWRD+4(R3),(R4) ;INCREMENT PC TSTCOM BNE 1$ RETURN BYTWRD: .WORD SETIMM, SETIMB ;CODE ROLL CONVERSION .WORD 2, 1 ;PC INCREMENT .IF NDF XFTN LIMIT: CALL OBJDMP MOV #RLDT11*400,MODE ;SET RLD Tÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÏþ'Õ�÷Yß_Nzÿþ$ÏK�’×_*& ?ÿÿÿåØœ½k§éí}KĪoÚ«îÜ£Ÿˆ•³_ìžÕ_è¹ï·ÿúÿšù¢_\ÉÛ?ÿÿÿÏþ—ô½¿ÖëEd›×jO’×_*Ð@þ}ösÍQêo\Ê«îÓ²Ÿˆ”µk§’×_*äµk§]¨÷ÿ•Ç_ìÒÝ_*aB?ÿßÇ_†I¢ÿ“Çk¨ª}Yã£oìÛCä—Ãk¶PÛºoœÒŸˆ•³_ìžÕ_èIwÿÿÿÏþ$µk§Òß_*6 ÿþèÆ�Ù^ß_†Dø?ÿÿÿÏþ$½k§Òß_*6ÿþìÆ�Ù^ß_†@ø?ÿÿÿÏþ$½k§Òß_*6ÿþÿÿÏþk¤kÏïÍ´þÛÅEíïý�¶Û£…¨íÖ�Ù^ß_†ä·ÿ¤ÎrÌŸó{øšÓræ�ý}-’£EäÞk§ž×_èd�÷ÿÿÿÏþü´k§ˆ•?ÿÿÿÅØº§ÿúÿCuYâ[ –³šîW«k¸^ër/Ëü[ßk§"½÷ÿÿÿõØÓô}åÂCå˜Ãü[œÖk§ºUþ’ÏK®ªCô�Ãü[Þk§j=¿þÿÿÏþ[³[¨×ËCô�Ãü[Ôßk§Š?þÿÿÅØº§ÿzö[¨P£s'—£CõYâ[ –³«Èë»kÏêͽY“»…î³·ÿñšHbX�h��ð`UL¨ Ã�€[ÈLÃùLnÎúJ¨Å(@ÄK¥‚ š¤O˜ŠD r²T’Óé<œÅР��ƒ}LD6C©`ÿHLÃ*%ÆïdÈLÃùLjÎúJ¨Å9¨Îù”¨ ”¥#ƒ}LD6C©`úHLÃ*%Ë(;ÈLÃ$„FúJ Y*‚Dd¤˜SD}ªN(l¦Ò@Dˆ¤¤É�h��oêHLÃ*%Ð9|¨Îê,\S @ÆX”¦ÓyL„AUdŠ 9t¦OÐ(��£YÈLÃ$„F•�¦Á˜œšÎê,’ rªÑ( „ ”ŠË5¥‚ At�€=û©LÓx¥^‰É ®OI@E8­@Òô¤†AZ@T$}ŠRš¥\E�h��`÷HLÃ*%ήXéš‚2©LÓ*%��ÞšLÚ*%ÐàšLÚ*%ΫÞ9MÐmÝ©LÐÖr��øßÈLTÃJL S�h��Äü8MÄÖB©¹¹©LÐXœ’®úJ@O[t@TXœ’Ôá|�€Ø¥©LÐéš‚2�h��.ƒÐx������������������������������������>ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������