à)Š:4€ 91!à8 8° 8¨z R#G 8à7 7§ !à8 7 8§ à4 ,²à, ) 83 43à) :œ ,ä :±à:¦,R(¿ž ,²3 )Þ#@Š:,÷žà(¦,R#G +R#¼Š:,÷ž (à( +R#¼¦Mà,„ ¦Là,)u¦,R#GŠ:,÷ž (à( +R#¼ ( ,3Þ#@÷à,Š:,÷žà( +R#¼)]Š:,÷ +R#¼žø3Þ„R)²ž3ÞŠ:)£ž¦:3Þ#@ ¦]à,)ͦ^à,)ͦ_à, ,3à(°à<Š:„R*-,÷ +°R#¼ž (à(±à<„R*-¦,R#GŠ:,÷ +R#¼ž (à(²à<„R*-¦,R#GŠ:,÷ +R#¼ž (à(³à< ( <3Þ#@Š:¦¥R#G±à-Š:¦€ à=±à>0÷¦( ?° R#G +R#¼ 6· ²à6 6§ !à7 6 7§ à4¦73 43 73à(±à-Š:0ñ¦) ?° R#G +R#¼ 6· ²à6 6§ !à7  6 7§ à4 ( 43 73à(Š:¦²R#GŠ:,÷ž/à4 ( 4·3ž¦93Þ#@±à<*þ°à<Š:,÷ +R#¼„°R+$¦Bà, <¦Dà,ž ,3Þ#@¦,R#GŠ:„R+ž¦B3Þ4°+N°à<Š:„ ¦?3Þ#@èÞ¦£ ¦A3à(+j¦¦R+‚¦@3à(Š:,÷¦)R#@ž (Þ4°+‰¦;R+“Š:„R+Ù+N¦, ¦;3à(+w,÷„R+Ħ, ¦=3à(+wž ¦<3Þ4°èÞ+N¦>à, <¦Cà,ž ,3Þ#@ < ¦E3Þ#@!ÛŠ:±à<,÷ +R#¼ž¦`3à(„R,[¦,R#GŠ:,÷ +R#¼²à<ž (à(„R,[¦,R#GŠ:,÷ +R#¼³à<ž (à(„R,[¦,R#GŠ:,÷ +°R#¼´à<ž (à( ( <3Þ#@Š:,÷ +R#¼ž¦a3Þ„°Š:,v#@Š:èà(¦#R,ÎèÞ0ñ )/± +° ¦ 3 )2ÿ 3à)ž ( ) ¦F3Þ„R#@4°¦,R#GŠ:,‘Š:,÷ +R#¼ž¦H3à(¦,R#G,ÈŠ:¦¤R#G&èÞ°à# #°ä # @ä #±à#±à@°àA.„ A Š: +à@-ôž )Þ°àB @°  @ +R;Ô¦ª¦³ R.]¦±R-Ž±àC¦±²àC¦³´àC B C R;] B C àBŠ:¦°¦´ R-N´àD B·R;]-Û¦£àB +° B·  B» #±¤´ R-±;Ôµà D B¸ ¶àD Bº¸àD B»²àD B½±àDŠ: +à@ #±¤àE E D.)-ß # Dä # Bä #°ä B· # +ä B¼ B½ ±à@ #±à#- #±à#ž #¤3Þ #¤¼ #¤½ R.V @° +à@ @R;Ô #¤à@ #±¤°.).] #±à# @° @à+ #¤à@°à+¦/¦: ¦. R3‹¦@¦[ R0릪Š:.„ ¦³¦Ë R/f¦¨ ³àD¿àB±àA¦¥R0p¦"R/¦« ·àD¾àB±àA¦ÿ¦ª3à)±à4Š:¦(R;]Š:,ü¦)R;]žà)èÞŠ:°à4èà)¦ÿà+Š³:¦"Š:/G )3à) 4±à4/# 4¸¦è 43 )à)¦ç3 43 )à) #¦”ä #±à#¦ÇR/òŠ:¦(R;]Š:,ü #±à# #¤à4 4¦/ 4¦1  4¦2 R/Ô 4¦$  4¦% °à+ +R;Ô 4¦0 4¦3 ¦ÿà+/Þ +°R/Ñ°à+¦)R;]ž 43à)èÞŠ:Š:¦(R;]Š:,ü +°R;Ô¦,R;]Š:,ü +R;Ô #±¤¦6R0L¦)ž¦¦3¦ÿ3Þ0L¦,R;]Š:,ü +R;Ô¦)R;]¦ÿà+ #±à# #¤à4ž 43à)èÞŠ:±à-Š:¦€ à=±à>0÷¦( ?° R;] +R;Ô 6· ²à6 6§ !à7 6 7§  à4 F¦83 73 43ä F±àFŠ:,ü¦) +° R;] +R;Ô F±àF F¤à)Š:°à>0ô±à>à=èà)°à4°àG±à7°à+°à?¦A¦Z R;]Š:¦@¦[ ¦/¦: R1c¦$¦ÿà+ G¦€ àGŠ:1r¦%¦€à? =¦€ à= G¦€ àGŠ:1r 7±àG²à71 =§  Gà7 7§ÿ  7¨‘à7 =3 G3à5 -°°à-1¬¦(R2 o°à6 H°R1̽Ǡ7È HÉ‹:‡°‡à62  7§TÉ ¦¯à72Y 7§TI ¦¬à72O 7§ST ¦«à72O H 7ä  Hà6 H±àH 6¦   6¦€3à) 6§ !à7 6 7§ à4 7²R2A¦  73 43à)¦£3 73 43à) 73à) >R;] 7¦¯ >° ¦Và7 73à) F 5ä±à4Š: F 43 +3ä F±àF,ü +R;Ô F±àF F¤2à4 F¤²¦ÿ6 2à+¦, 4±à4Š:2{¦)R;] F¤à5 52§  5²¦ÿ62à7 7§ÿ  7¨‘à7Š:°à6 I°R3¿Ç 7È IÉ‹:‡°‡à63, I 7ä I 4§ ä Ià6 I±àI 6à3 4 6¤¦ÿ  6 4 6¤§ ä; 6³² à4 6¦þ¦¤3 4±3à) 4§ !à7 4 7§ à4¦¥3 43 73à)4€ 9à)¦.4} )é. 9à)¦ ER3Ï4} )éE 9à) 91¦'R3Ï;» ) )/±4à) )1àJ J!àK J§ÿ J§ÿ  K J R4L J° Jÿ R4¦°àK J¿¦ààK K J3à) J° J¦ÿ R4*¦¦3 J3à) J§ !àK J K§ à4¦§3 K3 43à) JÀ¦¨3à)¦-.¦..§ ²àK Kà4 4à4 K´ 4 ) 4.3à)Š:èà9¦ª¦« R4œ¦«é-à9Š:¦0¦9 X 93à94™œž/Ü´Bž<´BE°àLŒ§cÕͦ3²¦2±àM MàMð M¦1¦0.¦€.¸ ° R5"¦1¦0.¦.¸ ° Mð R5".¦| °°²5; L±àL LµR4Ç°°² °Í  œä ¦O3Þ«R5`4°²HžFžè°3Þ«°R5K4° /µa²a³a´a :§ÿä4½±¶a¾BíS0:Z/“C5±¶aì0:Z/“ì,P,W¶•¶` ;E¶B±3<¸3<¶BE›<<¾BëS0:‘Cê0:‘ì,P,W³•³`;E³š° R72 N±à7;# 7Á7R³B±3<¸3<³BE§ÁÁ N ³B.3<³BE½ 3 /œà7´ ½ 3 Oà7;# 7 H· à7;#;#¼à7;# 7 3à7;# 7 /±à7;#  7Á³Bž<³BE 3¹R8?°à7 7à7 I± 7 7¤§R8> 7¤¦ÿ à4 4±R8> 7¤à8 8°  8¨‘à8 8§ à+ 8 +§ à? 7² ·à< <§ !àJ < J§ à<³B¦º3<ð3<±3< +3< ?3< J3< <3<³BE³Bö3<³BE /°R8€ì0:D/“²•²`±àP PàP / P²H QF Qè°3àQ³B Q<³BE²a³B¦ÿ3<³BE°à,°à4ì0:P/“ì,S,R² •²`ç PASS2 >‹¦oàR R¿àS°àT TàTœ± T R: T ,¤  ,   R9@ ,   ë< ,¤ §ÿ> ,±à, T ,¤ R8Ú±R9@ T§ à? T ?§ à+¶B´3<´3< +3< ?3<é=< ,±¤ §ÿ<°3<¶BE T 4¤R9• 4±à4‚¦ÿ ,¤  T±Â9•‚à+ R: +§ ‚§ÿà+; +§  S: T±àT +‚§  S:² a´š° R::´( /œà7 7 O 7à7 7à7 O± 7³B¦O3<³BE±¶B°3<°3<¶BE¶a°3°3°3°3°3Þ°à7 7à7 H± 7 7¤ à8 8°  8¨‘à8 8§ à+ 8 +§ à?³B +3< ?3<ž<³BE³aŽµ—4<™@ïERRORS:<–˜<ç EXTENSIONS:<>¾BíS0:P/“C¾BíS0:D/“C± U° RAP–˜°R:Á·3<·3<·3<ç ÃONTINUE: Ù’ES/Î’O>”F”éNRAP”éYR:± V±àV V¸ WаàV°R´¦`¦Bé?< &<ë IN<¦BŸC¦a—±×—ò™¦(Ù°×™¦(°Ù›°RAP°Û@h:æ¾BíS0:P/“C¾BíS0:D/“Cœ /à7 O 7 7àO±Ïç+ •Ô RANSLATED, MENU ACTIVATED, & MODIFIED>ç% FOR 2 DRIVES BY ÊIM ÃOLLETTE 6/88>ç)—ÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀ>çÃOMPILER OPTIONS:>磣££££££ £££££££>ç1. ÐROGRAM ON ÄRIVE 8>ç 2. ÁLL PROGRAMS FROM ÄRIVE 8 TO>ç" BLANK DISKETTE IN ÄRIVE 9 WITH>ç Ð-ÃODE INTERPRETER>ç 3. ÁLL PROGRAMS FROM ÄRIVE 8 TO>ç" BLANK DISKETTE IN ÄRIVE 9, BUT>ç" FIRST PROGRAM WITH Ð-ÃODE INT.>ç 4. ÁLL PROGRAMS FROM ÄRIVE 8 TO>ç" BLANK DISKETTE IN ÄRIVE 9 WITH>ç OVERLAY (NO INTERPRETER)>çÐLEASE SE LECT:< F±´ R>—ç (ÍODE:0é)à[>´±Û§’àN¸Õ±¹ÕAã¿BêI0C¾BêI0C±>è?é“<½@çÁUSTRO - ÓPEED>¼@ [>4½ç5ÐLACE DISK WITH PROGRAMS TO BE COMPILED IN ÄRIVE 8.>çÐRESS Y’ WHEN READY.>’F’éYR?W¿B¿BêI0C;EA‰çÐLACE BLANK DISK IN ÄRIVE 9.> çÆORMAT DISK? Ù’ES/Î’O>’Fî000000V’éNR@_’éYR?ªçÆORMATTING DISK.>¶À \ò¦Àé#¹¸¹`;E¿BëU1:<¹<°< \<°CèàQ€àX XàX€¿ X¿BëB-P<¹< XC¹H’F’覠3Ò’2¦   Q’àQ¿BëB-P<¹<€òC¹H”F¹H’F”’Ô¹a¾BëN0:< Q<é,<”C;E¾BêI0C;E°Ú±Ð°àV¹aAãé#¹¸¹`¿BëU1:<¹<°< \è V±àV V¸R@¹a WаàV W°X@t°àXêOKàYé>Ž¶—4<™@é< X< Y>²a³a´a¹a¾a¿a°àX XàXµ X·3<OOòà \Aãé#¹¸¹`;E¿Bç U1:9 0 18 0C¿BëB-P<¹<±C¹H’F’±3RAÛ¿BëB-P<¹<²C¹H’F’±3’¦A3 RAߦ'à\¹aO¾a¿a¿¸¿`¿•¾`O©,©€…$ -±-…"ȱ-…#© ‘-È‘- ‘-È‘- ±-i‘- &Ñ-©  ‘-© ‘- ‘-`¨±"$$0É ðÕ  ‘-É:ðè`© %‘-È‘- -±-…"ȱ-…#¢ Æÿ „ äÿ‘"ÐÀð À°ÈÐ&‘-LÌÿ©ÿ 3‘-ȱ -¨±/e/…_ȱ/e0…` A±-…%ȱ-…$ :±-…&ȱ-…' „"„#©,©e_…_æ`¥&Ñ_ðæ"Ðæ#¥#Å%Ðã¥"Å$ÐÝ`ȱ_ˆÅ'Ðå 3¥#‘-È¥"‘-`¢ Æÿ äÿ ‘-LÌÿ¢ Éÿ ±- ÒÿLÌÿZÀñòóôZ€ÃµÃ¶Ã·Í€Î€Ñ€QX€Ô€Ô³A² A€A±B±DVX1X2X3X4ԲԸŀX0I€B1µ³B4IC2X5X±Ë²E€J€Å²Ì²Ê€FAE±Ë€Ë±K€Ë³H1ʱF€ G1FF1J±Â²Ù€F5ƱF4̳FXF8I1I2I0I3I4ƲGHF6F7ѲѱԱԷCB€Î±Î²Ì€X6Ô´ÔµAAµA¶T€Ï€ÚDVX1X2X3X4ԲԸŀX0I€B1µ³B4IC2X5X±Ë²E€J€Å²Ì²Ê€FAE±Ë€Ë±K€Ë³H1ʱF€ýŽÂŒ?ÂÊŠIÿ¨ðΩ~ ÊÁ¹ÿÿ0É}°É °, €ÉðÉÐ H©} ËÁhI ËÁÈÐ×î­ÂÉÿÐÍ©~LÊÁ©Ý­ÝøiØ)ÍÝÐû©$¨ð®ÝÊ¢ $¨ðìÝÐ÷, Ý©@À©Ý¢Ž ÝŽ Ý¢ŽÝŽÝ¢Ž Ý Ý`©HÀ©Ý©Ý©Ý© Ý Ý©…¨ Ý©ÂH©ÇHLÀ©Ý`©Ý`©ÝÝ­Ý)€Ý© Ý Ý©G¢þŽ` \§000000000000001<ÿ< l8ÿflxlfÿ````~ÿcwkcÿfv~nfÿ Subject: Test Report Hello Jochen, I'm testing Email64. Bye . secret ntp1faudeEM64n ž2076 AUSTROSPEED 1EL’ L§L    —®tb* €¦2Vãã0 rfI6$$•$$$$$$$$…šýÈþzttAÂCË`ÚÚÚžmmºÚº°Í´škk22 \Ìþ\\ý  ¢Ÿ=Úuuuvuuuuuuutuuw#*18?FMT[bipw ~…Œ“š¡¨¯¶½ÄËÒÙ'èd jS+{¸¸º»¿ © $d É ©-™þ„q¢†b¥dð É'°èÉ°è ¥eðK¢Éd°è½ …"½ …# ÿ8È¥eå#…e¥då"…d°ñ¥ee#…e¥de"…d¥bИð æb˜ 0¤q™ÿæqèàÀ¤q¥e 0L¿¥ É LË¥að¥fIÿ…fLË¥0 B¥dIÿ…d¥eIÿ…eLËLX¶ªÐ¦oЦeЦd†¥a…n±o…iea°á…aðf¥3¤48åa°ˆÄ2ÐÅ1° z …3…b…5„4„c„6 ±o…#ˆ±o…"¤iðˆð±"‘5ˆÐù±"‘5¥ie5…5æ6 ±d…#ˆ±d…"¤nðˆð±"‘5ˆÐù±"‘5L ¦eЦd†¦cä4Цbä3Ð ¥að e3…3æ4±oªÈ±o…jȱo…k¥pÐ¥o…¥kÅ4Ð¥jÅ3Ð Šð ej…3æ4äað  ¦a„f ÿèÈÊð ±jÑbðö©°©%<ð©ÿ…d…e©€… … LÉ¥fè¤iÐ"¤að¥f0©Ð©,©%<ð©ÿ…d…e©€… LÉ¥aÐ¥n0Þã¥fEn0ÒÄaÐ¥jÅbÐ¥kÅcÐ¥lÅdÐ ©Åp¥måe𺰰Р„i„j„k¢¥l…nIÿ…l¥mIÿ…mæmÐæl¥lТˆ¥mð„m0Êm*ú…j¥m…k†i„l„m¥ ÿ¤<À°L× ¹ …U¹ …V¥nEf…o¥a TLÉ¢¥lÅdФmÄeð ÊEd0°¢Š%<ð©ÿ…d…eLÉ°îî¥aÐ…dðD$p ¼¥deÐP¥aÉJéFÉù°iª¥cÐ;¥bèðJ°3èÐú †dðª¥c…(¥bJf(° èÐø…d¥(…e$f É ©€…¦<à°L™ Lþ L1 \ ¥0 BF<° ¥l%d…d¥m%e ¥ld…d¥me…eLÉLH²©…kð¥iÉôéíª¥jJfkèÐúnIÿ…l¥kIÿ…m` çÿ ± ¥9…P¥:…Q Ð ä   ¹“¾”L# ó L¬¥P…9¥Q…:L¬¢½“•-Êø¦.†`…_ä0ÐÅ/ð ©È‘_ÀÐù˜e_æè°á¥7¤8…3„4h¨h¢øšH˜H©…;…­› …A­œ…B`ðàÐN¥måe…e¥lådL ¥mee…e¥led…dpLÉ¢†b†c†fÆf É ©……p Û¼LÉ¥bcÐî¥d0ê¥f É LÉ¥dEl…f¥d É ¥lIÿ…l¥mIÿ…mæmÐæl¥d¦eÅl ¤l…l¥m†mª˜ „b„c„d„e„j„k¨ðF…(†)¥()ðžF(f)¥eem…e¥del…d¥cek…c¥bej…bm&l&k&jÑ¥dIÿ…d¥eIÿ…eæeÐæd`Šð¿Jª¥eem…e¥del…d¥ce k…cm&l&kÞ©… à©L¬¥9¦:…z†{…=†>Lᧅ +¼Lw Ž±…e„d©€…LË¥ÓLŠ¦eÐ¥d…¦cä4Ð¥bÅ3Ð ea…3æ4¥a „ …e„d©€…Lɤb¦c†#„"¥eÐ¥d…¥aðÝä4Ð Ä3Ð  eb…3æ4¥aðÈ °· „ „LË¥0\¥aÐ…dðK$p ¼¥deÐ9¥aÉ3é/Éù°iª¥cÐ$¥bèðJ°èÐú†dðª¥c…(¥bJf(° èÐø…d¥( ݽР…e$f É  „m…Q…n…l©k…P„ˆÈ¹Ðú„aLË¥¥dðLH² Ó©…a…¥3¤48é°ˆÄ2ÐÅ1° z…3„4…b„c ¥e‘bL ¥¦e¥dðРÓ† Æÿ„;LË„ äÿH Ìÿ¤ 0hÉ0É: ˜)…e„d$0L-LLhð¤aˆÐ¦cä4Цbä3 ‘bL¬¦aðù…aÐ)…i©…a¥3¤48é°ˆÄ2ÐÅ1° z…3„4…b„c¥i ‘bL³¥0 Ó¥dÐ2h hÐ,hªÐ.ð&h0#h8鉨hªhhhŠÈðJÈÐüªÐð ¥ ¦e¥dðLH² Óh…h…Ph…QÐ¥P…±P…i±9É5#ðÊŠ…n¢åi°Iÿªäe¦e°ŠåiIÿ ˜°˜äi¦i…n†a¥að=¥3¤48åa°ˆÄ2ÐÅ1 ° z…b…3„c„4 ±Pen…"ȱPi…#¤aˆð±"‘bˆÐù±"‘b¦à°¥a•¥b•¥c• ÿ„ Ȇd„eŠi…LËLд†< Ž ¥<ÉL†IТð  <¸ÐŠ‘L¬¥9i…z¥:i…{ Ž 0áL…†<±A¢*L7¤ª¥Ai…b…"¥Bi…c…#8ŠeA…AæB†aF<°L³Š °·$0L0LϦeЩ…¦að#¥cÅ4Ð¥bÅ3Ð ea…3æ4Äað ±b ÒÿÈÄaÐöLV¥0 ]ÐÈ¥aÐ…dðJ$p ¼¥deÐ8¥a48é/Éù°iª¥cÐ$¥bèðJ°èÐú†dðª¥c…(¥bJf(° èÐø…d¥( ݽР…e$f É  ¢½ð ÒÿèÐõ©¦ð© Òÿ ±9É=:Ð=¥Ó8é °üIÿi†<¥0 Ó¥dÐJ¥eF<åÓªð ¥ð  ˜ ÒÿÊÐù „;L˪© Òÿ¥© ÒÿàC Ìÿ©…L¬¥ð ¦e¥dðLH² Ó† Éÿ±9ÉD°È„;LË¥ 0 Ó¥dÐߥe Ãÿ°L¬ÉðЄ8†7Lƒ Lá©@,©€Ð©¿,©%…L¬¥9…=¥:…>L¬†<¥ð'¢ ÏÿÉ ð èàYÐñLq¥©¨¥)ЭÐ.ðÙ ù« ­Ð"„C ·«L¬†<¤C¹ðÉ:Ð ¥ж˜ðé E«ÐÕȹÉ ðø„z¢†{$ 0_ y ó¼¤z¹ðÉ:ðÉ,ð b«¥=¤>…9„:L¬„C¦<àU°¦ð Ìÿ©…ªð  ¹ü¬ð ÒÿÈÐõ$ 0Lž¤að © …e©i…dL{L³†k„jªð$É"ÐæjæzȹðÉ"Ðö˜ÈÐȹðÉ:ðÉ,Ðò˜8åj…aL†<Ši’…=¢†U ï­‘<©@ û‘<®© Z Ð * Z0Êð ÉðéÆUÐÕLÅeÐõLÉ‘°À°Á°Â°Ã°Ä°Åç Ɔ†††Ɔ†††¦?4ưǰȰɦ-.¦..§ §ÊŠ¦˧y,̰;3>>è§Ð€§@À §@Ä€ § Ç€ ¦ÈÈ€¦Èȱ¦(É€¦(ɱ¦(ɲþI€þI±·F€¿a¾a¿¸¿`çÎ<‹±R ¯°RAP’Ñ ÚPçÐROGRAM NAME:<’SêC/ !’¾4Ñî000000V’¾4ÓAã²a’ì,P,R²¸²`;E²H”F²H”F¾BíS0:Z/“C¾BíS0:P/“C´aì0:P/“ì,S,W´•´`;E¾BíS0:D/“C>è°Ö°×°Ø°Ùë<½@ç ÐROGRAM: <’>šé>› îPASS0>!nîPASS1>°Á°Ü°Ý´š° õ3Þ4°Š¦V:…°R5>†³¦ÿ62†´¦ÿ62§ ß  Ÿ§ÿä   œä   ±à ³Âê<Ÿ> !°Ÿà"±à!Š ":èÞ°à#ƒ°„° R!øƒR!ƒèÞ°à#„°R"Š: $R!ƒ„°R"Š:ƒR!ƒ„°R"Š:ƒR!ƒ„R!Û"‘°à%¦€R"ï¦LJ¦#R"‡#5#†$-$j$ý%%Í&2"þ&‡º&ç'#[&‡#a'k#T(‘)))»‡ô)Â)É*7)*õ+>#m#m#g*û‡þ )“+ç,e,„#M‡¦KLJ°R#G‡,êç EXTENSIONSà&<¦G33Þ¦:à'Š³: '° R"Ϧ"¦"à'ž #3Þ"­¦" ¦:à'"Çžé:¦ž3í2082:Þ#@¦A¦Z R"‘#Š:0ñ )2¦@ 3 )²¦ÿ6à( +à*¦²R#GŠ:,ü + *R#¼ž (Þ#@¦Oà,Š: ,3Þ4°„R!Û;]!Û¦Nà,#9¦Ià,#9þà,#9ýà,#9õà,#9çILLEGAL COMMANDà&;î!ÛŠ:±à-0ñ )à. )2¦@ 3 )²¦ÿ6à( +à*¦²R#GŠ:,ü + *R#Â;Ô!Ûž (Þ $¦¤R#G4° .à( (/±¦ 3 (2ÿ 3à(Š:,÷ + *R#¼žà.¦©  (ñ3à($$ (ò3à(Š:,÷ .žà. + *R#¼ . (Þ#@óà,Š:„R#<±à-0ñ )/±¦ 3 )2ÿ 3à) )ô3Þ4°„R!Û¦,R#GŠ:$7 /°µaì0:D/“ì,S,Wµ•µ`°à0èà1Š:¦:à'¦,à2$Š³: ' 2 ° R$ͦ" °à'¦"à2$˜ 0±à0 1 %3à1$˜¦" ¦:à'¦,à2$˜µB 03< 1<µBE / 0±à/¦,R$„!ÛŠ:,÷ +R#¼ž¦H3Þ¦,R#GŠ:%?Š:¦P3Þ¦"R%?/¦;R#Gž )¦<3ÞŠ:4°èÞ0ñ¦Sà, )2¦VR#m )/± +° ¦ 3 )2ÿ 3à)¦,ž ) ,3Þ#@ ,²à,ž ) ,3Þ4°èÞŠ:0ñ¦Qà, )2¦VR#m )/± +° ¦ 3 )2ÿ 3à)¦,R% &l ,´à,%~Š:±à3èÞ0ñ 3°R&$ 3¤¦ÿ à4 3 4äžð3 43 5Þ 3² ·à6 6§ !à7 6 7§ à4ž 73 43Þ4°„R!Û¦,R#G%ÍŠ:0ñ¦Kà, +¦Jà, )2¦VR#m )/± +° ¦ 3 )2ÿ 3à)ž ) ,3Þ4°èÞ„R!Û¦,R#G&2ùà,&Šúà,Š:¦0¦9 R#G4€ 91!à8 8° 8¨z R#G 8à7 7§ !à8  '7 8§ à4 :œ±ä :±à: ,3 83 43Þ#@õ3Þ4°Š:ùà,„  "à8&³&Š:,÷¦‰ 4°¦Rà,&Š¦§R#G4°Š:¦Ž ¦Xà,#9¦‰ ¦Rà,&Š¦/¦:  ¦Rà,&™ :œ±ä :±à:ÿ3¦ÿ3Þ4°èÞ!ÛŠ:ƒR!ƒ¦*R'…Š:ƒ°R'y!ƒŠ:ƒR!ƒ¦*R'yŠ:ƒR!ƒ¦E±à;'y¦I¦S R'y¦Yà,¦I¦[à ,Š:ƒR!ƒ¦ER'Û ,±à,¦AR'å ,3Þ4°'y¦PR'y±à7 7à7µ 7Š:¦0à, ,° ,¹ R'y 7 ,ä²±¤²¤³¤ à7 7¦ÿR'y¦Gà8²´¤µ¤´ à4 4¸¦qà8 4¦ÿR'y¦¦3 73¦§3²3²3÷3¦¦3Þž 83¦§3²3±3÷3¦¦3 43Þž¦³3÷3¦T3Þ'ߊ:,÷ +R#¼üà,¦‰ûà,(²¦R#G4° ,3Þ°à,è ~r­}r  o¨ÿ­wr)}r­xr)~r}r.~r}r.~r}r.~r}r.~r­qr)ð‚r­rr)ƒr £‚r‚r­}rm‚r}r­~rmƒr~r­}r ª½¥q}r½¦q~r­}r  o¨ÿ­qr)}r­rr)~r}r.~r}r.~r­}r ª½¥q}r½¦q~r­}r  o¨ÿ©=  o¨ÿ©  o¨ÿ©  o¨ÿ o®ÿ©  L> ˜ 5rKQNðLÙN© V© Û }r ® }r© Û }r ® }r b© V Ï ,žžžž© Û }r ® }r© Û }r ® }r b© V© Û }r ® }r© Û }r ® }r Ï © Û }r ® }r© Û }r ® }r b©  © ¡ (r © -r ü  (r š ® -r ü ©  „©Lê à PQ2r Ï ¢¢ ü % _Q‚r ®‚r© • 2r©… Æ©w % _QN  o´ÿ©`  o–ÿ o¥ÿ o¥ÿ o¥ÿ o¥ÿ o¥ÿ­ {r©|r o¥ÿ¥}r©Í}rLÔO©  ` Ï .­ ‚r©ƒr­‚rƒr©‚r­‚rm{r}r­ƒrm|r~r ¶ }r o¥ÿ­ ‚r­‚r Û }r ® }r¥}r©Í}rL5P©  `­ }r©Í}rÅ¥Æ}r©Í}rLZP ü ©  ` ü LœO©  LWQkPSóoPAxP{PˆP*ŒP/P:”P<˜P?œP> P]¤P\†‡‡6†‡@ˆAˆ[ˆÐP‡‡@††ìPNðPYŒ}Œ}Œ}‚‚@‚‚‚‚€‚€SQ$*=S „©Lê‚r© • 2r©… 80 ÃHARS : ËEY 8 ÓUPPRESS CONTROL CHARACTERS: Î ÁLLOW EMPTY LINES : Ù ÉGNORE FIRST TWO BYTES : Î ************************************* ÆILE-ÓURVEY DOCUMENTATION ========================= ×HAT IS THE ÆILE-ÓURVEY? --------- --------------- ÔHE ÆILE-ÓURVEY IS MORE THAN AN ORDINARY TEXT READER. ÉT OFFERS THE ADVANTAGE TO READ AND DISPLAY FILES OF MANY KIND, SUCH AS BINARY DATA, AND PRINT THEM OUT ON ALL COMMON TYPES OF PRINTERS. ÈANDLING IN GENERAL ------------------- ÔO SWI TCH BETWEEN 40- AND 80-COLUMNS MODE YOU JUST HAVE TO PRESS '4' OR '8' IN ANY MENU. ÁLL OTHER OPTIONS ARE SELECTED BY A CURSOR-BAR. ÙOU CAN MOVE IT WITH THE CURSOR KEYS AND OPTIONALLY WITH SPACE/SHIFT-SPACE. ×ITH THE HOME-KEY YOU GO TO THE FIRST OPTION (F ILENAME). ÔO SELECT AN OPTION PRESS RETURN. ÔHE FOUR MAIN OPTIONS ARE JUST A FINGERTIP AWAY: Æ1 - ÆÓÅÌÅÃÔ (ÂRINGS A FILE SELECTION BOX ON THE SCREEN) Æ3 - ÖÉÅ× ÆÉÌÅ (ÄISPLAYS FILE ON SCREEN) Æ5 - ÐÒÉÎÔ (ÇUESS WHAT?) Æ7 - ÈÅÌÐ (ÓHO WS THE 4-PAGED ONLINE-HELP) ÈANDLING IN DETAIL ------------------ - ÆILENAME ÈERE YOU CAN ENTER AND ALTER THE NAME MANUALLY. Á MORE CONVENIENT WAY IS TO CHOOSE A FILE AFTER PRESSING Æ1. ÂEAR IN MIND THAT WHEN USING A DATASETTE (TAPE-DRIVE) THE FIL ENAME IS (FOR THE ÆILE-ÓURVEY) OF NO IMPORTANCE AND WILL BE IGNORED. ÔHIS HAS BEEN INSTALLED TO EASE TAPE-OPERATION WITHOUT KNOWING THE PROPER FILENAME, AS WELL AS TO ENABLE YOU TO READ FILES WITH NAMES EXCEEDING THE LENGTH OF 16 BYTES. - ÄRIVE Ð OSSIBLE VALUES ARE 1 (ÄATASETTE) AND 8-16. ÃONCERNING 16, ALSO THE ÒAMLINK- USERS WILL HAVE FUN WITH THIS PROGRAM. ÐLEASE NOTE THAT SOME NEW OPERATING-SYSTEMS, SUCH AS ÊIFFY ÄOS, AS WELL AS THE SPEEDER-CARTRIDGES ÆLASH 8 AND ÓUPER ÃÐÕ NO LONGER SUP PORT THE USE OF A TAPE-DRIVE. ÔHE ÆILE-ÓURVEY DETECTS SUCH AN ENVIRONMENT. ÉN ORDER TO ACCESS THE TAPE YOU HAVE TO SWITCH TO 6510-ÃÐÕ AND ÏRIGINAL-ËERNAL. ÎEEDLESS TO SAY THAT A DATASETTE HOLDS NO DIRECTORY, SO THE Æ1-OPTION IS LOCKED. - ÆILETYPE ÐOSSIBLE VALUES ARE: ÓÅÑ, ÕÓÒ, ÐÒÇ. ÏNLY FILES OF THE SELECTED TYPE WILL BE SHOWN IN THE FILE SELETION-BOX (Æ1). - ÓUPPRESS CONTROL-CHARACTERS: ÍAKES THE ÆILE-ÓURVEY IGNORE THESE (I.E. COLOR-CODES, CURSOR) ÎOTE THAT, WHEN OUTPUT GOES TO SCREEN ( VIEWING FILE), AND C.C. ARE ENABLED, ONLY COLOR-CODES ARE ALLOWED. ÁLL OTHERS ONLY IN QUOTATION-MODE! ÎOTE ALSO THAT THIS OPTION HAS NO EFFECT ON ÐÃ-CHARSETS (ÁÓÃÉÉ, ×INDOWS), BECAUSE ALL NON-CONVERTABLE CODES WILL NOT BE DISPLAYED. ÇRAPHIC-CHARS A RE CONVERTED TO SPACE, OTHERS WILL BE SKIPPED. ÁLSO NOTE THAT AN OUTPUT TO PRINTER WILL, WHEN ENABLED, SENDS ALL C.C. TO THE PRINTER (EXCEPT ÁÓÃÉÉ, ×INDOWS AND ÂÔØ, SEE OBOVE), EVEN OUTSIDE QUOTATIONS. ÁS AN EXCEPTION OF ALL THIS: ×HEN CHARSET IS  64+ÓÃÒÅÅÎ AND C.C. IS ENABLED, ALL CONVERTED SCREEN-CODES WILL BE DISPLAYD REVERSE. ÉN FACT, SCREENCODES KNOW NO CONTROL-CHARACTERS AND THIS OPTIONS IS FOR YOUR VIEWING PLEASURE AND MAKES THE FILE EASIER TO READ. - ÁLLOW EMPTY LINES ÉMAGINE YOU WRITE A LINE ON A 40-SCREEN DISPLAY. ÔHIS LINE CAN ONLY BE 39 CHARS LONG, BECAUSE AFTER THE Ã64 WILL CREATE A DOUBLE-LINE. ÔHE NEXT OUTPUT IS ONE LINE DEEPER AND THE LINE INBETWEEN IS EMPTY. ÉF YOU DISABLE EMPTY LINES IN THIS ÆILE-ÓURVEY, TEXTS WIT H 40 CHARS/LINE WILL BE DISPLAYED (AND PRINTED) WITHOUT THAT ANNOYING DOUBLE-LINE EFFECT. ÉF TEXTS USE EMPTY LINES TO BEAUTIFY THE OUTFIT, SIMPLY REACTIVATE THIS OPTION AND ACCESS THE TEXT AGAIN. ÎOTE THAT LINES WHICH ARE FILLED WITH SPACES CANNO T BE DETECTED AND SO CANNOT BE ELIMINATED. - ÉGNORE FIRST TWO BYTES ÉF THE FILE HAS A LOADING ADRESS (ÓÅÑ-FILES USUALLY DON'T), YOU CAN SKIP IT HERE. - ÃHARSET OF FILE ÃÂÍ (Ã64) : ÔHE ORIGINAL AS FOUND IN A STOCK Ã64. ÓÕÐÒÁ-ÄÏÓ : ÉNCLUDES S PECIAL GERMAN CHARS. ÏF NO INTEREST IN THE OUTSIDE- WORLD. Ã128 ÄÉÎ : SEE ABOVE 64+ÓÃÒÅÅÎ : ÔHE SCREENCODES FOR A-Z WILL BE CONVERTED TO ÐÅÔÓÃÉÉ (ÃÂÍ). ÔHE OTHERS REMAIN UNAFFECTED. ÓO YOU CAN SEARCH A PROGRAM FOR  BOTH KIND OF TEXTS AT THE SAME TIME. ÉF ÓÕÐÐÒÅÓÓ ÃÏÎÔÒÏÌ ÃÈÁÒÁÃÔÅÒÓ IS DISABLED, FOUND SCREENCODES WILL BE REVERSED. ÐÃ-ÁÓÃÉÉ : ÃHARSET FOR ÉÂÍ'S, ÄÏÓ-ÍODE. ÉNCLUDING THE SPECIAL GERMAN CHARS. ÐÃ- ×ÉÎÄÏ×Ó: OH, WELL... IT SURELY TRIES TO DISPLAY AND PRINTOUT ANYTHING, INCLUDING HEADER-INFORMATION AND EMBEDDED PICTURES AND SOUNDS. (ÙOY WILL HEAR NO SOUND AND YOU WILL SEE NO PICTURE. ÄON'T MISUNDERSTAND  ME. ÙOU WILL SEE THE EQUIVALENT CHARACTERS.) ÂÔØ : ÃHARSET OF THE GERMAN TELEKOM-SERVICE Ô-ÏNLINE. - ÃHARSET OF PRINTER: ÃHOOSE BETWEEN ÃÂÍ, ÉÂÍ (E.G. ÉÂÍ ÐROPRINTER) AND ÅPSON. !! ÔHE ÆILE-ÓURVEY CONVERTS THE OUTPUT FOR THE ADJUSTED PRINT ER. ÉF YOU HAVE !! A PRINTER-INTERFACE, AN ÁCTION-ÒEPLAY OR WHATEVER, THIS HARDWARE WILL DO !! THE SAME. ÂUT A DOUBLE-CONVERSION WILL NOT WORK! ÓO PLEASE ACTIVATE THIS !! CONVERSION-FEATURE ON YOUR HARDWARE. ÏR CHOOSE PRINTER-ADRESS=ÐÁ TO SKIP !!  YOUR HARDWARE. ÏR LET YOUR HARDWARE DO THE JOB. ÔHEN DEACTIVATE THE !! ÓURVEY CONVERSION BY ADJUSTING FILE- AND PRINTER-CHARSET TO THE SAME !! LEVEL, E.G. ÃÂÍ/ÃÂÍ, OR ÐÃ-ÁÓÃÉÉ/ÉÂÍ - ÐRINTER ADRESS ÐOSSIBLE VALUES ARE: 4,5 (SERIAL) AND ÐÁ (PARALLEL  PRINTERS). - ÓECONDARY ADRESS ÃHOOSES THE PRINTING MODE (E.G. UPPERCASE/LOWERCASE) OF YOUR PRINTER/INTER- FACE. ÒEFER TO YOUR HARDWARE MANUAL. ÔHE SECONDARY ADRESS HAS NO EFFECT IF THE PRINTER ADRESS IS ÐÁ. - ÍAX. LENGTH OF FILE ÖALID ÏÎÌÙ FOR P RINTOUT! ÉF THE TEXT CONSISTS OF DOUBLE-LINES THEN THE SCREEN-DISPLAY WILL BE WONDERFUL. ÂUT THE PRINTER MISSES THE RETURN-CODE AND TRIES TO PRINT AS MUCH AS POSSIBLE IN ONE LINE. ÆILE-ÓURVEY CORRECTS THIS BY SENDING A RETURN TO THE PRINTER AT TH E RIGHT TIME. ÓHALL BE ADJUSTED TO "40" FOR 40 COLUMNS TEXT AND "80" FOR 80 COLUMNS TEXT. "22" IS FOR ÖÉÃ20 USERS AND "--" DISABLED THIS FEATURE, SO EVERYTHING WILL BE PRINTED AS FOUND IN THE FILE. - ÆSELECT (ALSO: Æ1) ÓHOWS THE FILE SELECTION BOX.  ÏNLY FILES OF THE ADJUSTED TYPE (E.G. ÓÅÑ) ARE DISPLAYED. ÈERE YOU CAN CHOOSE A FILE OR PRINT THE DIRECTORY (DISK MUST STILL BE IN DRIVE!). ÔHE DIRECTORY WILL BE KEPT IN MEMORY UNTIL YOU FORCE A NEW READ BY PRESSING Æ1 (INSIDE THE FILE SELECTION B OX-MENU). - ÖIEW FILE (ALSO: Æ3) ×HILE VIEWING YOU HAVE THE FOLLOWING OPTIONS: ÔURN ONE PAGE BACK : '-', ÃURSOR LEFT, ÃURSOR UP ÇO TO FIRST PAGE : Æ1, ÈOME ÇO TO LAST PAGE : Æ7, ÓHIFT-ÈOME (ÃÌÒ) ÈARDCOPY PAGE : 'P' ÉNC REASE FRAMECOLOR : 'F' ÉNCREASE BORDERCOLOR: 'B' ÉNCREASE CHARCOLOR : 'C' ÂACK TO MENU : ÒUNSTOP ÐROCEED TO NEXT PAGE: EVERY OTHER KEY, E.G. ÓPACE, '+',... - ÐRINT ÆILE (ALSO: Æ5) ÃAN BE PAUSED WITH ANY KEY (KEEP PRESSED UNTIL Y OU SEE A REACTION) AND THEN BREAKED WITH ÒUNSTOP OR CONTIDUED WITH ANY OTHER KEY. ÙOU CANNOT HALT THE PROCESS WHILE THE COMPUTER IS READING FROM ÔÁÐÅ (WHEN THE SCREEN IS OFF). ÒUNSTOP AT THIS STAGE WILL CAUSE AN ABORT. ÉN CASE YOU MAKE A ÈÁÒÄÃÏÐÙ ! (PRESSSING 'P' WHEN VIEWING FILE), THE BORDER- COLOR WILL INCREASE IN CASE OF ANY ERROR (E.G. PRINTER NOT READY). ÁFTER A HARDCOPY YOU WILL HEAR A SOUND TO INDICATE THAT THE PRINTING HAS ENDED. ÔHIS IS NO ERROR-MESSAGE. ÐLEASE NOTE THAT A DIRECT "ORY-PRINTOUT CANNOT BE PAUSED OR ABORTED. - ÈELP (ALSO: Æ7) ÙOU CAN ALSO MAKE A HARDCOPY OF THIS ONLINE-HELP BY PRESSING 'P' ÓOME REMARKS ------------ - ÈARDCOPY ÂEFORE YOU DO THIS YOU SHOULD ADJUST YOUR PRINTER IN THE MENU. ÍAX. ÌINELENGTH HAS NO # EFFECT HERE SINCE THE LENGTH OF A LINE DEPENDS ON THE ACTUAL SCREEN-MODE (40/80), AS IT SHOULD BE WITH A HARDCOPY. ÁS STATED ABOVE A SOUND INDICATES THE END OF THE PRINTING AND IS NO ERROR- MESSAGE. ÉN CASE OF AN ERROR THE FRAMECOLOR WILL INCREASE $. - ÍEMORY EXPANSIONS ÁRE GOOD FOR TURNING BACK THE PAGES. ×ITHOUT THEM ONLY 22/11 PAGES CAN BE KEPT IN MEMORY AT THE SAME TIME. ÓUPPORTED ARE: ÒÅÕ, ÆLASH 8 AND THE ÓUPER ÃÐÕ WITH ÒÁÍ-ÃARD. ÔHE ÆILE-ÓURVEY HAS NO LIMITS. ÉF YOU HAVE 16 ÍÂ, THEY W %ILL BE USED. - ÄON'T USE ÓECONDARY ADRESSES 8-11 WITH ÓÕÐÒÁ-ÄÏÓ OR Ó-ÊÄ UNLESS YOU MAKE SURE YOUR PRINTER IS SWITCHED ÏÎ. ÕSUALLY ÒÕÎÓÔÏÐ/ÒÅÓÔÏÒÅ WOULD GET YOU OUT OF THIS MESS, BUT ÎÍÉ'S ARE DISABLED IN THIS PROGRAM :-( ÈAVE FUN! ÒUEDIGER ËOEHL (×ILLCOX), 24. ÊANUARY 1998 E GOOD FOR TURNING BACK THE PAGES. ×ITHOUT THEM ONLY 22/11 PAGES CAN BE KEPT IN MEMORY AT THE SAME TIME. ÓUPPORTED ARE: ÒÅÕ, ÆLASH 8 AND THE ÓUPER ÃÐÕ WITH ÒÁÍ-ÃARD. ÔHE ÆILE-ÓURVEY HAS NO LIMITS. ÉF YOU HAVE 16 ÍÂ, THEY W 'ÀLÁLÊÁL÷ÁL½ÂLGÂ`LšÂLÍÂLÓÂxHŠH˜Hخݩ Ý­ ÝhìݬÝ°  Ý%¨ªJ©ÝŠ)ð"©Ý©E¨…¨ Ý©Ý©Ý©€…ªîÈL€À¥¨ ÝŠ)ð˜Jfª°!ŠJÆ´0f©f¶°©CÀh¨hªh@¥¨ ÝL‘À¤ª©Ý©Ý©Ý© Ý Ý©E¨…¨ Ý¥ûå÷𘠑÷æ÷Э¤øÈÀîРà„øL~À¥üåø°iÐßL~À©þ Œ ÝŒ Ý%¨…¨ ÝL‘Àx¢©€¬¦Ð¢ ŽÜÝ{ ªªÂ­Ý Ý­Ý Ý©Ý©Ý­I¢ÀÝ­J§ÀÝ­K[À­L`À­Mݠ­NݥŽÝ¢ŽÝʆ´©¢ÀŽ©¢ÀúÿŽûÿ© Ý Ý©…¨ Ý`®Üàÿð3Œ®Á¢ŽÜ ê®܌ܠàýÐ`®ÝÊ¢ $´0ìÝÐ÷ª ½ÂŠx$´å,ÝPÁ…¶©CÀ© …´© Ý¢Ž ÝŽ ݨ…¨ ÝîÈ`Âòðû“üýö“þüáö“õúÿöŒ“›êœýš ü Ñ 2r Ö 2rß)NðLã" è 2rã)NÐá Ï ¢rççòðûúýô­0ri}r­1ri~r ¶ }r Ï õúÿöࢢ ü ­0rÉÿЭ1rÉÿÐL‹&¢½ç):rÊ÷ 0r‚r ú u:r‚r ‹ :rì)}r  }r š ˜ :r‚r ’!‚r‚r ® ‚r ü © Ï ¢¢vþòúÿ…‡“õúÿöýòþö“““““““ B Hr G ñ)Hr}r G }rõ)}r¢ ¨}rHr % dQ‚r G Hr*‡r ®‚r© • ‡r© ¡ (r © -r ¼ (r*NÐL'©  Ï ¢¢  (r ® -r ü IOL‹& % _Q‚r G %r*‡r ®‚r© • ‡r¢½*KrÊ÷ Ï ¢¢cáöàà“áöçæáý“õüá“ýü ü Ï ¢qÿúý÷“ðòáñüý“ðüãê“õúöÿ÷ ü ‹ Kr#*}r Å}r}r ‹ Kr(*‚r Å‚r‚r Ï‚r‚r΂r®‚r ä}r}r G *}rPr à -*2r Ï ““ ® Pr ü Ï " B 2r Ö 2r0*}r Ö 2rPr‚r­}r ‚rðL«, à 3*Pr¢½6*SrÊ÷¢½;*:rÊ÷ Ï2r}r­}r g }r ú u:r}r % :r}r ®}r 2rEr© Û }r G Er}r}r =}rXr­Xr g Xr Ö Er@*NðLÛ* Ö ErD*NðLÛ* © XrH*NðL¥* © XrM*NðLÛ* © XrR*NðL¥* Ö ErW*NÐLc* ‹ Sr[*SrL`*†@„ †@„…p„†@„ †@„…p„)I)I„…p„…p*),S,R6)N:)Y…H‡…P†L‡†P†tƒp)s)Pw)$*=P~)S‚)$*=S‰)U)$*=U”)$˜)›)ž)P¢),¦),R°)P´)S¸)S¼)UÀ)PÄ)PRGÊ)SÎ)SEQÔ)UØ)USRÞ).â)Yæ)Nô)4ø)  *,S,W*,S,R"*Â0*3*6*C*.G*-†@†h‡Z*@LÛ* © Xr9NÐL}* ‹ Xr¢9XrLÛ* © Xr§9NðL¥* © Xr¬9NÐL¥* q Xr±9XrLÛ* Ï ¢¢úÿÿöôòÿ“ðûòáòðçöቓ ® Er ü Ï2r:r­:r g :r © Ld' % Xr}r­}r Û }r G Pr}rPr © à ¶9]r¢½¹9:rÊ÷ ÏPr}r­}r g }r ú u:r}r % :r}r ®}r PrEr© Û }r G Er}r}r =}rXr­Xr g Xr © Xr¾9NðL„+ © XrÃ9NÐL{+ ‹ XrÈ9XrL„+ q XrÍ9Xr % Xr}r­}r Û }r G ]r}r]r © Ï ¢qððžõúöÿ÷‰“ ® ]r ü  Ï ¢püááöðç“›êœýš ü Ñ 2r Ö 2rÒ9NðLF' è 2rÖ9NÐá ‹ KrÚ9Kr ˜ Krß9NÐL,,© V Ï ñ©c Û }r ® }r©c Û }r ® }r Ï ‰ b ¼ Krä9NÐLG,© V Ï Ÿ b© V Ï  b¢½é9:rÊ÷ ÏPr}r­}r g }r ú u:r}r© V % :r‚r ®‚r Pr}r ® }r b © © V Ï  bLF' ¼ Krî9NÐLÙ,© V© Û }r ® }r© Û }r ® }r b¢½ó9`rÊ÷ Ï ¢¢cáöàà“áöçæáý“õüá“ýü ü Ï ¢gü“õúöÿ÷ ü ‹ `rü9}r Å}r}r ‹ `r:‚r Å‚r‚r Ï‚r‚r΂r®‚r ä}r}r G ø9}rPr à :2r Ï ““ ® Pr ü Ï " B 2r Ö 2r :}r Ö 2rPr‚r­}r ‚rðL0 à :Pr¢½:SrÊ÷¢½::rÊ÷ Ï2r}r­}r g }r ú u:r}r % :r}r ®}r 2rEr© Û }r G Er}r}r =}rXr­Xr g Xr Ö Er:NðLÌ. Ö Er:NðLÌ. © Xr!:NðL–. © Xr&:NðLÌ. © Xr+:NðL–. Ö Er0:NÐLT. ‹ Sr4:SrLÌ. © Xr9:NÐLn. ‹ Xr>:XrLÌ. © XrC:NðL–. © XrH:NÐL–. q XrM:XrLÌ. Ï ¢¢úÿÿöôòÿ“ðûòáòðçöቓ ® Er ü Ï2r:r­:r g :r © L- % Xr}r­}r Û }r G Pr}rPr © à R:]r¢½U::rÊ÷ ÏPr}r­}r g }r ú u:r}r % :r}r ®}r PrEr© Û }r G Er}r}r =}rXr­Xr g Xr © XrZ:NðLu/ © Xr_:NÐLl/ ‹ Xrd:XrLu/ q Xri:Xr % Xr}r­}r Û }r G ]r}r]r © Ï ¢güžõúöÿ÷‰“ ® ]r ü Ï ¢püá áöðç“›êœýš ü Ñ 2r Ö 2rn:NðLä, è 2rr:NÐá ‹ `rv:`r ˜ `r{:NÐL0© V Ï ç©o Û }r ® }r Ï ‰ b ¼ `r€:NÐL+0© V Ï Ÿ b© V Ï  b¢½…::rÊ÷ ÏPr}r­}r g }r ú u:r}r© V % :r‚r ®‚r Pr}r ® }r b © © V Ï  bLä, ˜ `rŠ:NÐLÂ0 Ï ¢~òøö“òç“ÿöò àç“üýö“çüžõúöÿ÷ ü LÙ,© V© Û }r ® }r© Û }r ® }r b Ï ¢¢cáöàà“áöçæáý“õüá“ýü ü Ï ¢`æñùöðç“õúöÿ÷ ü à :2r Ï ““©" Û }r ® }r Ï ` ü ©w©…Æ Ï " B 2r Ö 2r’:}r Ö 2r•:‚r­}r ‚rðL.4 à ™:Pr¢½œ::rÊ÷ Ï2r}r­}r g }r ú u:r}r % :r}r ®}r 2rEr© Û } r G Er}r}r =}rXr­Xr g Xr © Xr¡:NðL"2 © Xr¦:NðLX2 © Xr«:NÐLú1 ‹ Xr°:XrLX2 © Xrµ:NðL"2 © Xrº:NÐL"2 q Xr¿:XrLX2 Ï ¢¢úÿÿöôòÿ“ðûòáòðçöቓ ® Er ü Ï2r:r­:r g :r © L1 % Xr}r­}r Û }r G Pr}rPr © à Ä:]r¢½Ç::rÊ÷ ÏPr}r­}r g }r ú u:r}r % :r}r ®}r PrEr© Û }r G Er}r}r =}rXr­Xr g Xr © XrÌ:NðL3 © XrÑ:NÐLø2 ‹ XrÖ:XrL3 q XrÛ:Xr % Xr}r­}r Û }r G ]r}r]r © Ï ¢`æñùöðçžõúöÿ÷‰“ ® ]r ü Ï ¢püááöðç“›êœýš ü Ñ 2r Ö 2rà:NðLâ0 è 2rä:NÐá© V Ï à©u Û }r ® }r©b Û }r ® }r©j Û }r ® }r©e Û }r ® }r©c Û }r ® }r©t Û }r ® }r Ï ‰“ b¢½è::rÊ÷ ÏPr}r­}r g }r ú u:r}r© V % :r‚r ®‚r Pr}r ® }r b © © V© Û }r ® }r© Û }r ® }r b ˜ 5rí:NðL 8© V Ï ð©o Û }r ® }r©n Û }r ® }r©t Û }r ® }r©e Û }r ® }r©n Û }r ® }r©t Û }r ® }r b© V Ï žç©y Û }r ® }r©p Û }r ® }r©e Û }r ® }r Ï ‰“ b© V©m Û }r ® }r©u Û }r ® }r©l Û }r ® }r©t Û }r ® }r©i Û }r ® }r b© V©p Û }r ® }r©a Û }r ® }r©r Û }r ® }r©t Û }r ® }r Ï œ b© V©m Û }r ® }r©i Û }r ® }r©x Û }r ® }r©e Û }r ® }r©d Û }r ® }r Ï ˆ“ b© V©b Û }r ® }r©o Û }r ® }r©u Û }r ® }r©n Û }r ® }r b© V©d Û }r ® }r©a Û }r ® }r©r Û }r ® }r©y Û }r ® }r Ï Ž©" Û }r ® }r b© V Ï (©" Û }r ® }r b© V© Û }r ® }r© Û }r ® }r© Û }r ® }r© Û }r ® }r b© V Ï *žž© Û }r ® }r© Û }r ® }r b© V Ï ð©o Û }r ® }r©n Û }r ® }r©t Û }r ® }r©e Û }r ® }r©n Û }r ® }r©t Û }r ® }r b© V Ï žç©y Û }r ® }r©p Û }r ® }r©e Û }r ® }r Ï ‰“ b© V©t Û }r ® }r©e Û }r ® }r©x Û }r ® }r©t Û }r ® }r Ï œ b© V©p Û }r ® }r©l Û }r ® }r©a Û }r ® }r©i Û }r ® }r©n Û }r ® }r b© V© Û }r ® }r© Û }r ® }r b© V© Û }r ® }r© Û }r ® }r b©þer©ÿfr ü Ï ¢cÿöòàö“äòúç“ž“ÿüò÷úýô“‡øq ü % _QN  o´ÿ©b  o–ÿ¢½ò:grÊ÷¢½÷::rÊ÷ ú u:rü: o¥ÿ ˜ :r}r­}r ª­~r*¨Šii…;˜iQ…<­ …N©…O ¥N‘;È¥O‘;¥}r­}rÉðLÜ8 © LW9¥}r­}rÉ@ðL9¢½:rgrÊ÷¢½;:rÊ÷ © LW9© ¡ (r © -r Ï ¢¢öááüቓ  (r ® -r ü ©  ©  © V Ï à‰ ® Hr ü b „©Lê o«ÿ¥lr­lr g lr % dQN  o±ÿ©c  o“ÿ¢½;:rÊ÷ ú u:rgrL ;‡6†ˆAˆ[ˆ¹9‡‡@††Õ9NÙ9Yû9Ô : :::. :-†@†h‡3:@‡6†ˆAˆ[ˆU:‡‡@††q:Nu:Y’:•:˜:Óœ:†‡‡6†ˆAˆ[ˆÇ:‡‡@††ã:Nç:YŒðŒðŒð ˜ :r}r­}r ª­~r*¨Šii…W˜iQ…X ±WqrȱWrr­qrÉ Ð­rrÉðL‡;­erÉЭfrÉðL`;©.  o¨ÿ©þer©ÿfr©  o¨ÿ Ï © qr©rrL½=­qrÉ.ЭrrÉðL=­erÉЭfrÉðL³;©er©fr erNÐLÉ;îerÐîfrîerÐîfr er(NðL½= Ï '¢¢gûöáö“òáö“‡ƒ“÷üçàœãüúýçà“úý“üýö“ÿúýö ü Ï gûúà“úà“çûö“ñüæý÷òáê“õÿòô“òý÷“àü ü Ï õüáñú÷÷öý“wü“êüæ“äòýç“çü ü Ï "¢r÷÷“òý“ò÷÷úçúüýòÿ“pòááúòôö“aöçæáý ü Ï &`çüã“çûúà“ãáüôáòþ“òý÷“ðûòýôö“öþòúÿçöëç ü Ñ 2r Ö 2rhPNÐLë<©  ©  © V Ï à‰ ® Hr ü b©  „©Lê è 2rlPNд©  o¨ÿ©  o¨ÿ©er©frL½=©ÿer©ÿfr qr NðL³= qrANðL½= qr[NÐLa=­qri qr­rrirrL½=­qrÉ[ЭrrÉÐL½=­qrÉ]ЭrrÉÐL½= qrÁNðL³= qrÛNÐL³=8­qré€qr­rrérrL½=© qr©rr­qr  o¨ÿ © o®ÿ ˜ lrpPNðL38© V© Û }r ® }r© Û }r ® }r b©  ©ÿsr©ÿtrîsrÐîtr ™sr0rNðL[N % _Q‚r Œ!srŒr ®‚r© • Œr ü Ï (¢”}òþö”“üõ“õúÿö“òà“÷úàãÿòêö÷“òç“áöðöúåöá ü Ï ““ ’!sr‚r ® ‚r ü Ï " B 2r Ö 2ruPNÐê à xPPr¢½{PSrÊ÷¢½€P:rÊ÷ Ï2r}r­}r g }r ú u:r}r % :r}r ®}r 2rEr© Û }r G Er}r}r =}rXr­Xr g Xr©" Û }r Ö Er}rNðLÿ? Ö Er…PNðLÿ? Ö Er‰PNðLÿ? Ö ErPNðLÿ? Ö Er‘PNðLÿ? Ö Er•PNðLÿ? Ö Er™PNðLÿ? Ö ErPNðLÿ? Ö Er¡PNðLÿ? © Xr¥PNðLÿ? © XrªPNðLP@ © Xr¯PNÐLÉ? ‹ Xr´PXrLP@ © Xr¹PNðLP@ © Xr¾PNðLÿ? © XrÃPNÐLÿ? q XrÈPXrLP@ Ï ¢¢úÿÿöôòÿ“ðûòáòðçöቓ“‰“™“Œ“©" Û }r ® }r Ï ““““ ü Ï2r:r­:r g :r © LD> % Xr}r­}r Û }r G Pr}rPr © à ÍP]r¢½ÐP:rÊ÷ ÏPr}r­}r g }r ú u:r}r % :r}r ®}r PrEr© Û }r G Er}r}r =}rXr­Xr g Xr © XrÕPNðLù@ © XrÚPNÐLð@ ‹ XrßPXrLù@ q XräPXr % Xr}r­}r Û }r G ]r}r]r © Ï ¢”}òþö”“üõ“õúÿö“úý“öþòúÿ‰“ ü ® ]r ü Ï ¢püááöðç“›êœýš ü Ñ 2r Ö 2réPNðLD> è 2ríPNÐá© V© Û }r ® }r© Û }r ® }r b© V Ï *žž© Û }r ® }r© Û }r ® }r b© V Ï ð©o Û }r ® }r©n Û }r ® }r©t Û }r ® }r©e Û }r ® }r©n Û }r ® }r©t Û }r ® }r Ï ž b© V Ï ç©y Û }r ® }r©p Û }r ® }r©e Û }r ® }r Ï ‰“ b© V©a Û }r ® }r©p Û }r ® }r©p Û }r ® }r©l Û }r ® }r©i Û }r ® }r b© V©c Û }r ® }r©a Û }r ® }r©t Û }r ® }r©i Û }r ® }r©o Û }r ® }r©n Û }r ® }r b© V Ï œ©o Û }r ® }r©c Û }r ® }r©t Û }r ® }r©e Û }r ® }r©t Û }r ® }r b© V Ï ž©s Û }r ® }r©t Û }r ® }r©r Û }r ® }r©e Û }r ® }r©a Û }r ® }r©m Û }r ® }r b© V Ï ˆ“©n Û }r ® }r©a Û }r ® }r©m Û }r ® }r©e Û }r ® }r Ï Ž©" Û }r ® }r b¢½ñP:rÊ÷ ÏPr}r­}r g }r ú u:r}r© V % :r‚r ®‚r Pr}r ® }r b © © V©" Û }r ® }r© Û }r ® }r© Û }r ® }r b© V Ï ð©o Û }r ® }r©n Û }r ® } r©t Û }r ® }r©e Û }r ® }r©n Û }r ® }r©t Û }r ® }r b© V Ï žç©r Û }r ® }r©a Û }r ® }r©n Û }r ® }r©s Û }r ® }r©f Û }r ® }r©e Û }r ® }r©r Û }r ® }r b© V Ï žö©n Û }r ® }r©c Û }r ® }r©o Û }r ® }r©d Û }r ® }r©i Û }r ® }r©n Û }r ® }r©g Û }r ® }r b© V !Ï ‰“©b Û }r ® }r©a Û }r ® }r©s Û }r ® }r©e Û }r ® }r Ï …‡© Û }r ® }r© Û }r ® }r b© V Ï ð©o Û }r ® }r©n Û }r ® }r©t Û }r ® }r©e Û }r ® }r©n Û }r ® }r©t Û }r ® }r b© V Ï ž÷©i Û }r ® }r©s Û }r ® }r©p Û }r ® }r©o Û }r ® }r b© V©s Û }r ® }r©i Û" }r ® }r©t Û }r ® }r©i Û }r ® }r©o Û }r ® }r©n Û }r ® }r b© V Ï ‰“©a Û }r ® }r©t Û }r ® }r©t Û }r ® }r©a Û }r ® }r©c Û }r ® }r©h Û }r ® }r b© V©m Û }r ® }r©e Û }r ® }r©n Û }r ® }r©t Û }r ® }r b© V Ï ˆ“©f Û }r ® }r©i Û }r ® }r©l Û }r ® }r©e Û }#r ® }r b© V©n Û }r ® }r©a Û }r ® }r©m Û }r ® }r©e Û }r ® }r Ï Ž©" Û }r ® }r b¢½öP:rÊ÷ ÏPr}r­}r g }r ú u:r}r© V % :r‚r ®‚r Pr}r ® }r b © © V©" Û }r ® }r© Û }r ® }r© Û }r ® }r© Û }r ® }r© Û }r ® }r b ü Ï ¢cÿöòàö“äòúç“ž“ÿüò÷úýô“‡øq$ ü % _QN  o´ÿ©b  o–ÿ¢½ûPgrÊ÷¢½Q:rÊ÷ ú u:rQ o¥ÿ ˜ :r}r­}r ª­~r*¨Šii…;˜iQ…<­ …N©…O ¥N‘;È¥O‘;¥}r­}rÉðLI © L€I¥}r­}rÉ@ðL0I¢½:rgrÊ÷¢½ Q:rÊ÷ © L€I© ¡ (r © -r Ï ¢¢öááüቓ  (r ® -r ü ©  ©  © V Ï à‰ ® Hr ü b „%©Lê o«ÿ¥lr­lr g lr % dQN  o±ÿ©c  o“ÿ©ur©vr¢½Q:rÊ÷ q grQ}r ú u:rQ}r ˜ :r}r­}r ª­~r*¨Šii…W˜iQ…X ±WwrȱWxr ‹ :rQ}r ˜ }r}r­}r ª­~r*¨Šii…W˜iQ…X ±WqrȱWrr ‹ :r#Q}r ˜ }r}r­}r ª­~r*¨Šii…W˜iQ…X ±WyrȱWzr­wr)ü}r­xr)~r £}r}r&­}r ª½¥q}r½¦q~r­}r  o¨ÿ­wr)}r­xr)~r}r.~r}r.~r}r.~r}r.~r­qr)ð‚r­rr)ƒr £‚r‚r­}rm‚r}r­~rmƒr~r­}r ª½¥q}r½¦q~r­}r  o¨ÿ­qr)}r­rr)~r}r.~r}r.~r­yr)À‚r­zr)ƒr £‚r@‚r­}rm‚r}r­~rmƒr~r­}r ª½¥q}r½¦q~r­}r  o¨ÿ­yr)?}r­zr')~r­}r ª½¥q}r½¦q~r­}r  o¨ÿîurÐîvr­urÉЭvrÉðL×K©ur©vr©  o¨ÿ©  o¨ÿ Ï  © ˜ lr(QNÐLñK o®ÿL\H ˜ :r}r­}r ª­~r*¨Šii…W˜iQ…X ±WwrȱWxr ‹ :r-Q}r ˜ }r}r­}r ª­~r*¨Šii…W˜iQ…X ±WqrȱWrr ‹ :r2Q}r ˜ }r}r­}r ª­~r*¨Šii…W˜iQ…X ±Wyr ȱWzr q gr7Q}r q }r:r}r ­}rI—781,0ôiHI—782,208jRIž65496: SAVE!j\IŸ15,DN,15:„15,A,B$,C,D/jfI™A;B$;C;D7jpI 15FjzI‹A±0§18400hj„I—53247,0:===================“jŽI™"ÉF YOU'VE GOT SEVERAL DEVICES ANDÁj˜I™"ESPECIALLY DEVICES WITH SUBDIRECTORIES,îj¢I™"YOU CAN NOW GENERATE A SHORT BOOT-PRG.k¬I™"ÉT SWITCHES TO THE DEVICE-NUMBER ANDGk¶I™"SUBDIRECTORY, WHERE THE ÅMAIL64-SYSTEM-XkÀI™"FILES ARE.zkÊI™"ÇENERATE A BOOT-PRG (Y/N)ŒkÔI¡G$:‹G$²"N"§€ŸkÞI‹G$³±"Y"§18900ÈkèI™"ÂOOT EM64MAIN OR EM64MENUE (A/E)ÛkòINA$²"EM64MAIN*ñküI¡G$:‹G$²"A"§18970lJ‹G$³±"E"§18940lJNA$²"EM64MENUE*]lJ…"ÄEVICE-NUMBER WHERE EM64MAIN/MENUE IS (8-30)";A$:DN²Å(A$)wl$J‹(DN³8)°(DN±30)§18970 l.J™"ÃOMMAND TO DEVICE TO GO INTO THE¼l8J™"CORRECT SUBDIRECTORY:ØlBJ™"/Í/:EMAIL64Í/:SYSTEMÍòlLJ™"CD2//EMAIL64/SYSTEM mVJ™"CD:C:/EMAIL64/SYSTEM*m`J™"(Í IS CARRIAGE RETURN)cmjJ™"COMMAND ";Ç(34):—631,29:—198,1:…"‘";A$vmtJA²1:I²1¤Ã(A$)‡m~JB$²Ê(A$,I,1) mˆJ‹B$²"Í"§A²Aª1:‰19100³m’JA$(A)²A$(A)ªB$¹mœJ‚äm¦JA$(0)²"0?"ªÇ(34)ª"“OÐ1,"ªÄ(DN)ª",15ïm°JI²1¤A.nºJA$(I)²Ä(I)ª"?"ªÇ(34)ª"PÒ1,"ªÇ(34)ª"CHR$(34)"ªÇ(34)ªA$(I)4nÄJ‚enÎJA$(5)²"5?"ªÇ(34)ª"CLÏ1:LÏ"ªÇ(34)ª"CHR$(34) nØJA$(5)²A$(5)ªÇ(34)ªNA$ªÇ(34)ª"CHR$(34)"ªÇ(34)ª","ªÄ(DN)ÏnâJA$(6)²"6?"ªÇ(34)ª"PÏ198,0:IFST=64TÈRÕûnìJA$(7)²"7FÏI=631TO640:PÏI,13:NÅ:PÏ198,10oöJI²0¤7:™A$(I):‚NoK…"ÓAVE THE LOADER-ÐÒG TO WHICH DEVICE (8-30)";A$:A²Å(A$)fo K‹(A³8)°(A±30)§19200ŽoK 15:Ÿ15,A,15,"S:EMAIL64-LOADER": 15žoK™"“NEW²o(KI²0¤7:™A$(I):‚Úo2K™"SÁ"Ç(34)"EMAIL64-LOADER"Ç(34)","Aùo"Ç(B);B;LB˜:™:‚\B¢:‹I±90§14800qB¬:PA$²B$:LP²Ã(PA$)B¶:‹LP±47§™"TOO LONG":‰14800¡BÀ:A$²"":I²1¤LPµBÊ:B²Æ(Ê(PA$,I,1))ÐBÔ:‹(B±64)¯(B³91)§B²Bª128ëBÞ:‹(B±96)¯(B³123)§B²B«32üBè:A$²A$ªÇ(B):‚Cò:™"OWN NAME ";A$(Cü:™"CORRECT (Y/N)>C;¡A$:‹A$²"N"§14800QC;‹A$³±"Y"§15110kC;I²52832¤52879:—I,0:‚‹C$;—52832,LP: LENGTH OWN NAME°C.;I²1¤LP:—52832ªI,Æ(Ê(PA$,I,1)):‚ÖC8;================================åCB;™"DL;™"$CE90-CEBF OWN EMAIL-ADDRESSHDV;™"ONLY STANDART (NO CBM) PC-ASCII ALLOWEDpD`;A²Â(52880): LENGTH OF EMAILADDRESS’Dj;A$²"":I²52881¤52881ªA:B²Â(I)­Dt;‹(B±64)¯(B³91)§B²Bª128ÈD~;‹(B±96)¯(B³123)§B²B«32ÙDˆ;A$²A$ªÇ(B):‚ðD’;™"EMAIL-ADRS ";A$Eœ;…"";A$8E¦;A²Ã(A$):™"LENGTH"A:B$²""RE°;I²1¤A:B²Æ(Ê(A$,I,1))dEº;™Ê(A$,I,1);B;tEÄ;‹B³32§15350„EÎ;‹B³65§15360œEØ;‹B³91§B²Bª32:‰15360­Eâ;‹B³193§15350ÇEì;‹B³219§B²B«128:‰15360ìEö;™"ILLEGAL CHARACTER":I²99:‰15370F"Ç(B);B;F <™:‚ F<‹I±90§151705F"Ç(B);B;ËI|=™:‚ÛI†=‹I±90§15540ðI=PA$²B$:LP²Ã(PA$)Jš=‹LP±47§™"TOO LONG":‰15540 J¤=A$²"":I²1¤LP4J®=B²Æ(Ê(PA$,I,1))OJ¸=‹(B±64)¯(B³91)§B²Bª128jJÂ=‹(B±96)¯(B³123)§B²B«32{JÌ=A$²A$ªÇ(B): ‚’JÖ=™"REPLY-TO ";A$§Jà=™"CORRECT (Y/N)½Jê=¡A$:‹A$²"N"§15540ÐJô=‹A$³±"Y"§15850êJþ=I²52928¤52975:—I,0:‚ K>—52928,LP: LENGTH USERNAMEJK>I²1¤LP:—52928ªI,Æ(Ê(PA$,I,1)):‚:=========================sK>™"$CEF0 KIND OF SMTP-AUTHENTICATE¢K&> ™"SOME EMAILACCOUNTS NEED AN AUTHENTICATEÏK0>™"AT THE SENDING OF EMAILS (AT RECEIVINGßK:>™"ALLWAYS). LD>™"YOU MUST READ THE EMAILACCOUNTDOCUMENTS;LN>™"IF YOU DON'T KNOW TRY 0=NO AUTHENTICATETLX>™"AND SEND AN EMAIL.{Lb>™"IF YOU CAN SEND IT THEN IT' S OK.©Ll>™"IF YOU GET AN ERROR-MESSAGE SIMILAR TO:ÓLv>™"NEED TO AUTHENTICATE VIA POP3 FIRSTèL€>™"THEN MAKE 128.MŠ>™"IF YOU GET AN ERROR-MESSAGE SIMILAR TO:EM”>™"NEED TO AUTHENTICATE VIA SMTP-AUTH-LOGINZMž>™"‘THEN MAKE 64.‰M¨>™"(IF YOU CAN CONFIGU RE YOUR EMAIL-ACCOUNT²M²>™"‘THEN MAKE SMTP-AUTH-LOGIN. IT'S AËM¼>™"LITTLE BIT FASTER)ÜMÆ>…"RETURN";A$ÿMÐ>™" 0 = NO SMTP AUTHENTICATE#NÚ>™" 64 = SMTP-AUTHENTICATE-LOGINMNä>™"128 = SMTP AFTER POP (AUTHENTICATE)oNî>™"SMTP-AUTHENTICATE "Â(52976)”Nø>…"‘";A$:A²Å(A$)²N?™"SMTP-AUTHENTICATE IS "AÆN ?™"CORRECT (Y/N)ÜN?¡A$:‹A$²"N"§15900ïN ?‹A$³±"Y"§16150O*?—52976,A:====================!O4?™"TO>?™"$CFC8-CFF7 TIMESERVER NAME‚OH?™"ONLY STANDART (NO CBM) PC-ASCII ALLOWEDžOR?A$²"":B$²"":C$²"":D$²""ÉO\?A²Â(53192): LENGTH OF TIMESERVER NAMEÙOf?:PRINT"A"AëOp?I²53193:A$²""Pz?B²Â(I): LENGTH OF ACTUAL NAME PART#P„?:PRINT"B"B8PŽ?‹B²0§16380: ENDgP˜?‹I±53193§A$²A$ª".": AT BEGINNING NO POINTvP¢?J²Iª1¤IªB¡P¬?‹J±53192ªA§16380: END IF LENGTH ERRORÀP¶?D²Â(J): CHARACTER OF NAMEØPÀ?:PRINT"D"D,CHR$(D)óPÊ?‹(D±64)¯(D³91)§D²Dª128QÔ?‹(D±96)¯(D³123)§D²D«32 QÞ?A$²A$ªÇ(D):‚J,Qè?I²IªBª17Qò?‰16250NQü?™"TIME-NAME ";A$wQ@…"";A$Q@--------------------------------ÀQ@A²Ã(A$):™"LENGTH"A:B$²"":I²1ÊQ$@™"A"AçQ.@‹I±A§16570: END OF NAMEúQ8@B²Æ(Ê(A$,I,1)) RB@™Ê(A$,I,1);BRL@I²Iª1UªA—53192,Aª1: TOTAL LENGTHIU´AI²1¤AcU¾A—53192ªI,Æ(Ê(C$,I,1))iUÈA‚UÒA================================¼UÜA™"$CEF1 TIME DIFFERENCE OF GMT TO C64ÛUæA™"GMT=GREENWICH MEAN TIME?VðA™"IF YOU DON'T KNOW THEN TRY '0' AND1VúA™"COMPARE THE DISPLAYED TIME AT THE END\VB™"OF THE MAINPROGRAM WITH YOUR CORRECT‡VB™"TIME AND THEN CHANGE THIS VALUE HERE­VB™"AUSTRALIA IS A POSSITIVE VALUEÔV"B™"GERMANY IS +1 OR +2 DEPENDING ONóV,B™" SUMMER- OR WINTER-TIMEW6B™"AMERICA IS A NEGATIVE VALUE@W@B™"YOU MUST CHANGE THIS VALUE MANUALLYjWJB™"WHEN THERE IS A CHANGE OF SUMMER- /|WTB™"WINTER-TIMEŸW^BA²Â(52977): BCD-FORMAT!!!!!!!¸WhBA$²"+":‹A±127§A$²"-"ÓWrBA²(A¯112)­16¬10ª(A¯15)þW|B™"TIME-DIFFERENCE (-12 - +12) "A$;A-X†B…"‘";A$:A²Å(A$)HXB™"TIME DIFFERENCE: "A\XšB™"CORRECT (Y/N)rX¤B¡A$:‹A$²"N"§16860…X®B‹A$³±"Y"§17060X¸BB²¶(A)°XÂBC²µ(B­10)¬16:D²B«µ(B­10)¬10ÃXÌBE²0:‹A³0§E²128ÔXÖB™EªCªD;E;C;D÷XàB—52977,EªCªD:================YêB™"$CEF2 CENTURY#YôB™"19 =1900-19996YþB™"20=2000-2099IYC™"21=2100-2199SYC™"...fYC™"99=9900-9999‹Y&C™"CENTURY 1900-9900) "Â(52978)°Y0C…"‘";A$:A²Å(A$)ÃY:C™"CENTURY: "A×YDC™"CORRECT (Y/N)íYNC¡A$:‹A$²"N"§17130ZXC‹A$³±"Y"§17230#ZbC—52978,A:====================9ZlC™"PLEASE WAITGZvC™:I²8¤30XZ€CŸ15,I,15: 15iZŠC‹ST³±0§17480~Z”CŸ15,I,15,"I": 15•ZžCŸ2,I,0,"$EM64INPR*°Z¨CJ²0¤5:¡#2,A$:‚:‰17440ÄZ²CJ²0¤3:¡#2,A$:‚ÕZ¼C‹ST³±0§17470íZÆC¡#2,A$:‹ST³±0§17470[ÐC‹A$³±Ç(34)§17350[ÚC¡#2,A$:‹A$³±"E"§17470.[äC™" ";:‰17400I[îC¡#2,A$:‹A$²Ç(34)§17420R[øC™A$;][D‰17390d[ D™I€[D¡A$:‹A$³±""§I²30:‰17470˜[ D¡#2,A$:‹ST³±0§17470ª[*D‹A$³±""§17440µ[4D‰17330¼[>D 2Â[HD‚ò[RD™"$CE10-CE17 INTERNET-PROVIDER-CONFIG-FILE\\D™"THAT WILL BE LOADED AUTOMATICALLYW\fD™"INPUT 'MENUE' FOR SELECTING IT AT MAINPROGRAMM{\pD‹Â(52752)²0§™" MENUE";:‰17550\zD™" EM64INPR";®\„DI²52752¤52759:™Ç(Â(I));:‚Ä\ŽD¡A$:‹A$³±""§17550Ø\˜D™:A$²"":…"‘";A$]¢D‹A$²"MENUE"§A$²"":™"WANT THE MENUE AT THE MAINPROGRAM":‰17620>]¬DA$²È(A$ª" ",16)}]¶D‹È(A$,8)³±"EM64INPR"§™"MUST BEGIN WITH 'EM64INPR'":‰17530©]ÀD™"WANT TO LOAD THIS INTERNET-PROVIDER:´]ÊD™""A$É]ÔD™"CORRECT (Y/N)ß]ÞD¡B$:‹B$²"N"§17490ò]èD‹B$³±"Y"§17630ý]òDI²0¤7^üDA²0:‹A$³±""§A²Æ(Ê(A$,Iª9,1))-^E—52752ªI,AQ^E‚:============================€^E™"$CE20-CE2F FILE THAT WILL BE DOWNLOADED¤^$E™"AUTOMATICALLY AT THE END WHENÆ^.E™"THERE ARE DOWNLOADED EMAILSã^8E™"TYPE 'END' FOR NO LOADû^BE™"TRY 'FILE-SURVEY'%_LE™"ÍUST BE ON DEVICE WITH SYSTEM-FILES9_VE™" ";L_`EI²52768¤52783h_jE‹Â(I)²42§I²52783:‰17790v_tE™Ç(Â(I));|_~E‚˜_ˆE™:A$²"":…"‘FILENAME";A$Ú_’E‹A$²"END"§™"NO FILE-LOAD WH.THERE ARE EMAILS":A$²Ç(0):‰17860`œE‹A$²""§™"NO FILE-LOAD WH.THERE ARE EMAILS":A$²Ç(0):‰17860e`¦E™"THIS FILE IS LOADED AT THE END WHEN THERE ARE DOWNLOADED EMAILS:ˆ`°EA$²È(A$ª"* ",16)“`ºE™""A$¨`ÄE™"CORRECT (Y/N)¾`ÎE¡B$:‹B$²"N"§17690Ñ`ØE‹B$³±"Y"§17870ë`âEI²52768¤52783:—I,0:‚ú`ìEI²1¤Ã(A$)aöE—52767ªI,Æ(Ê(A$,I,1))7aF‚:===========================Ja F™"$CDC0-CDDFx!aF™"DEVICE COMMAND SENT BEFORE LOADING THIS”aF™"PROGRAM (WHEN EMAILS)£a(F™"ÅXAMPLE:Àa2F™"/Í/:EMAIL64Í/:RECEIVEDÜa0‹A±39§™"TOO LONG":‰11920 (H0:PRINT"A"A(R0I²1:A$²""1(\0‹I±²A§12500: ENDa(f0B²Æ(Ê(C$,I,1)): LENGTH OF ACTUAL NAME PARTq(p0:PRINT"B"Bœ(z0‹I±1§A$²A$ª".": AT BEGINNING NO POINT«(„0J²Iª1¤IªB¾(Ž0D²Æ(Ê(C$,J,1))Ö(˜0:PRINT"D"D,CHR$(D)ñ(¢0‹(D±64)¯(D³91)§D²Dª128 )¬0‹(D±96)¯(D³123)§D²D«32)¶0A$²A$ªÇ(D):‚J*)À0I²IªBª15)Ê0‰12380L)Ô0™"POP3-NAME ";A$`)Þ0™"CORRECT (Y/N)v)è0¡A$:‹A$²"N"§11920‰)ò0‹A$³±"Y"§12520£)ü0I²53000¤53033:—I,0:‚Á)1—53000,Aª1: TOTAL LENGTHÌ)1I²1¤Aæ)1—53000ªI,Æ(Ê(C$,I,1))ì)$1‚*.1================================!*81™"U*B1™"$CF30-CF5F SMTP SERVER NAMEƒ*L1™"ONLY STANDART (NO CBM) PC-ASCII ALLOWEDŸ*V1A$²"":B$²"":C$²"":D$²""Ë*`1A²Â(53040): LENGTH OF SMTP SERVER NAMEÛ*j1:PRINT"A"Aí*t1I²53041:A$²""+~1B²Â(I): LENGTH OF ACTUAL NAME PART%+ˆ1:PRINT"B"B:+’1‹B²0§12800: ENDi+œ1‹I±53041§A$²A$ª".": AT BEGINNING NO POINTx+¦1J²Iª1¤IªB£+°1‹J±53040ªA§12800: END IF LENGTH ERRORÂ+º1D²Â(J): CHARACTER OF NAMEÚ+Ä1:PRINT"D"D,CHR$(D)õ+Î1‹(D±64)¯(D³91)§D²Dª128,Ø1‹(D±96)¯(D³123)§D²D«32",â1A$²A$ªÇ(D):‚J.,ì1I²IªBª19,ö1‰12670P,2™"SMTP-NAME ";A$y, 2…"";A$Ÿ,2--------------------------------Â,2A²Ã(A$):™"LENGTH"A:B$²"":I²1Ì,(2™"A"Aé,22‹I±A§12990: END OF NAMEü,<2B²Æ(Ê(A$,I,1)) -F2™Ê(A$,I,1);B-P2I²Iª1>-Z2‹B²46§12970: END OF ONE NAME PARTN-d2‹B³32§12950^-n2‹B³65§12960v-x2‹B³91§B²Bª32:‰12960‡-‚2‹B³193§12950¡-Œ2‹B³219§B²B«128:‰12960Á-–2™"ILLEGAL CHARACTER":‰12600×- 2B$²B$ªÇ(B):‰12850ó-ª2C$²C$ªÇ(Ã(B$))ªB$:B$²""þ-´2‰12850.¾2C$²C$ªÇ(Ã(B$))ªB$:.È2--------------------------------A.Ò2™:^.Ü2A²Ã(C$): LENGTH OF NAME{.æ2‹A±47§™"TOO LONG":‰12600‹.ð2:PRINT"A"A™.ú2I²1:A$²""¯.3‹I±²A§13180: ENDß.3B²Æ(Ê(C$,I,1)): LENGTH OF ACTUAL NAME PARTï.3:PRINT"B"B/"3‹I±1§A$²A$ª".": AT BEGINNING NO POINT)/,3J²Iª1¤IªB"Ç(B);B;ì2¼4™:‚ü2Æ4‹I±90§132803Ð4PA$²B$:LP²Ã(PA$)/3Ú4‹LP±47§™"TOO LONG":‰13280A3ä4A$²"":I²1¤LPU3î4B²Æ(Ê(PA$,I,1))p3ø4‹(B±64)¯(B³91)§B²Bª128‹35‹(B±96)¯(B³123)§B²B«32›3 5‹B²95§B²164¬35A$²A$ªÇ(B):‚Ã3 5™"USERNAME ";A$Ø3*5™"CORRECT (Y/N)î345¡A$:‹A$²"N"§132804>5‹A$³±"Y"§136204H5I²53088¤53135:—I,0:‚;4R5—53088,LP: LENGTH USERNAME`4\5I²1¤LP:—53088ªI,Æ(Ê(PA$,I,1)):‚†4f5================================—4p5™"Á4z5™"$CF90-CFBF PASSWORDï4„5™"ONLY STANDART (NO CBM) PC-ASCII ALLOWED5Ž5™"TYPE "Ç(34);Ç(34)" FOR NO PASSWORD75˜5™" (F.E. GERMAN T-ONLINE)[5¢5A²Â(53136): LENGTH OF PASSWORDp5¬5A$²"":‹A²0§13790Œ5¶5I²53137¤53137ªA:B²Â(I)§5À5‹(B±64)¯(B³91)§B²Bª128Â5Ê5‹(B±96)¯(B³123)§B²B«32Ó5Ô5A$²A$ªÇ(B):‚ê5Þ5™"PASSWORD ";A$6è5…"";A$26ò5A²Ã(A$):™"LENGTH"A:B$²""U6ü5‹A²0§LP²0:‰14010: NO PASSWORDo66I²1¤A:B²Æ(Ê(A$,I,1))66™Ê(A$,I,1);B;‘66‹B³32§13900¡6$6‹B³65§13910¹6.6‹B³91§B²Bª32:‰13910Ê686‹B³193§13900ä6B6‹B³219§B²B«128:‰13910 7L6™"ILLEGAL CHARACTER":I²99:‰13920%7V6B$²B$ªÇ(B):™"->"Ç(B);B;-7`6™:‚=7j6‹I±90§13680R7t6PA$²B$:LP²Ã(PA$)p7~6‹LP±47§™"TOO LONG":‰13680‚7ˆ6A$²"":I²1¤LP–7’6B²Æ(Ê(PA$,I,1))±7œ6‹(B±64)¯(B³91)§B²Bª128Ì7¦6‹(B±96)¯(B³123)§B²B«32Ý7°6A$²A$ªÇ(B):‚ô7º6™"PASSWORD ";A$ 8Ä6™"CORRECT (Y/N)8Î6¡A$:‹A$²"N"§1368028Ø6‹A$³±"Y"§14030L8â6I²53136¤53183:—I,0:‚l8ì6—53136,LP: LENGTH PASSWORD|8ö6‹LP²0§14100¡87I²1¤LP:—53136ªI,Æ(Ê(PA$,I,1) ):‚Ç8 7================================Ö87™"97™"$CFC0/CFC1 EMAILLENGTH WHEN DOWNLOADMENU?9(7™"IF AN EMAIL IS SMALLER THEN IT ISX927™"DOWNLOADED AT ONCEƒ9<7™"IF IT IS BIGGER THEN THERE IS A MENUŸ9F7™"WHERE YOU CAN DECI!DE:Ç9P7™"DOWNLOAD (WITH OR WITHOUT DELETE)ë9Z7™"SKIP (AND DOWNLOAD NEXT TIME) :d7™"DELETE WITHOUT DOWNLOADING9:n7‹(Â(53184)²0)¯(Â(53185)²0)§A$²"0":‰14260T:x7A$²Ç((Â(53185)¯15)ª48)r:‚7A$²A$ªÇ((Â(53184)­16)ª48):Œ7A$²A$ªÇ((Â(53184)¯15)ª48)®:–7A²µ(Â"(53185)­16): POTENZ½: 7‹A²2§14290Ô:ª7I²3¤A:A$²A$ª"0":‚ç:´7™"0 ALLWAYSþ:¾7™"1-99 NOT ALLOWED&;È7™"100-1000000000000000 EMAIL-LENGTH@;Ò7™"EMAIL-LENGTH ";A$X;Ü7…"‘";A$q;æ7™"EMAIL-LENGTH: ";Ž;ð7A²Å(A$):‹A²0§™"0":‰14420Ÿ;ú7‹A³10#0§14190·;8B²Ã(A$):‹B±16§14190Å;8™È(A$,1);Õ;8™Ê(A$,2,1);å;"8™Ê(A$,3,1);ü;,8B²Ã(A$)«1: POTENZ <68‹B²2§14410<@8I²3¤B:™"0";:‚$9================================->9™"n>&9™"$CFC3 KIND OF GENERATING EMAIL-SAVE-NAME†>09™"0 SUBJECT-FIELD´>:9™" GOO&D: NAME CONTAINS INFORMATION ABOUTÑ>D9™" EMAIL-CONTENTSÿ>N9™" BAD: OFTEN EMAILS WITH SAME CONTENT-!?X9™" FIELD = SLOWS DISK-ACCESS>?b9™"64 TIME OF TIMESERVERU?l9™"128 COUNTER-FILEf?v9™" "Â(53187)z?€9…"‘";A$:A²Å(A$)…?Š9™""A$š?”9™"COR'RECT (Y/N)°?ž9¡B$:‹B$²"N"§14620Ã?¨9‹B$³±"Y"§14750Ð?²9—53187,Aö?¼9================================@Æ9™"NAMES IN HEADER AT SENDING EMAILS.@Ð9™"Z@Ú9™"$CE60-CE8F OWN NAMEˆ@ä9™"ONLY STANDART (NO CBM) PC-ASCII ALLOWED¬@î9A²Â(52832): LENGTH OF OWN NAMEÎ@ø9A$²"":I²52833¤52833ªA:B²Â(I)é@:‹(B±64)¯(B³91)§B²Bª128A :‹(B±96)¯(B³123)§B²B«32A:A$²A$ªÇ(B):‚,A :™"OWN NAME ";A$UA*:…"";A$tA4:A²Ã(A$):™"LENGTH"A:B$²""ŽA>:I²1¤A:B²Æ(Ê(A$,I,1ú©>0ÈÐ1JJJJIÿ8éø¨½d) 0™1ÈÀ°½ªJJJJ 0™2ÈÀ°Š) 0™3È®n‚8½íÀϽdíÁÏ©ÉLá% 8¢½IÈý1ÈÊ÷©ËLá%˜Ð©à á% À   À ÿÐØ©&¢ [ éÉAðåÉBðÔÉCð ÉDÐí©ÎLá%L9êLq<¥d¦eLw:î@‚  ÷  ÷ Œ„:©Ë¢ [¢½0È(ËÊ÷¥d¦e ÿ© ÈÑdÐû˜ed:Ž‚:LÓ;­ÿÿ¢ÿÐI  Ù¼ð*ˆˆˆöÉ.Щ„:LË;É ð©„:LË;© „:©;L»;˜¢i¼èÙ:è:ŽÚ:Žé:LÈ;ÊðÊÐ*èèÝÿÿÐÆÊðí  ÷¢½ÿÿÉ@) Ëèàï©#;LÈ;ÊÐÉ ðöÉ@)#Ëî;­;ÉH°ãLË;ÊÐ I Ðö„:ðñÊÐÉ.ðÉ Ð¢ Ž„:LË;¢Ž„:Lˆ;LÈ;ÊÐÉ ð®;05¢.Ž Ëî;¢Ž„:Lˆ;LÈ;ÊÐÉ ð®;0¢.Ž Ëî;¢Ž„:Lˆ;Læ;ÊÐ*É ÐLÈ;¢LÈ;É@) Ëî;­;ÉHÎ;L»;LË;É Ð©„:  ÷© ;LË;î„:î:Ðî‚:¥fí:¥gí‚:L€:Lä%©x¢ [©¬¢ ¬ÂÏЩô¢ [ éÉ1ÐLì9É2Ð!¢½9È)}1ÈÉ:é 9ÈÊì©>8ÈL9®ÂÏðÌÉ3ÐÈ©þ¢ [ éðûÉDС éðûÉEИ¢½9È)}1ÈÉ:é 9ÈÊì©>8È©ÍLá%êL`@­@‚)<ÉР ±bJ – š­@‚H  á%h @‚`©$¢L[¶<¢ Ž¸< • š©ÐÅ< ©ÿ)ÿ𘠪½)?ÐËîÅ<èŠ)ÐïN¸<ˆß  ±bJw­@‚)<Éð;­@‚ÉЩ’Ð )ÉNЭ@‚I@‚  ©‘b𩔢 [ éÉCð:ÉFÐõ©Ò@‚Lä%­@‚ @‚ ä%©p®ÈÏð©`®@‚©°,ðΩÀàÀ©ð@‚Lä%  ±bJJª­@‚)?É°­@‚ @‚ŠJJ©Ý¢ [ éÉCð<ÉRÐõîp­@‚)À@‚L&­@‚ @‚¢)ðɀТŽj‚  ±`T‚™\ÈèÀò©ÃE‚`©0&È'È"È#È ¢±dÉ:°.É0*ðè­'È&ȱd'ÈÈÀã±dÉ:°É0 ¢9Ž&ÈŽ'È¢>Ž%ÈŠÐ   ÷©ÎLá% Ü%© ÈÑdÐû¢ˆ±dI0ð8Êõ¢ˆ±dI ð(i É:©0AÈÊë°ˆ±dÉ ð$¢©9AÈÊú©>@ÈЩ1AÈÊŠ0©0AÈÊú©0¢9ÈÊú© >ÈFÈ©?ÈGÈ¢8½IÈýAÈÊ÷°©ü¢L‘`¥d¦eÐ( ÿ¦eî@‚© ÈÑdÐû˜ed 0Œ"ÈÈŒ#È eŒ¯? Œ™?ˆŒÒ>Ï>ŽÐ>L @­ÿÿ¢ÿÐÍ"Èð!®"Èà0ÐîÒ>Р ÷©Ò>L@ÊÐÍ#ÈÐëL@ÊÐÉ ðë)œ?Ž„?© ¦?L@ÊÐÉ ð? Œ?L@ÊÐ É ð.)‚?L@ÊðLÚ?É ðÉ0ð©„?­¦?i¦?L@­¦?É0°©1ÐLЭ‚? Œ? „?ð.8°+ÉP° ­‚? „?ð 8° ©ÿiÉ © ÿ iÉ é 8©ÿiÉ © ÿiî™?eî¯? ®#È­"Èì'ÈÐÍ&Èðèà:¢0î"ÈŽ#ȈŒÒ>L@ÊÐ É Ð#©Ò>ðÊÐÉ.ÐðÊÐÉ ð Læ>É ð Ð÷îÒ>îÏ>ÐîÐ>¥fíÏ>¥gíÐ>LÎ>Lä%¢0Ž"ÈŽ#È©n‚L9­@‚ÉÎЩb¢ [  ±bJ­@‚I Lá%­@‚ @‚)?ÉÐL,=`êL‚D¬ƒ‚ŒÛ@®‚‚ÐhÀ°Ðd ŒA­þ‚ 0È®þ‚ÊðI À­þ‚ 𩺢ЩÿøB ð+É@ð!©W¢ ? éÉ1ðÖÉ2ÐLaDÉ3Ðî À©Lá%ŽñBŒøB À¢ŽAŽ+D ½ÿèÐîÛ@É<ð(À€°É Ðë €ÐçÐÉ Ðá ÀÐÝÉ ð×É ðÓ ÿÎAÌî@‚Ž‚‚­Û@ƒ‚Lä%¢ðL!B  ÷  ÷© DB¢Ž”‚ŽÕCŽÝC©ÿbBA¬‚ˆŒ„‚Œˆ‚ŒŒ‚©°ŒA¢©0)ÈÊú© .È6È©/È7È­þ‚ ¨¢¹0ȈÊÐö €èÐîŒA½ °À€ÐÉ Ðï ÀÐëÉ ðåÉ ðá­ŒAŽ}B€B¢¬k‚½Íð™ôèÈÐô¢½aÎð ™ôèÈà/ò© ™ôÈ©<™ôÈ¢½‘Îð ™ôèÈà/ò¢½Ôð™ôèÈÐô¢½ÁÎð ™ôèÈà/ò¢½ð™ôèÈÐô¢½ ƒðY™ôèÈÐô­”‚ iª8 ¹‚ý„‚ʈö #© CB­”‚ 0 ËîDB­DBÉH   ÷© DB8`© ;B©ÿ0 Í”‚ðLÆCLD¬k‚­”‚ iôƒB¢ÿ½°™ôèÐcî€ B­€BÉÀÐYÍùBðtŒçB À ð=É@ð3àêÀ¿¢êŽÂBŒÃB©O¢€ [¢½Ùÿÿèàõ­ÂBiª¬ÃBÈî+DŽñBŒøB©°€B À ÿ¢ÈÐîƒBàÿЭ€BÉÿðÀþðL~B­ƒBJ÷° ­”‚bB, Ý­ ÝøiÉ`é`Ø÷‚­Ýö‚Ž}BêŒ_C ¹p‚™tˆ÷ ¹py|‚™pˆô8­k‚…Té…Ré…P­”‚ ª©ÿø‚…V­ƒBù‚…W)þ…U…S…Q $­”‚ ª, Ý­ Ýøi É`é`Øñ‚­Ýð‚©€‚8¥VåT‚¥WåU~‚­”‚ iª ¹py|‚„‚™t‚ʈð®”‚èࢎ”‚©ÿm‚ÕC©ÿm~‚ÝCÉ1éÝC8¢½)ÈiÉ:©0)ÈÊí8¢½9ÈiÉ:©09ÈÊíL!B À Àî@‚`©ÿð!©W¢ ? éÉ1ð3É2Ð ÀLaDÉ3Ðë©Lá% À­þ‚ ð©}¢ ?®þ‚ì`‚ð îþ‚ À©ˆLá%    À©Lá%êL  J©È &© È­Ü-–‚Éÿð© È©ç…X­@‚ÉþÐL`x©å…©ÜîÈ­@‚JJJJ 0É:é9È­@‚) 0É:é9È©È î °œ ŒÈ8é°Ê…R†S©î…Q…U ¹îÈÉÿйîÈÉð  ÷L”D¹îȪJŠ¢LaF0LYFÈ„P 8¥RåPñPˆ¥SéîñP°  ÷L”D¤P˜i…T¹ÿíàÀðL÷EÉ#Ð= ±PªÊР€ šL”DÊР š©D‚©ÈE‚L †DÊÐ  ‚ š  ÷L”D  šL”DÉ!ÐX ±P¨ˆÐ  ƒ i,ðЈР,.ð ЈР9.Ð L†DˆÐ <.ðõL”DˆÐ S.L”DˆÐ w.L”DˆÐ ‰ šL”D ‰ [%L”Dà€ÐjÉ!Ðf ±P¨ˆÐ  Š i,ðЈР•.ð ЈР6/Ð L†DˆÐ v/ðõL”DˆÐ Ž šL”DˆÐ© šL”DˆÐ  šL”D  [%L”D¹îÈàÐÉ!ð m%L”D„P„`¥R…V…f¥S…W…g ±P)ðÉ@ðî!бP) eP…R…b¦Q†S†a†c ±PeP…V…fˆ±PeQ…W…g 'Ð Tð  ÷L”D ±PÙ<‚ðLGGÈÀñ  ±PÉÐ é/ðLJL†DÉðLJ  ±R)ðJJeR…T…d¦S†U†e8¥fåd{‚¥gåez‚¢€ {‚Т  ±b)/ðèŽ{‚Ž€‚ ±RÉÐȱRÍmЮj‚ð  ±PÝT‚ð $L”DÈèÀí©yG  ¢±b‚ˆÊ÷ ¢8±býp‚ðîyGˆÊò¢ÿð ­@‚)?ð —, ˜ š &L”D ¢±b}x‚p‚ˆÊô¢  ±bÙl‚ЈÀÐôðÊ­@‚É‹Ð AL”D uL”DÉJÐ <:L”DÉLÐ !4L”D  ÷®z‚Ь{‚ˆÀ( '±dÉ É@),© ™ ˈë ±d,mpÉ4z°É+ÐȱdÉOÐȱdÉKðf©¨‘f¥d¦e [©¢ [ éÉ0ùÉ8°õ)ª©ý,P0©þÊð0©ðÊð+­@‚)À Êð!IɎЩŒÊðÊÐ ­@‚)À @‚LHÊð ­@‚ á%L”DL”D­@‚,mP_)ÉFð$ÉI&ð*ÉM,ð0ÉP2°6­@‚ÉEЩM@‚ Ü%L”D ¸=L”D >L”D C:L”D (4L”D 9L”D /@L”D)üÉPðLJ N@L”D¥d¦eyIƒIŽzIŽ„I ¹ÿÿÉ-Ð*© ÈÙÿÿÐú˜myIyIƒIîzIî„I¥fíyI¥gíyI°ÐL”D­@‚É‹ðÉŠÐ î@‚ AL”DɈРî@‚ d@L”DɉðöɆð&ÉðɃðɌР*DL”DÉLH,ðÎp ©…,©Ž@‚î@‚ Ü%L”Dî ÐLJîÈL”Dê©“ Òÿ©ÊÐúx©á…© ª¢NŽ+J™ÿ™ÌÈÐ÷®+JèðàÍÐê¢ØÐ溎l‚¢½ÐÐÒÓÔÖ×½ÑÑÕèÐß©ç…©$ЩݩȈ©€‘©“ Òÿ©š©NX©Ô©ðÔ©“¢NþÿŽÿÿ©_¢N€Ž€¢?Šà>ð©3,©/à4i´àiiA‚Êà ©……‹„Œ¢Ff‹fŒ ¥‹I„…‹¥ŒI…ŒÊÐ饋™Ž¥Œ™ÈÐÒ¢½<€Ê÷¢½Ó ƒÊ÷© *ƒ© +ƒ©„!©,k‚©…û…÷©à…ü…ø¢½AÝüÏÐ ÝÍÐÊð0 ©SK©É° ¢î  îSKÐî ߩ煰ݦº­ÎЎέ ÎÐŽ έ ÎÐŽ έÍLßL ` »©ç…¢  ðÿ¢½AÝüÐ Ý<ÐÊð0+­Îð¢½Î+½å#Êñ [ ­΢ä   ߩ煰ꢠ© a°õ©à…L©ÐL ¢½àÐèÐ÷îLîLˆî©ç…­HªJJJJ 0ÁŠ) 0¢¹ © a°õLaL­ΪJJJJ 0 Š) 0 ¢ © a°õ­ÎÉ~­ ΪJJJJ 0Š) 0¢ø © a°õ,ÃÏY¢ © a°õ©SÍ©0ÍÍ¢¬Îð&À èÀdèiÉ:ÐþͽÍÉ:©0þÿÌ͈ÐäÍ©:Í ÷¹#ÍèÈÐöx©æ…ÿÏÿ­Ά!Щ“ Òÿ¢'© PÈÊú­Î ÐJJJJ!Ð       ð©•¢ ? éÉ1ðíÉ2ðRÉ3ÐñL`Ž`‚ŠðE©þ‚ 𩺢Рð6É@ð!©W¢ ? éÉ1ðÙÉ3ðÌÉ2Ðñ®`‚Êð îþ‚ÐŽñBŒøBð Ž`‚    À¢½@L‚Ê÷©ç…©/¢ [© Ý Ý ÝÝx©å…,P0L\N©ÀïM©AÊ©A Ò©T Ò© N Ò © Ê©A Ò©T Ò¢ÿ­Àð/É%ð(É&ð$É\ð ÉA É[°  ¢Œ N ÒîïM­ïMÉüÏ©Ž NH© Ò ©A Ò©T ÒhÐØ©D Ò©°CN­°ð ÒîCN­CNÉÀî© Ò L²DxŽxŒxhxºŽx;¢½ËwèÐ÷ÎxNÎuNŽÿÏŽÿî ÐLN, ÜîÈ@­–‚0Ζ‚ÔL1êiÉ:ÐþͽÍÉ:©0þÿÌ͈ÐäÍ©:Í ÷¹#ÍèÈÐöx©æ…ÿÏÿ­Ά!Щ“ Òÿ¢'© PÈÊú­Î ÐJJJJ!Ð       ð©•¢ ? éÉ1ðíÉ2ðRÉ3ÐñL`Ž`‚ŠðE©þ‚ 𩺢Рð6É@ð!©W¢ ? éÉ1ðÙÉ3ðÌÉ2Ðñ®`‚Êð' CD10-CD13 "EM64"J' CD14 00=CONFIG-&SYSTEM-FILES MUST BE LOADED{$' 80=CONFIG-&SYSTEM-FILES ARE IN MEMORY¡.'--------------------------------ë8' $CD60-CD7F COMMAND TO SYSTEM-FILE DRIVE AFTER LOADING OF 'EM64EMAC'1 B' $CD80-CD9F COMMAND TO LOAD-TOSEND DRIVE BEFORE UPLOADING EMAILS} L' $CDA0-CDBF COMMAND TO RECEIVED-TOSAVE DRIVE BEFORE DOWNLOADING EMAILS· V' $CDC0-CDDF COMMAND TO SYSTEM-FILE-DRIVE WHEN EMAILSô `' $CDE0-CDFF COMMAND TO SYSTEM-FILE-DRIVE WHEN NO EMAILS j' $CE04 ZEICHENFARBE CHARACTER-COLOR[ t' $CE05 HINTERGRUND/RAHMENFARBE BACKGROUND/BORDER-COLOR‰ ~' $CE06 DVSYFI DEVICE NUMBER SYSTEM FILES¶ ˆ' $CE07 DRSYFI DRIVE NUMBER SYSTEM FILESõ ’' $CE08 ROIOSE ROUTINES INPUT/OUTPUT SEND (LOAD FROM DISK)% œ' $CE09 DVEMSE DEVICE NUMBER EMAILS TO SENDT ¦' $CE0A DREMSE DRIVE NUMBER EMAILS TO SEND” °' $CE0B ROIORE ROUTINES INPUT/OUTPUT RECEIVE (SAVE TO DISK)Å º' $CE0C DVEMRE DEVICE NUMBER EMAILS RECEIVEDõ Ä' $CE0D DREMRE DRIVE NUMBER EMAILS RECEIVED+ Î' CE10-CE17 NAME OF INTERNET-PROVIDER CONFIG FILEj Ø' CE1E VALUE FOR FILE LOADED AT END WHEN EMAILS DOWNLOADED¡ â' CE1F VALUE FOR FILE LOADED AT END WHEN NO EMAILSì ì' CE20-CE2F NAME OF FILE DOWNLOADED AT END OF MAINPROGRAMM WHEN EMAILS9 ö' CE30-CE3F NAME OF FILE DOWNLOADED AT END OF MAINPROGRAMM WHEN NO EMAIL_ (--------------------------------x ( CE60-CE8F OWN NAMEš ( CE90-CEBF OWN EMAIL-ADDRESS· ( CEC0-CEEF OWN REPLY-TOÜ (( CEF0 AUTHENTICATE VERSION 2( CEF1 TIME-DIFFERENCE OF GMT TO C64"<( CEF2 CENTURYHF(--------------------------------kP( $CF08-$CF2F POP3 SERVER NAMEŽZ( $CF30-$CF5F SMTP SERVER NAME©d( $CF60-$CF8F USERNAMEÄn( $CF90-$CFBF PASSWORDõx( $CFC0/$CFC1 EMAILLENGTH WHEN DOWNLOAD MENU*‚( $CFC2 DELETE EMAIL AFTER DOWNLOAD YES/NOTŒ( $CFC3 KIND OF EMAIL-SAVE-NAMEv–( $CFC8-CFF7 TIMESERVER NAME€ ( $CFŠª( $CF°´(--------------------------------Ǿ( CFFC-CFFF "EM64"íÈ(--------------------------------üÒ(‹K±0§10770*Ü(™"“CONFIGURE EMAIL64-EMAIL-ACCOUNTPæ(I²52496¤53247:—I,0:‚: CD10-CFFFcð(†DN(9):†NA$(9)qú(™:I²8¤30‚)Ÿ15,I,15: 15“)‹ST³±0§10710¨)Ÿ15,I,15,"I": 15¿")Ÿ2,I,0,"$EM64EMAC*Ú,)J²0¤5:¡#2,A$:‚:‰10670ê6)‹K²10§10700þ@ )J²0¤3:¡#2,A$:‚J)‹ST³±0§10700'T)¡#2,A$:‹ST³±0§10700<^)‹A$³±Ç(34)§10580Vh)¡#2,A$:‹A$³±"E"§10700er)™K;:‰10630€|)¡#2,A$:‹A$²Ç(34)§10650š†)™A$;:NA$(K)²NA$(K)ªA$¥)‰10620ºš)™I:DN(K)²I:K²Kª1ñ¤)¡A$:A²Æ(A$ªÇ(0)):‹(A±47)¯(A³48ªK)§I²30:‚: 2:‰!10750 ®)¡#2,A$:‹ST³±0§10700¸)‹A$³±""§10670&Â)‰10550-Ì) 28Ö)‚:ND²Krà)‹K²0§™"INSERT DISK WITH FILE 'EM64EMAC...":…A$:‰10490‹ê)™"TYPE 0 -"K«1"·ô)¡A$:A²Æ(A$ªÇ(0)):‹(A³48)°(A±47ªK)§10740Ãþ)AN²A«48æ*“NA$(AN),DN(AN),1:-----------"*A$²"":I²52496¤52499:A$²A$ªÇ(Â(I)):‚5*I²52736¤52739:—I,0:‚: CE00-CE07[&*I²52992¤52999:—I,0:‚: CF00-CF070*—52500,0: CD04 FLAG THAT CONFIG-&SYSTEM-FILES MUST BE LOADED¥:*™A$¸D*…"RETURN";A$ïN*—52496,69:—52497,77:—52498,54:—52499,52:CD#10-CD13'X*—53244,69:—53245,77:—53246,54:—53247,52: CFFC-CFFFkb*I²52760¤52765:—I,0:‚: CE18-CE1D ----------------------------—l*™"$CE04 COCHAR COLORCHARACTER (TRY 14)¼v*™"COCHAR ";Â(52740):…"‘";A߀*—52740,A:--------------------!Š*™"$$CE05 COBABO COLOR BACKGROUND BORDER (TRY 6 / 14)M”*™"COBACK ";µ(Â(52741)­16):…"‘";BAuž*™"COBORD ";Â(52741)¯15:…"‘";A˜¨*—52741,AªBA¬16:--------------Ȳ*™"ÁT DRIVES WITH SUBDIRECTORIES (1581?,ò¼*™"ÃÍÄ-ÆÄ, -ÈÄ, 64ÈÄÄ...%) YOU CAN MAKEÆ*™"SEPERATE DIRECTORIES FOR THE SYSTEM-IÐ*™"FILES, FOR THE TO-SEND EMAILS AND FORdÚ*™"THE RECEIVED EMAILS.’ä*™"ÙOU CAN MAKE A COMMAND THAT IS SENT TO½î*™"THE DRIVE BEFORE A SPECIAL ACTION TOßø*™"CHANGE INTO THIS DIRECTORY.ç&+…A$÷ +™"ÅXAMPLE:"+™"ÙOUR ÅMAIL64-SYSTEM-FILES ARE IN THEF +™"SUBDIRECTORY 'EMAIL64/SYSTEM'p*+™"TO-SEND EMAILS IN 'EMAIL64/TO SEND'œ4+™"RECEIVED EMAILS IN 'EMAIL64/RECEIVED'Ê>+™"AT THE EXAMPLE AT A ÈÄ AT PARTITION '2'ôH+™"ÔO CHANGE INTO 'THE SYSTEM-DIR TYPE:R+™"1581 /Í/:EMAIL64Í/SYSTEM>\+™"ÃÍÄ CD2//EMAIL64/SYSTEMdf+™"64ÈÄÄ CD:C:/EMAIL64/SYSTEM„p+™"'Í' MEANS CARRIAGE RETURN°z+™"IF YOU HAVE GOT A 1541 ONLY OR IF YOUÖ„+™"DON'T UNDERTAND THIS, THEN TYPEøŽ+™"'0' AT DEVICE AND DRIVE ANDB˜+™"'' (NOTHING) AT COMMAND":=========================================q¢+™"$CE06 DVSYFI DEVICE NUMBER SYSTEM FILES‘¬+™"TYPE 8-30 FOR DEVICE 8-30¿¶+™"OR 0 FOR DEVICE FROM WHICH SYSTEM-FILESÔÀ+™"WILL BE LOADEDùÊ+™"DPR*$EM64EMAC*EM64IOSA00*EM64IOLO00*EM64CHARSET*EM64COFI 0123456789ABCDEF  qzƒŒ”œ¤¬µ¾ÇÐÙâëôý#+37?HSlATCT RQSATCT ACKATCT NAKLCP RQSLCP ACKLCP NAKLCP RJCLTMT RQSLTMT ACKLCOD RJCIPCP RQSIPCP ACKIPCP NAKIPCP RJCNTMT RQSNTMT ACKNCOD RJCLCP PROTOCOLL REJECTUDP DNSTCP SYNTCP ACKTCPTCP FINTCP PASTTCP FUTURETCP FROM/TO WRONG SERVERTCP ACK PUSˆŽ”™ž§¯·USER PASS STATLISTTOP 1 3RETR 1DELE 1QUITSubFroRepTo:DatLENGTH:NO SUBJECT "#$*,?:;=@/<>\|äöüßÄÖÜ'¦ +. ..- Ý[]®¥AOUSAOU“LÏ"NAME OF END-FILE",00 IFST=64TÈRÕÃÂÍ80EM64EM64TXTEMAILSENDHELO C64MAIL FROM:<RCPT TO:<DATAEHLO C64AUTH PLAIN> X-Mailer: Email64 on a C64 with 0.064 MB RAM and 0.001 GHz From: > Reply-To: <ÿÀ! ÿÀ!ÿ€!ÿ!E ÿ5 ÿ!E ÿ`%ÿ!E ÿ P¼¼€á3€â…$ê&;€'(Þ€Q€ Ž? ŒE  ƒ œ¢½ÿÿúèàÐõ ú©ú,©ô® Ÿ Že Ž” Œf Œ• H©ÿÿèÐÈŽx Ž— Œy Œ˜ ÿÿèÐÈŽÜ Ž¡ Œã Œ£ ©­ h ߎÿÿÿÿ­Îð ©ÿ¢ÿ ÿLÀ©~ Ò­ÿÿ0É}°É °, €ÉðÉÐ H©} ÒhI Òî­ Ðî® 8©ÿí­ ÐÊ©ÿí® Ðé~LÒ­„!Ð_8¥÷åûÐ¥øåüÐ8` ±ûÉ~ðæûÐå¦üèàîТà†üLó ¤û¦üÈÐèàîТàŒb!Žc!©óˆ!©!†!¢ÀŽ—!¢Žv!Žƒ!Ž¦!ŽQ#©î„!8¥÷íb!Ð¥øíc!ðŸ®ÿÿà~ÐL­#à}Ðîv!L˜#©ÿð ©v!ŠI ªŽÿÿ ÿ©ÿY†!ŠYŽˆ!©ÿL‰#LÞ"©!î ÿÐ!Ž"ŠÈ ÈŒ¦!  ) ð±\ б\)ï‘\L‰#ˆÐ àꎽ½ŠJ Œ…[…]©j…Z½½½…\î¦!L‰#ˆÐ Š ‘\î¦!L‰#ˆÐŠ ‘\î¦!©ÿ)ÉÿðÉÿðüL‰#ˆÐV­"J ©‘\È‘\ ©¾8LU"J ©½8LU"J  ©û8LU"J  ©÷8LU" ©Œ"")?³"Šð©L|"î¦!L‰#ˆÐ Ž{"î•uL‰#©ÿH ÿ¢ÿ0 qZ‘ZˆhqZ‘ZL²"q\‘\ˆhq\‘\Š ˆ±\8i‘\ˆ±\i‘\©ÿ-"")/ð©¦!L‰#®½½¼½½±Z™îˆø¼½½ÈŒƒ!L‰# 0oŠ Ð) 2#i ,#LÀ Ð-……J Œ…#*#©j…#)#© î¢ ½îðÊ÷L™ðÀÿ)ðJJiÿ¬½½™½½@#LÀÿ°îã"L©…L ÿðˆðˆð ÐàðÐàÿðàðà-ð à/ð©,©€,©@,¢,¢,¢—!ŽQ#îƒ!Ð î„!®„!àôðîb!Ð ®c!èàîТàŽc!LR!©ð­ƒ!®„!8é°ÊîŽî­b!…û­c!…ü®ƒ!¬„!Œú#©„!ÀôðÀîÐà°Ló ©ÿ͈!Р͆!Эƒ!¢ÿ`©¢ [8`êLØ% (, €0 +¢+¥Q$½T™ÿʈöî]Ðî\ ¥V8åP‘P¥WåQˆ‘P T ‘RˆŠ‘R '  ‘PˆŠ‘P¥Q¦V¤W O ¥QÉú;8¥VåT‚¥WåU~‚¢€ ‚Р ±R¢)/ð莂©~‚Ž‚ ¹py|‚™t‚ˆô` ™ š¢+½TúÊ÷  Œ%%±P™úÈÀö  ±R™úˆÀ°ö¥VåT¨¥WåUª°¢ Œ%%˜ 8qR#úŠˆqR"ú©ˆqR!ú©ˆqR ú ±R™úˆø ±R™úˆÀ°ö  ±R)¢Éð¢ÉЩÿÐ ©î)%)ð`Ž%ú©¢ú…P†Q©…R†S©,…V†W LŒX$ $$  ŒX$ ™LœŽú œîh‚­h‚¢ ÐŽú ú  ÷ ‘ œ©Àúîi‚­i‚¢  ú†VŒú©ÿú©ú©!ú©ú…W ±T‘VæTÐæUæVÐæW¥RåT¥SåU°å8¥Vªéú¥W¨éúúLJ êLe,î@‚Ð@‚ ¹p‚™tˆ÷ ¹py|‚™p™t‚ˆñL˜&û,E‚ö¢­@‚ɋЭ”‚ ªø, ݬ Ý­Ý8ýð‚˜ýñ‚°i`É0Ø` ÀÎ<&© 0­@‚ÉþðW  ÷©ç…X äÿx¢å†ÉRð<ÉAÐë©ý,P0©þ@‚L˜&  ÷­@‚ªJJJJ 0É:i ËŠ) 0É:i!ËL&© <&­E‚(¢­@‚ɋЭ”‚ ªø, Ý)8m ÝÉ`é`ñ‚­Ýð‚Ø­@‚îÎ&,D‚0LC' € œ©ÿú©ú©Àú©#ú©úîF‚­F‚ú ¹pð™ úÈÀ óŒú¢½ð ™ úÈèà òŠŒ/'¬ú™ ú©ÿiú¢Žúiª úLJ ­@‚É ° ©ã¢ L- É0°x Š œ¢½ýúÊ÷©…V©ú…W ¹J‚‘VˆÐø©‘VÈ©‘VeV…V,c‚0 ¹N‚‘VˆÐø©‘VÈ©‘VeV…V,c‚p ¹R‚‘VˆÐø©ƒ‘VÈ©‘VeV…V¦VŠ8éú úLJ É@°L±)É`° €Lx*ÉhðÉp°¢½à‚HÊ÷¢½4úÊ÷© L/*É€°L±)É°Lª)Ƀ°¢ Lƒ*ÐL¼+É…°©y¢Lb+Щ‚¢Lb+ɇLõ(¢Žý­`ÏN(½aÏýèàÿõ詨ýè­Ïh(¹‘ÏýèÈÀÿôŽÛ(©ýý ), €0 ,ª½ý¿(è½ýÆ(è½ýÍ()?Ô(èN¿(nÆ(nÍ(N¿(nÆ(nÍ(NÆ(nÍ(NÆ(nÍ(NÍ(NÍ(­ÿ‚™úÈ­ÿ‚™úÈ­ÿ‚™úÈ­ÿ‚™úÈàÿ¢ð©=ˆÊìÛ(ðˆ™úÈ™úÈL©+ЩU¢Lb+ɉ°0¢Ž‚‚©°ƒ‚¬k‚½^ð™úÈèÐô¢½‘Îð™úÈèÐô©>™úÈL©+Ð.¢¬k‚½jð™úÈèÐô®‚‚­ƒ‚P)½ÿ™úèÐîP)ÈÉ>ÐïL©+É‹°©t¢Lb+ðLœ)­”‚ ª½ø‚…V­k‚…T8é…Ré…P½ù‚…W)þ…U…S…QL$$Ð ÉÒРL\+Lí+ÉÀLq*­b‚Ib‚J,b‚°¢ÐPú¢ ½P‚™ʈö©ÀE‚¬@‚¢ÈÀ`ð¢0Àpð¢Œ½Ï *$*.*è Œj‚½Ï™,úÈèÀô ’ œ¢+½úÊ÷¢ /½0™ÿúˆÊö©0iÿ ú…V„W¢†P„Q¢†R„S8åPú8¥VåRúî î%î= TúŽú 'úŽú¦V¤WLJ ÉðL:,ÉÃL0+¢n )ð`ŽmŽoŒœ‚¢©tÊú “ œ©ÀE‚¢ÿ芮œ‚Ý‚©¦* 0ÔË­œ‚ ¦* ª Œj‚½ ‚™hèÈÀô©, €0©¢ú…P†Qi…R†Si…T†U…V†W¢ ½€‘RˆÊ÷ ¹p™t‚ˆ÷ÈŒ~‚ÈŒ‚©`x©y $©y©Px`ÐL¼+ÉÈðÉÊðÉÌÐL¼+ÉÐLé+8éĨÀ ðÀðˆˆˆ¹x¾€t+Žu+¢ ), €0 ,½ÿÿð™úÈèÐô¢­@‚ €ÉÄð¢0ÉÅн`ÏðŠ}`Ϧ+è½`Ï™úÈàÿô© ™úÈ© ™úÈ¢ú†W„V©¢ ), €0©¢ ,…P†R„T©ú…Q…S…U„V…W ” œL $Éà°;)ð8L¼+ – œ©, €0©¢ú…P†Qi…R†Si…T†U…V†W©y $©y`©{z8 ¼+©z`­@‚ÉðÐ ©õ¢ L- ­@‚ÉýÐî@‚L­ƒð $ @ Ë`êLå/Žú š¢ðp ±T,úPVÈÈÉРȱT) É ðKèÐHÉÐ4±TÉÀÐȱTÉ#ð  ÷î¨,¢à)  ÷î ÐL²,­¨,ð  ÷¢ðÉð Éð©Ð$ÉÐø ±TeT…TæU¥RåT¥SåU°…©àЩúi‚,úpi¨ œ¥Pi…T©î…U©ÿú©ú©!ú ±Pú©…V©ú…WL. ±T®ú,úPUÈÈàÐÉÐa©€D‚©ÈE‚ÐUàÐ)¢ÉРȱT) É ÐBLó-ÉðLó-±TÉÀÐȱTÉ#ðtèÐ(ÉðmÉðiÉðeÉðaÐàР±T™F‚ÈÀö°ÉðI ±Tæ-ˆ­úJ±T,úP%#àÐÀÐ ÐÀðÀð ÀÐ ©æ-,©À,©#‘VÈÀÿɘeV…VæW ±TeT…TæU¥RåT¥SåUL3-8¥Vªéú¥W¨éúú J ­úIÞ˨`©€ €©)k‚ „, …, † š© Í@‚ðJ@‚©ÇE‚©` ‡ š©I¢ [©«¢ [ éÉCÐ`É0ôÉ3°ð` ˆ š­@‚ÉðÐ ©ý,P0©þ@‚L&©` ‹ š­ ÑPðL3/©°,ÃÏP©`®`‚ð©`®ÈÏЩp®ðΩ0Í@‚ðj@‚ ±Tª­b‚àÐ €ÐàƒÐ @b‚©eT…T¥RåT°Ù­b‚Ð   ÷©ð@‚`¢½L‚dDÊñ ,b‚0PÛ ¢½P‚ˆÊö©ÀE‚©`©ÿ` Œ š­ ÑPÐïî ±T¢Éð¢É𢠱TL‚èÈÀõ˜eT…T¥RåT°Ô©`  š­ ÑPоî ±TÉÐ   ÷©ð@‚`ÉÐ#  ÷­c‚ €c‚ ¹P‚Јø0­b‚ €b‚ÐɃР  ÷­c‚ @c‚ ±TeT…T¥RåT°¥©`êL4 ’ š­@‚ÉhÐLœ1¢Ž0  ±PÙD‚ðÊÙH‚ðÎ0ÈÀëŠ ©  L÷­@‚É`ð)?É0ð` ±RÍ@‚Ðö¢É`ðÊÉpðÊŽœ‚¥Ri…T¦S†U ±T)úÉ€ÐȱT)ðÉÐ©ê¢ [©ð@‚L&î0È`ȱTðî2ÈȱT©0ȱTРȱTÐî3È`©ÿÖ0¥T¦Ui è…X†Y¢ ± XðÉ@æXÐæYÐ 8eX…XéæYÐå¥Xi…XæYÊÐ×¢ ±XðÉ@æXÐæYÐ 8eX…XéæYÐåȱXÐȱXÉРȱXÐȱXÉð  ±XHȱXi æYeX…XheY…YÊЯðRÊŽÖ0  ±XÐȱXÉðî4ÈL;1­œ‚ª ‚þ‚ ªÈ±X ‚èÀõ8˜eX…XæY®Ö0𮜂àð½‚É°LÕ0®œ‚½‚Ðî@ÈL„1­@‚É`Ðéi@‚©`¢ ±PÝà‚ðL0ˆ!Êò¥Ri…T¦S†U©®óÎ Ü ÜŽ ÜÜ¢Žƒ¢ŽƒŽƒŽƒÊŽƒŽƒîƒ¢­ƒ)ð¢ 8±Tý†‘Tʈõ°â­ƒÍòÎÐÚèèèè ±T}†‘Tʈõ¢­ƒ)Ðð ­ƒ)Т 8±TýŽ‘Tʈõ°âèèèè ±T}Ž‘TʈõƒÉТ­ƒð)ТЭƒ)Ð ðóÉiJ¢ ¢ 8±Tý–‘Tʈõ°Ãèèèè ±T}–‘Tʈõ8"±Tù¥‘TˆÐö°î ±Ty¥‘TˆÐö8±Tù¨‘TˆÐö°î ±Ty¨‘TˆÐö8±Tù«‘TˆÐö°î ±Ty«‘TˆÐö ±Tƒø ©¾ƒðiÊÐû™ƒˆíØ  ÷  Ëø, Ü­ ܬÜmƒÉ`é`H­ƒiÉ`é`H­ƒi®ñÎvHŠ)Z3h8éÿ°xi$H­ƒ8éƒÐi­ƒéƒÐ­ƒéƒ­ƒéƒ©ƒ­ƒ¢(ÉÐ#­ƒð I)ÐèЭ#ƒ I)Ð ðíÉi¢0J莃LÔ3mñÎÉ$é$H ^øhƒ¢­ƒð ¢’ÉðigªŽƒŠÉðÉ’ÐI€ Üh Üh ÜŒÜØ  ÷  Ë©°®`‚ð©pLá%êL8:¥d¦eL©4©0G‚º5¢ÝIÈÐEÊø­º50=©-¢ [ éðû©à á% À  ð©•¢ ? éÉ1ðí¢€É2ð ¢ÀÉ3Ð펺5 À©0д©Ì@‚ Œ(5Œ05Œ¹4® ŽÂ4ÊŽ˜4Œÿ¯ˆ© ÈÑdÐû˜¦ee$dè8åf¨°ÊŽ¿4¥f¾4¢˜ð¹ÿÿÿèð0ÈÐôî¿4­¿4ÅgÐꎹ4Š®Â48é°Êé4Žê4 ¹ÿÿٴЈõL¦5îÂ4­Â4ÉÀÐÆŽ¹4Œ}8L£58©í¹4ª©ÀíÂ4É¢©Ž{z ä%©m{‚(5©mz‚05É°`é05¢8½)ÈiÉ:©0)ÈÊí©>(È¢8½9ÈiÉ:©09ÈÊí©>8È¢½IÈéÉ0°©9IÈ° Êí¢©0IÈÊú¢©0ÝIÈЛÊø%Žp8©{z ä%©z À©ÐLe7L’7 Œº5,ÃÏ0p'LŽ6¢½§€Ê÷¢8½§iÉ:©0§ÊíL+7 $­ƒªJJJJ 0€Š) 0€­ƒªJJJJ 0€Š) 0€­ƒÉ i0€­ƒªJJJJ 0€Š) 0€­ƒªJJJJ 0€Š) 0€­ƒªJJJJ 0€Š) 0€­ƒªJJJJ 0€Š) 0€© €€L+7­ š6 © ÙÿðÈÐøî&š6®š6àÀӀÊ÷0t© ÐâŒ×6Œò68˜í¹4­š6Ø6ó6íÂ4°Ö¢½ÿÿàÐÉ ðÉÉ.ðÅÝ»ÐÍèàÐç¢ ½ÿÿÉ ð/É  ÙâйøЈó¨0É`)_,© €èàÒ° © €èàö  ð5©º¢ ? éÉ1Ð  ð©•¢Ðë©0¢ÝIÈÐÙÊø©-¢ÐÙÉ2ðÉ3ðÐÒ­ ®¹4¬Â4  ð©à¢ ? 颀É1ð ¢ É2ð¢ÀÉ3Ð뎺5­¹4®Â48逰Ê'¯7Ž°7® ÊŽ³7¢{½€¿€¯]9ð8èñ°L8 ¢©0ÝIÈÐaÊø­º5Ll8˜Ð' @Œÿ7  ð©•¢ ? éÉ1ðíÉ2ðÉ3ÐñL}7 ÿÐÂ0  ð ©Ù¢ ?Lz7©-¢ [­ Â4¢Ž¹4 éðû €Ð¯˜;  ð6©º¢ ? éÉ1Ð  ð©•¢Ðë©0¢ÝIÈÐÙÊø©-¢ÐÙÉ2ðÉ3ÐÔL}7 À©ð`­ Â4¢ LÆ4  ð:©Ù¢ ?  ð©•¢Ðò À© ,º5pÐð éÉ1ÐLd9É2ÐL9É3ÐëL9­º50È À¢½IÈéÉ0°©9IÈ° Êí¢©0IÈÊú­ÂÏð0©S¢ [ éÉNð ÉYÐõ©ÍLá%­'ÈÍ#ÈÐ ­&ÈÍ"ÈЩÎLá%î#È­#ÈÉ:Ðî"È©0#Èîn‚¢­"ÈÉ0𠢬´è­#È¢¬´©­µ¥© £©3¤ ©0™)È™1Ȉ÷© .È6È©/È7È© (È0È®n‚½dÉ©9 ™1Ȉq LDA$DC0B;STUNDEN 12 01 -09 10 -11 92 81 -89 90 -91·khq LDY#$00; 12A 01A-09A 10A-11A 12P 01P-09P 10P-11PÄkrq CMP#$12Ýk|q BCCL29554;B.I.01-11ók†q BEQL29564;B.I.12lq LDY#$12 lšq CMP#$92#l¤q BEQL29564;B.I.12Ol®q SBC#$67;81-91->13-23 BCD (CARRY=CLOSE)^l¸qL29554 TAYzlÂqL29564 LDX$DC0A;MINUTEN‘lÌq LDA$DC09;SEKUNDENŸlÖq BIT$DC08¨làq SEC±lêq PHAÀlôq SBCDASECUÉlþq PLAØlr STADASECUílr TXA;CIA-MINUTENülr SBCDAMINU m&r STXDAMINU m0r TYA;CIA-STUNDEN/m:r SBCDAHO24>mDr STYDAHO24MmNr BCSL29003amXr;"------------ ¡mbrL28493 SED;INCREMENT DATE (DARF Y NICHT AENDERN) INDATEËmlr LDADATDAY;!ALLES IN BCD NICHT HEXDEZÔmvr CLCám€r ADC#$01ðmŠr STADATDAYÿm”r LDADAMONT nžr CMP#$02-n¨r BNEL28783;B.I.NICHT FEBRUARSn²r LDX#$28;BCD FEBRUAR MIT 28 TAGEN“n¼r LDADAYEAR;BCD: 00 01 02 03 04 08 09 10 11 12 16 17 18 19µnÆr BEQL28693;B.I.1900 2000 2100ïnÐr ASL; 00 02 04 06 08 10 12 20 22 24 2C 2E 30 32)oÚr ASL; 00 04 08 0C 10 20 24 40 44 48 58 5C 60 64coär ASL;  00 08 10 18 20 40 48 80 88 90 B0 B8 C0 C8|oîr BPLL28653;B.I.00-09ºoør EOR#$10;=10-19 90 98 80 A0 A8 D0 D8þosL28653 AND#$18; 00 08 10 18 00 00 08 10 18 00 00 08 10 18p s BNEL28843;B.I.01 02 03 05@psL28673 LDX#$29;29 TAGE FEBRUARRp s BNEL28843;" ‚p*sL28693 LDADACENT;JAHRHUNDERT =190 2000 2100‹p4s ASL”p>s ASLpHs ASL¬pRs BPLL28753¹p\s EOR#$10ÌpfsL28753 AND#$18øpps BNEL28843;B.I.1900 2100 2200 2300 2500qzs BEQL28673;2000 2400 2800" Sq„sL28783 CMP#$08;=NICHT FEBRUAR 01-07 08 09 10 11 12 BCDˆqŽs ADC#$00; 01-07 09 10 11 12 13 BCD‘q˜s LSR¬q¢s LDX#$30;30 TAGE MONAT»q¬s BCCL28843Öq¶s LDX#$31;31 TAGE MONATëqÀsL28843 CPXDATDAYrÊs BCSL29003;B.I.KEIN UEBERTRAG BEIM TAGERHOEHEN,rÔs LDX#$01;rÞs STXDATDAYJrès LDADAMONTWròs ADC#$01früs STADAMONTsrt CMP#$13‚rt BCCL29003‘rt STXDAMONT r$t LDADAYEAR­r.t ADC#$00¼r8t STADAYEARËrBt LDADACENTØrLt ADC#$00çrVt STADACENT s`tL29003 CLD;DARF Y NICHT AENDERNEsjt RTS;========================== ====================" ‹sttL29023 LDADATDAY;COPY&PRINT DATE COPRDAÃs~t TAX;Y=00 => GIBT +0000 AUS (+0000) (=NETTIME-ZEIT)ïsˆt LSR;Y<>0 => GIBT ORTSZEIT AUS (+-0.00)øs’t LSRtœt LSR t¦t LSRt°t ORA#$30+tºt STAVIRAST+$3209 tÄt STA$8310BtÎt TXAOtØt AND#$0F\tât ORA#$30ptìt STAVIRAST+$321‚töt STA$8311;DAYtu LDA#$20£t u STAVIRAST+$322±tu STA$8312×tu LDADAMONT;MONAT BCD 01-09 10-12ät(u CMP#$0Aÿt2u BCCL29233;BCD->HEXDEY#ux STAVIRAST+$330myHx STA$8320;MINUTEzyRx LDA#$3AŽy\x STAVIRAST+$331œyfx STA$8321«ypx LDADASECU´yzx TAX½y„x LSRÆyŽx LSRÏy˜x LSRØy¢x LSRåy¬x ORA#$30ùy¶x STAVIRAST+$332zÀx STA$8322zÊx TXAzÔx AND#$0F*zÞx ORA#$30>zèx STAVIRAST+$333Tzòx STA$8323;SECUNDEazüx LDA#$20uzy STAVIRAST+$334ƒzy STA$8324’zy LDX#$2B;+›z$y TYAÊz.y BEQL30273;B.I. GMT NETZEIT +0000 AUSGEBENýz8y LDA$CEF1;TIME DIFFERENCE OF GMT TO C64 !BCD!'{By BPLL30273;B.I. + IM VERGLEICH ZU GMT6{Ly LDX#$2D;-P{VyL30273 STXVIRAST+$335^{`y STX$8325g{jy TAXp{ty LSRy{~y LSR‚{ˆy LSR‹{’y LSR˜{œy AND#$07¥{¦y ORA#$30¹{°y STAVIRAST+$336Ç{ºy STA$8326Ð{Äy TXAÝ{Îy AND#$0Fê{Øy ORA#$30þ{ây STAVIRAST+$337 |ìy STA$8327;ZEITDIFFERNZ ZU GMT-|öy LDA#$30A|z STAVIRAST+$338O| z STA$8328c|z STAVIRAST+$339q|z STA$8329‰|(zL30483 RTS;------" Ï|2zL30562 JSRWA01SE;WAIT 1.1 SECONDS HOOK UP MODEM HOUPMOß|MODEM IST JETZT IN COMMANDO MODUSo}‚z LDA#$41;"A~}Œz JSRBYRSOUŽ}–z LDA#$54;"T} z JSRBYRSOUÐ}ªz LDA#$48;"H =SOFTWARE-HANGUP SOFTWARE-AUFLEGENß}´z JSRBYRSOUï}¾z LDA#$30;"0þ}Èz JSRBYRSOU~Òz LDA#$0D;CR~Üz JSRBYRSOU8~æz JSRWA01SE;1.1S WARTENi~ðz JSR$C015;DTR AUF INACTIV HARDWARE-AUFLEGEN¨~úz JSRWA01SE;3.3 SECONDS WARTEN, WEIL Z.B. BEI USERPORT SEINå~{ JSRWA01SE;KANN, DASS NACH ADAPTER-RESET DTR AUF EINGANG{ JSRWA01SE;GEHT=> EVTL WIRD DTR INDIREKT AKTIV+{ LDA#<(TXPRAK)>"{ LDX#>(TXPRAK)M,{ JSRPRTEXTZ6{ LDY#$00u@{ STYWABUSE;KEIN WARTENJ{ JSRPRMENO;SCROLLEN F.PLATZ F.DATUMÀT{ JMP$C018;ADAPTER RESET-"--- Õ^{L29424 LDADATDAY €h{ BEQL29754;B.I.KEIN DATUM V.ZEITSERFER GEHOLT WURDE+€r{ JSRACTDAT;ACTUALIZE DATE8€|{ LDY#$40W€†{ JSRCOPRDA;COPY&PRINT DATEo€{L29754 RTS;------" ¾€š{;=========================================================================Ó€¤{L28580 LDASESTATà€®{ CMP#$FE{ BEQL31416 Â{ JSRHOUPMO;HOOK UP MODEMAÌ{L31416 BIT$CFC3;KIND OF SAVE-FILENAME GENERATIONPÖ{ BPLL31512]à{ LDY#$60€ê{ JSRSEFLCO;SEND FLOPPY COMMANDžô{ LDY#$00;S0 S255:EM64COFIÁþ{ JSRSEFLCO;SEND FLOPPY COMMANDÎ| LDA#$08á| LDX#<(TXCOFI)ô| LDY#>(TXCOFI)‚&| JSRSAVFIL,‚D|L31512 LDXSTPOBE;STACK POINTER BEGIN5‚N| TXSB‚X| LDA#$14P‚b| STA$D018]‚l| LDA#$07k‚v| STA$DD00x‚€| LDA#$04†‚Š| STA$0288“‚”| LDA#$31¡‚ž| STA$0314®‚¨| LDA#$EA¼‚²| STA$0315Ê‚¼| STA$8004Û‚Æ| LDA#$4C;JMPø‚Ð| STA$54;ZEROPAGE RESTOREƒÚ| STA$CFFF;LOESCHT EMAC VORHANDENBƒä| STA$03FF;LOESCHT INPR VORHANDENQƒî| LDADNSYFI^ƒø| LDX#$30pƒ} BNEL28710;" ƒ }L28680 INXˆƒ} SEC•ƒ } SBC#$0A¨ƒ*}L28710 CMP#$0A·ƒ4} BCSL28680ă>} ORA#$30׃H} STATXLOEF+$1AêƒR} STXTXLOEF+$19÷ƒ\} LDY#$C0„]} LDADOEMNY;DOWNLOADED EMAILS NO YESF„^} BNEL32096;B.I.EMAILS DOWNGELOADEDS„_} LDY#$E0‚„`}L32096 JSRSEFLCO;SENDET COMMANDO AN FLOPPY„a} LDY#$E7›„b} STY$01¨„e} LDX#$00Єf} LDADOEMNY;DOWNLOADED EMAILS NO YES÷„p} BNEL28800;B.I.EMAILS DOWNGELOADED…z} LDX#$10;KEINE EMAIL DOWNGELOADED3…„}L28800 LDA$CE20,Xd…Ž} BEQL29010;B.I.KEIN FILE GELADEN WERDEN SOLLq…˜} LDY#$F0‡…¢}L28830 LDA$CE20,XÄ…¬} STATXLOEF-$F0+7,Y;KOPIERT FILENAME IN TEXT LOAD ENDFILEÍ…¶} INXÖ…À} INYå…Ê} BNEL28830ò…Ô} LDX#$00 †Þ}L28890 LDATXLOEF,X†è} BEQL28940&†ò} JSR$FFD2/†ü} INXA†~ BNEL28890;" T†~L28940 LDX#$05`†~ STX$C6m†$~ LDA#$0D­†.~L28970 STA$0277,X;TASTATURPUFFER MIT CARIAGE RETURN FUELLEN¶†8~ DEXņB~ BPLL28970ó†L~;!!!NOCH RRS232+I/O-ROUTINEN OFF-SCHALTEN‡V~L29010 LDY#$E7‡`~ STY$01$‡j~ RTS;-----" K‡t~;==============================" b‡¨÷L63400 LDA#$4C;JMPp‡²÷ STA$07E8ƒ‡¼÷ LDA#<(L46001)‘‡Æ÷ STA$07E9¤‡Ð÷ LDA#>(L46001)²‡Ú÷ STA$07EA¿‡ä÷ LDA#$00̇î÷ LDX#$A1ò‡ø÷ STAL21523+1;SEND-BUFFER AUF A100ˆø STXL21523+2R“ˆ ø;=========================================================================aˆø .IFMODE=2uˆ ø .AP"3-MAIN*",8~ˆ*ø .EL‡ˆ4ø .EN”ˆ>ø .EI;" AGE RETURN FUELLEN¶†8~ DEXņB~ BPLL28970ó†L~;!!!NOCH RRS232+I/O-ROUTINEN OFF-SCHALTEN‡V~L29010 LDY#$E7 О2061L‹ PRESS 0 - 9 I/O-ERROR NOT FOUND INSERT DISK OR RESET DRIVES! PRESS KEY ILLEGAL MODEM-COMMAND IN LINE ABOVE. RUN 'CONFIG-INPR' AND CORRECT COMMAND. PRESS 'SPACE' FOR CONTINUE OR '_' FOR ESCAPE TYPE 1-9 FOR DOWNLOAD OR D  FOR DISPLAY DISCONNECT MANUALLY - PRESS SPACE IF THERE ARE AT-COMMANDS ON THE SCREEN THEN WAIT 30 SECONDS IF THERE ARE NO AT-COMMANDS ON SCREEN THEN RESET AND INVERT INNIIN ($0348) AT 'CONFIG-INPR****' PROGRAM #2G_uŽ©3M`§Ì_ ! WRONG ADDRESS/CONTROLL FIELDILLEGAL LENGTHILLEGAL COMMAND CODEWRONG USERNAME/PASSWORDILLEGAL PROTOCOL CODENO CLIENT-IP NEGOTIATIONNO DNS ADDRESS NEGOTIATIONSERVER DOESN'T SEND DNS ADDRESS. ASK YOUR PROVIDER FOR THE (PRIMARY) DNS ADDRESS" AND INPUT IT AT THE CONFIGURE INTERNET PROVIDER PROGRAMMIP/UDP/TCP-CHECKSUM ERRORWRONG ADDRESS/PORTNO EMAIL - DISCONNECT MANUALLYSERVER WANTS WRONG AUTHENTICATE (?CHAP)SERVER ACCEPTS PAP-AUTHENTICATE - OKYOU MUST USE A DIFFERNT SERVER THAT AC- C#EPTS PAP. DISCONNECT MANUALLY & RESETRECEIVED 10 TIMES NO ANSWER FROM SERVER RETRY? ABORT? ERROR IN 'LIST' ANALYSIS1 DOWNLOAD AS USUAL 2 SKIP (AND DOWNLOAD NEXT TIME)3 DELETE !!YOU WILL NEVER KNOW THE CONTENT OF THIS EMAIL!! PRESS 1-3P$RESS 1-2ARE YOU SHURE? YOU WILL NEVER KNOW THE CONTENTS OF THIS EMAIL PRESS 'DE' FOR DELETE DELETE (Y/N) WAIT UNTIL MODEM IS OFFLINE THEN PRESS ANY KEY EMAILSERVER WANTS TO FINISH CONNECTION.FINISH OR TRY TO CONTINUE (F/C) EMAILSERVER WANTS TO %RESET CONNECTION.RESET OR TRY TO CONTINUE (R/C) RESCEIVED WRONG ACKNOWLEDGE NUMBER IMTERNETPROVIDER SENDS TERMINATE REQUEST 4 = QUIT&FIN&TERM-RQST&HANGUP 3 = FIN&TERM-RQST&HANGUP 2 = TERMINAT-REQUEST&HANGUP 1 = HANGUP C = (TRY TO) CONTINUE PRESS 'C'& OR NUMBER NOT ENOUGH SPACE FOR ALL EMAILS ON DISK NOT ENOUGH SPACE FOR THIS EMAIL ON DISK -A NEW DISK (IS INSERTED) -B DOWNLOAD -C SKIP THIS EMAIL -D QUIT DIR ERROR 1 RETRY 2 SKIP 3 QUIT OPEN ERROR 1 RETRY 2 SKIP 3 QUIT SAVE ERROR 1 'AGAIN 2 SKIP 3 QUIT CLOSE ERROR 1 AGAIN 2 SKIP 3 QUIT DISK FULL - INSERT NEW DISK - PRESS KEY LOAD ERROR 1 AGAIN 2 SKIP 3 QUIT ERROR AT MAKING FLAG THAT EMAIL IS SENT (=RENAME ERROR). LOOK THAT SAME EMAIL ISN'T SEND AGAIN NEXT TIME DOMAIN DOESN'T EXIST ERROR MESSAGE FROM SERVER 7 = TRY TO REPEAT 6 = SKIP THIS COMMAND 5 = NEXT ACTION 4 = QUIT 3 = FIN 2 = TERMINATE 1 = HANGUP CRC-ERROR êLñOKCONNECTERRORFIN SYN RES PUS ACK URG . EM64MOAD00*EM64-INETPROVIDREM64-EMAILACOU-*$EM64INC\_ JSR$FFCFªCf_ CMP#$45;E¹Cp_ BNEL24362ÊCz_ LDAL23732+1×C„_ ORA#$30åCŽ_ JSR$FFD2òC˜_ LDA#$20D¢_ JSR$FFD2 D¬_ LDA#$45D¶_ BNEL24062;" 3DÀ_L24012 JSR$FFB7HDÊ_L24022 BNEL24362VDÔ_ JSR$FFCFcDÞ_ CMP#$22rDè_ BEQL24102†Dò_L24062 STA$E000”Dü_ JSR$FFD2¥D` INCL24062+1·D` BNEL24012;" ÊD`L24102 LDA#$20ØD$` JSR$FFD2ýD.`L24122 LDA#$00;DEVICENUMBER 8-30E8` LDXL23732+1EB` STA$E0F0,X/EL` LDX#$30;"0"AEV` BNEL24192;" PE``L24172 INX]Ej` SBC#$0ApEt`L24192 CMP#$0AE~` BCSL24172ˆEˆ` PHA‘E’` TXAŸEœ` JSR$FFD2¨E¦` PLAµE°` ORA#$30ÃEº` JSR$FFD2ÐEÄ` LDA#$0DÞEÎ` JSR$FFD2ïEØ` INCL23732+1Fâ`L24302 JSR$FFB7Fì` BNEL24362 Fö` JSR$FFCFAFa TAX;GEHT BIS ENDE DER ZEILEPF a BNEL24302bFa JMPL23732;" uFaL24362 LDA#$02‰F(a JSR$FFC3;CLOSE¥F2a JSR$FFCC;CLEAR CHANNEL¶F(LOFINA);" LÐcL24992 PHA;LOAD FILE LOAFILLÚc LDA#$80Läc STA$9D'Lîc LDA#$E77Løc STA$01;ROM@Ld PLAWL d JSR$FFBD;FILENAMEƒLd;A=LAENGE X=LOWBYTE Y=HIGHBYTE FI LENAMEŸL d LDA#$00;LOG FILENUMMERµL*d STA$D404;TON AUSßL4d LDXDNSYFI;DEVICE NUMBER SYSTEM FILESôL>d LDY#$01;SEK-ADRMHd JSR$FFBA;FILEPARAMETER'MRd LDA#$00;LOAD-FLAG:M\d;LDX;START LOWNMfd;LDY;START HIGHaMpd JSR$FFD5;LOAD}Mzd;BIT ???? SCPU AUF 1M HZ˜M„d JSR$FFB7;STATUS HOLEN«MŽd CLC;FLAG F.OK¸M˜d AND#$BFÇM¢d BEQL25382ÔM¬d LDX#$00ëM¶dL25212 LDATXIOER,XúMÀd BEQL25282(NÊd JSR$FFD2;IN PRINTTEXT AENDERN!!!!!!!????lNÔd;ODER NUR GANZ AM ANFANG LADEN, SODASS DIE ERSTEN BEIDEN ZEILENŽNÞd;NOCH GA R NICHT GESETZT SIND?—Nèd INX±Nòd BNEL25212;-------" ÄNüdL25282 LDY#$00ÛNeL25292 LDATXPRKE,YêNe BEQL25342Oe JSR$FFD2;ODER PRTEXT???O$e INY"O.e BNEL25292;" 6O8eL25342 JSR$FFE4?OBe TAXNOLe BEQL25342dOVe SEC;FLAG F.ERRORsO`eL25382 PHP€Oj e LDA#$0DŽOte JSR$FFD2—O~e PLP Oˆe SEIÂO’eL45432 LDA#$E5;%11100101 RAMâOœe STA$01;REM FLASH8 AUF 1MHZöO¦e RTS;-------" 6P°eL28000 PHA;SAVE FILE SAVFILCPºe LDA#$80OPÄe STA$9D\PÎe LDA#$E7lPØe STA$01;ROMuPâe PLAŒPìe JSR$FFBD;FILENAME¸Pöe;A=LAENGE X=LOWBYTE Y=HIGHBYTE FILENAMEâPf LDXDNSYFI;DEVICE NUMBER SYSTEM FILESþP f JSR$FFBA;FILEPARAMETER Qf LDX#$A7Qf LDY#$02.Q(f STX$C1;START LOWEQ2f STY$C2;START HIGH\Qi JSR$FFD2;BASOUTXHiL46702 INYXRi INXX\i CPX#$20*Xfi BCCL46684EXpiL46732 JSR$FFB7;STATUSTXzi BNEL46910aX„i LDX#$0FuXŽi JSR$FFC6;CHKIN„X˜i JSRPRSCSC“X¢i JSRPRSCSC X¬i LDY#$58ºX¶iL46810 JSR$FFCF;BASINÇXÀi CMP#$0DÖXÊi BEQL46910ûXÔi STAVIRAST+$2C8,Y;02C8+0058=0320YÞi CPY#$58Yèi BNEL46880$Yòi CMP#$303Yüi BEQL46880DYj INCL46930+1SYjL46880 INYbYj BMIL46910wY$j JSR$FFB7;STATUS†Y.j BEQL46810 Y8jL46910 JSR$FFCC;CLRCH³YBjL46930 LDA#$FFÌYLj BEQL46933;B.I.00,OKìYVj NOP;FEHLERMELDUNG AUSGEBEN,Z`jL46933 RTS;----------------------------------------------" pZjjL46000 LDA#$E7;SEND FLOPPY COMMAND  SEFLCO€Ztj STA$01;ROMŸZ~j STYL47666+1;BEGINN BEFEHLÝZˆj LDA#$00;KEIN FILENAME (ABER DADURCH WIRD $90 NICHT GELOEþZ’j STA$90;KEINE KERNAL-ADRESSE&[œj JSR$FFBD;X=LOW Y=HIGH NAMEN ANFANGB[¦j LDA#$0F;LOG FILENUMMER_[°j LDXDNSYFI;GERAETENUMMER[ºj TAY;SEKUNDAERADRESSE 0F=15›[Äj JSR$FFBA;FILEPARAMETER®[Îj JSR$FFC0;OPEN»[Øj LDX#$0FÎ[âjL47666 LDY#$FFë[ìj JSRL46001;BEFEHL SENDENø[öj LDX#$0F \k JSR$FFC3;CLOSE\ kL46960 LDA#$E5+\k STA$01e\k RTS;==============================================" ˆ\(k;VECTOR ENDE: WIRD GESCHRIEBEN©\2k;VECTOR ANFANG: WIRD GELESENé\(TXMOOK+1)wb”m LDY#$02;LAENGE†bžm BNEL26232™b¨mL26102 CMP#$43¨b²m BNEL26172±b¼m PHAÏbÆm LDA#<(TXMOCO+1);"CONNECTäbÐm LDX#>(TXMOCO+1)øbÚm LDY#$07;LAENGEcäm BNEL26232cîmL26172 CMP#$45)cøm BNEL265022cn PHANc n LDA#<(TXMOER+1);"ERROR!ccn LDX#>(TXMOER+1)wc n LDY#$05;LAENGEŽc*nL26232 STAL26302+1—c4n PLA¾c>n STAL26442+1;1.ZEICHEN DER MELDUNGÏcHn STXL26302+2ØcRn DEY÷c\n STYL26002+1;MELDUNGLAENGEdfn BNEL26502;-------" &dpnL26302 CMP$FFFF5dzn BEQL26342Bd„n LDA#$00\dŽn BEQL2"6402;-------" sd˜nL26342 INCL26302+1‚d¢n BNEL26372“d¬n INCL26302+2ªd¶nL26372 DECL26002+1¹dÀn BNEL26502ÆdÊn LDA#$FFÝdÔnL26402 STAL26002+1÷dÞn JMPL26502;-------" &eènL26422 CMP#$0A;WARTET AUF ENDE DER MELDUNGIeòn BNEL26502;B.I.NOCH NICHT ENDEw#eünL26442 LDA#$00;ERSTES ZEICHEN DER MELDUNGeo CMP#$45;"E ERROR¬eo BNEL26632;B.I.NICHT ERRORÔeo LDA#<(TXILCO);TEXT ILLEGAL COMMANDçe$o LDX#>(TXILCO)öe.o JSRPRTEXT f8oL26502 LDA$DC01fBo CMP#$EF;SPACE,fLo BEQL26602@fVo CMP#$FD;ESCAPEOf`o BEQ$L26562^fjo JMPL25792qftoL26562 LDA#$E7}f~o STA$01†fˆo PLAf’o PLA£fœoL26602 LDX$DC01¬f¦o INX»f°o BNEL26602ÕfºoL26632 RTS;-------" $gÄo;=========================================================================7gÎo JMPL63400;" [gØoL21503 LDXR%OIOSE;RS232 BYTE OUT‰gâo BNEL21613;B.I.KEIN SEND-BUFFER SPEICHERNÇgìoL21523 STA$FFFF;SPEICHERT BYTE IN SEND BUFFER ZUR ANALYSEïgöo INCL21523+1;SEND-BUFFER: A100-AEFF-hp BNEL21613;NUR WENN ROUTINE INPUT/OUTPUT SEND&RECEIVE=#00gh p LDXL21523+2;A000-A&015=SPRUNGTABELLE RECEIVED TO SAVE”hp INX;AFFB-AFFF= ZWISCHENSPEICHER ENDFLAG¡hp CPX#$AF°h(p BNEL21603½h2p LDX#$A1ÔhJŠ4L13450 .BY$0D;TEXT ERROR MESSAGE FROM SERVERaJ”4 .TX"ERROR MESSAGE FROM SERVERmJž4 .BY$0DˆJ¨4 .TX"7 = TRY TO REPEAT”J²4 .BY$0D³J¼4 .TX"6 = SKIP THIS COMMAND¿JÆ4 .BY$0DØJÐ4 .TX"5 = NEXT ACTIONäJÚ4 .BY$0DöJä4 .TX"4 = QUITKî4 .BY$0DKø4 .TX"3 = FINK5 .BY$0D6K 5 .TX"2 = TERMINATEBK5 .BY$0DVK 5 .TX"1 = HANGUPfK*5 .BY$0D,$00K+5L13452 .BY$0D;TEXT CÚRC ERROR TXCRER¢K,5 .TX"CRC-ERRORµK-5 .BY$0D,$00;" ÄK¨÷L13620 NOPL²÷;========================================================================="L¼÷ .IFMODE=26LÆ÷ .AP"1-MAIN*",8?LÐ÷ .ELHLÚ÷ .ENULä÷ .EI;" ERVERmJž4 .BY$0DˆJ¨4 .TX"7 = TRY TOØ÷"N;!MIT ZEILE 20002 BEGINNEN ,N; .EQ MODE=0) 6N; .EQ MODE=18 @N .IFMODE=2A JN .ELR TN .EQZPA0=$50c ^N .EQZPA1=$51t hN .EQZPA2=$52… rN .EQZPA3=$53– |N .EQZPA4=$54§ †N .EQZPA5=$55¸ N .EQZPA6=$56É šN .EQZPA7=$57Ú ¤N .EQZPA8=$58ë ®N .EQZPA9=$59ü ¸N .EQZPB0=$60 !ÂN .EQZPB1=$61!ÌN .EQZPB2=$62/!ÖN .EQZPB3=$63@!àN .EQZPB4=$64Q!êN .EQZPB5=$65b!ôN .EQZPB6=$66s!þN .EQZPB7=$67„!O .EQZPB8=$68•!O .EQZPB9=$69¨!O .EQENRELO=$F7»!&O .EQENREHI=$F8Î!0O .EQBERELO=$FBá!:O .EQBEREHI=$FCô!DO .EQDNSYFI=999"NO .EQTXNOLO=999"XO .EQTXNOHI=999-"bO .EQTXSRLO=999@"lO .EQTXSRHI=999S"vO .EQTXSERE=999f"€O .EQTXPR09=999y"ŠO .EQLOFINA=999Œ"”O .EQTXIOER=999Ÿ"žO .EQTXMOOK=999²"¨O .EQTXMOCO=999Å"²O .EQTXNOFO=999Ø"¼O .EQTXPRKE=999ë"ÆO .EQTXNMIP=999þ"ÐO .EQBEBUHI=999#ÚO .EQENBULO=999$#äO .EQENBUHI=9997#îO .EQCRCLOW=999J#øO .EQCRCHIG=999]#P .EQCRCBYT=999p# P .EQCOOFON=999ƒ#P .EQAUNOYE=999–# P .EQWABUSE=999©#*P .EQCOFOAU=999¼#4P .EQSESTAT=999Ï#>P .EQSEIPAD=999 â#HP .EQCLIPAD=999õ#RP .EQPRIDNS=999$\P .EQSECDNS=999$fP .EQPRSEDN=999.$pP .EQSENEDN=999C$zP .EQSEBU01=$F400X$„P .EQSEBU02=$FA00k$ŽP .EQPSACCO=999~$˜P .EQPSIDAD=999‘$¢P .EQPRMERC=999¤$¬P .EQPRMESE=999·$¶P .EQPRMENO=999Ê$ÀP .EQLOAFIL=999Ý$ ÊP .EQBYRSIN=999ð$ÔP .EQWAMOME=999%ÞP .EQBYRSOU=999%èP .EQCYRECS=999)%òP .EQSEACCO=999<%üP .EQSEBUF4=999O%Q .EQSEBUFA=999b%Q .EQSEBUAC=999u%Q .EQANAPPP=999ˆ%$Q .EQSTANPP=999›%.Q .EQIDCORJ=999®%8Q .EQIDPRRJ=999Á%BQ .EQCSIPHE=999Ô%LQ .EQS EQNUM=999ç%VQ .EQFIIPHE=999ú%`Q .EQTCPHDR=999 &jQ .EQCSTCHD=999 &tQ .EQTXINPR=9993&~Q .EQTXEMAC=999F&ˆQ .EQFIIPUD=999Y&’Q .EQQTYQCL=999l&œQ .EQIAPOP3=999&¦Q .EQIASMTP=999’&°Q .EQCOEMAD=999¥&ºQ .EQACEMAD=999¸&ÄQ .EQTCHEOP=999Ë&ÎQ .EQCOSEAD=9 99Þ&ØQ .EQTXEMLO=999ñ&âQ .EQTXEMHI=999'ìQ .EQTXMOER=999'öQ .EQTXILCO=999*'R .EQROIOSE=999=' R .EQDACENT=999P'R .EQDAYEAR=999c'R .EQDAMONT=999v'(R .EQDATDAY=999‰'2R .EQDAHO24=999œ'WARTEN*.lT LDX#$27E.vTL21532 LDAVIRAST+$F0,X_.€T ORA#$80;=>TRENNLINIEt.ŠT STAVIRAST+$C8,XŠ.”T LDAVIRAST+$118,XŸ.žT STAVIRAST+$F0,Xµ.¨T LDAVIRAST+$140,XË.²T STAVIRAST+$118,Xá.¼T LDAVIRAST+$168,X÷.ÆT STAVIRAST+$140,X /ÐT LDAVIRAST+$190,X#/ÚT STAVIRAST+$168,X9/äT LDAVIRAST+$1B8,XO/îT STAVIRAST+$190,Xe/øT LDAVIRAST+$1E0,X{/U STAVIRAST+$1B8,X‘/ U LDAVIRAST+$208,X§/U STAVIRAST+$1E0,X½/ U LDAVIRAST+$230,XÓ/*U STAVIRAST+$208,Xé/4U LDAVIRAST+$258,Xÿ/>U STAVIRAST+$230,X0HU LDAVIRAST+$280,X+0RU STAVIRAST+$258,XA0\U LDAVIRAST+$2A8,XW0fU STAVIRAST+$280,Xm0pU LDAVIRAST+$2D0,Xƒ0zU STAVIRAST+$2A8,X™0„U LDAVIRAST+$2F8,X¯0ŽU STAVIRAST+$2D0,XÅ0˜U LDAVIRAST+$320,XÛ0¢U STAVIRAST+$2F8,Xè0¬U LDA#$20þ0¶U STAVIRAST+$320,X1ÀU DEX1ÊU BPLL215321ÔU TYA?1ÞU BEQL22112;B.I.NUR SCROLLENe1èU LDATXNOLO,Y;LOWMELDUNGEN NOTHING„1òU LDXTXNOHI,Y;HIGHMELDUNGEN•1üU STAL21932+1¦1V STXL21932+2³1V LDX#$00Æ1VL21922 LDY#$00Ü1$VL21932 LDA$FFFF,Xë1.V BEQL22112ø18V CMP#$402BV BCCL219822LV AND#$1F02VVL21982 STAVIRAST+$280,Y92`V INYB2jV INXO2tV CPY#$28^2~V BCCL21932g2ˆV TXAp2’V PHA}2œV LDY#$00¦2¦V JSRL21492;DARF L21932 NICHT AENDERN¯2°V PLA¸2ºV TAXÅ2ÄV LDY#$00Ø2ÎV JMPL21922;-" ö2ØVL22112 RTS;Y=SPALTE---" 53âVL22122 CLC;RCV RECEIVE SCROLLEN & AUSGEBEN (Y=TEXTNUMMER)A3ìV .BY$24Y3öVL22142 SEC;SND SENDt3W BIT$03FF;NOCH AENDERNÃ3 W; BPL L22172 ;B.I.KEINE AUSGABE DER PPP MELDUNGEN NOCH AENDER×3WL22172 LDA$DC01ä3W EOR#$FBó3(W BEQL2217242W LDX#$274TRENNLINIEL4PW STAVIRAST+$348,Xb4ZW LDAVIRAST+$398,Xx4dW STAVIRAST+$370,XŽ4nW LDAVIRAST+$3C0,X¤4xW STAVIRAST+$398,X±4‚W LDA#$20Ç4ŒW STAVIRAST+$3C0,XÐ4–W DEXß4 W BPLL222125ªWL22392 LDATXSRLO-$80,Y;LOW MELDUNGEN SND/RCV45´W LDXTXSRHI-$80,Y;HIGH MELDUNGENK5¾WL22412 STAL22852+1\5ÈW STXL22852+2m5ÒW LDX#$00;SND|5ÜW BCSL224625æW LDX#$04;RCV­5ðWL22462 BIT$DD0B;LATCHED UHR»5úW LDA$DD0AÄ5X LSRÍ5X LSRÖ5X LSRß5"X LSRì5,X ORA#$3066X STAVIRAST+$3C06@X LDA$DD0A6JX AND#$0F(6TX ORA#$30<6^X STAVIRAST+$3C1I6hX LDA#$3A]6rX STAVIRAST+$3C2k6|X LDA$DD09t6†X LSR}6X LSR†6šX LSR6¤X LSRœ6®X ORA#$30°6¸X STAVIRAST+$3C3¾6ÂX LDA$DD09Ë6ÌX AND#$0FØ6ÖX ORA#$30ì6àX STAVIRAST+$3C4ù6êX LDA#$2E 7ôX STAVIRAST+$3C57þX LDA$DD08(7Y AND#$0F57Y ORA#$30I7Y STAVIRAST+$3C6V7&Y LDY#$08u70YL22782 LDATXSERE,X;SND/RCV‹7:Y STAVIRAST+$3C0,Y”7DY INX7NY INYª7XY CPY#$0C¹7bY BCCL22782Ì7lYL22842 LDX#$00â7vYL22852 LDA$FFFF,Xñ7€Y BEQL22952þ7ŠY CMP#$40 8”Y BCCL229028žY AND#$1F68¨YL22902 STAVIRAST+$3C0,Y?8²Y INYH8¼Y INXU8ÆY CPY#$28d8ÐY BCCL228528ÚYL22952 RTS;Y=SPALTE---" ¡8äYL22962 PHA;PRINT DISK ERRORª8îY TXA³8øY PHAÀ8Z LDA#$4FÍ8 Z LDX#$80ù8Z JSRL23052;PRINTET FLOPPY-FEHLERMELDUNG9 Z PLA 9*Z TAX94Z PLA;" ;9>ZL23043 LDY#$80;PRINT TEXT BEEPW9HZ STY$D401;FREQUENZ HIGHd9RZ LDY#$11}9\Z STY$D404;SINUS & ONŠ9fZ LDY#$1E¤9pZ STYCOBEIR;30/60.IRQSì9zZL23052 STAL23102+1;LOWBYTE TEXTE PRINT TEXT :„Z STXL23102+2;HIGHBYTE TEXT:ŽZL23072 LDY#$006:˜Z JSRPRMENO;SCROLLENC:¢Z LDX#$00W:¬ZL23102 LDA$FFFFo:¶Z BEQL23292;B.I.ENDE€:ÀZ INCL23102+1:ÊZ BNEL23152 :ÔZ INCL23102+2 ³:ÞZL23152 CMP#$0DÖ:èZ BEQL23072;B.I.CARRIAGE RETURNã:òZ CMP#$20ò:üZ BCCL23232ÿ:[ CMP#$40;[ BCCL23242;[ AND#$1F';$[ .BY$2C:;.[L23232 LDA#$20V;8[L23242 STAVIRAST+$320,X_;B[ INXl;L[ CPX#$28{;V[ BCCL23102Ž;`[ BCSL23072;-" ¡;j[L23292 RTS;-!" È;t[L23293 LDY#$30;PRINT ERROR/WARNINGä;~[ STY$D401;FREQUENZ HIGHñ;ˆ[ LDY#$11 <’[ STY$D404;SINUS & ON<œ[ LDY#$1E1<¦[ STYCOBEIR;30/60.IRQSP<°[ STAL33102+1;LOWBYTE TEXTEo<º[ STXL33102+2;HIGHBYTE TEXT‹<Ä[L33072 LDX#$27;SCROLLEN¦<Î[L31532 LDAVIR"AST+$78,XÀ<Ø[ ORA#$80;=>TRENNLINIEÕ<â[ STAVIRAST+$50,Xê<ì[ LDAVIRAST+$A0,Xÿ<ö[ STAVIRAST+$78,X =\ LDA#$20!= \ STAVIRAST+$A0,X*=\ DEX9=\ BPLL31532F=(\ LDX#$00Z=2\L33102 LDA$FFFFr=<\ BEQL33292;B.I.ENDEƒ=F\ INCL33102+1’=P\ BNEL33152£=Z\ INC#L33102+2¶=d\L33152 CMP#$0DÙ=n\ BEQL33072;B.I.CARRIAGE RETURNæ=x\ CMP#$20õ=‚\ BCCL33232>Œ\ CMP#$40>–\ BCCL33242> \ AND#$1F*>ª\ .BY$2C=>´\L33232 LDA#$20X>¾\L33242 STAVIRAST+$A0,Xa>È\ INXn>Ò\ CPX#$28}>Ü\ BCCL33102>æ\ BCSL33072;" §>ð\L3329$2 RTS;------" ì>ú\L23302 JSR$C00F;IRQ-TIMER ON (DARF X&Y NICHT AENDERN) GET KEY'?] LDA#$E7;(^WICHTIG BEI ENHANCED UP NACH DISKZUGRIFFEN)7?] STA$01;ROM@?] CLIR?"] JSR$FFE4;GET[?,] SEIn?6] STAVIRAST+$0Aw?@] PHA„?J] LDA#$00’?T] STA$DC00Ÿ?^]% LDA#$E5¯?h] STA$01;RAM¸?r] PLAÅ?|] RTS;-" ï?†]L23442 LDA#$E7;SELECT LOAD PROGRAMS 1ÿ?] STA$01;ROM4@š] LDA#$00;LOESCHT ANZAHL GEFUNDENER DIR EINTRAEGEE@¤] STAL23732+1R@®] LDA#$0D`@¸] JSR$FFD2m@Â] LDA#$0D~@Ì] JMP$FFD2;" ¤@Ö]L23522 PHA;SELECT &LOAD PROGRAMS 2¾@à] LDA#$0A;NAMEN LAENGEÏ@ê] STXL24442+1à@ô] STYL24442+2Aþ] JSR$FFBD;X=LOW Y=HIGH NAMEN ANFANGA^ PLA,A^ TAX;DEVICENUMBER 8-30=A^ STXL24122+1YA&^ LDA#$02;LOG FILENUMMERwA0^ LDY#$00;SEKUNDAERADRESSE“A:^ JSR$FFBA;FILEPARAMETER'¦AD^ JSR$FFC0;OPENÁAN^ JSR$FFB7;STATUS HOLENçAX^ BNEL23762;B.I.DEVICE NOT PRESENTôAb^ LDX#$02Bl^ JSR$FFC6;CHKINBv^ LDX#$05/B€^L23692 JSR$FFCF;BASIN8BŠ^ DEXGB”^ BPLL23692YBž^ JMPL24302;" lB¨^L23732 LDA#$00yB²^ CMP#$0AˆB¼^ BCCL23772 BÆ^L23762 JMPL24362;" ¯BÐ^L23772 ASL¸BÚ^ ASLÁBä^ ASLÎBî^ ASL;*16ñBø^ STAL24062+1;SCHREIBVECTOR LOWþB_ LDX#$03&C _L23832 JSR$FFCF;LINK & ZEILENNUMMER/C_ DEX>C _ BPLL23832RC*_L23862 JSR$FFB7aC4_ BNEL24362oC>_ JSR$FFCF~CH_ CMP#$22;"CR_ BNEL23862›,SESTAT,SEIPAD,CLIPAD!L' .COPRIDNS,SECDNS,PRSEDN9!V' .COPSACCO,PSIDAD,PRMERC,PRMESE,PRMENO,LOAFILy!`' .COBYRSIN,WAMOME,BYRSOU,CYRECS,SEACCO,SEBUF4,SEBUFA,SEBU01!j' .COANAPPP,STANPP,FIIPUD,QTYQCLÏ!t' .COSENEDN,TXINPR,TXMOAD,TXEMAC,IAPOP3,IASMTP"~' .COIDCORJ,IDPRRJ,CSIPHE,SEQNUM,FIIPHE,TCPHDR,SEBUAC,CSTCHDH"ˆ' .COSEAURE,SENCOM,ANCORQ,ANLCAC,ANLCNA,ANLCRJ,ANNCACˆ"’' .COANNCNA,ANNCRJ,SECDRJ,SEPRRJ,ANUDDN,ANTCPP,EMADBP,EMADBSÁ"œ' .COACEMAD,TCHEOP,COSEAD,SEFIWR,TXEMLO,TXEMHI,SEIPCHú"¦' .COSEIPNC,TXDIIP,TXDIEA,SELOP1,SELOP2,SELOP3,DNSYFIA#°' .COTXNOLO,TXNOHI,TXSRLO,TXSRHI,TXSERE,TXPR09,LOFINA,TXIOER,TXMOOKz#º' .COTXMOOK,TXMOCO,TXNOFO,TXPRKE,TXPLWA,TXMOER,TXILCOº#Ä' .COSETCAN,TXCOBI,TXENFL,TXDIMA,TXTY1D,LTCPDL,LTCPDH,TCPDNYù#Î' .COWA01SE,LANGUA,TXTOP,TXRETR,TXDELE,TXSFRT,TXLENG,COEMAI9$Ø' .COPRTEXT,TXDOSK,TXDEPR,TXPR12,GETKEY,TXSHNK,TXNOSU,TXILCHr$â' .COTXSUCH,TXIOSA,TXIOLO,ROIOSE,DVIOSE,TXIALO,MOADTY²$ì' .COROIORE,DVIORE,TXIASA,TXDEYN,TXWAOF,TXLOEF,TXCBM8,PSTEREò$ö' .COTXESFI,TXESRE,EXSESE,EXSEAC,INFLRE,INFLSE,LTCPD0,AOSTD02%( .COAOSTDL,AOSTDH,APCOBI,APSYAC,APLISF,APTOPF,APRETF,APSTATr% ( .COAPLIST,APTOPS,APRETS,APDELE,APQUIT,APFINP,APINEM,APWRAC²%( .COTXWRAC,TXIPTR,ALTERE,ALTEAC,TXQFTH,TXFTHC,TXTHCP,TXHCPRò%( .COSETAIS,SETASA,TXNSAE,TXNSTE,TXDIER,TXOPER,TXSAER,TXCLER+&(( .COTXDIFU,PRDIER,TXEM64,LOINPR,DOEMNY,EMSENY,UDPOSMV&2( .COCOEMAP,COEMAS,TXPRAK,TXEMSE,STMAIP–&<( .COTXHEC6,TXMAFR,TXRCPT,TXDATA,TXEHLO,TXAUPL,BETCDA,TXXMAIÖ&F( .COTXFROM,TXREPL,VERCPL,VERCPH,ASRCPT,SEBU02,RESEAC,ASEMTE'P( .COEXACBU,ACNRS0,ACNRS1,ACNRS2,TIRES0,TIRES1,TIRES2,TXDDNEV'Z( .COTXEMFS,ENTDS0,ENTDS1,ENTDS2,ENEMSL,ENEMSH,COEMSE,ASSEOKs'd( .COCOEMAT,NTADBU,FIIPUT³'n( .CONTSECE,NTSEYE,NTSEMO,NTSEDA,NTSEHO,NTSEMI,INDATE,TAMONTó'x( .CODACENT,DAYEAR,DAMONT,DATDAY,DAHO24,DAHOAP,DAMINU,DASECU,(‚( .COCOPRDA,TXDATE,TXCLER,TXLOER,TXREER,VIRAST,TXCHSE^(ƒ( .COPRERWA,PRTEBE,COBEIR,TACRLO,TACRHI,TXCRERž(„( .COVJCONU,LEVJPU,LEVJIP,SEFLCO,PRSCSC,HOUPMO,MAPREN,STPOBEÞ(…( .COZPIPBL,ZPIPBH,ZPTCBL,ZPTCBH,AC TDAT,APSTDO,TXCOFI,DRSYFI)Œ(;=================================)–( .IFMODE=1") ( .LI4,4,0.)ª(;0-MAINL)´(;MIT ZEILE 10000 BEGINNENU)¾( .EIq)È(;0=TEIL NUR TEST (F001)š)Ò(;1=TEIL DRUCKER (F001) (S-JIFFYDOS)¶)Ü(;2=ALLES DISK (0801)Ê)æ(;"EMAIL 64 MAINø)ð( .EQLANGUA=0;LANGUAGE 0=ENGLISH 1=DEUTSCH*ú( .EQTXNOLO=L11430;TEXT NOTHING LOWG*) .EQTXNOHI=L11620;TEXT NOTHING HIGHn*) .EQTXPR09=L11080;TEXT PRESS 0 - 9œ*) .EQTXIOER=L11120;TEXT INPUT/OUTPUT ERRORÇ*") .EQTXILCO=L11250;TEXT ILLEGAL C OMMANDì*,) .EQTXNOFO=L11160;TEXT NOT FOUND+6) .EQTXPRKE=L11210;TEXT PRESS KEYF+@) .EQTXTY1D=L11300;TEXT TZPE 1-9 OR D FOR DISPLAYt+J) .EQTXDIMA=L11320;TEXT SICONNECT MANUALLY¦+T) .EQTXPLWA=L11350;TEXT PLEASE WAIT 30 SECONDSÏ+^) .EQTXDOSK=L12210;TE XT DOWNLOAD SKIPû+h) .EQTXDEPR=L12250;TEXT DELETE PRESS 1-3 ,r) .EQTXPR12=L12310;TEXT PRESS 1-2L,|) .EQTXSHNK=L12330;TEXT SHURE/NEVER KNOWt,†) .EQTXDEYN=L12390;TEXT DELETE (Y/N)¥,) .EQTXWAOF=L12420;TEXT WAIT MODEM OFFLINE...Î,š) .EQTXPRAK=L12460;T EXT PRESS ANY KEY-¤) .EQTXESFI=L12480;TEXT EMAILSERVER WANTS TO FINISH CONNECTION...W-®) .EQTXESRE=L12520;TEXT EMAILSERVER WANTS TO RESET CONNECTION...”-¸) .EQTXWRAC=L12560;TEXT RECEIVED WRONG ACKNOWLEDGE NUMBERØ-Â) .EQTXIPTR=L12590;TEXT INTERNETPROVIDER WANTS TERMINATE REQUEST.Ì) .EQTXQFTH=L12620;TEXT QUIT FIN TERM HANGUP CONTINUEE.Ö) .EQTXFTHC=L12640;TEXT FIN TERM HANGUP CONTINUEz.à) .EQTXTHCP=L12660;TEXT TERMINATE HANGUP CONTINUE¥.ê) .EQTXHCPR=L12680;TEXT HANGUP CONTINUEè.ô) .EQTXNSAE=L12740;TEXT NOT ENOUGH SPACE FOR ALL EMAILS ON DISK+/þ) .EQTXNSTE=L12770;TEXT NOT ENOUGH SPACE FOR THIS EMAIL ON DISKP/* .EQTXDIER=L12880;TEXT DIR ERRORv/* .EQTXOPER=L12970;TEXT OPEN ERRORœ/* .EQTXSAER=L13060;TEXT SAVE ERRORÃ/&* .EQTXCLER=L13150;TEXT CLOSE ERRORè/0* .EQTXDIFU=L13240;TEXT DISK FULL0:* .EQTXLOER=L13270;TEXT LOAD ERROR60D* .EQTXREER=L13360;TEXT RENAME ERRORe0N* .EQTXDDNE=L13420;TEXT DOMAIN DOES'T EXISTš0X* .EQTXEMFS=L13450;TEXT ERROR MESSAGE FROM SERVER¿0Y* .EQTXCRER=L13452;TEXT CRC ERROR1b*;=========================================================================1l* .IFMODE=2=1v* .OB"EM64MAINE<-------,P,W"F1€* .EIU1Š* .IFMODE=2c1”* .BA$0801l1ž* .ELz1¨* .BA$E001ƒ1²* .EI•1¼* .BY<(L11040)§1Æ* .BY>(L11040)³1Ð* .BY$D0¿1Ú* .BY$07Ï1ä* .BY$9E;SYSÛ1î* .BY$32ç1ø* .BY$30ó1+ .BY$36ÿ1 + .BY$31 2+ .BY$002 +L11040 .BY$0042*+ .BY$00;-------" N24+ JMPL13620;-------" u2>+;---------------------------------2H+L11080 .BY$0D;PRESS¢2R+ .TX"PRESS 0 - 9®2\+ .BY$0Dº2f+ .BY$00Ö2p+L11120 .BY$0D;I/O-ERRORé2z+ .TX"I/O-ERRORõ2„+ .BY$0D3Ž+ .BY$003˜+L11160 .TX" NOT FOUND'3¢+ .BY$0DM3¬+ .TX"INSERT DISK OR RESET DRIVES!Y3¶+ .BY$0De3À+ .BY$003Ê+L11210 .BY$0D;PRESS KEY”3Ô+ .TX"PRESS KEY 3Þ+ .BY$0D¬3è+ .BY$00¾3ò+L11250 .BY$0Dñ3ü+ .TX"ILLEGAL MODEM-COMMAND IN LINE ABOVE. "#4, .TX" RUN 'CONFIG-INPR' AND CORRECT COMMAND.]4, .TX" PRESS 'SPACE' FOR CONTINUE OR '_' FOR ESCAPEm4, .BY$0D,$00£4$,L11300 .TX"TYPE 1-9 FOR DOWNLOAD OR D FOR DISPLAY¯4., .BY$00Û48,L11320 .BY$0D,$0D;TEXT DISCONNECT PRESS5B, .TX"DISCONNECT MANUALLY - PRESS SPACE5L, .BY$0D,$0D,$00H5V,L11350 .BY$0D;TEXT PLEASE WAIT 30 SECONDS{5`, .TX"IF THERE ARE AT-COMMANDS ON THE SCREEN "›5j, .TX" THEN WAIT 30 SECONDS§5t, .BY$0DÚ5~, .TX"IF THERE ARE NO AT-COMMANDS ON SCREEN " 6ˆ, .TX" THEN RESET AND INVERT INNIIN ($0348) "56’, .TX" AT 'CONFIG-INPR****' PROGRAMI6œ, .BY$0D,$0D,$00‹6¦,L11430 .BY<(L11810);TABELLE LOWBYTES MELDUNGEN (OHNE SND RCV)6°, .BY<(L11820)¯6º, .BY<(L11840)Á6Ä, .BY<(L11860)Ó6Î, .BY<(L11880)å6Ø, .BY<(L11900)÷6â, .BY<(L11920) 7ì, .BY<(L11940)7ö, .BY<(L11960)-7- .BY<(L11980)?7 - .BY<(L12020)Q7- .BY<(L12040)c7- .BY<(L12060)u7(- .BY<(L12080)‡72- .BY<(L12100)™7<- .BY<(L12120)«7F- .BY<(L12150)½7P- .BY<(L12180)Ã7Z-;8d-L11620 .BY>(L11810);TABELLE HIGHBYTES MELDUNGEN (OHNE SND RCV)8n- .BY>(L11820)*8x- .BY>(L11840)<8‚- .BY>(L11860)N8Œ- .BY>(L11880)`8–- .BY>(L11900)r8 - .BY>(L11920)„8ª- .BY>(L11940)–8´- .BY>(L11960)¨8¾- .BY>(L11980)º8È- .BY>(L12020)Ì8Ò- .BY>(L12040)Þ8Ü- .BY>(L12060)ð8æ- .BY>(L12080)9ð- .BY>(L12100)9ú- .BY>(L12120)&9. .BY>(L12150)89. .BY>(L12180)>9.;_9".L11810 .BY$00;00 NUR SCROLLE9,.L11820 .TX"";01 !!!!!FREI?‹96. .BY$00»9@.L11840 .TX"WRONG ADDRESS/CONTROLL FIELD";02Ç9J. .BY$00é9T.L11860 .TX"ILLEGAL LENGTH";03õ9^. .BY$00:h.L11880 .TX"ILLEGAL COMMAND CODE";04):r. .BY$00T:|.L11900 .TX"WRONG USERNAME/PASSWORD";05`:†. .BY$00‰:.L11920 .TX"ILLEGAL PROTOCOL CODE";06•:š. .BY$00Á:¤.L11940 .TX"NO CLIENT-IP NEGOTIATION";07Í:®. .BY$00û:¸.L11960 .TX"NO DNS ADDRESS NEGOTIATION";08;Â. .BY$00O;Ì.L11980 .TX"SERVER DOESN'T SEND DNS ADDRESS. ASK YOUR PROVIDER FOR "„;Ö. .TX"THE (PRIMARY) DNS ADDRESS AND INPUT IT AT "º;à. .TX"THE CONFIGURE INTERNET PROVIDER PROGRAMM";09Æ;ê. .BY$00ó;ô.L12020 .TX"IP/UDP/TCP-CHECKSUM ERROR";0Aÿ;þ. .BY$00%</L12040 .TX"WRONG ADDRESS/PORT";0B1</ .BY$00c</L12060 .TX"NO EMAIL - DISCONNECT MANUALLY";0Co<&/ .BY$00ª<0/L12080 .TX"SERVER WANTS WRONG AUTHENTICATE (?CHAP)";0D¶<:/ .BY$00î à=Š/ .BY$00 >”/L12180 .TX"ERROR IN 'LIST' ANALYSIS";$11>ž/ .BY$00)>¨/;-------" `>²/L12210 .TX"1 DOWNLOAD AS USUAL";TEXT DOWNLOAD SKIPl>¼/ .BY$0D•>Æ/ .TX"2 SKIP (AND DOWNLOAD NEXT TIME)¡>Ð/ .BY$00ê>Ú/L12250 .TX"3 DELETE !!YOU WILL NEVER KNOW THE";TEXT DELETE PRESS 1-3ö>ä/ .BY$0D?î/ .TX" CONTENT OF THIS EMAIL!!&?ø/ .BY$0D9?0 .TX"PRESS 1-3E? 0 .BY$00n?0L12310 .TX"PRESS 1-2";TEXT PRESS 1-2z? 0 .BY$00Å?*0L12330 .TX"ARE YOU SHURE ? YOU WILL NEVER KNOW ";TEXT SHURE/LOOSE EMAILÑ?40 .BY$0Dõ?>0 .TX"THE CONTENTS OF THIS EMAIL@H0 .BY$0D @R0 .TX"PRESS 'DE' FOR DELETE,@\0 .BY$00E@f0L12390 .BY$0D;TXDEYN[@p0 .TX"DELETE (Y/N)j@z0 .BY$0D,00ƒ@„0L12420 .BY$0D;TXWAOF¨@Ž0 .TX"WAIT UNT!IL MODEM IS OFFLINE´@˜0 .BY$0DÅ@¢0 .TX" THEN "ê@¬0L12460 .TX"PRESS ANY KEY";TXPRAKú@¶0 .BY$0D,$00AÀ0L12480 .BY$0D;TXESFIDAÊ0 .TX"EMAILSERVER WANTS TO FINISH CONNECTION.mAÔ0 .TX"FINISH OR TRY TO CONTINUE (F/C)}AÞ0 .BY$0D,$00–Aè0L12520 .BY$0D;TXE"SREÆAò0 .TX"EMAILSERVER WANTS TO RESET CONNECTION.îAü0 .TX"RESET OR TRY TO CONTINUE (R/C)þA1 .BY$0D,$00B1L12560 .BY$0D;TXWRACCB1 .TX"RESCEIVED WRONG ACKNOWLEDGE NUMBERSB$1 .BY$0D,$00lB.1L12590 .BY$0D;TXIPTRžB81 .TX"IMTERNETPROVIDER SENDS TERM#INATE REQUEST®BB1 .BY$0D,$00ÛBL1L12620 .TX"4 = QUIT&FIN&TERM-RQST&HANGUPçBV1 .BY$0DC`1L12640 .TX"3 = FIN&TERM-RQST&HANGUPCj1 .BY$0DFCt1L12660 .TX"2 = TERMINAT-REQUEST&HANGUPRC~1 .BY$0DlCˆ1L12680 .TX"1 = HANGUPxC’1 .BY$0D—Cœ1 .TX"C = (TRY TO) $CONTINUE£C¦1 .BY$0DÀC°1 .TX"PRESS 'C' OR NUMBERÌCº1 .BY$00DÄ1L12740 .BY$0D;TEXT NOT ENOUGH SPACE FOR ALL EMAILS TXNSAE@DÎ1 .TX"NOT ENOUGH SPACE FOR ALL EMAILS ON DISKODØ1 .BY$0D,00’Dâ1L12770 .BY$0D;TEXT NOT ENOUGH SPACE FOR THIS EMAIL T%XNSTEÃDì1 .TX"NOT ENOUGH SPACE FOR THIS EMAIL ON DISKÏDö1 .BY$0DóD2 .TX"-A NEW DISK (IS INSERTED)ÿD 2 .BY$0DE2 .TX"-B DOWNLOAD!E2 .BY$0D>E(2 .TX"-C SKIP THIS EMAILJE22 .BY$0D\E<2 .TX"-D QUITkEF2 .BY$0D,00ŒEP2L12880 .BY$0D;TEXT DIR ERRO&RŸEZ2 .TX"DIR ERROR«Ed2 .BY$0D½En2 .TX" 1 RETRYÉEx2 .BY$0DÚE‚2 .TX" 2 SKIPæEŒ2 .BY$0D÷E–2 .TX" 3 QUITF 2 .BY$0D,$00)Fª2L12970 .BY$0D;TEXT OPEN ERROR=F´2 .TX"OPEN ERRORIF¾2 .BY$0D[FÈ2 .TX" 1 RETRYgFÒ2 .BY$0DxFÜ2 .TX" 2 SKIP„Fæ2 .BY$0D•Fð2' .TX" 3 QUIT¨Fú2 .BY$0D,$00;" ÊF3L13060 .BY$0D;TEXT SAVE ERRORÞF3 .TX"SAVE ERRORêF3 .BY$0DüF"3 .TX" 1 AGAING,3 .BY$0DG63 .TX" 2 SKIP%G@3 .BY$0D6GJ3 .TX" 3 QUITFGT3 .BY$0D,$00iG^3L13150 .BY$0D;TEXT CLOSE ERROR~Gh3 .TX"CLOSE ERRORŠGr3 .BY$0DœG|3 .TX" 1 AGAIN¨G†3 .BY$0D¹G3 .TX" 2 SKIPÅGš3 .BY$0DÖG¤3 .TX" 3 QUITæG®3 .BY$0D,$00H¸3L13240 .BY$0D;TEXT DISK FULL8HÂ3 .TX"DISK FULL - INSERT NEW DISK - PRESS KEYHHÌ3 .BY$0D,$00jHÖ3L13270 .BY$0D;TEXT LOAD ERROR~Hà3 .TX"LOAD ERRORŠHê3 .2),Y;PORT EMPFAENGER HIGH™Qb CMP#$04ÄQ b BNEL25260;B.I.FALSCHER EMPFAENGERPORTÍQ*b INYóQ4b LDA(ZPA2),Y;PORT EMPFAENGER HIGHR>b CMPTCPHDR+$01RHb BNEL25260MRRb LDXCOSEAD;COMPARE SERVER ADDRESS (04=POP3 08=SMTP)ŠR\b BEQL25320;B.I.NICHT VERGLEICHEN (=IN SYN/ACK PHASE) #00RfbL25190 LDY#$0C´RpbL25200 LDA(ZPA0),YÇRzb CMPIAPOP3-4,XÖR„b BEQL25280SŽb;EVTL.NOCH TEST OB EMPFANGENE ADRESEE=GESENDETER ADRESSEXS˜b;WAERE:MODEM IST OFFLINE IM KOMANDOMODUS UND SENDET ECHO ZURUECKvS¢b;DANN AUFLEGEN UND ENDE??žS¬bL25260 JSRSEFIWR;WRONG ADDRESS/PORT°S¶b JMPL21740;" ¿SÀbL25280 INYÈSÊb INXÕSÔb CPY#$10äSÞb BCCL25200(TèbL25320 LDA#$00;ANALYSE TCP-PAKAGE------------------------ANTCPP9Tòb STAL25550+1FTüb LDY#$0BSTc LDX#$03ƒTcL25360 LDA(ZPB2),Y;EMPFANGENE SERVER-ACK-NR«Tc STARESEAC,X;RECEIVED SERVER-ACK-NR´T$c DEY½T.c DEXÌT8c BPLL25360ÙTBc LDY#$07æTLc LDX#$03ïTVc SEC)U`cL25440 LDA(ZPB2),Y;TATSAECHLICHE SERVER-RCV-SEQNUMMERWUjc SBCEXSESE,X;=ERWARTETE SERVER-RCV-SEQ-NR¦Utc;ERRECHNET AUS SERVER-SEQ-NR VON LETZTEM MAL PLUS ANZAHL TCPDATEN ODER 0/1áU~c;BEI$8A EMAILTEXT SEDNEN:SERVER SCHICKT NUR-ACK PAKETE Vˆc;=>EXSESE MUESSTE IMMER GLEICH BLEIBENQV’c;EVTL: SBC TCPHDR+8,X ;SND-ACK-NR=ERWARTETE SERVER-RCV-SEQ-NRnVœc BEQL25520;B.I.IDENTISCHV¦c INCL25550+1ŽV°cL25520 DEY—Vºc DEXÊVÄc BPLL25440;!CARRY MUSS BLEIBEN=>CPY GEHT NICHTïVÎcL25550 LDX#$FF;FLAG OB IDENTISCHWØc BEQL25710;B.I.ERWARTETES PAKET ERHALTEN;Wâc ASL;HIGH NIBBLE DIFFERENZYWìc LDASESTAT;40 80 C0 41-5FuWöc AND#$3F;00 00 00 01-1F¬Wd BEQL25710;B.I.SYN (SND-ACK-NR NOCH NICHT GESETZT)ãW dL25610 BCCL25660;B.I.RCV-SEQ GROESSER ALS ERWARTETXd LDY#$97;TCP-PAST =RCV-SEQ KLEINER ALS ERWARTET=Xd;SERVER SCHICKT EIN PAKET ERNEUTsX(d;=>MUESSTE EVTL. ACK-PAKET VON C64 VERLOREN HABENX2d .BY$2CX00-1Fá^lf CMP#$03;43 C3ð^vf BCSL26310_€f JSRAPSYAC;ANALYSE POP SYN&ACK"_Šf LDASESTAT/_”f AND#$3FZ_žf CMP#$03;43 C3 SYN-FASE=KEIN +OK-TESTi_¨f BCSL26310§_²f JSRSETCAN;SEND TCP-ANSWER(C0-C2)(TEST OB NUR-ACK-PAKET?)Å_¼fL26300 JMPL21740;------" Ø_ÆfL26310 AND#$FCë_Ðf CMP#$10;50 D0`Úf BNEL26380;B.I.NICHT IN FIN FASE (50-53 D0-D3)>`äfL26340 NOP;NOCH SMTP MACHENS`îfL26350 JSRAPFINPe`øf JMPL21740;" `g;KANN JEDERZEIT NUR-ACK-PAKET ERHALTENÈ` gL26380 LDAINFLRE;FLAG OB PAKET NUR MIT ACK ERHALTENï`g BMIL26430;B.I.TCP-DATEN VORHANDEN'a g BEQL26420;B.I.NUR-ACK PAKET ERHALTEN=KEINE ANTWORTga*g JSRSETCAN;SEND TCP ANSWER ES GIBT KEINE TCP-DATEN----" a4gL26420 JMPL21740;" ”a>gL26430 LDASESTAT¡aHg AND#$7F´aRg CMP#$48;48 C8Ãa\g BNEL26490êafg JSRAPLISF;ANALYSE POP LIST FOLLOWüapg JMPL21740;" bzgL26490 CMP#$4A;4A CA$b„g BNEL26530JbŽg JSRAPTOPF;ANALYSE POP TOP FOLLOW\b˜g JMPL21740;" ub¢gL26530 CMP#$4C;4C CC„b¬g BNEL26570¯b¶g JSRAPRETF;ANALYSE POP RETRIEVE FOLLOWÁbÀg JMPL21740;" ÔbÊgL26570 LDY#$00ìbÔg JSRPRMENO;SCROLLENcÞg LDXLTCPDH;LANGE TCP-DATEN HIGH;cèg BNEL26650;B.I.MEHR ALS 255 DATENBYTES^còg LDYLTCPDL;LANGE TCP-DATEN LOWgcüg DEYtch CPY#$28šch BCCL26660;B.I.TCP-DTN < 40 BYTES×chL26650 LDY#$27;=NURDIE ERSTEN 40 BYTES WERDEN AUF SCREENøc$hL26660 LDA(ZPB4),Y;TCP-DATENd.h CMP#$20d8h BCCL26730!dBh CMP#$400dLh BCCL26740=dVh AND#$1FId`h .BY$2C\djhL26730 LDA#$20ŠdthL26740 STAVIRAST+$0320,Y;ILGL COMMANDCODE“d~h DEY¢dˆh BPLL26660Äd’h LDY#$00;=43-47,49 =C3-C7,C9ßdœh LDA(ZPB4),Y;TCP-DATENe¦h BITTCPHDR+1;EMAIL64-CLIENT-ABSENDER PORT 19=SMTP 6E=POP35e°h BVSL26840;B.I.POP3Beºh CMP#$34aeÄh BCCL27430;B.I.200-399 =OK†eÎh BCSL26940;B.I.400-599 = ERROR" eØhL26840 CMP#$2B;"+"¬eâh BNEL26940µeìh INYÆeöh LDA(ZPB4),Y×ei CMP#$4F;"O"æe i BNEL26940ïei INYfi LDA(ZPB4),Yf(i CMP#$4B;"K" f2i BEQL274303f(TXEMFS)6g–i JSRPRTEXTKg iL27040 JSRGETKEYXgªi CMP#$30gg´i BCCL27040tg¾i CMP#$38ƒgÈi BCSL27040gÒi AND#$0F™gÜi TAX­gæi LDA#$FD;HANGUPÉgçi BIT$0350;DIALUP NO YESØgèi BMIL27120 héi LDA#$FE;=KEIN DIALUP => KANN NICHT AUFHAENGENhðiL27120 DEX+húi BEQL27380;1Bhj LDA#$F0;TERMINATEKhj DEX\hj BEQL27380;2kh"j LDASESTATxh,j AND#$C0‰h6j ORA#$10;FIN’h@j DEX£hJj BEQL27380;3¼hTj EOR#$1E;D0->CE QUITÉh^j CMP#$8EØhhj BNEL27260ôhrj LDA#$8C;QUIT BEI SMTP?i|jL27260 DEXi†j BEQL27380;4ij DEX0išj BNEL27350;<>5?i¤j LDASESTATLi®j AND#$C0Yi¸j ORA#$13hiÂj STASESTATziÌj JMPL26340;" ‰iÖjL27350 DEXŸiàj BEQL27430;6 SKIP·iêj LDASESTAT;7 REPEATëiôjL27380 JSRSETASA;SEND TCP ANSWER SESTAT IN ACCUjþj;EVTL.FALSCH BEI NICHT TCP TEIL!jk JMPL21740;" ejk; JSR SETCAN ;WICHTIG FALLS STAT IN 2 PAKETEN KOMMT—jk JMPL21740;(SOLLTE ES ABER GAR NICHT GEBEN)" ¬j&kL27430 LDASESTATÒj0k BITTCPHDR+1;CLIENT-SENDEPORT LOWêj:k BVCL27840;B.I.SMTPýjDk AND#$7F;=POP3kNk CMP#$46;46 C6GkXk BCCL27590;B.I.43,44,45 C3,C4,C5 ??? USER PASSfkbk BEQL27660;B.I.46 C6 STATyklk CMP#$49;49 C9·kvk BCCL27680;B.I.48(C8 LIST (47/C7 SCHON VORHER ABGEFANGEN)Ñk€k BEQL27700;B.I.49 TOPäkŠk CMP#$4D;4D CDÿk”k BCCL27720;B.I.CB RETRlžk BEQL27740;B.I.CD DELE-l¨k CMP#$50;50 D0Kl²k BCCL27760;B.I.4E CE QUIT]l¼k BCSL27780;" …lÆkL27590 LDASESTAT;C3 C4 USER C5 PASS¬lÐk CMP#$45;PASS BEI NUR-FREISCHALTEN»lÚk BNEL27640ßläk LDA#$4D;WIRD SOFORT ZU 4E QUITîlîk STASESTAT#møkL27640 JSRSETAIS;SEND TCP ANSWER INCREMEN SESTAT5ml JMPL21740;" [m lL27660 JSRAPSTAT;ANALYSE POP STATmml JMPL21740;" “m lL27680 JSRAPLIST;ANALYSE POP LIST¥m*l JMPL21740;" Ðm4lL27700 JSRAPTOPS;ANALYSE POP TOP STARTâm>l JMPL21740;" nHlL27720 JSRAPRETS;ANALYSE POP RETRIEVE START$nRl JMPL21740;" Jn\lL27740 JSRAPDELE;ANALYSE POP DELE\nfl JMPL21740;" ‚nplL27760 JSRAPQUIT;ANALYSE POP QUIT”nzl JMPL21740;" ·n„lL27780 AND#$FC;LOESCHT BIT 0 1ÊnŽl CMP#$50;50 D0én˜l BEQL27820;B.I.IN FIN FASE o¢l JMPL28520;NICHT IN FIN FASE6o¬lL27820 JSRAPFINP;ANALYSE POP SYN PAKAGEHo¶l JMPL21740;" ŒoÀlL27840 LDAZPB4; SMTP™oÊl LDXZPB5ªoÔl STAL27910+1»oÞl STAL27960+1Ìoèl STXL27910+2Ýoòl STXL27960+2ðoülL27900 LDY#$03pmL27910 LDA$FFFF,Y;ZEICHEN NACH 200Ipm CMP#$2D;- FLAG DASS WEIT ERE ANTWORTEN KOMMENhpm BNEL28120;B.I.END-ANTWORTup$m LDA#$0A„p.mL27950 INYšp8mL27960 CMP$FFFF,Y©pBm BNEL27950²pLm TYAÍpVm ADCL27910+1;CARRY=SETÞp`m STAL27910+1ïpjm STAL27960+1þptm BCCL28050q~m INCL27910+2 qˆm INCL27960+29q’mL28050 CLC;NIC!HT SECFqœm LDAZPB6Wq¦m SBCL27910+1dq°m LDAZPB7uqºm SBCL27910+1¤qÄm BCSL27900;B.I.NOCH NICHT ENDEN DES PAKETSÙqÎm JMPL21740;KOMMEN WEITER ANTWORTEN=NICHTS MACHENîqØmL28120 LDASESTATûqâm CMP#$8Brìm BEQL28180;B.I.EMAILTEXT SENDEN1röm CMP#$8A;DATA"@rn BNEL28200Vr n INCSESTAT;8A->8BkrnL28180 JSRASEMTE}rn JMPL21740;" r(nL28200 CMP#$88Ÿr2n BNEL28250µr89ÜrFnL28230 JSRASRCPT;ANALYSE SMTP RCPTîrPn JMPL21740;" sZnL28250 CMP#$89sdn BEQL28230@snn CMP#$86;BASE64 V.USERNAME#+PASSWORT GEWESENTsxn BEQL28460;->88as‚n CMP#$8D‰sŒn BEQL28440;B.I.QUIT OK-IST ->90=FIN±s–n CMP#$83;SYN GEWSEN = JETZT ZU ENDEÛs n BEQL28400;B.I.ERSTER BEFEHL NACH SYNèsªn CMP#$8C÷s´n BNEL28370"t¾n JSRASSEOK;ANALYSE SMTP SENDING WAS OK4tÈn JMPL2$1740;" GtÒnL28370 CMP#$90dtÜn BCCL28470;B.I.NICHT FINytæn JMPL26350;FIN" žtðnL28400 BIT$CEF0;AUTHENTICATE ARTÊtún BVSL28470;->84EHLO B.I.SMTP-AUTH-LOGINðto LDA#$85;->87HELO KEIN AUTH LOGINüto .BY$2CuoL28440 LDA#$8E;->90#u"o STASESTAT8u,oL28%460 INCSESTAT~u6oL28470 JSRSETAIS;SEND TCP-ANSWER INCREMENT SESTAT 83->84 SMTP¨u@o;8C->8D BEI 250OK AM ENDE V.EMAILTEXTÅuJo;8D NOCH 90 F.FIN MACHEN×uTo JMPL21740;" þu^o;=================================vhoL28520 INC$D020$vro JMPL28520;" sv|o&;=========================================================================žv†oL28550 INCVIRAST+$10;ILGL IP-PROTOCOLL°vo JMPL21740;" ×vpq;==============================" æv¨÷L63400 NOPõv²÷ .IFMODE=2 w¼÷ .AP"D-MAIN*",8wÆ÷ .ELwÐ÷ .EN(wÚ÷ .EI;"  GNCSESTAT~u6oL28470 JSRSETAIS;SEND TCP-ANSWER INCREMENT SESTAT 83->84 SMTP¨u@o;8C->8D BEI 250OK AM ENDE V.EMAILTEXTÅuJo;8D NOCH 90 F.FIN MACHEN×uTo JMPL21740;" þu^o;=================================vhoL28520 INC$D020$vro JMPL28520;" sv|oØç' .EQMODE=0! ' .COZPA0,ZPA1,ZPA2,ZPA3,ZPA4,ZPA5,ZPA6,ZPA7,ZPA8,ZPA9[ $' .COZPB0,ZPB1,ZPB2,ZPB3,ZPB4,ZPB5,ZPB6,ZPB7,ZPB8,ZPB9” .' .COCRCLOW,CRCHIG,CRCBYT,ENRELO,ENREHI,BERELO,BEREHI± 8' .COBEBUHI,ENBULO,ENBUHIê B' .COCOOFON,AUNOYE,WABUSE,COFOAUÖ)pS .EQALTERE=999é)zS .EQALTEAC=999ü)„S .EQSETAIS=999*ŽS .EQTXEM64=999"*˜S .EQLOFINA=9995*¢S .EQLOINPR=999H*¬S .EQDOEMNY=999[*¶S .EQTXEMSE=999n*ÀS .EQASRCPT=999*ÊS .EQRESEAC=999”*ÔS .EQTXEMFS=999§*ÞS .EQGETKEY=999º*èS .EQSETASA=999Í*òS .EQASEMTE=999à*üS .EQASSEOK=999ó*ýS .EQVIRAST=999+þS .EQCOBEIR=999+ÿS .EQMAPREN=999"+T .EIq+T;=========================================================================€+T .IFMODE=0Ž+$T .BA$E001—+.T .EI¦+8T .IFMODE=1´+BT .BA$E001½+LT .EIÌ+VT .IFMODE=1Ú+`T .LI4,4,0ã+jT .EIñ+tT;"C-MAIN,~T;"MIT ZEILE 20012 BEGINNEN4,ˆT .EQSTMAIP=L21880;START MAIN IPF,œT JMPL63400;" m,¦T;------------------------------" ¦,°TL21680 CLC;FLAG F. SOFORT SENDEN (OHNE TIMER WARTEN)Ò,ºTL21690 LDA#$13;S SEND MAINLOOPä,ÄT STAVIRAST+$5!-ÎT JSRSENCOM;COMMANDO SENDEN CARRY SET=WARTEN CLOSE=SOFORT?-ØTL21720 LDA#$0D;M MAINLOOPQ-âT STAVIRAST+$5r-ìTL21740 LDA$DC01;TASTATURPORT•-îT ANDCOBEIR;COUNTER BEEP IN IRQ¢-öT CMP#$FFÕ-U BEQL21930;B.I.KEINE TASTE GEDRUECKT + TON OFFë- U LDA#$0B;KEYBOARDý-U STAVIRAST+$5=.U;NOCH MACHEN: JSR GETKEY UND ABFRAGEN OB ESCAPE, DANN MENUE‹.(U;CONTINUE / QUIT+FIN+TERM+HANGUP / FIN+TERM+HANGUP / TERM+HANGUP / HANGUP².2U LDA#$E7;%11100111 FLASH8 AUF 1MHZÈ.IRQ, DER TASTATUR ABFRAGTü.PU LDASESTAT/ZU CMP#$FE;NACH OFFHOCK%/dU BNEL218807/nU JMPMAPREN;" F/xUL21880 SEIT/‚U LDA#$E5;}/ŒU STA$01;UEBERALLRAM AUSSER D000-DFFFŠ/–U LDA#$00¼/ U STA$DC00;TASTATUR AUSGANGSPORT ALLE BITS EINå/ªUL21930 INCVIRAST+$3;NUR PROVISORISCHô/´U LDASESTATý/¾U LSR0ÈU LSR0ÒU LSR0ÜU LSR%0æU ORA#$3020ðU CMP#$3AA0úU BCCL22030N0V SBC#$39f0VL22030 STAVIRAST+$7u0V LDASESTAT‚0"V AND#$0F0,V ORA#$30œ06V CMP#$3A«0@V BCCL22100¸0JV SBC#$39Ð0TVL22100 STAVIRAST+$8å0^V LDA#$12;RECEIVE÷0hV STAVIRAST+$51rV JSRANAPPP;PPP PAKET ANALYSIEREN\1|V BCSL21690;B.I.PAKET NOCH NICHT KOMPLETT ERHALTEN SET=WARTN¦1†V;ODER BEREITS NICHTS NEUES VERSENDEN WENN PAKET TEILWEISE ERHALETN???ß1V;ZPA0 AN FANG BEFEHLSCODE LOW, COMMANDCODE LOW "CODE"2šV;ZPA1 ANFANG BEFEHLSCODE HIGH, COMMANDCODE HIGH "CODE"B2¤V;ZPA2 ENDE LOW (+1) OHNE PRUEFSUMMEk2®V;ZPA3 ENDE HIGH (+1) OHNE PRUEFSUMMEœ2¸V;ZPA4 VECTOR LOW (AUF AKTUELLEN OPTIONSCODE)Î2ÂV;ZPA5 VECTOR HIG H (AUF AKTUELLEN OPTIONSCODE) 3ÌV;ZPA6 VECTOR LOW WOHIN CONFIGER-ANTWORT GESCHRIEBEN WIRDI3ÖV;ZPA7 VECTOR HIGH WOHIN CONFIGER-ANTWORT GESCHRIEBEN WIRD3àVL22240 LDY#$01;A=ENDELOW(+1)X=ENDEHIGH(+1)PPP BEFEHLE ANALYSIERŸ3êV STYVIRAST+$5¶3ôV SEC;ENDE L OW (+1)Ü3þV SBC#$02;MINUS 2 BYTES PRUEFSUMMEë3W BCSL22300ô3W DEX'4WL22300 STAZPA2;ENDE LOW (+1) (OHNE PRUEFSUMME)S4&W STXZPA3;ENDE HIGH (+1) OHNE PRUEFSUMME`40W LDA#$EEm4:W STAZPA1}4DW STAZPA5;" Š4NW LDY#$00©4XW LDA$EE00,Y;ERSTES ZEICHEN´4b W INY;1É4lW CMP#$FF;ADDRESSÝ4vW BNEL22490;Y=01ò4€W LDA$EE00,Y;EE01û4ŠW INY5”W CMP#$03;CONTROL5žW BEQL22470+5¨W LDY#02W5²W JSRPRMENO;WRONG ADDRESS/CONTROLL FIELDm5¼W JMPL21740;????" ˆ5ÆWL22470 LDA$EE00,Y;EE02–5ÐW INY;Y=03¿5ÚWL22490 TAX;PROTO COLLFIELD HIGH Y=1/3È5äW LSRÑ5îW TXA6øW BCCL22550;B.I.KEINE PROTOCOLL-FIELD-COMPRESSIONC6X LDX#$00;PROTOCOLL HIGH (WICHTIG FALLS PROTOCOLL REJECT)€6 X JMPL24090;A=PROTOCOLLFIELD LOW (HIGH GIBT ES NICHT)--" ¤6XL22550 BMIL22570;B.I.C0 ODER 80Ç6 X JMPL24050;0000-7FFF (0021)" 7*XL22570 INY;Y=2/4 PROTOCOLLCODE=$8000-$FFFF)74X STYZPA0;=4 FALLS FF 03 C0 2167>X LDY#$03p7HX SEC; EE29/25 EF01/§7RX LDAZPA2;ENDELOW 29å7\X SBCZPA0; -25 - 8fX SBC(ZPA0),Y;LAENGE LOW Y=4 FALLS FF 03 C0 21 -4)8pX DEYg8zX LDAZPA3;ENDE HIGH EE EF =0 =–8„X SBC#$EE; -EE -EEÉ8ŽX SBC(ZPA0),Y;LAENGE HIGH -4 -4û8˜X BCSL22720;B.I.LAENGE>=ALS ANGEGEBEN SET SET9¢X LDY#$03;ILGL LENGTH#9¬X JSRPRMENO59¶X JMPL21740;" L9ÀXL22720 LDYZPA0;2/4U9ÊX TYA^9ÔX CLC‚9ÞX ADC#$04;VECTOR AUF OPTIONSCODE9èX STAZPA4¶9òX LDA$EDFF,Y;EE03 PROTOCOLLCODE LOWÖ9üX CPX#$C0;PROTOCOLLCODE HIGHå9Y BEQL22810:Y JMPL23550;ZU NCP-TEST" ':YL22810 CMP#$23;CONTROLLFIELD LOW9:$Y BNEL23120;" w:.Y LDY#$00; PROTOCOLLCODE=$C023”:8Y LDA(ZPA0),Y;COMMANDCODE:BY TAX¦:LY DEXµ:VY BNEL22910Ú:`Y LDY#$80;01 AUTHENTICATE REQUEST÷:jY JSRPRMERC;GIBT ES NICHT;tY JMPL21740;EVTL.NOCH !!! AUSGEBEN,;~YL22910 DEX;;ˆY BNEL23010\;’Y LDY#$81;02 AUTHENTICATE ACKk;œY JSRPRMERCx;¦Y LDA#$00£;°Y STAAUNOYE;LOESCHT FLAG F.AUTHENTICATE°;ºY LDA#$C8Ü;ÄY STAWABUSE;8SEC F400 WARTEN !!!!FA00<ÎY JMPL21680;JETZT KEIN ATCT MEHR SONDERN LCP/NCP =>E<ØY;SOFORT PAKET SCHICKEN OHNE TIMER ZU WARTEN" T<âYL23010 DEXc<ìY BNEL23090„<öY LDY#$82;03 AUTHENTICATE NAK“<Z JSRPRMERC¸< Z LDY#$05;WRONG USERNAME/PASSWORDÇ<Z JSRPRMENOÿ<Z;EVTL.ABFRAGE OB "<-" & TERMINATEREQUEST &HANGUP???$=(Z JMPL21740;EVTL ABBRECHEN???????H=2ZL23090 LDY#$04;ILGL COMMANDCODEW=nZ LDA(ZPA0),Y;COMMANDCODE>xZ TAY(>‚Z DEY7>ŒZ BNEL23230M>–Z LDY#$83;LCFG RQSx> Z JSRANCORQ;01 CONFIGUREREQUEST X=#$C0·>ªZ BEQL23320;BEI ACK DER REQUEST MUSS SOFORT GESENDET WERDENö>´Z BNEL23370;BEI NAK/RJC DER REQUEST MUSS AUF TIMER WARTEN" ?¾ZL23230 DEY?ÈZ BNEL23280O?ÒZ JSRANLCAC;02 ACKNOWLEDGE LCP ANALYSE LCP ACKNOWLEDGE^?ÜZ BEQL23320p?æZ BNEL23370;" ?ðZL23280 DEYŽ?úZ BNEL23330Í?[ JSRANLCNA;03 NOTACKNOWLEDGE LCP ANALYSE LCP NTACKNOWLEDGEÜ?[ BNEL23370@[L23320 JMPL21680;SOFORT SENDEN" @"[L23330 DEY@,[ BNEL23380C@6[ JSRANLCRJ;04 ZURUECKWEISEN LCPR@@[ BEQL23320…@J[L23370 JMPL21740;MIT SENDEN AUF TIMER WARTEN" ”@T[L23380 DEY£@^[ BNEL23420Ë@h[ JSRALTERE;05 TERMINATE REQUEST LCPÚ@r[ JMPL21740é@|[L23420 DEYø@†[ BNEL23460*A[ JSRALTEAC;06 TERMINATE ACKNOWLEDGE LCPL234609Aš[ JMPL21740HA¤[L23460 DEYWA®[ BNEL23510‰A¸[ LDY#$89;07 CODE REJECT LCP ?????DOPPELT???˜AÂ[ JSRPRMERCªAÌ[ JMPL21740;" îAÖ[L23510 LDY#$89;CODE 8-15 = UNBEKANNT =>CODE REJECT X=PROT HIGHýAà[ JSRSECDRJ3Bê[;ABER EVTL.GEFAHR,DASS SERVER VERBINDUNG ABBRICHTKBô[ JMPL21740;"----- ^Bþ[L23550 CPX#$80sB\L23560 BNEL24110€B\ CMP#$21B\ BNEL24110ÓB&\L23590 LDY#$00; PROTOCOLLCODE=$8021ðB0\ LDA(ZPA0),Y;BEFEHLSCODEùB:\ TAYCD\ DEYCN\ BNEL23680'CX\ LDY#$8A;NCFG RQSVCb\ JSRANCORQ;01 NCP CONFIGURE REQUEST X=#$80eCl\ BEQL23770wCv\ BNEL23820;" †C€\L23680 DEY•CŠ\ BNEL23730·C”\ JSRANNCAC;02 ACKNOWLEDGE NCPÆCž\ BEQL23770ØC¨\ BNEL23820;" çC²\L23730 DEYöC¼\ BNEL23780DÆ\ JSRANNCNA;03 NOTACKNOWLEDGE NCP*DÐ\ BNEL23820ODÚ\L23770 JMPL21680;SOFORT SENDEN" ^Dä\L23780 DEYmDî\ BNEL23830‘Dø\ JSRANNCRJ;04 ZURUECKWEISEN NCP D] BEQL23770ÓD ]L23820 JMPL21740;MIT SENDEN AUF TIMER WARTEN" âD]L23830 DEYñD ] BNEL23890þD*] LDY#$8E E4] JSRPRMERCHE>];EVTL GENAUSO BEHANDELN WIE LCP TERMINATE REQUEST?pEH] JMPL21740;05 TERMINATE REQUEST NCPER]L23890 DEYŽE\] BNEL23960›Ef] LDA#$8FªEp] JSRPRMERCâEz];EMAIL64 SENDET NIE NCP TERMINATE REQUEST (NUR LCP) F„];=>NCP TERM-ACK SOLLTE ES NIE GEBEN?7FŽ] JMPL21740;06 TERMINATE ACKNOWLEDGE NCPFF˜]L23960 DEYUF¢] BNEL24010qF¬] LDY#$90;07 CODE REJECT€F¶] JSRPRMERCFÀ] JMPL21740ÓFÊ]L24010 LDY#$90;CODE 8-15 = UNBEKANNT =>CODE REJECT X=PROT HIGHâFÔ] JSRSECDRJGÞ];ABER EVTL.GEFAHR,DASS SERVER VERBINDUNG ABBRICHT0Gè] JMPL21740;"----- XGò]L24050 LDA$EE00,Y;PROTOCOLLCODE LOWaGü] INYG^ CPX#$00;PROTOCOLLCODE HIGHG^ BNEL24110£G^L24090 CMP#$21²G$^ BEQL24140õG.^L24110 JSRSEPRRJ;PRTOCOLL REJECT BEI UNBEKANNTEM PROTOCOLLCODE%H8^;A=PROTOCOLLCODE LOW X=PROTOCOLLCODE HIGH?4HB^ JMPL21740xHL^L24140 STYZPA0;ZPA0/01=BEGINN IP-HDR =TCP/UDP…HV^ STYZPB0 ’H`^ LDAZPA2­Hj^ STAZPA6;ENDE DATEN +1ºHt^ STAZPB6ÇH~^ LDAZPA3ÔHˆ^ STAZPA7áH’^ STAZPB7îHœ^ LDY#$00I¦^ LDA(ZPA0),Y;IP-VERSION + IP-HDR-LAENGE'I°^ AND#$F04Iº^ CMP#$40CIÄ^ BEQL24290aIÎ^ INC$D021;ILGL.IP-VERSION†IØ^;TEXT AUSGEBEN UND EINHAENGEN!???Iâ^L24290 LDA(ZPA0),Y±Iì^ AND#$0F;LAENGE½Iö^ ASL;*4ÆI_ ASLÏI _ CLCÜI_ ADCZPA0ýI_ STAZPA2;BEGINN UDP-/TCP-HDR J(_ STAZPB2J2_ LDXZPA1PJ<_ STXZPA3;KEIN UEBERTRAG,WEIL MAX 15*4=60 BYTE LANG??]JF_ STXZPB1jJP_ STXZPB3wJZ_ LDY#$03’Jd_ LDA("ZPA0),Y;LANGE LOW›Jn_ CLC¶Jx_ ADCZPA0;BEGINN IP-HDR×J‚_ STAZPA6;ENDE TCP-DATEN+1LOWøJŒ_ STAZPB6;ENDE TCP-DATEN+1LOWK–_ DEYK _ LDA(ZPA0),Y;LANGE HIGH8Kª_ ADCZPA1;BEGINN IP-HDRZK´_ STAZPA7;ENDE TCP-DATEN+1HIGH|K¾_ STAZPB7;ENDE TCP-DATEN+1HIGH£K#È_ JSRCSIPHE;CHECKSUMME UEBER IP-HDR¿KÒ_ BNEL24560;B.I.CS-ERRORÎKÜ_ JSRCSTCHDÝKæ_ BEQL24590ðKð_L24560 LDY#$0AÿKú_ JSRPRMENOL` JMPL21740;" $L`L24590 LDY#$10`L`L24600 LDA(ZPA0),Y;DESTINATION IP AUS EMPFANGENEM PAKETuL"` CMPCLIPAD-$10,Y„L,` BE$QL24640–L6` JMPL25260;" ¥L@`L24640 INY²LJ` CPY#$14ÁLT` BCCL24600ÎL^` LDY#$09ïLh`;NOCH TEST OB UNFRAGMENTIERT Mr` LDA(ZPA0),Y;PROTOCOLLM|` CMP#$11;UDP*M†` BNEL24760jM` JSRANUDDN;ANALYSE UDP-DNS =RCV UDPyMš` BEQL24750Œ%M¤` JMPL28550;???±M®`L24750 JMPL21680;SOFORT SENDEN" ÈM¸`L24760 CMP#$06;TCP×MÂ` BEQL24790êMÌ` JMPL28550;???.NÖ`L24790 LDY#$0C; =RCV TCP]Nà` LDA(ZPA2),Y;DATA OFFSET=TCP-HEADER-LENGTHjNê` AND#$F0sNô` LSR|Nþ` &LSR—Na ADCZPA2;CARRY IST LOW¹Na STAZPA4;BEGINN TCP-DATEN LOWÆNa STAZPB4âN&a LDXZPA3;NIE UEBERTRAG?O0a STXZPA5;BEGINN TCP-DATEN HIGHO:a STXZPB5ODa SEC=ONa LDAZPB6;ENDE TCP-DATEN+1 LOW_OXa SBCZPB4;BEGINN TCP-DATEN LOWƒOba STALTCPDL;LENGTHT 'TCP-DATA LOW¦Ola LDAZPB7;ENDE TCP-DATEN+1 HIGHÉOva SBCZPB5;BEGINN TCP-DATEN HIGHîO€a STALTCPDH;LENGTHT TCP-DATA HIGHPŠa LDX#$80;FLAG F.TCP-DATEN VORHANDEN%P”a ORALTCPDLKPža BNEL25080;B.I.TCPDATEN VORHANDENmP¨a LDX#$00;FLAG F.NUR-ACK-PAKETzP²a LDY#$0D˜P¼a LDA(ZPB2),Y;CONTENT BITSÅPÆa AND#$2F;MASKIERT BIT7&6 UND ACK-BIT WEG÷PÐa;NOCH SCHAUEN OB PUSH BIT WEGMASKIERT GEHOERTQÚa BEQL25070Qäa INX;#$01:QîaL25070 STXLTCPDL;0/1 (LTCPDH=#00)YQøaL25080 STXINFLRE;00,01,$80fQb LDY#$02ŒQ b LDA(ZPAAND#$20;ISOLIERT PUSH BIT (20 STATT 10 WEGEN ASL)¯S¥b BEQL25283ÂS¯b LDA(ZPTCBL),YÏS¹b ORA#$10áSÃb BNEL25303;" úSÍbL25283 LDA(ZPTCBL),YT×b AND#$EFJTábL25303 STA(ZPTCBL),Y;SETZT PUSH BIT ENTSPRECHEND BIT-MASK-BYTE\Tëb JMPL27673;" kTõbL25323 DEYzTÿb BNEL25503¦T c CPX#$04;VAN JACOBSEN CONNECTION NUMBERÏTc BCCL25373;B.I.CONNECTION NUMBER 0-3òTc NOP;ILLEGAL CONNECTION NUMBERU'cL25373 STXVJCONUU1c TXA; 0 1 2 32U;c LSR; 0C 0S 1C 1SKUEc ORA#$8C;8C 8C 8D 8DqUOc STAZPIPBH;ZEROPAGE IP-BEGIN HIGH˜UYc STAZPTCBH;ZEROPAGE TCP-BEGIN HIGH¥Ucc LDA#$00ºUmc ROR;00 80 00 80ßUwc STAZPIPBL;ZEROPAGE IP-BEGIN LOWVc LDALEVJIP,X;LENGTH VANJACOBSEN IP-HEADER V.AKT.CON-NUMAV‹c STAZPTCBL;ZEROPAGE TCP-BEGIN LOWWV•c INCL25053+1;1->2iVŸc JMPL27673;" xV©cL25503 DEY‡V³c BNEL25573ŸV½c TXA;=CHECKSUM HIGH¬VÇc LDY#$10¿VÑc STA(ZPTCBL),YÕVÛc INCL25053+1;2->3çVåc JMPL27673;" öVïcL25573 DEYWùc BNEL25703Wd TXA;=CHECKSUMME LOW+W d LDY#$11>Wd STA(ZPTCBL),YTW!d INCL25053+1;3->4˜W+dL25633 LDA#$FF;BIT-MASK-BYTE = 1.BYTE <------------------------¥W5d AND#$0FºW?d CMP#$FF;SAWU???ÉWId BEQL25673äWSdL25673 CMP#$FF;SAWU???óW]d BEQL25673Xgd JMPL27673;" XqdL25703 DEY#X{d BNEL26203BX…d LDAL25633+1;BIT-MASC-BYTE`Xd LSR;URGENT-BIT INS CARRYoX™d BCCL25843ŒX£d LDY#$12;=URGENT POINTER¶X­d LDA#$00;=NICHT DELTA SONDERN ABSOLUTëX·d STA(ZPTCBL),Y;=>MUSS ALTEN WERT AUF 0000 SETZENôXÁd INYYËd STA(ZPTCBL),YYÕd LDY#$13+Yßd LDA#$BE;%101111104Yéd SECFYód JMPL26103;" UYýdL25843 LSRdYe BCCL25903yYe LDY#$0F;=WINDOWYe LDA#$BD;%10111101™Y%e SEC«Y/e JMPL26103;" ºY9eL25903 LSRÉYCe BCCL25963æYMe LDY#$0D;+3 =ACKNOWLEDGEýYWe LDA#$FB;%11111011Zae SECZke JMPL26103;" 'ZueL25963 LSR6Ze BCCL26023OZ‰e LDY#$09;+3 =SEQUENZfZ“e LDA#$F7;%11110111oZe SECZ§e JMPL26103;" £Z±eL26023 LDY#$07;+3 =IDENTIFIERºZ»e LDA#$1F;%00011111ÑZÅe CLC;???? SEC???" æZÏe;X=GEHOLTES BYTEöZÙe;Y=Y-VECTOR[ãe;A=BIT7: 00=IP- 80=TCP-HEADER8[íe;A=BIT6: 00=2- 40=4-STELLIGs[÷e;A=BIT5-0: GERADE BEHANDELTES BIT, BEREITS INVERTIERT" Š[fL26103 STYL26283+1›[ f STAL26293+1¨[f AND#$3F¹[f STAL26583+1é[)f TXA;=1.GEHOLTES BYTE VON UEBRTRAGENEM WERT \3f BEQL26183;B.I.GROESSER 255G\=f LDA#$00;HIGHBYTE AUF #00 =IM BEREICH 1-255 1-FFY\Gf JMPL26263;" u\Q fL26183 INCL25053+1;4->5‹\[f JMPL27673;????" š\efL26203 DEY©\of BNEL26253Ô\yf STXL26253+1;=5 = HIGHBYTE V.3-STELLIGä\ƒf INC30100+1ú\f JMPL27673;????" -]—fL26253 LDA#$FF;HIGHBYTE =6=LOWBYTE V.3-STELLIGN]¡fL26263 PHA;RETTET AUF STAPELW]«f CLCj]µ fL26283 LDY#$FFƒ]¿fL26293 LDX#$FF;00/80®]Éf BMIL26383;B.I.IN TCP-HEADER SCHREIBENÁ]Óf ADC(ZPIPBL),YÔ]Ýf STA(ZPIPBL),YÝ]çf DEYæ]ñf PLAù]ûf ADC(ZPIPBL),Y ^g STA(ZPIPBL),Y^g JMPL26583;" 7^gL26383 ADC(ZPTCBL),YJ^#g STA(ZPTCBL),YS^-g DEY\^7g  PLAo^Ag ADC(ZPTCBL),Y‚^Kg STA(ZPTCBL),Y¤^Ug BCCL26583;B.I.KEIN UEBERTRAG­^_g TXA¶^ig ASLÓ^sg BPLL26583;B.I.2-STELLIGç^}g DEY;=4-STELLIGú^‡g LDA(ZPTCBL),Y_‘g SEC_›g ADC#$00#_¥g STA(ZPTCBL),YE_¯g BCCL26583;B.I.KEIN UEBERTRAGN_¹g DEYa_Ãg LDA (ZPTCBL),Yn_Íg ADC#$00_×g STA(ZPTCBL),Y¬_ágL26583 LDA#$FF;GERADE BEARBEITETES BIT½_ëg ANDL25633+1í_õg STAL25633+1;LOESCHT SEBEN BEARBEITETES BITú_ÿg AND#$2F-` h BEQL26663;B.I.ALLE AENDERUNGS-BITS BEARBEITET:`h LDA#$04K`h STAL25053+1a`'h JMPL27673;????" ‹`1hL26663 LDXVJCONU;VJ CONNECTION NMUBER¾`;h LDYLEVJPU,X;LENGTH VJ PUFFER (=IP+TCP-HEADER)ô`EhL26683 LDA(ZPIPBL),Y;KOPIERT HEADER VON 8C00-8DFFaOh STA$EE01,Y aYh DEYach BPLL26683-amh LDYLEVJPU,X6awh INYGah STYL24863+1ba‹h JMPL27673;?????????" a•h;WENN HEDER FERTIG -> NACH EE00 KOPIERENªaŸh;AM ENDE LENGTH SETZENßa©h;EVTL NOCH IP-CHECKSUM BERECHNEN ODER UEBERGEHENôa³h;URGENT BIT?????b½hL26803 ASL0bÇh BMIL27323;B.I.C0=ADDRESS/CONTROLL-FIELD`bÑh TXA;GELESENS BYTE =80 =2F =UNCOMPRESSED VJsbÛhL26833 LDY#$00‚båh BNEL26923¦bïh AND#$0F;=BYTE 0 DES IP-HEADERSÅbùh ASL;*4=LANGE D.IP-HEADERSÎbi ASLßb i STAL27203+1òbi ADC#$0C;C=LOWc!i STAL27163+1c+i JMP0;" #c5iL26923 CPY#$092c?i BNEL27143_cIi STA0;=CONNECTION NUMBER 0-3 0 1 2 3ŒcSi STA0;=CONNECTION NUMBER 0-3 0 1 2 3¹c]i LSR; 0C 0S 1C 1Sécgi ORA#$8C; 8C 8C 8D 8Dõcqi STA0+2d{i STAL27103+2d…i STAL27153+2$di LDA#$00Qd™i ROR; 00 80 00 80]d£i STA0+1nd­i STAL27103+1d·i STAL27153+1³dÁi LDA#$06;=FLAG F. TCP ANSTATT CONNECTION NUMBERÁdËi STA$EE0AÎdÕi LDX#$09ädßiL27093 LDA$EE01,XúdéiL27103 STA$8FF0,Xeói DEXeýi BPLL27093ej JMP0;" 4ejL27143 BCCL27253JejL27153 STA$8FF0,YŠe%jL27163 CPY#$FF;=DATA-OFFSET D.TCP-HEADERS=TCP-HEADER-LENGTH—e/j AND#$F0 e9j LSR©eCj LSRÍeMjL27203 ADC#$FF;IP-HEADER-LENGTHûeWj LDYVJCONU;VAN-JACOBSEN CONNECTION NUMBER faj STALEVJPU,Yfkj STAL27253+1*fuj JMP0;" TfjL27253 CPY#$FF;HEADER (IP+TCP) LENGTHcf‰j BCSL27293zf“jL27273 INCL26833+1‡fj JMP0;" šf§jL27293 LDA#$00µf±j STA0;=ENDE VON HEADERÂf»j JMP0;" ñfÅjL27323 LDY#$FF;=C0=ADDRESS-/CONTROLL-FILED)gÏj;00=2D 2F 002D 002F FF032D FF032F FF03002D FF03002FagÙj;01= 032D 032F 03002D 03002Fygãj;02=2D 2F 002D 002F‡gíj;03=2D 2F–g÷j BEQL27463Ÿgk DEY®g k BEQL27433·gk DEYÆgk BEQL27483Øg)k BNEL27503;" ëg3kL27433 CPX#$03ÿg=k BEQL27623;1->2hGk BNEL27543;" $hQkL27463 CPX#$FF8h[k BEQL27603;0->1KhekL27483 CPX#$00_hok BEQL27643;X->3rhykL27503 CPX#$2Dhƒk BEQL27583Žhk CPX#$2Fh—k BEQL27563Æh¡kL27543 LDA#$00;FLAG F. KEIN VJ-PAKETÚh«k .BY$2C;BIT....íhµkL27563 LDA#$80i¿k .BY$2C;BIT....iÉkL27583 LDA#$40*iÓk .BY$2C;BIT...." =iÝkL27603 LDX#$01Qiçk .BY$2C;BIT....diñkL27623 LDX#$02xiûk .BY$2C;BIT....‹ilL27643 LDX#$03œil STAL24943+1­il STXL27323+1Äi#lL27673 INCL24863+1Ói-l BNEL27733äi7l INCL24863+2õiAl LDXL24863+2jKl CPX#$F4;TEST OB LANGER ALS 1.5KBMjUl BEQL27823;FEHLER WENN PPP LAENGER ALS 1,5KBsj_lL27733 INCL24713+1;ANFANG V.LESEN‚jil BNEL27813“jsl LDXL24713+2œj}l INX©j‡l CPX#$EE¸j‘l BNEL27803Åj›l LDX#$E0Üj¥lL27803 STXL24713+2üj¯lL27813 JMPL24643;-------" @k¹lL27823 LDA#$00;WANN BESCHRIEBEN? GIBT UEBERTRAGENEN PPP PUFFYkÃl;!!!!!!!PROVISORISCHhkÍl BEQL27933†k×l LDAL24863+1;SCHREIBENLOW¹kál LDXL24863+2;SCHREIBEN HIGH (=JETZT ENDE (+1))Âkël SECàkõl SBC#$03;BERECHNET LAENGEïkÿl BCSL27903øk m DEXlmL27903 STA$EE04;LAENGE LOW1lm STX$EE03;LAENGE HIGHkl'm;BEI B-MAIN NOCH PRUEFSUMME UEBER IP HEADER ENTFERNEN‘l1mL27933 LDAL24713+1;LESEN ENDE LOW±l;m STABERELO;ZEIGT AUF ENDE+1ÒlEm LDAL24713+2;LESEN ENDE HIGHálOm STABEREHImYm;!!!NOCH FLOW-CONTROL MACHEN mcm LDXL24863+1;SCHREIBENLOWSmmm LDYL24863+2;SCHREIBEN HIGH (=JETZT ENDE (+1))dmwm STYL28163+1qmm LDA#$00—m‹m STAL24863+2;FLAG FUER PUFFER NEU¤m•m CPY#$F4ÏmŸm BEQL28093;B.I.PAKET GROESSERASL 1,5KBÜm©m CPY#$EEn³m BNEL28103;B.I.BLOCK > 256 BYTESn½m CPX#$040nÇm BCSL28103;B.I.BLOCK >3 BYTESanÑmL28093 JMPL24163;NOCHMAL VON VORNE-------" tnÛmL28103 LDA#$FFnåm CMPL24883+1;CMP CRCLOWÈnïm BNEL28193;B.I.NICHT 1ER-COMPLEMENT V.#$00 (<>#$FF)änùm CMPL24873+1;CMP CRCHIGon BNEL28193;B.I.CRC-ERROR o n LDAL24863+1;ENDE LOW (+1)fonL28163 LDX#$FF;ENDE HIGH (+1)(L24863+2 GEHT NICHT,WEIL GELOESCHT)oo!n CLC{o+n RTS;" ”o5nL28193 LDA#<(TXCRER)§o?n LDX#>(TXCRER)ÀoIn JSRPRTEXT;CRC-ERRORÉoSn SECÝo]n RTS;-------" ìo¨÷L63400 NOP;pÐ÷;===================================================================L======JpÚ÷ .IFMODE=2^pä÷ .AP"4-MAIN*",8gpî÷ .ELppø÷ .EN}pø .EI;" 1;CMP CRCLOWÈnïm BNEL28193;B.I.NICHT 1ER-COMPLEMENT V.#$00 (<>#$FF)änùm CMPL24873+1;CMP CRCHIGon BNEL28193;B.I.CRC-ERROR o n LDAL24863+1;ENDE LOW (+1)fonL28163 LDX#$FF;ENDØ÷*N;!MIT ZEILE 20012 BEGINNEN 4N; .EQ MODE=0) >N; .EQ MODE=18 HN .IFMODE=2A RN .ELR \N .EQZPA0=$50c fN .EQZPA1=$51t pN .EQZPA2=$52… zN .EQZPA3=$53– „N .EQZPA4=$54§ ŽN .EQZPA5=$55¸ ˜N .EQZPA6=$56É ¢N .EQZPA7=$57Ú ¬N .EQZPA 8=$58ë ¶N .EQZPA9=$59ü ÀN .EQZPB0=$60 !ÊN .EQZPB1=$61!ÔN .EQZPB2=$62/!ÞN .EQZPB3=$63@!èN .EQZPB4=$64Q!òN .EQZPB5=$65b!üN .EQZPB6=$66s!O .EQZPB7=$67„!O .EQZPB8=$68•!O .EQZPB9=$69¨!$O .EQENRELO=$F7»!.O .EQENREHI=$F8Î!8O .EQBERELO=$FBá!BO! .EQBEREHI=$FCô!LO .EQTXMOAD=999"VO .EQBEBUHI=999"`O .EQENBULO=999-"jO .EQENBUHI=999@"tO .EQCRCLOW=999S"~O .EQCRCHIG=999f"ˆO .EQCRCBYT=999y"’O .EQCOOFON=999Œ"œO .EQAUNOYE=999Ÿ"¦O .EQWABUSE=999²"°O .EQCOFOAU=999Å"ºO .EQSESTAT=999Ø"ÄO .EQSEI"PAD=999ë"ÎO .EQCLIPAD=999þ"ØO .EQPRIDNS=999#âO .EQSECDNS=999$#ìO .EQPRSEDN=9997#öO .EQSENEDN=999L#P .EQSEBU01=$F400a# P .EQSEBU02=$FA00t#P .EQPSACCO=999‡#P .EQPSIDAD=999š#(P .EQPRMERC=999­#2P .EQPRMESE=999À#

) S .EQAPRETS=999Q)*S .EQAPDELE=999d)4S .EQAPQUIT=999w)>S .EQAPFINP=999Š)HS .EQEXSESE=999)RS .EQEXSEAC=999°)\S .EQSETCAN=999Ã)fS .EQAPWRAC=999HDR+1 CHECKSUMME IP HEADER ,‹T CLC;NICHT SEC => ZUSAETZLICH -1&,•T SBCZPA0;BEGINN IP-HDR+1A,ŸT TAY;=LANEGE IP-HDR -1N,©T LDX#$00],³T STXCRCLOWf,½T SEC{,ÇTL21693 LDACRCLOWŒ,ÑT SBC(ZPA0),Y›,ÛT STACRCLOW¤,åT DEY­,ïT TXA¾,ùT SBC(ZPA0),YÇ,U TAXÐ, U DEYò,U BPLL21693;CARRY MUSS BLEIBEN-!U LDACRCLOW-+U SBC#$00-5U STACRCLOWQ-?U TXA;CRCHIGH=#$00 UND CARRY=CLOSE GIBT ES NICHT^-IU SBC#$00m-SU STACRCHIG†-]U TAX;CHECKSUMME HIGH•-gU ORACRCLOWž-qU TAY¼-{U LDACRCLOW;CHECKSUMME LOWÉ-…U CPY#$00Û-U RTS;-----" .™UL21903 SEC; CHECKSUMME PSEU-HDR+TCP-HDR+TCP-DAT=.£U LDAZPA6;END TCP-DATEN +1 LOW].­U SBCZPA2;BEGINN TCP-HDR LOW†.·U STAL22463+1;LAENGE LOW PSEUDOHEADER©.ÁU LDAZPA7;END TCP-DATEN +1 HIGHÊ.ËU SBCZPA3;BEGINN TCP-HDR HIGHô.ÕU STAL22493+1;LAENGE HIGH PSEUDOHEADER/ßU LDAZPA2;BEG.TCPHDRLOL/éU STAZPA8; ZPA2/ZPA3 FA15 FA15 FA15 FA15†/óU CLC;-1! ZPA6/ZPA7 FA2F FA2E FB01 FBFFÃ/ýU LDAZPA6;ENDE TCP-DATEN+1 LOW 2F 2E 01 FF0V SBCZPA2;BEGINN TCP-HDR 15 15 15 15:0V TAY;LAENGE LOW-1 19S 18S EBC E9Sw0V LDAZPA7;ENDE TCP-DATEN+1 HIGH FA FA FB FB´0%V SBCZPA3;BEGINN TCP-HDR FA FA FA FAô0/V STACRCHIG;LAENGE HIGH TEMPORAER-SPEIC. 00S 00S 00S 01Sý09V CLC:1CV ADCZPA3; FA FA FA FAw1MV STAZPA9;BEGINN TCP-HDR HIGH FA FA FA FB„1WV LDX#$00“1aV STXCRCLOWœ1kV SEC²1uV TYA;LAENGE LOW-1Á1V BEQL22253Þ1‰V AND#$01;GERADE/UNGERADE2“V BNEL22203;B.I.UNGERADE LAENGE-12VL22163 TXA>2§V SBC(ZPA8),Y;TCP-HDR+TCP DATEN HIGHBYTEG2±V TAXP2»V DEYe2ÅVL22203 LDACRCLOW2ÏV SBC(ZPA8),Y;TCP-HDR+TCP-DATEN LOWBYTEŸ2ÙV STACRCLOW¨2ãV DEYÊ2íV BNEL22163;CARRY MUSS BLEIBENÙ2÷VL22253 TXA3W SBC(ZPA8),Y;TCP-HDR+TCP DATEN HIGHBYTE3 W TAX3W DEY$3W DECZPA9]3)W DECCRCHIG;COMPARE GEHT NICHT,WEIL CARRYBLEIBEN MUSS‹33W BPLL22203;!!!NOCH BEISPIELE AUSPROBIEREN¬3=W LDY#$13;ENDE DESTINATION IP»3 GW STXCRCHIGì3QW LDX#$04;4 DOUBLE BYTES PSEUDO HEADER4[WL22353 LDACRCLOW/4eW SBC(ZPA0),Y;DESTINATION-IP+SOURCE-IP LOW>4oW STACRCLOWG4yW DEYV4ƒW LDACRCHIG…4W SBC(ZPA0),Y;DESTINATION-IP+SOURCE-IP HIGH”4—W STACRCHIG4¡W DEY¦4«W DEXÈ4µW B NEL22353;CARRY MUSS BLEIBEN×4¿W LDACRCLOW5ÉWL22463 SBC#$FF;LAENGE PSEUDOHEADER LOW;5ÓW STACRCLOW;ENTSPRICHT "SBC TCP-LAENGE" (OHNE IP-HDR){5ÝW LDACRCHIG;PSEUDOHADR-LAENGE=TCP-HDR+TCP-DATEN (OHNE IP-HDR¦5çWL22493 SBC#$FF;LANGE PSEUDOHEADER HIGH¯5ñW TAX¼5ûW LDY#$09Ë5X LDACRCLOWí5X SBC(ZPA0),Y;PROTOCOLL 06=TCPü5X STACRCLOW6#X TXA6-X SBC#$0067X TAX*6AX LDACRCLOW76KX SBC#$00F6UX STACRCLOWz6_X TXA;CRCHIGH=#$00 UND CARRY=CLOSE GIBT ES NICHT‡6iX SBC#$00–6sX STACRCHIG¯6}X TAX;CHECKSUMM E HIGH¾6‡X ORACRCLOWÇ6‘X TAYå6›X LDACRCLOW;CHECKSUMME LOWò6¥X CPY#$007¯X RTS;-----" L7¹XL22703 STAL22873+2;BEGIN BUFFER HIGH CRC~7ÃX STXL22873+1;END BUFFER LOW (+1) BEGINN=F400À7ÍX STYL23103+1;END PUFFER HIGH (+1)  F401 F402 F4FF F500 F501ú7×X DEX;EINER COMPLEMENT 00 01 FE FF 008áX TXAA8ëX EOR#$FF; FF FE 01 00 FFJ8õX TAYŠ8ÿX BEQL22793; F401 F402 F4FF F400 F401Ì8 Y DECL22873+2;  F301 F302 F3FF F3019YL22793 LDA#$F3;STARTWERT HABE ICH EMPIRISCH PROBIERT BIS GEHT39Y STACRCLOW;UNLAR,OB KORREKT?????^9'Y LDA#$21;ALLES GESPIEGELT, REFLEKTIERTp91Y STACRCHIG;" •9;YL22833 LDXCRCHIG;ANFANG CRC-FAST¤9EY LDACRCLOWµ9OY EORTACRHI,XÄ9YY STACRCHIGÚ9cYL22873 LDA$FFFF,Yë9mY EORTACRLO,X:wY STACRCLOW;ENDE CRC-FASTF:Y;L22873 LDA $FFFF,Y ;BEGINN CRC-SLOW (OHNE TABELLEN)V:‹Y;STA CRCBYT_:•Y;SECy:ŸY;L63000 ROR CRCBYT±:©Y;BEQ L23063 ;ABFRAGE OB ENDE FALLS OBIT GEWESENÛ:³Y;L63010 ROR CRCLOW ;GESPIEGELTû:½Y;ROR CRCHIG ;GESPIEGELTA;ÇY;BCC L63000 ;B.I.0 BIT=>KEINE DIVISSION WICHTIG DASS CARRYLOWQ;ÑY;LDA CRCLOW;ÛY;EOR #$84 ;(X^16+)X^12+X^5+1=011021=1021 GESPIEGELTŸ;åY;STA CRCLOW¯;ïY;LDA CRCHIGí;ùY;EOR #$08 ;(X^16+)X^12+X^5+1=011021=1021 GESPIEGELTý;Z;STA CRCHIG < Z;LSR CRCBYTU<Z;BNE L63010 ;ABFRAGE OB ENDE FALLS 1 BIT GEWESEN ENDE CRC-SLOWdËZ RTS;A=CRCLOW X=CRCHIGH EQUAL=CRC-OK NOTEQUAL=CRCFEHLERB>ÕZ;HAT PUFFER + 2CRC-BYTES: ERHAELT #0000 WENN CRC=OKx>ßZ;HAT PUFFER + 2 #00-BYTES: ERHAELT ZWEI CRC BYTES¼>éZ;AN PPP-BLOCK WIRD ZUERST CRCHIGH UND ZULETZT CRCLOW ANGEHAENGTð>óZ; DIE ERRECHNETE CRC-BYTES SIND BEREITS RICHTIG.?ýZ;D.H. SIE MUESSEN NICHT GESPIEGELT ODER INVERTIERT WERDENV?[;-------------------------------"  ?[L23303 STAL23363+1;ANFANG LOW PPP-COMMANDOS ZU SERVER½?[ STXL23363+2;ANFANG HIGHä?%[ STYL23393+1;LANGE (+1) (MAX 255)ñ?/[ LDY#$83@9[ JSRPRMESE;SND CFGR RQSY.@C[ LDX#$002@M[L23363 LDA$FFFF,XH@W[ STASEBU02,X;FA00Q@a[ INXy@k[L23393 CPX#$00;X=LAENGE=ENDE LOW +1ˆ@u[ BNEL23363±@[ LDY#$FA;X=ENDE LOW (+1) Y=ENDE HIGHÙ@‰[;-------------------------------" A“[L23433 LDA#$FA;SEND BUFFER AUSGEBEN A[ .BY$2C A§[L23453 LDA#$F4CA±[L23463 STAL23843+2;ANFANG HIGH`A»[ STAL23783+1;ANFANG HIGHAÅ[ STXL23543+1;ENDE LOW (+1)AÏ[ STXL23743+1°AÙ[ STYL23543+2;ENDE HIGH (+1)ÁAã[ STYL23743+2ÖAí[ PHA;ANFANG HIGHãA÷[ LDA#$00B\L23543 STA$FFFF;HAENGT 1 #00 ANB \ INXB\ BNEL23583(B\ INY?B)\L23583 STXL23623+1PB3\ STXL23753+1aB=\ STYL23623+2rBG\ STYL23753+2—BQ\L23623 STA$FFFF;HAENGT 2. #00 AN B[\ INX¯Be\ BNEL23663¸Bo\ INYåBy\L23663 STXL24063+1;ENDE LOW MIT CRC (+1) Cƒ\ STXL23793+1;ENDE LOW MIT CRC (+1)4C\ STYL24093+1;ENDE HIGH MIT CRC (+1)\C—\ STYL23803+1;ENDE HIGH MIT CRC (+1)iC¡\ LDA#$00zC«\ STAL23843+1©Cµ\ PLA;A=ANFANGHIGH X=ENDELOW(+1) Y=ENDEHIGHÃC¿\ JSRL22703;CRC BILDENßCÉ\L23743 STX$FFFF;CRCHIGHúCÓ\L23753 STA$FFFF;CRCLOW,DÝ\ LDAROIOSE;I/O-ROUTINE 0=KERNAL+OUTPUT-PUFFERXDç\ BEQL23823;B.I.SPEICHERN IN SEND-BUFFERwDñ\L23783 LDA#$FF;AMFANG HIGHžDû\L23793 LDX#$FF;ENDE LOW MIT CRC +1ÆD]L23803 LDY#$FF;ENDE HIGH MIT CRC +1ìD] JMP$C006;PUFFER OUT ROUTINE---" ,E]L23823 LDA#$7E;=LANGSAME OUT-ROUTINE,DIE IN PUFFER SCHREIBT;E#] JSRBYRSOUOE-]L23843 LDA$FFFFiE7] BMIL24013;B.I.$80-FFvEA] CMP#$7DEK] BCSL23963;B.I.$7D-7FEU] CMP#$20·E_] BCSL24013;B.I.$20-7CÆEi] BITCOOFONéEs] BPLL23963;B.I.COMPRESSION OFFöE}] CMP#$13F‡] BEQL23963F‘] CMP#$11!F›] BNEL24013?F¥]L23963 PHA;= 00-1F 7D-7FLF¯] LDA#$7D[F¹] JSRBYRSOUdFÃ] PLAqFÍ] EOR#$20†F×]L24013 JSRBYRSOU—Fá] INCL23843+1¦Fë] BNEL24053·Fõ] INCL23843+2ÆFÿ]L24053 SECâF ^L24063 LDA#$FF;ENDE LOWóF^ SBCL23843+1G^ BNEL23843G'^L24093 LDA#$FF;ENDE HIGH0G1^ SBCL23843+2?G;^ BNEL23843LGE^ LDA#$7EdGO^ JMPBYRSOU;------" ‘GY^L24143 LDAL24863+2;PPP PAKET ANALYSIEREN½Gc^ BNEL24643;B.I.BEREITS ANFANG IN PUFFERÌGm^L24163 SECëGw^ LDAENRELO;END RECEIVE LOW H^ SBCBERELO;ANFANG RECEIVE LOW3H‹^ BNEL24253;B.I. PUFFER NICHT LEERRH•^ LDAENREHI;END RCEIVE HIGHuHŸ^ SBCBEREHI;ANFANG REICEVE HIGH“H©^ BNEL24253;B.I.NICHT LEERÔH³^L24233 SEC;FLAG FUER (NOCH) KEIN PPP-PAKET KOMPLETT ERHALTENèH½^ RTS;-------" ûHÇ^L24253 LDY#$00IÑ^ LDA(BERELO),YIÛ^ CMP#$7EBIå^ BEQL24383;SUCHT ANFANG DES BLOCKSWIï^L24293 INCBERELOfIù^ BNEL24163uI_ LDXBEREHI~I _ INX‹I_ CPX#$EEšI!_ BNEL24363§I+_ LDX#$E0¼I5_L24363 STXBEREHIÖI?_ JMPL24163;-------" üII_L24383 LDYBERELO;POS DES START-FE JS_ LDXBEREHIJ]_ INY#Jg_ BNEL24463,Jq_ INX9J{_ CPX#$EEHJ…_ BNEL24463UJ_ LDX#$E0ˆJ™_L24463 STYL24713+1;LESEN LOW 1.ZEICHEN  NACH FE™J£_ STXL24713+2¦J­_ LDA#$F3ÂJ·_ STAL24883+1;STA CRCLOWÏJÁ_ LDA#$21ëJË_ STAL24873+1;STA CRCHIG7KÕ_;CRCLOW CRCHIG GEHT NICHT, WEIL WENN PAKET (WIEDERHOLUNG) GESENDET WIRD[Kß_;=>CRCLOW CRCHIG WIRD GEAENDERThKé_ LDX#$C0¦Kó_ STXL24943+1;BYTE !VJ COMPRESSION AUF ADDRESSCONTROLLFIELD¸Ký_ LDX#$00;#$00æK` STXL24793+1;FLAG F.KEIN ESCAPTES ZEICHENL` STXL24863+1;SCHREIBEN LOW2L` STXL25053+1;FLAG,DASS 1.BYTE V.VJ-PAKETrL%` STXL27323+1;FLAG,DASS 1.ZEICHEN VON ADDRESS/CONTROLL-FIELD‹L/`;STX " ???????????˜L9` LDA#$EEÂLC` STAL24863+2;SCHREIBEN HIGH-------" éLM`L24643 SEC;HAT ANFANGS FE GEFUNDENMW` LDAENRELO;END RECEIVE LOWMa` SBCL24713+1IMk` BNEL24713;B.I.PUFFER NICHT ZU ENDE GELESENXMu` LDAENREHIiM` SBCL24713+2M‰` BEQL24233;B.#I.PPP NICHT KOMPLETTÒM“`L24713 LDX$FFFF;ZEIGT AUF NAECHSTES ZU LESENDES BYTE E000-EDFFßM` CPX#$7EîM§` BNEL24753N±` JMPL27823;=ENDE DES PPP PAKETS" 'N»`L24753 CPX#$7DNNÅ` BNEL24793;B.I.KEIN ESCAPE ZEICHENˆNÏ` INCL24793+1;00->01 FLAG FUER ESACAPTE$S ZEICHEN FOLGT¢NÙ` JMPL27733;-------" µNã`L24793 LDA#$FFÄNí` BEQL24863îN÷` LDA#$00;FLAG F.KEIN ESCAPTES ZEICHENÿNa STAL24793+1O a TXAOa EOR#$20Oa TAXFO)aL24863 STX$FFFF;SCHREIBEN EE00-F3DCdO3aL24873 LDY#$FF;LDX CRCHIG‚O=aL24883 LDA#$FF%;LDA CRCLOW“OGa EORTACRHI,Y¯OQa STAL24873+1;STA CRCHIG¸O[a TXAÉOea EORTACRLO,YåOoa STAL24883+1;STA CRCLOWPyaL24943 LDA#$FF;ANALYSE-BYTE VAN-JACOBSEN-COMPRESSEIONnPƒa;00=KEINE COMPRESSION X=GEHOLTES BYTEƒPa;4&0=2D=COMPRESSE›P—a;80=2F=UNCOMPRESSED»P¡a;C0=ADDRESS-/CONTROLL-FIELDþP«a; BNE L25013 ;B.I.COMPRESSION PROVISORISCH!Qµa JMPL27673;KEINE COMPRESSION" =Q¿aL25013 BPLL25033;B.I.40QQÉa JMPL26803;<>40vQÓaL25033 LDA#$21;=40=2D=COMPRES'SED„QÝa STA$EE00šQçaL25053 LDY#$FF;" °Qña;0=BYTE MIT FLAGSÉQûa;1=CONNECTION NUMBERâQb;2=TCP-CHECKSUM HIGHüQb;3=TCP-CHECKSUM LOW" *Rb;4=1.BYTE V.JEDEM UEBERTRAGEN WERT (1-FF)^R#b;5=2.BYTE (HIGHBYTE) (NUR FALLS 1.BYTE #00 IST)xR-b;6=3.BYTE (LOWBYTE)" ‡R7b BNEL25323©RAb STXL25633+1;=BYTES MIT FLAGS²RKb TXAÁRUb INY;#$ 01ÊR_b ASLùRib BPLL25213;B.I.CONNECTION-NUMBER BIT = LOWSsb INY;#$02ES}b;!!PUFFERVECTORE BEIM EMPFANGEN V. UNCOMPRESSED IP SETZEN\S‡bL25213 STYL25053+1iS‘b LDY#$0D S›b ^ INCL24229+2¥Gá^ LDAL24229+2²Gë^ CMP#$C0ÝGõ^ BNEL24719;B.I.4KB-ENDE NICHT ERREICHTþGÿ^ CMPL24779+2;ENDE EMAIL HIGHH _ BEQL24869;B.I.EMAIL ZU ENDEeH_;=B.I.LETZTE 4KB DISKPUFFER GENAU 4KB LANG IST UND BEI C000 ENDET‘H_L24349 STYL24699+1;SPEICHERT Y ZWISCHEN§H'_ JSR$C00C;NMI OFFÈH1_ JSR$9009;4KB VON DISK LADENæH;_ BEQL24669;B.I.FEHLERFREIóHE_ CMP#$40IO_ BEQL24649;B.I.FILEENDE'IY_ CPX#$EA;DISKFEHLER`Ic_ BCCL24459;TEST OB GENNUG PLATZ AM ENDE F.FEHLERTEXTmIm_ CPY#$BF|Iw_ BCCL24459I_ LDX#$EA;Y=#$BF§I‹_L24459 STXL24539+1¸I•_ STYL24539+2ÅIŸ_ LDA#$4FÒI©_ LDX#$80õI³_ JSRPRTEXT;FEHLERKANAL PRINTENJ½_ LDX#$00-JÇ_L24519 LDATXCLER,X;TEXT-C64-LOAD-ERRORtJÑ_;WICHTIG IST CR-LF-.-CR-LF AM ENDE, DAMIT SERVER EMAILENDE ERKENNT¹JÛ_L24539 STA$FFFF,X;HAENGT ANS ENDE DES KORREKT GELADENEN TEILS ANÂJå_ INXÏJï_ CPX#$16ÞJù_ BCCL24519K` LDAL24539+1;LOW SCHREIBVECTRO"K ` ADC#$15;CARRY=HIGH=>ADC#$16+K` TAXEXSESE SOLLTE NUR AM ANFANG ERHOEHT WERDENˆPa;UND DANN IMMER GLEICH BLEIBEN=>KOENNTE EVTL.NUR EINMA L AM ANFANG KOPIERT»P‰a;WERDEN UND HIER NICHT MEHR UM ZEIT ZU SPAERN?ÎP“a STATCPHDR+8,Y×Pa DEYæP§a BPLL24929ïP±a CLCüP»a LDY#$03/QÅaL25029 LDATCPHDR+4,Y;=ZULETZT GESENDETE SEQ-NRqQÏa ADCAOSTD0,Y;ANZAHL ZULETZT GESENDETER DATEN (Z.B.'DATA CR LF¥ QÙa STATCPHDR+4,Y;=AKTUELL GESENDETE CLIENT-SEQ-NRßQãa;FALLS BEI 3-MAIN STA ESSEAC,Y GESTRICHEN WERDEN KANN!Ría;KANN DIES EVTL.WEG UND 3-MAIN BEI SETCAN ANGESPRUNGEN WERDEN*R÷a DEY9Rb BPLL25029BR b SECWRb LDABETCDA;29/2CdRb STAZPA4qR)b SBC#$14 ~R3b STAZPA2‹R=b SBC#$14˜RGb STAZPA0§RQb LDAEXACBU°R[b ASL¹Reb TAXÞRobL25199 LDA#$FF;ENDE TCPDATEN LOWSyb STAENTDS0,X;END TCP DATA SENDBUFFER 0-3 LOWSƒb STAZPA6ASb LDAL24249+2;ENDE TCP DATEN HIGHuS—b STAENTDS0+1,X;END TCP-DATA SENDBUFFER 0- 3 HIGH‚S¡b STAZPA7S«b AND#$FEœSµb STAZPA5©S¿b STAZPA3¶SÉb STAZPA1ÙSÓb JSRSEIPCH;SEND IP COPY HEADER$TÝb;ADDIERT ANZAHL GESENDETER DATE NICHT ZU ERWARTETER SERVER SEQ-NR DAZUXTçb;BERECHNET ANZAHL SOEBEN GESENDETER DATEN NICHTgTñb LDAEXACBUpTûb ASLyTc TAXTc BIT$DD0B;ANHALTEN™Tc CLC«T#c LDA$DD09;SEK´T-c SEDÁT7c ADC#$04ÎTAc CMP#$60ÝTKc BCCL25439êTUc SBC#$60ùT_cL25439 CLD$Uic STATIRES0+1,X;TIME REPEAT SENDBUFFER0?Usc LDA$DD08;1/10 STARTENPU}c STATIRES0,X]U‡c LDA#$80U‘c STAINFLSE;FLAG,DASS TCP-DATEN GESENDET WURDEN™U›c SEC±U¥c LDAZPA6;ENDE+1 LOWÉU¯c SBCZPA4;BEGINN LOWöU¹c STAAOSTDL;AMOUNT OLD SEND TCP-DATAS LOWVÃc LDAZPA7VÍc SBCZPA5V×c STAAOSTDHmVác;AOSTD0 DARF BEIM SENDEN NICHT BERECHNET WERDEN,WEIL PROBLEM BEIM WIEDER-‘Vëc;HOLEN: BEISPIEL:EMAIL MIT 9KB: Võc; S0 = 4KB¯Vÿc; S1 = 4KB¾V d; S2 = 1KB÷Vd; ZULETZT WIRD S2 UEBERTRAGEN => AOSTD MUSS 1KB SEIN7Wd;WENN S0 VERLOHREN GINGE UND S0 WIEDERHOLT WERDEN MUESSTE=>UW'd;AOSTD WAERE 4 STATT 1 KBdW1d LDAEXACBUmW;d ASLvWEd ASLƒWOd ADC#$03ŒWYd TAX™Wcd LDY#$03¢Wmd CLCÓWwdL25719 LDATCPHDR+4,Y;SOEBEN GESENDETE SEQ-NRXd ADCAOSTD0,Y;SOEBEN GESENDETE ANZAHL DATAS8C (8C=WARTEN AUF 250 OK VON SERVER ASL ENDE]f CLC;FLAG F.LETZTES PAKET WURDE ACKNOWLEDGT]§f RTS;" Z]¨f;PROBLEM:SERVER KANN ACK AUF END-PAKET SENDEN ABER 250OK-MELDUNG KANN©]©f;VERLEOHREN GEHEN => BEI 8C (WARTEN AUF 250OK) MUSS ENDPAKET GESENDET WERDÒ]±f;=================================" ^»fL26299 LDA#$FF;FLAG F.C64-LOAD-ERROR ANALYSE SMTP SEND WAS OKJ^Åf BEQL26459;B.I.C64-EMAIL-LADEN ALLES OK GEWESEN]^Ïf LDA#<(TXLOER)p^Ùf LDX#>(TXLOER)^ãf JSRPRDIER”^ífL26349 JSRGETKEY¡^÷f CMP#$31º^g BEQL26579;B.I.AGAINÇ^ g CMP#$32Ö^g BNEL26419ô^g JSR$C00C;NMI OFF =SKIP_)g JMPL26529;" _3gL26419 CMP#$33(_=g BNEL26349:_Gg LDA#$8D;QUITL_Qg JMPSETASA;" h_[gL26459 JSR$C00C;NMI OFFw_eg LDACOEMSEŸ_og JSR$900F;RENAME '4....' -> '5....'®_yg BEQL26529Ó_ƒg LDA#<(TXREER);TEXT RENAME ERRORæ_g LDX#>(TXREER)õ_—g JSRPRDIER%`¡gL26529 LDXCOEMSE;COUNTER EMAILS TO SEND 1-9]`«g CPXEMSENY;GESAMTZAHL ZU SENDENER EMAILS (0-9) 1-9Œ`µg BEQL26599;B.I.LETZTE EMAIL GESENDET WURDE›`¿g INCCOEMSE°`Ég JSR$C012;NMI ONÐ`ÓgL26579 LDA#$88;88 MAIL FROMý`Ýg JMPSETASA;SEND TCP ANSWER SESTAT=ACCU" -açgL26599 JSR$9015;LOAD->SEND DEINITIALISIERENWañg JSR$A000;RECEIVE->SAVE INITIALSIEREN|aûg; L25837 BNE L25837‘ah JSR$C012;NMI ONÏah LDA#$8D;JMP SETAIS GEHT NICHT,WEIL SESTAT<>8C B.OPEN ERObh JMPSETASA;8D QUIT SEND TCP ANSWER SESTAT = ACCU" 6b¨÷;==============================" Eb²÷L63410 NOPTb¼÷ .IFMOD:E=2hbÆ÷ .AP"C-MAIN*",8qbÐ÷ .ELzbÚ÷ .EN‡bä÷ .EI;" `¿g INCCOEMSE°`Ég JSR$C012;NMI ONÐ`ÓgL26579 LDA#$88;88 MAIL FROMý`Ýg JMPSETASA;SEND TCP ANSWER SESTAT=ACCU" -açgL26599 JSR$9015;LOAD->SEND DEINITIALISIERENWañg JSR$A000;RECEIVE->SAVE INITIALSIØ÷#N;!MIT ZEILE 20003 BEGINNEN -N; .EQ MODE=0) 7N; .EQ MODE=18 AN .IFMODE=2A KN .ELR UN .EQZPA0=$50c _N .EQZPA1=$51t iN .EQZPA2=$52… sN .EQZPA3=$53– }N .EQZPA4=$54§ ‡N .EQZPA5=$55¸ ‘N .EQZPA6=$56É ›N .EQZPA7=$57Ú ¥N .EQZPA8=$58ë ¯N .EQZPA9=$59ü ¹N .EQZPB0=$60 !ÃN .EQZPB1=$61!ÍN .EQZPB2=$62/!×N .EQZPB3=$63@!áN .EQZPB4=$64Q!ëN .EQZPB5=$65b!õN .EQZPB6=$66s!ÿN .EQZPB7=$67„! O .EQZPB8=$68•!O .EQZPB9=$69¨!O .EQENRELO=$F7»!'O .EQENREHI=$F8Î!1O .EQBERELO=$FBá!;O .EQBEREHI=$FCô!EO .EQDNSYFI=999"OO .EQTXNOLO=999"YO .EQTXNOHI=999-"cO .EQTXSRLO=999@"mO .EQTXSRHI=999S"wO .EQTXSERE=999f"O .EQTXPR09=999y"‹O .EQLOFINA=999Œ"•O .EQTXIOER=999Ÿ"ŸO .EQTXMOOK=999²"©O .EQTXMOCO=999Å"³O .EQTXNOFO=999Ø"½O .EQTXP RKE=999ë"ÇO .EQTXNMIP=999þ"ÑO .EQBEBUHI=999#ÛO .EQENBULO=999$#åO .EQENBUHI=9997#ïO .EQCRCLOW=999J#ùO .EQCRCHIG=999]#P .EQCRCBYT=999p# P .EQCOOFON=999ƒ#P .EQAUNOYE=999–#!P .EQWABUSE=999©#+P .EQCOFOAU=999¼#5P .EQSESTAT=999Ï#?P .EQSEIPAD=999!â#IP .EQCLIPAD=999õ#SP .EQPRIDNS=999$]P .EQSECDNS=999$gP .EQPRSEDN=999.$qP .EQSENEDN=999C${P .EQSEBU01=$F400X$…P .EQSEBU02=$FA00k$P .EQPSACCO=999~$™P .EQPSIDAD=999‘$£P .EQPRMERC=999¤$­P .EQPRMESE=999·$·P .EQPRMENO=999Ê$ÁP .EQLOAFIL=999Ý$"ËP .EQBYRSIN=999ð$ÕP .EQWAMOME=999%ßP .EQBYRSOU=999%éP .EQCYRECS=999)%óP .EQSEACCO=999<%ýP .EQSEBUF4=999O%Q .EQSEBUFA=999b%Q .EQSEBUAC=999u%Q .EQANAPPP=999ˆ%%Q .EQSTANPP=999›%/Q .EQIDCORJ=999®%9Q .EQIDPRRJ=999Á%CQ .EQCSIPHE=999Ô%MQ .EQS#EQNUM=999ç%WQ .EQFIIPHE=999ú%aQ .EQTCPHDR=999 &kQ .EQCSTCHD=999 &uQ .EQTXINPR=9993&Q .EQTXEMAC=999F&‰Q .EQFIIPUD=999Y&“Q .EQQTYQCL=999l&Q .EQIAPOP3=999&§Q .EQIASMTP=999’&±Q .EQCOEMAD=999¥&»Q .EQACEMAD=999¸&ÅQ .EQTCHEOP=999Ë&ÏQ .EQCOSEAD=9$99Þ&ÙQ .EQTXEMLO=999ñ&ãQ .EQTXEMHI=999'íQ .EQTXMOER=999'÷Q .EQTXILCO=999*'R .EQROIOSE=999=' R .EQDACENT=999P'R .EQDAYEAR=999c'R .EQDAMONT=999v')R .EQDATDAY=999‰'3R .EQDAHO24=999œ'=R .EQDAMINU=999¯'GR .EQDASECU=999Â'QR .EQTAMONT=999Õ'[R% .EQVIRAST=999è'eR .EQCOBEIR=999û'oR .EQTACRLO=999(yR .EQTACRHI=999!(ƒR .EQTXCRER=9994(R .EQCOVJCO=999G(—R .EQPRTEXT=999Z(¡R .EQVJCONU=999m(«R .EQLEVJPU=999€(µR .EQLEVJIP=999‘(¿R .EQZPIPBL=9¢(ÉR .EQZPIPBH=9³(ÓR .EQZPTCBL=9Ä(ÝR .EQZPTCBH=9&Í(çR .EI)ñR;=========================================================================+)ûR .IFMODE=09)S .BA$E001B)S .EIQ)S .IFMODE=1_)#S .BA$E001h)-S .EIw)7S .IFMODE=1…)AS .LI4,4,0Ž)KS .EIœ)US;"3-MAIN´)_S;MIT 20003 BEGINNENÝ)sS .EQCSIPHE'=L21623;CHECKSUM IP-HEADER*}S .EQCSTCHD=L21903;CHECKSUMME TCP HEADER&DATEN@*‡S .EQCYRECS=L22703;CYCLIC REDUNDANCE CHECKSUMw*‘S .EQSEACCO=L23303;SENDADDRESS/CONTROLL COMPRESSIONž*›S .EQSEBUF4=L23453;SEND BUFFER F400Å*¥S .EQSEBUFA=L23433;SEND BUFFER FA00ì*¯S .EQSEBUAC=L23463;SEND BUFFER ACCU+¹S .EQANAPPP=L24143;ANALYSE PPP PAKAGE>+ÃS .EQSTANPP=L24863;STATUS ANALYSE PPP+õS;========================================================================= +ÿS JMPL63400;" ä+TL21623 LDAZPA2;BEGINN TCP-Ø÷)N;!MIT ZEILE 20011 BEGINNEN 3N; .EQ MODE=0) =N; .EQ MODE=18 GN .IFMODE=2A QN .ELR [N .EQZPA0=$50c eN .EQZPA1=$51t oN .EQZPA2=$52… yN .EQZPA3=$53– ƒN .EQZPA4=$54§ N .EQZPA5=$55¸ —N .EQZPA6=$56É ¡N .EQZPA7=$57Ú «N .EQZPA8=$58ë µN .EQZPA9=$59ü ¿N .EQZPB0=$60 !ÉN .EQZPB1=$61!ÓN .EQZPB2=$62/!ÝN .EQZPB3=$63@!çN .EQZPB4=$64Q!ñN .EQZPB5=$65b!ûN .EQZPB6=$66s!O .EQZPB7=$67„!O .EQZPB8=$68•!O .EQZPB9=$69¨!#O .EQENRELO=$F7»!-O .EQENREHI=$F8Î!7O .EQBERELO=$FBá!AO .EQBEREHI=$FCô!KO .EQTXNMIP=999"UO .EQBEBUHI=999"_O .EQENBULO=999-"iO .EQENBUHI=999@"sO .EQCRCLOW=999S"}O .EQCRCHIG=999f"‡O .EQCRCBYT=999y"‘O .EQCOOFON=999Œ"›O .EQAUNOYE=999Ÿ"¥O .EQWABUSE=999²"¯O .EQCOFOAU=999Å"¹O .EQSESTAT=999Ø"ÃO .EQSEIPAD=999ë"ÍO .EQCLIPAD=999þ"×O .EQPRIDNS=999#áO .EQSECDNS=999$#ëO .EQPRSEDN=9997#õO .EQSENEDN=999L#ÿO .EQSEBU01=$F400a# P .EQSEBU02=$FA00t#P .EQPSACCO=999‡#P .EQPSIDAD=999š#'P .EQPRMERC=999­#1P .EQPRMESE=999À#;P .EQPRMENO=999Ó#EP .EQLOAFIL=999æ#OP .EQBYRSIN=999ù#YP .EQWAMOME=999 $cP .EQBYRSOU=999$mP .EQCYRECS=9992$wP .EQSEACCO=999E$P .EQSEBUF4=999X$‹P .EQSEBUFA=999k$•P .EQSEBUAC=999~$ŸP .EQANAPPP=999‘$©P .EQSTANPP=999¤$³P .EQIDCORJ=999·$½P .EQIDPRRJ=999Ê$ÇP .EQCSIPHE=999Ý$ÑP .EQSEQNUM=999ð$ÛP .EQFIIPHE=999%åP .EQTCPHDR=999%ïP .EQCSTCHD=999)%ùP .EQTXINPR=999<%Q .EQTXEMAC=999O% Q .EQFIIPUD=999b%Q .EQQTYQCL=999u%!Q .EQIAPOP3=999ˆ%+Q .EQIASMTP=999›%5Q .EQEMADBU=999®%?Q .EQCOEMAD=999Á%IQ .EQACEMAD=999Ô%SQ .EQTCHEOP=999ç%]Q .EQCOSEAD=999ú%gQ .EQTXEMLO=999 &qQ .EQTXEMHI=999 &{Q .EQSEIPCH=9993&…Q .EQSEIPNC=999F&Q .EQSENCOM=999Y&™Q .EQTXCOBI=999l&£Q .EQSETCAN=999&­Q .EQTXENFL=999’&·Q .EQTXDIMA=999¥&ÁQ .EQTXTY1D=999¸&ËQ .EQDNSYFI=999Ë&ÕQ .EQLTCPDL=999Þ&ßQ .EQLTCPDH=999ñ&éQ .EQTCPDNY=999'óQ .EQTXTOP=999'ýQ .EQTXRETR=999)'R .EQTXDELE=999<'R .EQTXSFRT=999O'R .EQTXLENG=999b'%R .EQCOEMAI=999u'/R .EQPRTEXT=999ˆ'9R .EQTXDOSK=999›'CR .EQTXDEPR=999®'MR .EQTXPR12=999Á'WR .EQGETKEY=999Ô'aR  .EQTXSHNK=999ç'kR .EQTXNOSU=999ú'uR .EQTXILCH=999 (R .EQTXSUCH=999 (‰R .EQTXDEYN=9993(“R .EQTXWAOF=999F(R .EQTXESFI=999Y(§R .EQTXESRE=999l(±R .EQEXSESE=999(»R .EQLTCPD0=999’(ÅR .EQEXSEAC=999¥(ÏR .EQTXWRAC=999¸(ÙR .EQSETASA=999Ë(ãR .EQSETA IS=999Þ(íR .EQAPINEM=999ñ(÷R .EQTXNSAE=999)S .EQVERCPL=999) S .EQVERCPH=999*)S .EQEXACBU=999=)S .EQACNRS0=999P))S .EQACNRS1=999c)3S .EQACNRS2=999v)=S .EQTIRES0=999‰)GS .EQTIRES1=999œ)QS .EQTIRES2=999¯)[S .EQRESEAC=999Â)eS .EQBETCDA=999 Õ)oS .EQTXFROM=999è)yS .EQTXREPL=999û)ƒS .EQTXXMAI=999*S .EQENTDS0=999!*—S .EQTIRES0=9994*¡S .EQAOSTD0=999G*«S .EQINFLSE=999Z*µS .EQAOSTDL=999m*¿S .EQAOSTDH=999€*ÉS .EQCOEMSE=999“*ÓS .EQEMSENY=999¦*ÝS .EQTXREER=999¹*çS .EQTXLOER=999Ì*ñS .E QTXCLER=999ß*ûS .EQTXOPER=999ò*T .EQPRDIER=999+T .EQVIRAST=999+T .EI5+T;=================================D+#T .IFMODE=0R+-T .BA$E001[+7T .EIj+AT .IFMODE=1x+KT .BA$E001+UT .EI+_T .IFMODE=1ž+iT .LI4,4,0§+sT .EIµ+}T;"B-MAINÔ+‡T;"MIT ZEILE 20011 BEGINNENü+‘T .EQASRCPT=L21719;ANALYSE SMTP RCPT$,›T .EQASEMTE=L22599;ANALYSE EMAILTEXTO,¥T .EQENEMSL=L24749+1;END EMAIL SEND LOW{,¯T .EQENEMSH=L24779+1;END EMAIL SEND HIGH­,¹T .EQASSEOK=L26299;ANALYSE SMTP SENDING WAS OKÔ,ÃT;=================================ã,ÍT JMPL63410)-×TL21719 LDYVERCPH;=89 ANALYSE SMTP RCPT:-áT STYL22229+2t-ëT LDXVERCPL;WIRD BEISEDEN V. 'MAIL FROM' INITIALISIERT™-õT BNEL22189;B.I.NICHT ERSTER RCPT¦-ÿT CPY#$B0Ë- U BNEL22189;B.I.NICHT ERSTER RCPTê-U LDY#$01;=ERSTER RECIPIENT".UL21789 STYL22479+1;FLAG F. BCC-FELD (NOCH NICHT TO)1.'U LDACOEMSE>.1U ORA#$30i.;U STAVIRAST+$1B;AKTUELLE EMAIL ANZEIGEN‹.EU LDXCOEMSE;COUNTER EMAIL SEND”.OU DEX¿.YU BEQL22159;B.I.ERSTE ZU SENDENDE EMAILÕ.cU JSR$C00C;NMI OFF/mUL21869 LDACOEMSE;CONTER EMAIL SEND 1-9/wU JSR$9006;OPEN1/U BEQL21929;B.I.FEHLERFREIO/‹U LDA#<(TXOPER);OPEN ERRORb/•U LDX#>(TXOPER)t/ŸU BNEL22009;" ‡/©UL21929 LDA#$FF±/³U STAL24779+1;ENDE HIGH INITIALISIERENÊ/½U JSR$9009;4 KB LADENè/ÇU BEQL22149;B.I.FEHLERFREIù/ÑU CMP#$40;EOI0ÛU BEQL22129;B.I.EOI#0åU LDA#<(TXLOER)60ïU LDX#>(TXLOER)[0ùUL22009 JSRPRDIER;PRINT DIR ERRORp0VL22019 JSRGETKEY}0 V CMP#$31œ0V BEQL21869;B.I.RETRY/AGAIN©0!V CMP#$32¸0+V BNEL22079Î05V JMPL26529;SKIP" á0?VL22079 CMP#$33ð0IV BNEL220191SV JSR$C012;NMI ON&1]V LDA#$8D;QUIT (EMAIL SENDEN)81gV JMPSETASA;" `1qVL22129 STXL24749+1;ENDE+1 LOW =EOI}1{V STYL24779+1;ENDE+1 HIGH˜1…VL22149 JSR$C012;NMI ON²1VL22159 LDX#$00;VERCPLë1™V STXL22599+1;#$00 FLAG F. BEGINN V. SEND EMAILTEXT" 2£V STXL26299+1;FLAG F.KEIN C64-LOAD-ERROR" =2­VL22189 LDY#$00;FLAG F. < SUCHENM2·V;00 SUCHT <n2ÁV;80 SUCHT END-0A EINER ZEILE2ËV;C0 LIEST ERSTES ZEICHEN EINER NEUEN ZEILEÛ2ÕVL22229 LDA$FF00,X;B000 ZU SENDENDER EMAILTEXT (X=VERCPL)ä2ßV INXó2éV BNEL222693óV INCL22229+23ýVL22269 CMP#$3C;<E3W BEQL22549;B.I.BEGINN VON NEUER ADRESSER3W CPY#$80a3W BCSL22349n3%W CMP#$0D™3/W BNEL22229;B.I.NICHT ENDE V. 'TO' FELD¦39W LDY#$80¸3CW BNEL22229;" Ô3MWL22349 BNEL22399;B.I.C0ÿ3WW CMP#$0A;Y=80 SUCHT ENDE DIESER ZEILE4aW BNEL222294kW LDY#$C0-4uW BNEL22229;" p4WL22399 CMP#$20;Y=C0 TEST OB TO ZEILE AUF ZWEI ZEILEN VERTEILT¡4‰W BEQL22189;=ERSTES ZEICHEN EINER NEIEN ZEILE®4“W CMP#$09½4W BEQL221895§W;FALLS 'TO'-FELD AUF ZWEI ZEILEN VERTEILT (S829 INTERNET INTERN),5±W;=>FOLGEZEILE BGINNT MIT $20 ODER $09p5»W;!!ZEILENUMBRUCH DARF NICHT MITTEN IN EINER EMAILADRESSE SEIN!!§5ÅW;ZEILENUMRCH MUSS ZWISCHEN ZWEI EMAILADRESSEN SEINÓ5ÏWL22479 LDY#$FF;BEI L21789 INITIALISIERTä5ÙW DECL22479+1ï5ãW;1=BCCù5íW;0=TO 6÷W;FF=ENDE V. TO36X BPLL22189;B.I.ENDE V. BCC GEWESEN^6 X INCSESTAT;89->8A = ENDE VON 'TO' FELDs6XL22549 STXVERCPL„6X LDAL22229+2“6)X STAVERCPH¢63X JMPSETCANË6=X;=================================" 7GXL22599 LDX#$00;ANALYSE SMTP EMAILTEXT =8B APEMTE;7QX BEQL22629;B.I.ERSTES PAKET JEDER EMAILd7[X JMPL23819;TFOLGEPAKET JEDER EMAIL" w7eXL22629 LDY#$007oX JSRPRMENO;SCROLLENœ7yX LDY#$00´7ƒX JSRPRMENO;SCROLLENÁ7X LDA#$20æ7—X STAL24009+1;SCREENSCHREIBVECTORó7¡X LDX#$008«X STXEXACBU>8µX STXL25889+1;INITIALISIERT ZAEHLER F.KB GESENDETR EMAILz8¿X STXL25919+1;INITIALISIERT ZAEHLER F.KB GESENDETR EMAIL‡8ÉX LDA#$FFÃ8ÓX STAL24109+1;FLAG,DASS ENDE NOCH NICHT ERREICHT (MINUS)î8ÝX STAL22599+1;SETZT FLAG F. FOLGEPAKETE+9çX LDYRESEAC;HIGHBYTE V.VIERSTELLIG RECEIVED-SERVER-ACK-NR49ñX DEYn9ûX STYACNRS0;MACHT SO,DASS ACK-BEDINGUNG IMMER ERFUELLT9Y STYACNRS1;=S0-S2 IST FREIœ9Y STYACNRS2©9Y LDA#$B0º9#Y STAL23089+2Ç9-Y LDX#$04Ô97Y LDA#$30:AYL22849 STAVIRAST+$29,X;INITIALISIERT AKTELLE KB AKTELLER EMAIL :KY DEX/:UY BPLL22849<:_Y LDA#$0BO:iY STAVIRAST+$2Eb:sY STAVIRAST+$36o:}Y LDA#$02‚:‡Y STAVIRAST+$2F•:‘Y STAVIRAST+$37¤:›Y LDACOEMSE­:¥Y ASL¶:¯Y ASL¿:¹Y ASLÑ:ÃY TAY;8,$10...Þ:ÍY LDX#$05þ:×YL22999 LDA$8104,Y;8108-810C+;áY STAVIRAST+$31-1,X;VIRAST+$39-VIRAST+$3DI;ëY DEY;LANGE AKTUELLE EMAILR;õY DEXa;ÿY BNEL22999t; ZL23049 LDY#$80¯;ZL23059 INX;ERSTES BYTE IST B001 ABER WEIL 0D 0A FINDETí;Z BNEL23089;TROTZDEM END-0A VON NICHT VORHANDENEM BCC-FELDþ;'Z INCL23089+2*<1ZL23089 LDA$B000,X;UEBERSPRINGT BCC-FELD7<;Z CPY#$80F[L23319 LDA$CE61,X;EIGENER NAME>![ BEQL23389%>+[ STA$F400,Y.>5[ INX7>?[ INYD>I[ CPX#$2FS>S[ BCCL23319f>][L23389 LDA#$20v>g[ STA$F400,Y>q[ INYŽ>{[ LDA#$3C;<ž>…[ STA$F 400,Y§>[ INY´>™[ LDX#$00Þ>£[L23459 LDA$CE91,X;EIGENE EMAILADRESSE?­[ BEQL23529;FROM+REPLY+XMAILER NUSS KLEINER ALS $D3=2114?·[ STA$F400,Y;BYTES SEIN=?Á[ INXF?Ë[ INYS?Õ[ CPX#$2Fb?ß[ BCCL23459u?é[L23529 LDX#$00Ÿ?ó[L23539 LDATXREPL,X;TEXT > RE!PLY-TO:<®?ý[ BEQL23599¾?\ STA$F400,YÇ?\ INXÐ?\ INYâ?%\ BNEL23539;" õ?/\L23599 LDX#$00@9\L23609 LDA$CEC1,X;REPLY EMAILADRESSE-@C\ BEQL23679=@M\ STA$F400,YF@W\ INXO@a\ INY\@k\ CPX#$2Fk@u\ BCCL23609~@\L23679 LDX#$00¨@‰\L23689 LDATXXMAI,X";TEXT > X-MAILE...Ô@“\ BEQL23749;B.I.ENDE Y=SCHREIBVECTOR LOWä@\ STA$F400,Yí@§\ INXö@±\ INYA»\ BNEL23689;" AÅ\L23749 LDX#$00OAÏ\L23759 LDA$830A,X;DATE: 01 JAN 1900 00:00 +0000{AÙ\ BEQL24179;B.I.ENDE Y=SCHREIBVECTOR LOW¼Aã\ STA$F400,Y;!!!!NOC#H TESTEN,DASS KEINE PAGEUEBERSCHREITUNG!!ÅAí\ INXÎA÷\ INYàA] BNEL23759;" þA ]L23819 LDAEXACBU; 0 1 2B] ASL; 0 2 4,B] ASL; 0 4 8 CARRY=LOWBB)] ADC#$03; 3 7 BKB3] TAXTB=] SECBG] LDY#$03; NICH-ACK ACK ACK×$BQ]L23889 LDARESEAC,Y;RECEIVEDSERVER-ACK-NR 0F000000 11000000 00000000C[] SBCACNRS0,X;ACK-NR SENDB0-2 10000000 10000000 FFFFFFFFSCe] DEX; FF000000 01000000 00000001\Co] DEYkCy] BPLL23889”Cƒ] ASL;HIGHBYTE VON 4STELLIG DIFF%ERENZ½C] BCCL24089;B.I.ACK V.SERVER ERHALTENþC—];OHNE ASL GEHT NICHT FALLS UEBERGANG V.$FFFFFFFF->$00000000RD¡] LDA#$0E;NOTACKNOWLEDGE/D«]L23979 JSRL24009>Dµ] LDAEXACBUKD¿] ORA#$30eDÉ]L24009 STAVIRAST+$320vDÓ] INCL24009+1‡DÔ] LDAL24009+1”DÕ] &CMP#$48£DÝ] BCCL24079°Dç] LDY#$00ÈDñ] JSRPRMENO;SCROLLENÕDû] LDA#$20æD^ STAL24009+1 E^L24079 SEC;CARRY=SET WOZU???? E^ RTS;CARRY=SET" ?E^L24089 LDA#$01;ACKNOWLEDGENE#^ JSRL23979ˆE-^L24109 LDA#$FF;FF 01 02 03 FOLGEBLOCKS/ENDBLOCKPUFFER®E'7^ BMIL24169;B.I.NOCH KEIN ENDBLOCK½EA^ CMPEXACBUñEK^ BEQL24159;B.I.ENDBLOCKPUFFER ACKNOWLEDGT WURDE1FU^ JMPL25819;=ENDBLOCK=GESENDET ABER NOCH NICHT ACKNOWLEDGT" cF_^L24159 JMPL26219;=ENDBLOCK IST ACKNOWLEDGET" ~Fi^L24169 LDYBETCDA;29/2C“Fs^L24179 LDAEXACBU©F}^ ASL;*2;CARRY=LOW¿F‡^ ADC#$F4;F4,F6,F8ÐF‘^ STAL24249+2ãF›^L24219 LDX#$FFG¥^L24229 LDA$B000,X;LIEST AUS DISKPUFFER9G¯^; BEQ L24869 ;PROVISORISCHkG¹^L24249 STA$F400,Y;SCHREIBT IN EMAILSENDPUFFERtGÃ^ INXƒGÍ^ BNEL24719”G×HT MIT NETTIMESERVERADRESSE½AÌ\ BEQL23776ÜAÖ\ JMPL21666;WRONG ADDRESS" ëAà\L23776 DEYôAê\ DEXBô\ BPLL23736(Bþ\ LDAZPA2;BEGINN UDP-HDR $21-$441B] CLCUB] ADC#$08;UDP-HDR-LAENGE IMMER 8sB] STAZPA4;BEGINN UDP-DATEN€B&] LDXZPA3œB0] STXZPA5;NIE UEBERTRAG.©B:] LDA#$00äBD] LDX$CEF3;ZEIT,DIE PAKET VON ZEITSERVER ZU C64 BRAUCHTòBN] STA$DC0BCX] STA$DC0A$Cb] STX$DC09;SEKUNDEN VERZOEGERUNG5Cl] STA$DC08;" Cv];IRQ-AUSLOESEM UM 00.00UHR GEHT NICHT, WEIL CIA MEHRERE IRQS AUSLOEST£C€] LDX#$12;18 (WIRD SOFORT ZU 19)ÉCŠ] STXDACENT;CENTURY INITIALISIERENòC”];NETTIME ZAEHLER BEGINNT AM 1.1.1900ÿCž] LDX#$00.D¨] STXDAYEAR;YEAR INITIALISIEREN (BLEIBT 00)PD²] STXDAMONT;MONTH (WIRD ZU 01)pD¼] STXDATDAY;DAY (WIRD ZU 01)yDÆ] DEXœDÐ] STXDAHO24;HOUR24 (WIRD ZU 00)ÁDÚ] STXDAMINU;MINUTE (WIRD ZU 00)" ÒDä] .IFTEST!=!1ßDî] LDY#$03öDø]L24056 LDA(ZPA4),YE^ STA$8380,YE ^ DEYE^ BPLL24056'E ^ .EI`E*^L24106 INCDACENT;ERHOEHT JAHRHUNDERT (ANFANG:18->19)žE4^ LDX#$07;ANZAHL SEKUNDEN V.JAHRHUNDERT MIT 25 SCHALTTAGEN­E>^ LDADACENTºEH^ AND#$03úER^ BEQL24166;B.I.2000 2400 2800...(ALLE400JAHRE:25SCHALTTAGE)8F\^ LDX#$03;ANZAHL SEKUNDEN V.JAHRHUNDERT MIT 24 SCHALTTAGENKFf^L24166 LDY#$03TFp^ SEC}Fz^L24186 LDA(ZPA4),Y;UDP-DATEN=NETTIME¸F„^ SBCNTSECE,X;SUBTRHIERT ANZAHAL SEKUNDEN V.JAHRHUNDERTÉFŽ^ STA(ZPA4),YÒF˜^ DEXÛF¢^ DEYêF¬^ BPLL24186)G¶^ BCSL24106;B.I.NOCH NICHT KOMPLETTES JAHRHUNDERT ABGEZOGENNGÀ^ LDADACENT;AKTUELLES JAHRHUNDERTmGÊ^ CMP$CEF2;SOLL-JAHRHUNDERT­GÔ^;WICHTIG FALLS ZAEHLER IN 2036 WEITERLAEFT NACH UEBERLAUF??¼GÞ^ BNEL24106ÅGè^ INXÎGò^ INX×Gü^ INXàG_ INXíG_ LDY#$03öG_ CLCH$_L24356 LDA(ZPA4),Y;UDP-DATEN=NETTIMEWH._ ADCNTSECE,X;ADDIERT ANZAHAL SEKUNDEN V.JAHRHUNDERThH8_ STA(ZPA4),YqHB_ DEXzHL_ DEY‰HV_ BPLL24356°H`_;HAT JETZT CORRECTES JAHRHUNDERT" ÁHj_ .IFTEST!=!1ÎHt_ LDY#$03åH~_L24446 LDA(ZPA4),YõHˆ_ STA$8388,YþH’_ DEY Iœ_ BPLL24446I¦_ .EIMI°_ LDX#$03;ANZAHL SEKUNDEN V.JAHR (NICHT SCHALTJAHR)rIº_ LDADACENT;AKTUELLES JAHRHUNDERTIÄ_ AND#$03¿IÎ _ BNEL24606;B.I.NICHT 2000 2400(ALLE400JAHRE:2000=SCHALTJAHRýIØ_ BEQL24596;ANZAHL SEK.V.SCHALTJAHR (1900 2100 22 23 25)" Jâ_L24546 INCDAYEAR;ERHOEHT JAHR]Jì_ LDX#$03;ANZAHL SEKUNDEN V.JAHR(NICHT SCHALTJAHR)01 02 03{Jö_ LDADAYEAR;AKTUELLES JAHRˆJ`  AND#$03ÈJ ` BNEL24606;B.I.NICHT 2000 2400(ALLE400JAHRE:2000=SCHALTJAHR K`L24596 LDX#$07;ANZAHL SEKUNDEN V.SCHALTJAHR 04 08 12 16 20 24K`L24606 LDY#$03&K(` SECOK2`L24626 LDA(ZPA4),Y;UDP-DATEN=NETTIMEƒK<` SBCNTSEYE,X;SUBTRHIERT ANZAHAL SEKUNDEN V. JAHR”KF` STA(ZPA4),YKP` DEX¦KZ` DEYµKd` BPLL24626èKn` BCSL24546;B.I.NOCH NICHT ALLE JAHRE ABGEZOGENñKx` INXúK‚` INXLŒ` INX L–` INXL ` LDY#$03"Lª` CLCKL´`L24756 LDA(ZPA4),Y;UDP-DATEN=NETTIMEƒL¾` ADCNTSEYE,X;ADDIERT ANZAHAL SEKUNDEN V.JAHRH UNDERT”LÈ` STA(ZPA4),YLÒ` DEX¦LÜ` DEYµLæ` BPLL24756ÕLð`;HAT JETZT CORRECTES JAHR" æLú` .IFTEST!=!1óLa LDY#$03 MaL24846 LDA(ZPA4),YMa STA$8390,Y#M"a DEY2M,a BPLL24846;M6a .EIGM@a;28 2SMJa;29 2hMTa;30 4 6 9 B~M^a;31 1 3 5 78  A C£MhaL24936 INCDAMONT;(ANFANG:00->01)²Mra LDADAMONTÇM|a CMP#$02;FEBRUARÖM†a BNEL25086ðMa LDX#03;28 TAGE-MONATÿMša LDADAYEARN¤a BEQL25046;B.I.1900 2000(N®a AND#03WN¸a BNEL25146;B.I.01 02 03 05 KEIN SCHALTJAHRŒNÂaL25026 LDX#$07;29 TAGE-MONAT  SCHALTJAHR FEBRUARžNÌa BNEL25146;" àNÖaL25046 LDADACENT;JAHRHUNDERT =ERSTES JAHR EINSE JAHRHUNDERTSíNàa AND#$03)Oêa BNEL25146;B.I.1900 2100 2200 2300 2500 KEIN SCHALTJAHRTOôa BEQL25026;2000 2400 2800 SCHALTJAHR" vOþaL25086 CMP#$08;1-7 8-12 (8-C)’Ob ADC#$00;1-7 9-13 (9-D)›Ob LSR¯Ob LDX#$0B;30TAGE¾O&b BCCL25146ÒO0b LDX#$0F;31TAGEåO:bL25146 LDY#$03îODb SECPNbL25166 LDA(ZPA4),Y;UDP-DATEN=NETTIMELPXb SBCNTSEMO,X;SUBTRHIERT ANZAHAL SEKUNDEN V.MONATPbb;32BIT SUBTRAKTION (NICHT 24BIT),WEIL EVTL CARRY BEI BIT 23->24¡Plb STA(ZPA4),YªPvb DEX³P€b DEYÂPŠb BPLL25166õP”b BCSL24936;B.I.NOCH NICHT ALLE JAHRE ABGEZOGENþPžb INXQ¨b INXQ²b INXQ¼b INX&QÆb LDY#$03/QÐb CLCXQÚbL25306 LDA(ZPA4),Y;UDP-DATEN=NETTIMEŠQäb ADCNTSEMO,X;ADDIERT ANZAHAL SEKUNDEN V.MONAT›Qîb STA(ZPA4),Y¤Qøb DEX­Qc DEY¼Q c BPLL25306äQc;HIGHBYTE DER 4 BYTES IST JETZ #$00R c;HAT JETZT CORRECTEN MONAT" R*c .IFTEST!=!1#R4c LDY#$03:R>cL25406 LDA(ZPA4),YJRHc STA$8398,YSRRc DEYbR\c BPLL25406kRfc .EIRpcL25456 INCDATDAY;(ANFANG:00->01)Rzc LDY#$03¦R„c SECÏRŽcL25486 LDA(ZPA4),Y;UDP-DATEN=NETTIMES˜c SBCNTSEDA-1,Y;SUBTRHIERT ANZAHAL SEKUNDEN V.MONATS¢c STA(ZPA4),Y S¬c DEY/S¶c BNEL25486aSÀc BCSL25456;B.I.NOCH NICHT ALLE TAGE ABGEZOGENzSÊc LDY#$03;CARRY=CLEAR£SÔcL25556 LDA(ZPA4),Y;UDP-DATEN=NETTIMEÕSÞc ADCNTSEDA-1,Y;ADDIERT ANZAHAL SEKUNDEN V.TAGæSèc STA(ZPA4),YïSòc DEYþSüc BNEL25556Td;HAT JETZT CORRECTEN TAG" .Td .IFTEST!=!1;Td LDY#$03RT$dL25636 LDA(ZPA4),YbT.d STA$83A0,YkT8d DEYzTBd BPLL25636ƒTLd .EI¨TVdL25686 INCDAHO24;(ANFANG:FF->00)µT`d LDY#$03¾Tjd SECçTtdL25716 LDA(ZPA4),Y;UDP-DATEN=NETTIMEU~d SBCNTSEHO-1,Y;SUBTRHIERT ANZAHAL SEKUNDEN V.STUNDE0Uˆd STA(ZPA4),Y9U’d DEYHUœd BNEL25716}U¦d BCSL25686;B.I.NOCH NICHT ALLE STUNDEN ABGEZOGENŠU°d LDY#$03¡UºdL25786 LDA(ZPA4),YÖUÄd ADCNTSEHO-1,Y;ADDIERT ANZAHAL SEKUNDEN V.STUNDEçUÎd STA(ZPA4),YðUØd DEYÿUâd BNEL25786!Vìd;HAT JETZT CORRECTE STUNDEN" 2Vöd .IFTEST!=!1?Ve LDY#$03VV eL25866 LDA(ZPA4),YfVe STA$83A8,YoVe DEY~V(e BPLL25866‡V2e .EI¬V00)¹VFe LDY#$03ÂVPe SECëVZeL25946 LDA(ZPA4),Y;UDP-DATEN=NETTIME#Wde SBCNTSEMI-1,Y;SUBTRHIERT ANZAHAL SEKUNDEN V.MINUTE4Wne STA(ZPA4),Y=Wxe DEYLW‚e BNEL25946WŒe BCSL25916;B.I.NOCH NICHT ALLE MINUTEN ABGEZOGENŽW–e LDY#$03¥W eL26016 LDA(ZPA4),Y×Wªe ADCNTSEMI-1,Y;ADDIERT ANZAHAL SEKUNDEN V.TAGèW´e STA(ZPA4),YñW¾e DEYXÈe BNEL26016"XÒe;HAT JETZT CORRECTEN MINUTE" 3XÜe .IFTEST!=!1@Xæe LDY#$03WXðeL26096 LDA(ZPA4),YgXúe STA$83B0,YpXf DEYXf BPLL26096ˆXf .EI•X"f LDY#$03¯X,f LDA(ZPA4),Y;SEKUNDENÁX6f STADASECU;" áX@f SED;UMRECHNUNG HEXDEZ->BCDYJf LDY#$07;JAHRHUNDERT...SEKUNDEN MUSS HINTEREINANDER LIEGE2YTfL26196 LDA#$00CY^f LDXDACENT,YRYhf BEQL26266[Yrf CLCnY|fL26236 ADC#$01wY†f DEX†Yf BNEL26236YšfL26266 STADACENT,Y¦Y¤f DEY¸Y®f BPLL26196;" ¾Y¸f;ÇYÂf CLDÔYÌf LDY#$00ãYÖf JSRPRMENOðYàf LDY#$00Zêf JSRCOPRDA;DATUM AUSGEBENZôf SED2Zþf BIT$DC0B;UHR ANHALTENlZg LDA$DC09;SEKUNDEN (WURDE MIT 0-9 SEKUNDEN GESTARTET)Zg LDY$DC08;1/10ˆZg CLC—Z&g ADCDASECU¤Z0g CMP#$60³Z:g BCCL26446ÀZDg SBC#$60ßZNgL26446 PHA;SEKUNDEN MERKENîZXg LDADAMINUûZbg ADC#$00[lg CMP#$60[vg BCCL26506$[€g SBC#$60d[ŠgL26506 PHA;UHRZEIT: 00 01-09 10 11 12 13-21 22 23¤[”g LDADAHO24;$DC0B-AUSLESEWERT: 12 01-09 10 11 92 81-89 90 91Í[žg ADC#$00;CARRY IST JETZT IMMER LOW" ë[¨g LDX$CEF1;DIFFERNZ ZU GMT\²g BPLL27146;B.I.+\¼g PHA;DARF Y NICHT AENDERN'\Æg TXAF\Ðg AND#$7F;LOESCHT MINUS BITW\Úg STAL26616+1`\äg PLAi\îg SEC€\øgL26616 SBC#$FF;BCD¨\h BCSL27226;B.I.KEIN UNTERTRAG 0->23ß\ h ADC#$24;WAR UNTERTRAG 0->23/99 =>DATUM VERMINDERN]h PHA;STUNDE MERKEN 24STUNDEN-FORMAT] h LDADATDAY;TAG#]*h SEC0]4h SBC#$01?]>h STADATDAYe]Hh BNEL27216;B.I.KEIN TAG-UNTERTRAGt]Rh LDADAMONT]\h SBC#$01]fh STADAMONT¸]ph BNEL26826;B.I.KEIN MONAT-UNTERTRAGÇ]zh LDADAYEARÔ]„h SBC#$01ã]Žh STADAYEARò]˜h LDADACENTÿ]¢h SBC#$00^¬h STADACENT!^¶hL26806 LDA#$120^Àh STADAMONTE^ÊhL26826 LDADAMONT`^Ôh LDX#$28;28-TAGE MONATm^Þh CMP#$02Ž^èh BNEL27066;B.I.NICHT FEBRUAR^òh LDADAYEARÆ^üh BEQL26976;B.I.1900,2000,2100...9900_i ASL; 00 02 04 06 08 10 12 20 22 24 2C 2E 30 32:_i ASL; 00 04 08 0C 10 20 24 40 44 48 58 5C 60 64t_i ASL; 00 08 10 18 20 40 48 80 88 90 B0 B8 C0 C8_$i BPLL26936;B.I.00-09Ë_.i EOR#$10;=10-19 90 98 80 A0 A8 D0 D8`8iL26936 AND#$18; 00 08 10 18 00 00 08 10 18 00 00 08 10 18.`Bi BNEL27126;B.I.01 02 03 05K`LiL26956 INX;#$29 00,04,08]`Vi BNEL 27126;" r``iL26976 LDADACENT¬`ji ASL; 00 02 04 06 08 10 12 20 22 24 2C 2E 30 32æ`ti ASL; 00 04 08 0C 10 20 24 40 44 48 58 5C 60 64 a~i ASL; 00 08 10 18 20 40 48 80 88 90 B0 B8 C0 C89aˆi BPLL27036;B.I.00-09wa’i EOR#$10;=10-19 ! 90 98 80 A0 A8 D0 D8»aœiL27036 AND#$18; 00 08 10 18 00 00 08 10 18 00 00 08 10 18ça¦i BNEL27126;B.I.1900 2100 2200 2300 2500b°i BEQL26956;=2000,2400,2800" bºiL27066 CMP#$08(bÄi ADC#$005bÎi LDX#$30>bØi LSRMbâi BCCL27126[bì"i INX;#$31pböiL27126 STXDATDAY›bjL27136 JMPL27216;ENDE DECREMENT DATE" Ób jL27146 ADC$CEF1;ADDIERT DIFFERNZ ZU GMT DAZU =+àbj CMP#$24 cj BCCL27226;B.I.KEIN STUNDEN-UEBERTRAGc(j SBC#$24 c2j PHA>cdŒj CMP#$12Yd–j BCCL27316$;B.I.1-11UHRrd j BEQL27326;B.I.12UHR¶dªjL27306 ADC#$67;CARRY=SET=>ADC#$68 81-89 90-91Åd´jL27316 TAX e¾jL27326 STXDAHOAP;HOUR AM/PM BCD: 12 01-11 92 81-89 90-91EeÈj TXA;$DC0B-AUSLESEWERT: 12 01-09 10 11 92 81-89 90 91XeÒjL%27346 CMP#$12ŽeÜj BEQL27386;B.I.12AM WIRD 12PM IN DC0B GESCHRIEBEN›eæj CMP#$92¹eðj BNEL27416;B.I.NICHT 12PMùeújL27386 EOR#$80;BEI 12AM UND 12PM MUSS AM/PM-FLAG INVERTIERT>fk;REINGESCHRIEBEN WERDEN,DAMIT BEIM AUSLESEN RICHTIG GELESEN WIRD[fk;SCHEI&NT CIA-BUG ZU SEIN fkL27416 STA$DC0B;ANHALTEN 01 02-10 11 12 81 82-90 91 92Úf"k PLA;UHRZEIT: 01 02-10 11 12 13 14-22 23 00èf,k STA$DC0Añf6k PLAÿf@k STA$DC09gJk STY$DC08;STARTENgTk CLD+g^k LDY#$00:ghk JSRPRMENOGgrk LDY#$20'Vg|k JSRCOPRDA’g}k LDA#$B0;UDP-DNS-EMAIL-SEND (BEI FILENAME NACH NETTIME)¸gk LDXEMSENY;OB EMAIL ZU SENDEN ISTøg€k BEQL27536;B.I.KEINE EMAIL ZU SENDEN (=>WAR NETTIME-NAMEGENh†k LDA#$70;UDP SMTP-DNSXhkL27536 JMPSETASA;=============================h=================" gh¨÷L63400 NOPvh²÷ .IFMODE=2Šh¼÷ .AP"8-MAIN*",8“hÆ÷ .ELœhÐ÷ .EN©hÚ÷ .EI;" T: 01 02-10 11 12 13 14-22 23 00èf,k STA$DC0Añf6k PLAÿf@k STA$DC09gJk STY$DC08;STARTENgTk CLD+g^k LDY#$00:ghk JSRPRMENOGgrk LDY#$20====================================================" B[L23303 STX$FA02;PROT-COD HIGH SND LCP/NCP CODE REJECT3B[ JSRPRMESE;Y=LCP/NCPCODE REJECTBB[ INCIDCORJ\B%[ LDAIDCORJ;IDENTIFIER{B/[ LDX#$08;SCHREIBVECTOR LOW B9[ LDY#$07;CODE REJECT OPTIONSCODE¸BC[ BNEL23493;"---- ýBM[L23373 STX$FA08;PROT-COD HIGH SND LCP/NCP PROTOCOLL REJECTCW[ STA$FA09;PROTOCOLLCODE LOWø .EI;" PA4?E[\ BNEL23663LEe\ INCZPA5_Eo\L23663 INCZPA6nEy\ BNEL23693{Eƒ\ INCZPA7ŠE\L23693 CLCØ÷&N;!MIT ZEILE 20007 BEGINNEN 0N; .EQ MODE=0) :N; .EQ MODE=18 DN .EQTEST=0G NN .IFMODE=2P XN .ELa bN .EQZPA0=$50r lN .EQZPA1=$51ƒ vN .EQZPA2=$52” €N .EQZPA3=$53¥ ŠN .EQZPA4=$54¶ ”N .EQZPA5=$55Ç žN .EQZPA6=$56Ø ¨N .EQZPA7=$57é ²N .EQZPA8=$58ú ¼N .EQZPA9=$59 !ÆN .EQZPB0=$60!ÐN .EQZPB1=$61-!ÚN .EQZPB2=$62>!äN .EQZPB3=$63O!îN .EQZPB4=$64`!øN .EQZPB5=$65q!O .EQZPB6=$66‚! O .EQZPB7=$67“!O .EQZPB8=$68¤! O .EQZPB9=$69·!*O .EQENRELO=$F7Ê!4O .EQENREHI=$F8Ý!>O .EQ BERELO=$FBð!HO .EQBEREHI=$FC"RO .EQTXNMIP=999"\O .EQBEBUHI=999)"fO .EQENBULO=999<"pO .EQENBUHI=999O"zO .EQCRCLOW=999b"„O .EQCRCHIG=999u"ŽO .EQCRCBYT=999ˆ"˜O .EQCOOFON=999›"¢O .EQAUNOYE=999®"¬O .EQWABUSE=999Á"¶O .EQCOFOAU=999Ô"ÀO .EQSESTAT= 999ç"ÊO .EQSEIPAD=999ú"ÔO .EQCLIPAD=999 #ÞO .EQPRIDNS=999 #èO .EQSECDNS=9993#òO .EQPRSEDN=999F#üO .EQSENEDN=999[#P .EQSEBU01=$F400p#P .EQSEBU02=$FA00ƒ#P .EQPSACCO=999–#$P .EQPSIDAD=999©#.P .EQPRMERC=999¼#8P .EQPRMESE=999Ï#BP .EQPRMENO=999 â#LP .EQLOAFIL=999õ#VP .EQBYRSIN=999$`P .EQWAMOME=999$jP .EQBYRSOU=999.$tP .EQCYRECS=999A$~P .EQSEACCO=999T$ˆP .EQSEBUF4=999g$’P .EQSEBUFA=999z$œP .EQSEBUAC=999$¦P .EQANAPPP=999 $°P .EQSTANPP=999³$ºP .EQIDCORJ=999Æ$ÄP .EQIDPRRJ=999Ù$ÎP . EQCSIPHE=999ì$ØP .EQSEQNUM=999ÿ$âP .EQFIIPHE=999%ìP .EQTCPHDR=999%%öP .EQCSTCHD=9998%Q .EQTXINPR=999K% Q .EQTXEMAC=999^%Q .EQFIIPUD=999q%Q .EQQTYQCL=999„%(Q .EQIAPOP3=999—%2Q .EQIASMTP=999ª%TL21566 CMPSECDNS-$0C,Y,HT BEQL21596@,RT DECL21646+1;MINUS=NICHT VON 2.DNSO,\TL21596 INY\,fT CPY#$10k,pT BCCL21526t,zT TXA—,„T BPLL21686;B.I.VON 1.DNS KOMMTª,ŽTL21646 LDA#$00Í,˜T BPLL21686;B.I.VON 2.DNS KOMMTî,¢TL21666 LDY#$0B;WRONG ADDRESS-¬T JMPPRMENO;" $-¶TL21686 LDASESTAT;UEBERFLUESSIG?1-ÀT CMP#$60@-ÊT BEQL21756n-ÔT AND#$3F;LOESCHT BIT7&6 30,70,B0,(F0)->30¬-ÞT CMP#$30;VERGLEICHT OB $30/$70/$B0 !!BEI $F0 FEHLER!!!!!!ë-èT BEQL21756;B.I.DNS BEREITS ERHALTEN GEHABT UEBERFLUESSIG?".òTL21746 RTS;NOTEQUAL=>MIT SENDEN AUF TIMER WARTEN" 5.üTL21756 LDY#$03c.U LDA(ZPA2),Y;PORT EMPFAENGER LOW 30/70/B0r.U CMPSESTAT¤.U BNEL21746;B.I.ANTWORT ZU ANDERER UDP-ANFRAGE¶.$U LDX#$02;TIMEÃ..U CMP#$60Þ.8U BEQL21866;.B.INETTIMEì.BU DEX;SMTPù.LU CMP#$70/VU BEQL21866;B.I.SMTP"/`U DEX;00=POP3F/jUL21866 STXUDPOSM;POP3/SMTP/TIMEk/tU LDAZPA2;BEGINN UDP-HDR $21-$44t/~U CLC˜/ˆU ADC#$08;UDP-HDR-LAENGE IMMER 8¶/’U STAZPA4;BEGINN UDP-DATENÃ/œU LDXZPA3Þ/¦U STXZPA5;NIE UEBERTRAGð/°U;PORT TESTEN? 0ºU;NOCH IDENTIFIERTESTEN?0ÄU LDY#$02J0ÎU LDA(ZPA4),Y;FLAGS (ZPA4,A5=BEGINN UDP-DATENˆ0ØU AND#$FA;LOESCHT B2 (AUTORITIVEANSWER) B0 (RECURS.DESIRED•0âU CMP#$80¤0ìU BNEL22126¯0öU INY;3Æ0V LDA(ZPA4),Y;FLAGSÓ0 V AND#$0Fâ0V BEQL22146ï0V CMP#$03þ0(V BNEL22126$12V LDA#<(TXDDNE);DOMAIN DESN'T EIST71(TXDDNE)F1FV JSRPRTEXTe1PV LDA#$F0;TERMIANTE REQUESTt1ZV STASESTAT†1dV JMPSENCOM;" ª1nVL22126 INCVIRAST+$30;FLAG ERROR³1xV RTSÄ1‚VL22146 INY;4ë1ŒV LDA(ZPA4),Y;ANZAHL QUESTIONS HIGHú1–V BEQL22186*2 VL22176 INCVIRAST+$32;MEHR ALS 255 QUESTIONS;2ªVL22186 INY;5`2´V LDA(ZPA4),Y;ANZAHLQUESTIONS LOWq2¾V STAL22396+1|2ÈV INY;6¡2ÒV LDA(ZPA4),Y;ANZAHL ANSWERS HIGHÍ2ÜV BNEL22296;B.I.MEHR ALS 255 ANTWORTEN??Ø2æV INY;7é2ðV LDA(ZPA4),Yø2úV BNEL223063W INCVIRAST+$33;!!!KEINE ANTWORT%3W RTS83WL22296 LDA#$FFb3"WL22306 STAL22666+1;ANZAHL ANSWERS LOW€3,W LDAZPA4;BEGINN UDP-DATEN36W LDXZPA5–3@W CLC£3JW ADC#$0C²3TW BCCL22376»3^W INXý3hWL22376 STAZPA8;ARBEITSVECTOR ZEIGT JETZT AUF BEGINN QUESTION 4rW STXZPA94|WL22396 LDX#$00*4†W LDY#$00W4WL22416 LDA(ZPA8),Y;LAENGE EINER QUESTIONz4šW BEQL22556;B.I.ENDE DES NAMENSŠ4¤W CMP#$40;64«4®W BCCL22496;B.I.UNKOMPRIMIERTÌ4¸W INCZPA8;=COMPRIMIERTER NAMEÛ4ÂW BNEL22556è4ÌW INCZPA9ú4ÖW BNEL22556;" )5àWL22496 SEC;+1 A=LAENGE D.NAMENSABSCHNITTSB5êW ADCZPA8;CARRY=CLEARO5ôW STAZPA8^5þW BCCL22416k5X INCZPA9}5X BNEL22416;" ¸5XL22556 CLC;ZPA8/9 ZEIGT AUF #00 ALS ENDFLAG DES NAMENSÅ5&X LDAZPA8õ50X ADC#$05;ADDIERT LAENGE V.QTYPE+QCLASS DAZU6:X STAZPA86DX BCCL22616O6NX INCZPA9;ZPA8/9 ZEIGT JETZT AUF 1.ZEICHEN HINTER QUESTIONo6XXL22616 DEX;ANZAHL QUESTIONS–6bX BNEL22416;Y=#00 ENDE QUESTIONS" ­6lX; LDA #$00ß6vX; LDX UDPOSM ;UDP IS POP3 OR SMTP+7€X; STA COEMAP,X ;LOESCHT COUNTER EMAIL ADRESSES (MAX 8 STUECK)o7ŠXL22666 LDX#$00;ANZAHL ANSWERS LOW (0-FF) BEGINN ANSWERS‚7”XL22676 LDY#$00¿7žXL22686 LDA(ZPA8),Y;LAENGE EINES NAMENSTEILS EINER ANSWERâ7¨X BEQL22826;B.I.ENDE DES NAMENSò7²X CMP#$40;648¼X BCCL22766"8ÆX INCZPA8;=COMPRIMIERTER NAME18ÐX BNEL22826>8ÚX INCZPA9P8äX BNEL22826;" b8îXL22766 SEC;+1{8øX ADCZPA8;CARRY=CLEARˆ8Y STAZPA8—8 Y BCCL22686¤8Y INCZPA9 ¶8 Y BNEL22686;" ñ8*YL22826 INY;ZPA8/9 ZEIGT AUF #00 ALS ENDFLAG DES NAMENS94Y LDA(ZPA8),Y;Y=1 TYPE HIGH 9>Y BNEL22966)9HY INYC9RY LDA(ZPA8),Y;TYPE LOWm9\Y CMP#$01;EVTL-AUCH 5 FUER PSEUDO NAME|9fY BNEL22966…9pY INY¡9zY LDA(ZPA8),Y;CLASS HIGH°!9„Y BNEL22966¹9ŽY INYÔ9˜Y LDA(ZPA8),Y;CLASS LOWá9¢Y CMP#$01:¬Y BEQL23146;B.I.0001=INTERNET:¶YL22966 LDY#$098:ÀY LDA(ZPA8),Y;RDATA LAENGE HIGHA:ÊY PHAJ:ÔY INYS:ÞY CLCu:èY LDA(ZPA8),Y;RDATA LAENGE LOW‚:òY ADC#$0B‘:üY BCCL23066ž:Z INCZPA9§:"Z CLCº:ZL23066 ADCZPA8Ç:$Z STAZPA8Ð:.Z PLA ;8Z ADCZPA9;WURDE FALLS ERSTER UEBERTRAG BEREITS ERHOEHT;BZ STAZPA9 ;LZ DEXK;VZ BNEL22676;NAECHSTE ANSWER ANALYSIEREN};`Z BEQL23576;TEST OB MINDESTENS EINE ADDRESSE" Œ;jZL23146 DEXË;tZ STXL22666+1;A#NZAHL NOCH KOMMENDER ANSWERS (OHNE AKTUELLE)ý;~Z LDY#$09;=IN DIESER ANSWER IST DIE IP ADRESSE <ˆZ LDA(ZPA8),Y;LAENGE RDATA HIGHB<’Z BNEL23236;B.I.FALSCHE LAENGEN<œZ INY;0Ap<¦Z LDA(ZPA8),Y;LAENGE LOW RDATA}<°Z CMP#$04Œ<ºZ BEQL23266«<ÄZL23236 INCVI$RAST+$34;?????Ë<ÎZ;TEXT ERROR IN UDP-ANALYSISÚ<ØZ JMPL23236=âZL23266 LDAUDPOSM;00/01/02 POP3/SMTP/TIME=ìZ TAX=öZ ASL;0/2*=[ ASL;0/47= [ ASL;0/8L=[ ORACOEMAP,X;0-7m=[ INCCOEMAP,X;00->01 07->08v=([ ASLž=2[ ASL;*4 00-$1C (0-28) 20-3C 40%-43§=<[ TAXÂ=F[L23366 INY;0B 0C 0D 0Eæ=P[ LDA(ZPA8),Y;RDATA (IP-ADRESSE) >Z[ STAEMADBP,X;EMAILADDRESS BUFFER>d[ INX!>n[ CPY#$0E0>x[ BCCL23366C>‚[ SEC;NICHT CLCu>Œ[ TYA;#$0E ZEIGT AUF LETZTES ZEICHEN VON RDATA‚>–[ ADCZPA8> [ STAZPA8ž>ª[ BCCL&23486«>´[ INCZPA9ã>¾[L23486 LDXL22666+1;ANZAHL NOCH KOMMENDERANSWERS LOW?È[ BEQL23626;B.I.KEINE ANSWER MEHR KOMMT?Ò[ LDXUDPOSM*?Ü[ CPX#$029?æ[ BEQL23626J?ð[ LDACOEMAP,XW?ú[ CMP#$08f?\ BCSL23626“?\ JMPL22666;NAECHSTE ANSWER ANALYSIEREN" ·?'\L23576 LDXUDPOSM;POP3/SMTP/TIMEÈ?"\ LDACOEMAP,Xû?,\ BNEL23626;B.I.ES MINDSTENS EINE ADDRESSE GIBT@6\L23606 INCVIRAST+$40;????(@@\ JMPL23606d@J\L23626 LDASESTAT;$30->$40$60->$68 $70->$80 $B0->$C0q@T\ CMP#$60€@^\ BNEL23666›@h\ SBC#$08;60->58 (->68)ª@r\L23666 CLC·@|\ ADC#$10Æ@†\ STASESTATÓ@\ LDA#$00 Aš\ RTS;ANALYSE UDP-DNS-------------------ENDE ANUDDN" 5A¤\L23716 LDX#$03;=ANALYSE NETTIME UDPBA®\ LDY#$0FyA¸\L23736 LDA(ZPA0),Y;SOURCE IP AUS EMPFANGENEN PAKET®AÂ\ CMPNTADBU,X;VERGLEIC +0)";A%(J%)Ó)úJ%²J%ª1å)‹J%²BS%§4490*‹I%(2)±99§CO%²«1:‰4220: ENDE WEIL = GEFUNDEN>*A%(J%)²((I%(1)¬16)¯255)ªµ(I%(2)­4)Y*" PRINT"A(X+1)";A%(J%)e*,J%²J%ª1w*6‹J%²BS%§4490©*@‹I%(3)±99§CO%²«1:‰4220: ENDE WEIL = GEFUNDENË*JA%(J%)²((I%( 2)¬64)¯255)ªI%(3)æ*T PRINT"A(X+2)";A%(J%)ò*^J%²J%ª1+h‹J%²BS%§4490+r‰3960X+|4490: ENDE EINES BASE64-PARTS DARF CO% NICHT AENDERNl+†ž65451: UNTALKs+ 3+š—780,DR:ž65460: TALK³+¤—780,98:ž65430: SA (2) NACH TALKØ+® ‰2310: NAECHSTE BOUNDARY SUCHENþ+¸================================#,™" ÒEAD ERROR":‰4310C,Ì™" ×RITE ERROR"M,Ö 2: 3\,à‹CN²0§4470h,êI²1¤CNt,ôA$²Ä(I)‰,þA$²É(A$,Ã(A$)«1)ž,‹CN³10§A$²"0"ªA$º,NA$²"EMAIL64TMPFILE "ªA$Û,™"ÒENAME:"NA$(I)"="NA$"÷,&˜15,"R:"ªNA$(I)ª"="ªNA$ -0„15,E,E$:™E;E$-:‹E²0§4460A-D‹E³±63§…" !!! ÅRROR !!!";A$:‰4460_-N™"ÆILENAME: "NA$(I)"‘w-X…"ÆILENAME:";NA$(I)-b‰4340‡-l‚“-v 14: 15·-€€:========================= ===æ-Š™:™"ÓAVING"BS%­1024"K - PLEASE WAITõ-”‹J%²0§4640 .žž65451: UNTALK%.¨—780,DW:ž65457: LISTENM.²—780,99:ž65427: SA (3) NACH LISTEN[.¼J²0¤J%«1j.Æ—780,A%(J)­.Ð PRINT"J P780 CP780"J;PEEK(780);CHR$(PEEK(780)):REM!!!!!!!!!!Á.ÚÙž65448: IECOUTÇ.ä‚Ò.îž65454ú.ø‹Â(144)±0§4300: KEIN RETURN!!!!!!!/—780,DR:ž65460: TALK:/ —780,98:ž65430: SA (2) NACH TALKC/J%²0I/ Ž‡/*‹I%²13§™"'BOUNDARY' NOT FOUND => ÎO MULTIPART": 2:€4: 15·-€€:========================= Ø÷#N;!MIT ZEILE 20004 BEGINNEN -N; .EQ MODE=0) 7N; .EQ MODE=18 AN .IFMODE=2A KN .ELR UN .EQZPA0=$50c _N .EQZPA1=$51t iN .EQZPA2=$52… sN .EQZPA3=$53– }N .EQZPA4=$54§ ‡N .EQZPA5=$55¸ ‘N .EQZPA6=$56É ›N .EQZPA7=$57Ú ¥N .EQZPA 8=$58ë ¯N .EQZPA9=$59ü ¹N .EQZPB0=$60 !ÃN .EQZPB1=$61!ÍN .EQZPB2=$62/!×N .EQZPB3=$63@!áN .EQZPB4=$64Q!ëN .EQZPB5=$65b!õN .EQZPB6=$66s!ÿN .EQZPB7=$67„! O .EQZPB8=$68•!O .EQZPB9=$69¨!O .EQENRELO=$F7»!'O .EQENREHI=$F8Î!1O .EQBERELO=$FBá!;O .EQBEREHI=$FCô!EO .EQTXNMIP=999"OO .EQBEBUHI=999"YO .EQENBULO=999-"cO .EQENBUHI=999@"mO .EQCRCLOW=999S"wO .EQCRCHIG=999f"O .EQCRCBYT=999y"‹O .EQCOOFON=999Œ"•O .EQAUNOYE=999Ÿ"ŸO .EQWABUSE=999²"©O .EQCOFOAU=999Å"³O .EQSESTAT=999Ø"½O .EQSEI PAD=999ë"ÇO .EQCLIPAD=999þ"ÑO .EQPRIDNS=999#ÛO .EQSECDNS=999$#åO .EQPRSEDN=9997#ïO .EQSENEDN=999L#ùO .EQSEBU01=$F400a#P .EQSEBU02=$FA00t# P .EQPSACCO=999‡#P .EQPSIDAD=999š#!P .EQPRMERC=999­#+P .EQPRMESE=999À#5P .EQPRMENO=999Ó#?P .EQLOAFIL =999æ#IP .EQBYRSIN=999ù#SP .EQWAMOME=999 $]P .EQBYRSOU=999$gP .EQCYRECS=9992$qP .EQSEACCO=999E${P .EQSEBUF4=999X$…P .EQSEBUFA=999k$P .EQSEBUAC=999~$™P .EQANAPPP=999‘$£P .EQSTANPP=999¤$­P .EQIDCORJ=999·$·P .EQIDPRRJ=999Ê$ÁP .EQCSIPHE=999Ý$ ËP .EQSEQNUM=999ð$ÕP .EQFIIPHE=999%ßP .EQTCPHDR=999%éP .EQCSTCHD=999)%óP .EQTXINPR=999<%ýP .EQTXEMAC=999O%Q .EQFIIPUD=999b%Q .EQQTYQCL=999u%Q .EQIAPOP3=999ˆ%%Q .EQIASMTP=999›%/Q .EQEMADBP=999®%9Q .EQEMADBS=999Á%CQ .EQCOEMAP=999Ô%MQ .EQA CEMAD=999ç%WQ .EQTCHEOP=999ú%aQ .EQCOSEAD=999 &kQ .EQTXEMLO=999 &uQ .EQTXEMHI=9993&Q .EQWA01SE=999F&‰Q .EQPSTERE=999Y&“Q .EQAOSTD0=999l&Q .EQAOSTDL=999&§Q .EQAOSTDH=999’&±Q .EQINFLSE=999¥&»Q .EQEXSESE=999¸&ÅQ .EQEXSEAC=999Ë&ÏQ .EQUDPOSM=9 99Þ&ÙQ .EQTXPRAK=999ñ&ãQ .EQPRTEXT=999'íQ .EQTXHEC6=999'÷Q .EQTXEHLO=999*'R .EQTXAUPL=999=' R .EQBETCDA=999P'R .EQTXMAFR=999c'R .EQTXRCPT=999v')R .EQTXDATA=999‰'3R .EQTXFROM=999œ'=R .EQTXREPL=999¯'GR .EQTXXMAI=999Â'QR .EQVERCPL=999Õ'[R  .EQVERCPH=999è'eR .EQEXACBU=999û'oR .EQTIRES0=999(yR .EQENTDS0=999!(ƒR .EQNTADBU=9994(R .EQFIIPUT=999G(—R .EQPRTENO=999Z(¡R .EQINDATE=999m(«R .EQCOPRDA=999€(µR .EQDAHO24=999“(¿R .EQDAMINU=999¦(ÉR .EQDASECU=999¹(ÓR .EQDATDAY=999Â(ÝR .EI) çR;========================================================================= )ñR .IFMODE=0.)ûR .BA$E0017)S .EIF)S .IFMODE=1T)S .BA$E001])#S .EIl)-S .IFMODE=1z)7S .LI4,4,0ƒ)AS .EI‘)KS;"4-MAIN°)US;"MIT ZEILE 20004 BEGINNENÚ)_S .EQSEIPCH=L21 493;SEND IP COPY HEADERÿ)iS .EQSEIPNC=L21613;SEND IP NOCOPY4*sS .EQSEFIWR=L22263;SEND FIN TO WRONG ADDRESS/PORT[*}S .EQSECDRJ=L23303;SEND CODE REJECT‡*‡S .EQSEPRRJ=L23373;SEND PROTOCOLL REJECT–*‘S JMPL63500¾*›S;-------------------------------" ô* ¥S;IP- & TCP-HDR VOR VORHANDENE TCP-DATEN SCHREIBEN"+¯S;ZPA0/ZPA1 MUSS AUF BEGINN IP HDR ZEIGEN!Q+¹S;ZPA2/ZPA3 MUSS AUF BEGINN TCP HDR ZEIGEN!+ÃS;ZPA4/ZPA5 MUSS AUF BEGINN TCP-DATEN ZEIGEN²+ÍS;ZPA6/ZPA7 MUSS AUF ENDE TCP-DATEN+1 ZEIGEN!á+×S;BEI SYN  NOCH MAXIMALE SEGMENTGROESSE DAZU.,áS;=>TCP-HEADER IST 4 BYTE LAENGER=>LANEGE ANDERN UND WIEDER ZURUECKSETZEN^,ëS;NOCH SCHAUEN WAS 04 02 FUEREINE OPTION IST¢,õSL21493 LDY#$28;40 IP- & TCP-HEADER VOR VORHANDENE TCP-DATEN±,ÿS BITCOOFONÀ, T BMIL21 533Ð,T LDY#$2B;43ã,TL21533 LDX#$2B-'T LDAZPA1;BEGINN IP-HDR HIGH-1T STAL21573+2G-;TL21563 LDAFIIPHE,X;KOPIERT IP&TCP HEADER DAVOR]-ETL21573 STA$FF00,Yf-OT DEXo-YT DEY-cT BPLL21563;" °-mTL21613 INCFIIPHE+$9;FERTIGEN HEADER SENDEN¿-wT BNEL2 1643ù-T INCFIIPHE+$8;ERHOEHT IDENTIFIER F.FRAGMENTBEHANDLUNG .‹TL21643 LDY#$03#.•T LDAZPA6;ENDE+1LOWS.ŸT SEC;ENDE+1 LOW -1 FUER COMPRIMIERTES FIELD`.©T SBCZPA0q.³T STA(ZPA0),YŠ.½T LDAZPA7;ENDE+1 HIGH¥.ÇT SBCZPA1;ANFANG IP-HDR®.ÑT DEYÊ.ÛT STA(Z PA0),Y;LANGE HIGHõ.åT JSRCSTCHD;CHECKSUMME UEBER TCP BILDEN/ïT LDY#$11;17'/ùT STA(ZPA2),Y;TCP-CHECKSUM LOW0/U DEY9/ U TXA`/U STA(ZPA2),Y;TCP-CHECKSUM HIGH????„/!U JSRCSIPHE;CHECKSUMME IP HEADER”/+U LDY#$0B;11¥/5U STA(ZPA0),Y®/?U DEY·/IU TXA È/SU STA(ZPA0),Yû/]U LDAZPA1;ANFANG IP HEADER=ANFANG IP PAKET HIGH0gU LDXZPA6;ENDE TCP-DATEN+1 LOW@0qU LDYZPA7;ENDE TCP-DATEN+1 HIGH{0{UL21883 JSRSEBUAC;JSR/JMP -> L23233 SEND BUFFER ACCUÂ0…U;JSR=>EXPECTED SERVER SEQ-NR WIRD NEU BERECHNET (BEI NORMALEN TCP) 1U;JMP=>EXPECTED SERVER WEQ-NR BLEIBT GLEICH (BEI SEND FIN WRON SERVER)51™U LDAZPA1;BEI SENDEN DES EMAILTEXTES:r1£U CMP#$FA;EXPECT.SERV.ACKNR + SEND-TCPDATAS BLEIBT GLEICH±1­U BCCL22243;B.I.SENDEN DES EMAILTEXTES SMTP (IN F4 F6 F800)ç 1·U;DARF BEIM WIEDERHOLEN NICHT NEU BERECHNET WERDENð1ÁU SEC2ËU LDAZPA6;ENDE TCPDATEN+1 LOW22ÕU SBCZPA4;BEGINN TCPDATEN LOW_2ßU STAAOSTDL;AMOUNT OLD SEND TCP-DATAS LOW2éU LDAZPA7;ENDE TCPDATEN+1 HIGH£2óU SBCZPA5;BEGINN TCPDATEN HIGH²2ýU STAAOSTD HÙ2V LDX#$80;FLAG F.TCPDATEN VORHANDENè2V ORAAOSTDL3V BNEL22153;B.I.TCPDATEN VORHANDEN3%V LDY#$0D93/V LDA(ZPA2),Y;CONTENT BITS[39V LDX#$00;FLAG F.NUR-ACK-PAKETˆ3CV AND#$2F;MASKIERT BIT7&6 UND ACK-BIT WEG¯3MV;EVTL-NOCH PUSH-BIT MASKIEREN????? Û3WV BEQL22123;B.I.KEIN ANDERES BIT GESETZTç3aV INX;014kVL22123 STXAOSTDL;0/1 4uV LDA#$004V STAAOSTDHE4‰VL22153 STXINFLSE;INCREMENT FLAG SEND~4“V;00=NUR-ACK 01=NUR-CONTENT-BIT 80=TCPDATEN VORHANDEN‹4V LDY#$03”4§V CLCÅ4±VL22193 LDATCPHDR+4,Y ;SOEBEN GESENDETE SEQ-NR5»V ADCAOSTD0,Y;ADDIERT ANZAHL SOEBEN GESENDETER DATEN DAZU65ÅV STAEXSEAC,Y;ERGIBT ZU ERWARTENDE SERVER-ACK-NR?5ÏV DEYN5ÙV BPLL22193f5ãVL22243 RTS;------" µ5íV;=============================================================== ==========ù5÷VL22263 LDY#$99;SEFIWR SEND FIN TO WRONG ADDRESS/PORT+6W;BESSER FA00 STATT F400 NEHMEN WEIL BEI SMTP:w6 W;STEHT BEI F400 DIE ZU SENDENDEN 3 EMAILBUFFER => WUERDE UEBERSCHRIEBEN 6W JSRPRMERC;RCV TCP FROM WRONG SERVER­6W LDX #$2Bî6)WL22313 LDAFIIPHE,X;KOPIERT TCP-PAKET NACH FA00 (INCL FILEDS)þ63W STA$FA00,X7=W DEX7GW BPLL22313N7QW;DEFAULT FIELDS&IP&TCP DARF NICHT VERAENDERT WERDEN–7[W;=> KANN NICHT NACH FIIPHE SCHREIBEN=>MUSS NACH F400 DIREKT AENDERN»7eW;=>MUSS MIT LANGEN FIELDS SENDENØ7oW;EVTL ZPA IN ZPB AENDERNå7yW LDY#$0C8ƒW STYL23013+1;FLAG F.TCP-DATEN VORHANDENI8WL22413 LDA(ZPA0),Y;SOURCE-IP DES EMPFANGENEN PAKETS„8—W STA$FA00+$08,Y;DESTINATION-IP DES ZU SENDENDEN PAKETS8¡W INYš8«W CPY#$10©8µW BCCL2 2413¶8¿W LDY#$0Bè8ÉWL22473 LDA(ZPA2),Y;KOPIERT RCV-ACK -> SND-SEQü8ÓW STA$FA00+$14,Y9ÝW DEY9çW CPY#$08!9ñW BCSL22473*9ûW CLCK9X LDAZPA6;ENDE TCP-DATEN+1LOWj9X SBCZPA4;BEGINN TCP -DATENs9X TAY€9#X LDAZPA7Ç9-X;WUERDE IN HAUPTPROGRAMM SCHON ! VORHER BERECHNET VEREINFACHEN!!!Ô97X SBCZPA5Ý9AX TAXþ9KX BCSL22643;B.I.ES DATEN GIBT0:UX LDX#$00;ES GIBT KEINE DATEN => UM 1 ERHOEHEN=:_X LDY#$00o:iX STYL23013+1;FLAG F.KEINE TCP-DATEN VORHANDEN~:sXL22643 TYA‹:}X LDY#$07™:‡X SEC;! +1¿:‘X AD "C(ZPA2),Y;RCV-SERVER-SEQNUMMERÜ:›X STA$FA00+$23;SND-ACK-NRå:¥X TXAî:¯X DEY;¹X ADC(ZPA2),Y;RCV-SERVER-SEQNUMMER1;ÃX STA$FA00+$22;SND-ACK-NR>;ÍX LDA#$00G;×X DEYm;áX ADC(ZPA2),Y;RCV-SERVER-SEQNUMMERŠ;ëX STA$FA00+$21;SND-ACK-NR—;õX LDA#$00 ;ÿX DE #YÆ; Y ADC(ZPA2),Y;RCV-SERVER-SEQNUMMERæ;Y STA$FA00+$20;SND-ACK-NREAKó;Y LDY#$01<'YL22823 LDA(ZPA2),Y;SENDE PORT9<1Y STA$FA00+$1A,Y;->EMPFANGERPORTB<;Y DEYQSE $NDEPORT­ùYL23033 LDA#$00;=IRGEND EIN ANDERES PAKET VON FALSCHEM SERVERF>Z INCL23033+1S> Z AND#$03‹>Z BEQL23113;NUR JEDES 4.PAKET FIN=>KEIN AUFSCHAUKELNÖ>!Z;PROBLEM: &SERVER SNEDET AUF ACK&FIN VON MIR 2 ANTWORTEN 1.ACK 2.ACK&FIN?+Z;=>WENN ICH 1.ACK WIEDER MIT ACK&FIN BEANTWORTEN WUERDE=>c?5Z;D.SERVER WUERDE ES WIEDRE ERNEUT BEARBEITEN U.ES WUERDE SICH AUFSCHAUKELNo??Z RTS;" ¤?IZL23113 STX$FA00+$25;NEUES CONTEN BI 'T ALS ANTWORT±?SZ LDA#$04¾?]Z LDX#$FAË?gZ STAZPA0é?qZ STXZPA1;BEGINN IP-HEADER @{Z LDA#$18;BEGINN TCP-HEADER LOW+@…Z STAZPA2;BEGINN TCP HEADER8@Z STXZPA3E@™Z LDA#$2Cd@£Z STAZPA6;ENDE TCP DATEN +1‹@­Z STXZPA7;(TCP-DATEN GIBT ES NICHT)œ@·Z LDY#$4C;JMPÛ@ÁZL23233 STYL21883;EXPECTED SERVER SEQ NR BLEIBT UNVERAENDRTö@ËZ JSRSEIPNC;X=ENDE HIGH AÕZ LDY#$20;'JSR'FAßZ STYL21883;EXPECTED SERVER SEQ-NR WIRD AKTUELL BERECHNETlAéZ LDY#$99;SEND TCP TO WRONG SERVER{AóZ JMPPRMESEÊAýZ;==================!5457: LISTENé..—780,99:ž65427: SA 96+3 AFTER LISTENò.8G%²0/BI²0¤EE«2©3%/LA%²A%(I):B%²A%(Iª1):C%²A%(Iª2)D/V—780,B%((A%¯252)­4):ž65448n/`—780,B%((A%¯3)¬16ª(B%¯240)­16):ž65448˜/j—780,B%((B%¯15)¬4ª(C%¯192)­64):ž65448²/t—780,B%(C%¯63):ž654!48¾/~G%²G%ª1ò/ˆ‹G%²18§G%²0:—780,13:ž65448:—780,10:ž65448:™".";ø/’‚0œ‹SK²0§ž65454:‰476020¦A%²A%(I):B%²A%(Iª1):C%²A%(Iª2)G0°‹EE«2«I³±«2§5090f0º—780,B%((A%¯252)­4):ž65448„0Ä—780,B%((A%¯3)¬16):ž65448—0Η780,61:ž65448ª0Ø—780,61:ž65448¿0â!‹EE«2«I³±«1§5140Þ0ì—780,B%((A%¯252)­4):ž654481ö—780,B%((A%¯3)¬16ª(B%¯240)­16):ž65448&1—780,B%((B%¯15)¬4):ž6544891 —780,61:ž65448L1—780,13:ž65448_1—780,10:ž65448u1(ž65454: UNLISTEN|12 2¢1<--------------------------------¬1F‰4060!Ò1P--------------------------------á1Z‹AF²0§5240ô1d˜3,Ç(13)Ç(10);62n˜3,"--........................................--";Ç(13)Ç(10);V2x˜3,Ç(13)Ç(10)"."Ç(13)Ç(10);]2‚ 3r2Œ„15,E,E$:™:™E,E$z2– 15 2 --------------------------------¦2ª€³2´!A$²"$*=S¼2¾™"Ë2ÈŸ1,DR,0,A$Ý2Ò—198,0:—631,0÷2Ü—780,DR:ž65460: TALK3æ—780,96:ž65430: SA (0) NACH TALK13ðž65445: IEC-INE3úž65445: IEC-INY3ž65445: IEC-INm3ž65445: IEC-IN3ž65445: IEC-IN¡3"LL%²Â(780): LINENUMBER LOWµ3,ž6»5445: IEC-INÈ36‹Â(144)±0§ 1:Ží3@™""Â(780)¬256ªLL%;: LINENUMBER4Jž65445: IEC-IN4T™Ç(Â(780));$4^‹Â(144)±0§ 1:Ž74h‹Â(780)±0§5450L4r‹Â(198)±0§™: 1:ŽX4|™:‰5380_4† 2E,E$:™:™E,E$z2– 15 2 --------------------------------¦2ª€³2´!"è 2076/7 2079/80 DEV-NR09.09Iò !!! LINE 1000 MUSTN'T BE CHANGEDoü IMPORTANT AT BASIC AND COMPILED‘DR²(Â(2076)«48)¬10ªÂ(2077)«48¥‹DR²0§DR²Â(186)Ó‹(DR³8)°(DR±30)§DR²8: DEVICE-NUMBER-READõ$DW²(Â(2079)«48)¬10ªÂ(2080)«48 .‹DW²!0§DW²Â(186)8 8‹(DW³8)°(DW±30)§DW²8: DEVICE-NUMBER-WRITEa B™"“ ÅXTRACTS ATTACHED FILES FROMy L™"DOWNLOADED EMAILS¤ V™"ÉF YOU WANT TO CHANGE THE DEFAULT-Ï `™"VALUES FOR THE READ- OR WRITE-DEVICEý j™"THEN LOAD THIS PROGRAM, LIST IT, CHANG! E t™"IN THE ÂASIC-LINEA ~™"1988 SYS2085 :REM BASIC-BOSS....08.09m ˆ™"THE FIRST NUMBER BEHIND THE FOUR DOTS• ’™"TO THE READ-DEVICE-NUMBER AND THE¾ œ™"SECOND NUMBER TO THE WRITE-DEVICE-ì ¦™"NUMBER. ÐAY ATTENTION TO NOT CHANGE THE °™"LENGTH ! OF THIS LINE. ÔHEN PRESS< º™"<ÒETURN> AND SAVE THE FILE TO DISK.c Ä™"ÒEADING FROM"DR"WRITING TO"DW"Œ Ι"ÐRESS F1 TO CHANGE DEVICE-NUMBERS° ؆A%(4095),B%(122),NA$(99),I%(3)¾ âB%(43)²62Ì ìB%(47)²63å öI²52¤61:B%(I«4)²I:‚þ I²0¤25:B%(Iª6! 5)²I:‚ I²26¤51:B%(Iª71)²I:‚: B%(61)²128: '=' AUFFUELLBYTEY BS%²4096: BUFFERSIZE=4096k ( 14:Ÿ14,DR,15‘ 2 15:Ÿ15,DW,15,"S:EMAIL64TMPFILE**£ <Ÿ1,DR,0,"$*=S½ F—780,DR:ž65460: TALKã P—780,96:ž65430: SA (0) NACH TALK÷ Zž65445: IEC-I! N dž65445: IEC-IN$ n™"ÅMAIL FILENAME ?, x™"> ‚—198,0:—631,0R Œž65445: IEC-INf –ž65445: IEC-INz  ž65445: IEC-INš ªLL%²Â(780): LINENUMBER LOW® ´ž65445: IEC-INÅ ¾‹Â(144)±0§ 1:‰1550ê È™""Â(780)¬256ªLL%;: LINENUMBERþ Òž6544! 5: IEC-INÜ™Ç(Â(780));%æ‹Â(144)±0§ 1:‰15508ð‹Â(780)±0§1490Qú‹Â(198)±0§™: 1:‰1550]™:‰1420s‹Â(631)³±133§1610®™"ÒEAD-DEVICE-NUMBER "DR"‘":…"";DRÇ"‹(DR³8)°(DR±30)§1560,™"×RITE-DEVICE-NUMBER "DW"‘":…"!";DW6‹(DW³8)°(DW±30)§1580'@‰1320>J™"ÅMAIL FILENAMENT…" ";EN$d^Ÿ2,DR,2,EN$ª",S,Rqh„14,E,E$r‹E±0§™""E;E$: 2:‰1340˜|—144,0²†—780,DR:ž65460: TALKØ—780,98:ž65430: SA (1) NACH TALKš------------------!-------------1BOUNDARY IN HEADER SUCHEN!¤™:™:™O®CO%²0: COUNTER AUF 1.ZEICHEN EINER ZEILEq¸ -1 NICHT CONTENT-TYPE ZEILE•Â 0 ERSTES ZEICHEN EINER LINIE»Ì 1-11 VERGLEICHT MIT CONTEN-TYPEâÖ 15- 20 SUCHT BEGINN VON BOUNDARYÿà 15 SU!CHT 'B' (ODER 0D)5ê 16 SUCHT 0A FALLS 0D 0A 09 (Z.B.OUTLOOKEXPRESS)Oô 17 SUCHT 09 ODER 20qþ 21 VERGLEICHT MIT BOUNDARY= 40 SPEICHERT BOUNDARYÅž65445:I%²Â(780):IC%²I%:‹IC%±96§IC%²IC%«32: IEC-INØ‹Â(144)±0§4290å&™Ç(IC%);0 !PRINTI%,CO%:REM!!!!!!!!!!!!!:‹CO%±«1§1880)D‹I%²10§17103N‰1810CX‹CO%±0§1940db ERSTES ZEICHEN EINER ZEILEul‹I%³±13§1920°v™"'ÃONTENT-ÔYPE' NOT FOUND => ÎO MULTIPART": 2:€Ö€‹I%²67§CO%²1:‰1810: "C" GEFUNDENûŠCO%²«1:‰1810: !ZEILENENDE SUCHEN ”‹CO%±14§19905ž‹IC%³±Æ(Ê("ONTENT-TYPE",CO%,1))§1930C¨CO%²CO%ª1T²‹CO%³12§1810e¼CO%²15:‰1810vÆ‹CO%±20§2100Ð SUCHT "BOUNDARY"¦Ú‹CO%±15§2050: 16 17ãä‹I%²13§CO%²16:‰1810: 0D GEFUNDEN EVTL FORTSETZUNGSZEILEî!‹I%²98§CO%²21: B VON BOUNDARYø‰1810!‹CO%²17§2080L ‹I%³±10§1910: KEINE FORTSETZUNGSZEILE]CO%²17:‰1810x ‹(I%³±9)¯(I%³±20)§1910‰*CO%²15:‰1810š4‹CO%²40§2170®>‹I%±96§I%²I%«32ÞH‹I%³±Æ(Ê("OUNDARY=",CO%«20,1))§CO%²20:‰1930ìRCO%!²CO%ª1ý\‹CO%³29§1810 fBO$²"--pCO%²40:‰1810*z‹I%²34§1810:„‹I%²13§2210LŽBO$²BO$ªÇ(I%)V˜‰1810Œ¢™"ÂOUNDARY FOUND IN ÈEADER:":™É(BO$,Ã(BO$)«2)Ь-------------------------------2BOUNDARY ZWISCHEN PARTS ZUCHENþ¶CO%²0: COUNTER! AUF 1.ZEICHEN EINER ZEILEÀ -1 NICHT BOUNDARY ZEILE@Ê 0 ERSTES ZEICHEN EINER LINIEeÔ 1 ZWEITES ZEICHEN EINER LINIE‰Þ 2-255 VERGLEICHT MIT BOUNDARY¹è 256 VERGLEICHT MIT 1.ZEICHEN NACH BONDARYòò 257 VERGLEICHT 2.ZEICHEN NACH BOND!ARY MIT LINEFEED$ü 300 VERGLEICHT 2.ZEICHEN NACH BONDARY MIT -\ ž65445:I%²Â(780):IC%²I%:‹IC%±96§IC%²IC%«32: IEC-INo ‹Â(144)±0§4290† PRINTCHR$(IC%);ª$ PRINTI%,CO%:REM!!!!!!!!!!!!!». ‹CO%±«1§2380Ò8 ‹I%²10§™".";:‰2230ÜB ‰2310ìL! ‹CO%±0§2410V ‹I%²45§CO%²1:™:™"-";:‰2310: --!` CO%²«1:‰2310?j IC%²I%:‹IC%±96§IC%²IC%«32Lt ™Ç(IC%);^~ ‹CO%±255§2480~ˆ ‹I%³±Æ(Ê(BO$,CO%ª1,1))§2400Œ’ CO%²CO%ª1¡œ ‹CO%³Ã(BO$)§2310æ CO%²256:‰2310: ENDE BOUNDARYÕ° ‹CO%±256§2520îº ‹I%²!45§CO%²300:‰2310ÿÄ ‹I%³±13§2400Î CO%²257:‰2310#Ø ‹CO%³300§2540Qâ ‹I%²45§™:™"ÆOUND END": 2:‰4310: RENAMEbì ‹I%³±10§2400ö ™"ÂOUNDARY FOUND - NEW PART FOUNDÛ -------------------------------3SUCHT TYPE & ENCODING IN HEADER V.PART!ñ NA$²"": FILENAME EN$²"": ENCODING5 CO%²0: COUNTER AUF 1.ZEICHEN EINER ZEILE\( -1 NICHT C-TYPE C-ENCODING ZEILE€2 0 ERSTES ZEICHEN EINER LINIE¥< 1- VERGLEICHT MIT CONTENT-T«F ±P ·Z ïd ž65445:I%²Â(780):IC%²I%:‹IC%±9!6§IC%²IC%«32: IEC-INn ‹Â(144)±0§4290x ™Ç(IC%);2‚ PRINTI%,CO%:REM!!!!!!!!!!!!!CŒ ‹CO%±«1§2730S– ‹I%²10§2590]  ‰2660mª ‹CO%±0§2770ž´ ‹I%²13§3110: ENDE V.HEADER EINES MULTIPARTS¹¾ ‹I%²67§CO%²1:‰2660: CÊÈ CO%²«1:‰2660ÛÒ ‹CO%±19§2!820Ü ‹IC%³±Æ(Ê("ONTENT-T",CO%,1))§2760æ CO%²CO%ª1ð ‹CO%³9§2660Aú CO%²20:‰2660: ENDE CONTENT-TR ‹CO%±20§2860q ‹IC%²89§CO%²40:‰2660: YPE ‹IC%²82§CO%²80:‰2660: RANSFER-ENCODING§" ‰2760¸, ‹CO%±79§2910Û6 ‹IC%³±Æ(Ê("PE",CO%«39,1))!§2760é@ CO%²CO%ª1úJ ‹CO%³42§2660 T CO%²100:‰2660^ ‹CO%±99§2960Nh ‹IC%³±Æ(Ê("ANSFER-ENCODING:",CO%«79,1))§2760\r CO%²CO%ª1m| ‹CO%³96§2660† CO%²200:‰2660‘ ‹CO%±119§3020«š ‹I%²13§2760: CO%=100Ú¤ ‹IC%³±Æ(Ê("NAME=",CO%«99,1))§CO%²100!:‰2660è® CO%²CO%ª1ú¸ ‹CO%³105§2660  CO%²120:‰2660Ì ‹CO%±199§30708Ö ‹I%²13§2760: CO%=120Hà ‹I%²34§2660[ê NA$²NA$ªÇ(IC%)eô ‰2660þ ‹I%²13§2760: CO%=200 ‹I%²34§2660¢ EN$²EN$ªÇ(IC%)Å ‰2660:-----------------------ñ& ‹È(EN$,1!)²" "§EN$²É(EN$,Ã(EN$)«1):‰31100 ™"ÎAME: "NA$: ™"ÅNCODING: "EN$%D ž654458N ‹Â(144)±0§4290tX ‹Â(780)³±10§3140: SUCHT LETZTES LF DIESES PART-HEADERS²b ž65451: UNTALK WICHTIG DASS DRIVEMOTOR NICHT EWIG LAEUFTÐl ™"ÓAVE THIS PART? (Y/N)!Øv ¡A$ € ‹A$²"N"§—780,DR:ž65460:—780,98:ž65430:‰2230 Š ‹A$³±"Y"§3190& ” FT$²"P"O ž ‹É(NA$,4)²".PRG"§NA$²È(NA$,Ã(NA$)«4)€ ¨ ‹É(NA$,4)²".SEQ"§FT$²"S":NA$²È(NA$,Ã(NA$)«4) ² ‹Ã(NA$)±16§NA$²È(NA$,16)´ ¼ ™" "NA$"‘Ö Æ A$²"":…"ÎAME ";A$:‹A$! ²""§3260æ Ð A$²È(A$,16)!Ú ™" ";FT$"‘!ä …"ÆILETYPE ";B$ ™""NA$ÿ!H ‹DR³±DW§˜15,"S:"ªNA$"R Ÿ3,DW,3,NA$ª","ªB$ª",W4"\ —780,DR:ž65460: TALKZ"f —780,98:ž65430: SA (2) NACH TALKŽ"p -------------------------------4SPEICHERT PART¥"z ‹EN$²"BASE64"§3940¯"„ CO%²0Ñ"Ž 0 VORHERZEICHEN WAR !"NICHT -í"˜ 1 VORHERZEICHEN WAR -%#¢ 2- VORHERZEICHEN WAR -- VERGLEICHT MIT BOUNDARY.#¬ J%²0A#¶ ž65445: IECIN#À PRINT"IECIN P780 CP780 CO% J%"PEEK(780);CHR$(PEEK(780));CO%;J%:REM!!!!!¢#Ê ‹Â(144)±0§4290²#Ô ‹CO%±0§3610î#Þ ‹Â(780)²45§CO%²1:!#™:™"-";:‰3510: EVTL.BEGIN V.NEUR BNDY$è A%(J%)²Â(780) $ò J%²J%ª1$ü ‹J%³BS%§3510'$44901$‰3500S$IC%²Â(780):‹IC%±96§IC%²IC%«32`$$™Ç(IC%);r$.‹CO%±255§3680—$8‹Â(780)³±Æ(Ê(BO$,CO%ª1,1))§ 3700¥$BCO%²CO%ª1½$L‹CO%²Ã(BO$)§CO%²256Ç$V‰351!$0÷$`‹Â(780)²13§CO%²257:‰3830: ENDE EINES PARTS'%j‹Â(780)²45§CO%²300:‰3830: ENDE EINES PARTSX%tI²1 : NUR TEILUEBEREINSTIMMUNG MIT BOUNDARY”%~ PRINT"TEILRDR-CK CO% J% LEN(BO$) I"CO%;J%;LEN(BO$);I­%ˆA%(J%)²Æ(Ê(BO$,I,1))¹%’J%²J%ª1Ã%œI²Iª1!%Ô%¦‹J%³BS%§3800&°AK²Â(780): RETTET AKTUELL GELESENES BYTE &º4490B&Ä—780,AK: SCHREIBT AKTUELL GELESENSN WERT ZURUECKK&ÎJ%²0j&Ø‹(I³²CO%)¯(I³²Ã(BO$))§3720¤&âCO%²0: IST EVTL. FALSCH,FALLS - IN BOUNDARY VORKOMMTï&ì‰3540: ENDE V. TEILBOUND!&ARY ZURUECKSCHREIBEN-------------------------'ö4490: SAVEN1'ž65451: UNTALK:REM SCHLUSSTEIL EINES PARTS8'  3E'„15,E,E$O'™E;E$\'(‹E±0§…A$g'2—144,0'<—780,DR:ž65460: TALK§'F—780,98:ž65430: SA (2) NACH TALK¿'P‰2310: CO%=257/300!' (Z================================ BASE64(dCO%²0 (nJ%²0=(xž65445:I%²Â(780): IECIN‹(‚ PRINT"IECIN CO% J% P780 CP780"CO%;J%;PEEK(780);CHR$(PEEK(780)):REM!!!!!ž(Œ‹Â(144)±0§4290µ(–‹I%²13§™".";:‰3960Å( ‹I%² 10§3960Õ(ª‹I%²32§3960)´‹I%²45§CO%²1:‰4220: ENDE WEIL NAECHSTE BOUNDARY GEFUNDEN/)¾I%(CO%)²B%(I%): BASE64A)ÈCO%²(CO%ª1)¯3Q)Ò‹CO%±0§3960)Ü PRINT"I%(0) I%(1) I%(2) I%(3)"I%(0);I%(1);I%(2);I%(3)¬)æA%(J%)²I%(0)¬4ªµ(I%(1)­16)Ç)ð PRINT"A(X> HANDSHAKE WENN PUFFER VOLL GEHT NICHT (BEI SWIFTLINK)" GCTIVE???ð>f0 RTS;------" ?p0;-----------------------------" >?z0L12410 LDA#$00;MODEM ADAPTER RESETY?„0 STAUARIER;IRQ/NMI OFFf?Ž0 LDA#$03Š?˜0 STAUARMCR;DTR & RTS AUF ACTIVE—?¢0 LDA#$47""è 2076/7 2079/80 DEV-NR00.00Iò !!! LINE 1000 MUSTN'T BE CHANGEDoü IMPORTANT AT BASIC AND COMPILED‘DR²(Â(2076)«48)¬10ªÂ(2077)«48¥‹DR²0§DR²Â(186)Ó‹(DR³8)°(DR±30)§DR²8: DEVICE-NUMBER-READõ$DW²(Â(2079)«48)¬10ªÂ(2080)«48 .‹DW²"0§DW²Â(186)8 8‹(DW³8)°(DW±30)§DW²8: DEVICE-NUMBER-WRITEe B™"“ ÃONVERT FILE FROM ËWIK-×RITE- TOz L™"ÅMAIL64-FORMAT¥ V™"ÉF YOU WANT TO CHANGE THE DEFAULT-Ð `™"VALUES FOR THE READ- OR WRITE-DEVICEþ j™"THEN LOAD THIS PROGRAM, LIST IT, CHAN"GE t™"IN THE ÂASIC-LINEB ~™"1988 SYS2085 :REM BASIC-BOSS....00.00n ˆ™"THE FIRST NUMBER BEHIND THE FOUR DOTS– ’™"TO THE READ-DEVICE-NUMBER AND THE¿ œ™"SECOND NUMBER TO THE WRITE-DEVICE-í ¦™"NUMBER. ÐAY ATTENTION TO NOT CHANGE THE °™"LENGTH" OF THIS LINE. ÔHEN PRESS= º™"<ÒETURN> AND SAVE THE FILE TO DISK.d Ä™"ÒEADING FROM"DR"WRITING TO"DW" Ι"ÐRESS F1 TO CHANGE DEVICE-NUMBERS° ؆A%(4095),AN$(9),EN$(9),B%(63)Å â 14:Ÿ14,DR,15,"IÚ ì 15:Ÿ15,DW,15,"Iø ö™"ËWIK-×RITE FILENAME ?" 5300 ‹Â(631)³±133§1350S ™"ÒEAD-DEVICE-NUMBER "DR"‘":…"";DRl ‹(DR³8)°(DR±30)§1300© (™"×RITE-DEVICE-NUMBER "DW"‘":…"";DW 2‹(DW³8)°(DW±30)§1320Ì <‰1250è F™"ËWIK-×RITE FILENAMEø P…" ";K"N$ ZŸ2,DR,2,KN$ª",S,R d„14,E,E$" n 2; x‹E±0§™""E;E$:‰1280F ‚CA%²«1c Œ™"ÁTTACH A FILE? (Y/N)k –¡A$|  ‹A$²"N"§1920Ž ª‹A$³±"Y"§1430¥ ´AF²1: ATTACH FILE¾ ¾I²0¤25:B%(I)²Iª65:‚Ø ÈI²26¤51:B%(I)²Iª71:‚ñ ÒI²52¤61:B%(I)²I«4:‚ÿ "ÜB%(62)²43 æB%(63)²474ð™:™""CA%ª2". ATTACHMENT (OF 10)Uú™:™"ATTACH WHICH FILETYPE?|™"ÐRG ÓEQ ÕSR OR <ÒETURN> FOR ALL“¡FT$:‹FT$³±""§1550œ¡FT$¹"‹FT$²"P"§A$²"$*=P":‰1620Ö,‹FT$²"S"§A$²"$*=S":‰1620ó6‹FT$²"U"§A$²"$*=U":‰162" 0@‹FT$³±Ç(13)§1560JA$²"$T5310]^AN$²"":…"ÁTTACH FILENAME ( FOR NO) ";AN$nh‹AN$²""§1860yrB$²FT$Ž|‹FT$²Ç(13)§B$²"P¬†AN$(CA%ª1)²AN$ª","ªB$ª",Rß2,DR,2,AN$(CA%ª1)К„14,E,E$פ 2宋E²0§1760ú¸‹FT$³±" Ç(13)§1750‹B$²"P"§B$²"S":‰1670,Ì‹B$²"S"§B$²"U":‰1670@Ö™""E;E$:‰1520NàCA%²CA%ª1bê‹B$²"P"§B$²"PRGvô‹B$²"S"§B$²"SEQŠþ‹B$²"U"§B$²"USR¢EN$(CA%)²AN$ª"."ªB$Ç‹CA%±8§™"MAX 10 POSSIBLE":‰1920ê™"ÁTTACH ONE MORE FILE? (Y/N)ò&" ¡A$0‹A$²"Y"§1520:‹A$³±"N"§18304D™"ÁTTACHING"CA%ª1"FILESEN‹CA%²«1§1920RXI²0¤CA%bb™Iª1,EN$(I)hl‚Žv--------------------------------³€…"ÅMAIL64 FILENAME ";EN$ÛŠEN$²È("4"ªEN$ª" ",16)ñ”Ÿ3,DW,3,EN$ª" ",S,Wþž„15,E,E$ ¨‹E±0§ 3:™""E;E$:5300:‰19206²Ÿ2,DR,2,KN$ª",S,R\¼--------------------------------sÆCB²0: COUNTER BCC‘Й"ÐRESS FOR NO°Ú™"ÂLIND CARBON COPY FIELDÓäC$²"Â"ªÉ(Ä(CBª1),Ã(Ä(CBª1))«1)îîA$²"":™" ";C$:…"‘" ";A$ø PRINTA$;C$;LEN(A$);LEN(C$):END?‹(A$²"")°(A$²C$)§2420: NO (MORE) BCCM C$²"":A²0\I²1¤Ã(A$)z B$²Ê(A$,I,1):B²Æ(B$ªÇ(0))‹*‹B$²"."§2190œ4‹B$²"-"§2190«>‹B³48§2180ºH‹B³58§2190ÉR‹B³64§2180á\‹B$²"@"§A²Aª1:‰2190øf‹B"³91§B²Bª32:‰2190p‹B³193§2180!z‹B³219§B²B«128:‰2190P„™"ILLEGAL CHARACTER: "B$:I²Ã(A$):‚:‰2010_ŽC$²C$ªÇ(B)e˜‚o¢D$²""~¬I²1¤Ã(C$)œ¶B$²Ê(C$,I,1):B²Æ(B$ªÇ(0))«À‹B³65§2270ÂÊ‹B³96§B²Bª32:‰2270ÍÔB²B«32ÜÞD$²D$ªÇ(B)âè‚øò"™"ÂCC-FIELD: "D$ ü™"ÃORRECT (Y/N)" ¡A$:‹A$²"N"§20004 ‹A$³±"Y"§2310@ CB²CBª1b$ ‹CB²1§˜3,"B";Ç(99);Ç(99);":";t. ‹CB±1§˜3,",";€8 ˜3,"<";B I²1¤Ã(C$)¡L ˜3,Ê(C$,I,1);§V ‚³` ˜3,">";½j ‰2000Öt ‹CB±0§˜3,Ç(13)Ç(10);ü~ --------"------------------------ˆ CT²0: COUNTER TO0’ ™"ÐRESS FOR NO@œ ™"ÔO FIELDc¦ C$²"Ô"ªÉ(Ä(CTª1),Ã(Ä(CTª1))«1)~° A$²"":™" ";C$:…"‘";A$¥º PRINTA$;C$;LEN(A$);LEN(C$):ENDÎÄ ‹(A$²"")°(A$²C$)§2870: NO (MORE) TOÜÎ C$²"":A²0ëØ "I²1¤Ã(A$) â B$²Ê(A$,I,1):B²Æ(B$ªÇ(0))ì ‹B$²"."§2640+ö ‹B$²"-"§2640: ‹B³48§2630I ‹B³58§2640X ‹B³64§2630p ‹B$²"@"§A²Aª1:‰2640‡( ‹B³91§B²Bª32:‰2640—2 ‹B³193§2630°< ‹B³219§B²B«128:‰2640ßF ™"ILLEGAL CHARACTER: "B$:I²Ã(A$):‚:‰2460"îP C$²C$ªÇ(B)ôZ ‚þd D$²"" n I²1¤Ã(C$)+x B$²Ê(C$,I,1):B²Æ(B$ªÇ(0)):‚ ‹B³65§2720QŒ ‹B³96§B²Bª32:‰2720\– B²B«32k  D$²D$ªÇ(B)qª ‚†´ ™"ÔO-FIELD: "D$›¾ ™"ÃORRECT (Y/N)°È ¡A$:‹A$²"N"§2450ÂÒ ‹A$³±"Y"§2760ÎÜ CT²CTª1ëæ ‹CT²1§˜3,"T"";Ç(111);":";ýð ‹CT±1§˜3,","; ú ˜3,"<"; I²1¤Ã(C$)* ˜3,Ê(C$,I,1);0 ‚<" ˜3,">";F, ‰2450u6 ‹CT²0§™"ÍAKE AT LEAST ONE TO-FIELD":‰2440ˆ@ ˜3,Ç(13)Ç(10);®J --------------------------------ÌT ™"ÐRESS FOR NOá^ ™"ÓUBJECT "FIELDùh A$²"":™" "Ç(34)"Ó"r —631,29:—198,1:…"‘";A$/| ‹(A$²"")°(A$²"Ó")§32309† C$²""H I²1¤Ã(A$)fš B$²Ê(A$,I,1):B²Æ(B$ªÇ(0))u¤ ‹B³32§3030„® ‹B³65§3040›¸ ‹B³91§B²Bª32:‰3040« ‹B³193§3030ÄÌ ‹B³219§B²B«128:‰3040óÖ ™"ILLEGAL CHARA"CTER: "B$:I²Ã(A$):‚:‰2920à C$²C$ªÇ(B)ê ‚ô D$²""!þ I²1¤Ã(C$)? B$²Ê(C$,I,1):B²Æ(B$ªÇ(0))N ‹B³65§3120e ‹B³96§B²Bª32:‰3120p& B²B«320 D$²D$ªÇ(B)…: ‚ŸD ™"ÓUBJECT-FIELD: "D$´N ™"ÃORRECT (Y/N)ÉX ¡A$:‹A$²"N"§2900Ûb ‹A$³±"Y"§3"160 l ˜3,"S"Ç(117)Ç(98)Ç(106)Ç(101)Ç(99)Ç(116)": ";v I²1¤Ã(C$).€ ˜3,Ê(C$,I,1);4Š ‚G” ˜3,Ç(13)Ç(10);gž ‹AF²0§3390: NO ATTACH FILE—¨ ˜3,"C"Ç(111)Ç(110)Ç(116)Ç(101)Ç(110)Ç(116);º² ˜3,"-T"Ç(121)Ç(112)Ç(101)": ";á¼ ˜3,Ç(109)Ç(117)Ç(108)Ç("116)Ç(105);Æ ˜3,Ç(112)Ç(97)Ç(114)Ç(116)"/";/Ð ˜3,Ç(109)Ç(105)Ç(120)Ç(101)Ç(100)"; ";OÚ ˜3,Ç(98)Ç(111)Ç(117)Ç(110);wä ˜3,Ç(100)Ç(97)Ç(114)Ç(121)"="Ç(34);¯î ˜3,"........................................"Ç(34);Ìø ˜3,Ç(13)Ç(10)Ç(13)Ç(10);  ˜3,""--........................................";Ç(13)Ç(10);< ˜3,"C"Ç(111)Ç(110)Ç(116)Ç(101)Ç(110)Ç(116);_ ˜3,"-T"Ç(121)Ç(112)Ç(101)": ";ƒ ˜3,Ç(116)Ç(101)Ç(120)Ç(116)"/";©* ˜3,Ç(112)Ç(108)Ç(97)Ç(105)Ç(110);¼4 ˜3,Ç(13)Ç(10);Ï> ˜3,Ç(13)Ç(10);õ"H -------------------------------- R -2 CRLF (0D 0A)#\ -1 NO POINT NO CR1f 0 CRLF.Sp 1 . (WITHOUT CRLF IN FRONT)‚z 2 (CRLF).. WITH OR WITHOUT CRLF IN FRONTŸ„ 3-39 =AMOUNT OF POINTSÍŽ 40 = 40 POINTS = BOUNDARY = NOT ALLOWEDñ"˜ CP%²«2: COUNTER POINTS = BEGIN ¢ --------------------------------: ¬ ™:™"ÐLEASE WAIT - LOADING 4KÂT ¶ —780,DR:ž65460: TALK| À —780,98:ž65430: 96+2 SA AFTER TALKˆ Ê EE²4095– Ô I²0¤4095ª Þ ž65445: IEC-INÏ è PRINTPEEK(780),CHR$(PEEK(780)")à ò A%(I)²Â(780)ö ü ‹Â(144)²0§‚:‰3610%!‹Â(144)²64§EE²I:I²4095:‚:‰3610: END EMAILY!„14,E,E$:™"ERROR: ";E;E$: 2: 3:˜15,"S:"ªEN$:€m!ž65451: UNTALKŽ!$SK²Â(144): STATUS KWIKWRITE´!.--------------------------------Ð!8—780,DW:ž65457: LI"STENú!B—780,99:ž65427: SA 96+3 AFTER LISTEN"LI²0¤EE"VB%²A%(I)+"` PRINTCHR$(B%),B%,<"j‹B%³±13§3730i"t‹CP%²0§—780,46:ž65448: ADDITIONAL POINT†"~CP%²«2: CARRIAGE RETURN«"ˆ—780,13:ž65448:™".";:B%²10:‰3970Î"’‹B%³±46§3880: NO SINGLE P"OINTá"œ‹CP%²0§CP%²1:#¦‹CP%³0§CP%²CP%ª1: -2->0 -1->1#°CP%²CP%ª1##º‹CP%³40§3970Q#Ä™"ÔHERE ARE 40 DOTS/POINTS IN ONE LINE.x#Ι"ÔHIS IS THE BOUNDARY FLAG AND SO˜#Ø™"FORBIDDEN. ÄO YOU WANT TOÁ#â™"ÁDD AN ADDITIONAL ÃARRIAGE ÒETURNî#ì™""ÓTOP THIS PROGRAM AND CHANGE EMAILTEXTö#ö¡A$$‹A$²"S"§ 2: 3:˜15,"S:"ªEN$: 15:€-$ ‹A$³±"A"§3830O$—780,13:ž65448:—780,10:ž65448_$CP%²0:‰3970ˆ$(CP%²«1: NO CARRIAGE RETURN NO POINT˜$2‹B%³32§3960¨$<‹B%³65§3970Â$F‹B%³91§B%²B%ª32:‰3970Ò$P"‹B%²91§3970â$Z‹B%²93§3970ó$d‹B%³193§3960%n‹B%³219§B%²B%«128:‰3970%xB%²325%‚—780,B%:ž65448: IECOUTL%Œ PRINTB%,CHR$(B%)R%–‚h% ž65454: UNLISTENw%ª‹SK²0§3500Š%´˜3,Ç(13)Ç(10);‘%¾ 2·%È--------------------------------Á%ÒJ%²«1Í%" ÜJ%²J%ª1Þ%æ‹J%±CA%§5210ò%ðŸ2,DR,2,AN$(J%)#&ú™:™"'ÎAME' OF FILE AS DISPLAYED AT RECEIVER4&™" "EN$(J%)@&…"‘";A$P&‹A$²""§4110^&"C$²"":A²0m&,I²1¤Ã(A$)‹&6B$²Ê(A$,I,1):B²Æ(B$ªÇ(0))ž&@‹B$²Ç(34)§4310¯&J‹B$²"*"§4310À&T‹B$²"/"§4310Ñ"!&^‹B$²":"§4310â&h‹B$²"<"§4310ó&r‹B$²"?"§4310'|‹B$²">"§4310'†‹B$²"]"§4310&'‹B$²"\"§43105'š‹B³32§4310D'¤‹B³65§4330['®‹B³91§B²Bª32:‰4330j'¸‹B³96§4330z'‹B³193§4310“'Ì‹B³219§B²B«128:‰4330Ç'Ö™"ILLEGAL CHARACTER: \ / : * ? "Ç(34)""" < > "Û'àI²Ã(A$):‚:‰4090ê'êC$²C$ªÇ(B)ð'ô‚ú'þD$²"" (I²1¤Ã(C$)'(B$²Ê(C$,I,1):B²Æ(B$ªÇ(0))6(‹B³65§4410M(&‹B³96§B²Bª32:‰4410X(0B²B«32g(:D$²D$ªÇ(B)m(D‚“(N™"'ÎAME' OF FILE IN EMAIL: ":™D$¨(X™"ÃORRECT (Y/N)½(b¡A$:‹A$²"N"§4090"#Ï(l‹A$³±"Y"§4450â(v˜3,Ç(13)Ç(10);!)€˜3,"--........................................"Ç(13)Ç(10);T)Š˜3,"C"Ç(111)Ç(110)Ç(116)Ç(101)Ç(110)Ç(116)"-";v)”˜3,"T"Ç(121)Ç(112)Ç(101)": ";œ)ž˜3,Ç(97)Ç(112)Ç(112)Ç(108)Ç(105);Ç)¨˜3,Ç(99)Ç(97)Ç(116)Ç(105)Ç("$111)Ç(110);ð)²˜3,"/"Ç(111)Ç(99)Ç(116)Ç(101)Ç(116);*¼˜3,"-"Ç(115)Ç(116)Ç(114)Ç(101)Ç(97)Ç(109);K*Ƙ3,"; "Ç(110)Ç(97)Ç(109)Ç(101)"="Ç(34);Z*ÐI²1¤Ã(C$)l*Ú˜3,Ê(C$,I,1);r*ä‚Š*î˜3,Ç(34)Ç(13)Ç(10);º*ø˜3,"C"Ç(111)Ç(110)Ç(116)Ç(101)Ç(110)Ç(116);"%ð*˜3,"-T"Ç(114)Ç(97)Ç(110)Ç(115)Ç(102)Ç(101)Ç(114);&+ ˜3,"-E"Ç(110)Ç(99)Ç(111)Ç(100)Ç(105)Ç(110)Ç(103);W+˜3,": "Ç(98)Ç(97)Ç(115)Ç(101)"64"Ç(13)Ç(10);‡+ ˜3,"C"Ç(111)Ç(110)Ç(116)Ç(101)Ç(110)Ç(116);¬+*˜3,"-D"Ç(105)Ç(115)Ç(112)Ç(111);Ù+4˜3,Ç(11"&5)Ç(105)Ç(116)Ç(105)Ç(111)Ç(110);,>˜3,": "Ç(97)Ç(116)Ç(116)Ç(97)Ç(99)Ç(104);(,H˜3,Ç(109)Ç(101)Ç(110)Ç(116);M,R˜3,"; "Ç(102)Ç(105)Ç(108)Ç(101);u,\˜3,Ç(110)Ç(97)Ç(109)Ç(101)"="Ç(34);„,fI²1¤Ã(C$)–,p˜3,Ê(C$,I,1);œ,z‚¾,„˜3,Ç(34)Ç(13)Ç(10)Ç(1"'3)Ç(10);ä,Ž---------------------------------˜™:™"ÐLEASE WAIT - LOADING 4KÂ!-¢—780,DR:ž65460: TALKI-¬—780,98:ž65430: 96+2 SA AFTER TALKU-¶EE²4049…-ÀI²0¤4049: 4050=75*54 (54HEXDEZ->72BASE64)™-Êž65445: IEC-IN¾-Ô PRINTPEEK(780),CHR$(!PEEK(780))Ï-ÞA%(I)²Â(780)å-è‹Â(144)²0§‚:‰4870.ò‹Â(144)²64§EE²I:I²4049:‚:‰4870: END EMAILH.ü„14,E,E$:™"ERROR: ";E;E$: 2: 3:˜15,"S:"ªEN$:€\.ž65451: UNTALK}.SK²Â(144): STATUS KWIKWRITE£.--------------------------------¿.$—780,DW:ž6#Z-C64)_nä>; 9US (GESCHAETZT BEI SCPU)tnî>;SPAETESTER WERT¬nø>;FLAG-NMI BIS TIMER B STARTET: 29TZän?;FALLS BEFEHL ABGEARBEITET WERDEN MUSS 7TZo ?;BADLINE: (40-)43TZVo?;SCHLIMMSTENFALLS: # 79TZ" o ?;DIFFERENZ ZWISCHEN FRUEHESTENS UND SPAETESTENS: 79TZ-29TZ=50TZ" Æo*?;WIE LANGE DAUERT DATENUEBERTRAGUNG?Ôo4?;RECEIVE:üo>?;1. FLAG-NMI TZ$pH?;2. . BYTE READY-NMI TZLpR?;SUMME # TZ[p\?;TRANSMIT:ƒpf?;SUMME TZ§pp?;SUMME WENN GLEICHZEITIG 1 BYTEÒpz?;GESENDET U.EMPFANGEN WIRD: TZ" !q„?;BAUDRATE IMPULSDAUER PAL NTSC CIA-START-PAL CIA-START-NTSCPqŽ?; # 0.98525 1.02273—q˜?; 9600 104.2US 102.63TZ 106.53TZ 102/50 106/52Àq¢?;DIESE WERTE GELTEN FUER 1,2,8,20MHZ r¬?;!FUER FLAG-STARTBIT-VERZOEGERUNG SPEZIELLE ROUTINE FUER FLASH8/SCPU;r¶?;BEI C128 GEHEN VIELLEICHT AUCH 192#00 BAUD???jrÀ?;(BEI SCPU NICHT,WEIL TROTZDEM BADLINES)" ¹rÊ?;BEI SCPU:MAXIMALE VERZOEGERUNG: 43TZ (BADLINE) +1TZ (BEFEHL ZU ENDE)=44TZñrÔ?;IDEALER ABSTAND VON FLAG-NMI ZU START VON TIMER B:sÞ?;104US-44US=60USsè?;60US/2=30USfsò?;IDEAL WAERE WENN Z#WISCHEN STARTBIT-FLAG-NMI UND TIMER B START 30US WAEREN§sü?;NMI-STARTBITROUTINE BRAUCHT GESCHAETZT 10US (OHNE SCHLEIFE)Õs@;DAS SIND BEI 20 MHZ: 20TAKTE*20MHZ=400TZt@;DIE SCHLEIFE BRAUCHT PRO DURCHGANG 5TZt@;400TZ/5TZ=80 = $50St$@;=>DIE SCHLEIFE* MUESSTE 50 MAL DURCHLAUFEN WERDEN??" ZDEM BADLINES)" ¹rÊ?;BEI SCPU:MAXIMALE VERZOEGERUNG: 43TZ (BADLINE) +1TZ (BEFEHL ZU ENDE)=44TZñrÔ?;IDEALER ABSTAND VON FLAG-NMI ZU START VON TIMER B:sÞ?;104US-44US=60USsè?;60US/2=30USfsò?;IDEAL WAERE WENN Z#Øð; .LI 4,4,0ø;" ;SILVER SURFER 50& < .EQUABASE=$DE08I ð;HEAD = TAIL =>PUFFER LEERl ñ;HEAD = TAIL+1 =>PUFFER VOLL ò;HEAD-1 = TAIL =>PUFFER VOLLÙ ÷;F7,F8=ENDEVECTOR SCHREIBEN TAIL SCHWANZ HIERHIN SCHREIBT NMI ROU# TINE!û;FB,FC=ANFANGVECTOR LESEN HEAD KOPF HIER LIEST HAUPTPROGRAMM[!H .EQMOADTY=$0348;MODEM ADAPTER TYPE 50 FUER SILVER SURFERŒ!I .EQSSBARL=$0349;SILVER SURFER BAUD RATE LOW³!J .EQSSBARH=$034A;SS BAUD RATE HIGHæ!K .EQSSFIAM=$034B;SS FIFO AM# OUNT BYTES WHEN NMI "„.EQ VIRAST=$C800;VIDEORAMSTART>"Ð .EQUARRTD=UABASE;UART RECEIVED TRANSMITTED DATAt"Ú .EQUARIER=UABASE+1;UART INTERUPT ENABLE REGISTER‡"ß;=BAUDRATE LOW¹"ä .EQUARIIR=UABASE+2;UART INTERUPT ID REGISTERÍ"é;=BAUDRATE HIGH#î#  .EQUARLCR=UABASE+3;UART LINE CONTROL REGISTER#ó;=FIFO (BEIM SCHREIBEN)P#ø .EQUARMCR=UABASE+4;UART MODEM CONTROL REGISTER‚# .EQUARLSR=UABASE+5;UART LINE STATUS REGISTERµ#  .EQUARMSR=UABASE+6;UART MODEM STATUS REGISTERÃ#' .BA$C000á#' JMPL10# 120;INITIALISIERENÿ#$' JMPL11070;RS232 BYTE OUT$.' JMPL11370;RS232 PUFFER OUTU$8' JMPL12280;RECEIVE BYTE NMI-ROUTINE (+RTS=ACTIVE){$B' JMPL11180;NMI AUS (Z.B.VOR LOAD)ª$L' RTS;IRQ-TIMER ON (WIRD NIE AUSGESCHALTET)º$V' .BY$00,$00Ñ$`' JMPL12240;NMI# EIN %j' JMPL12360;VERBINDUNG TRENNEN PER HARDWARE DTR=INACTIV1%t' JMPL12410;MODEM ADAPTER RESETX%~';-----------------------------" v%ˆ'L10120 SEI;INITIALISIEREN„%’' LDA$DE01›%œ' AND#$FA;%11111010¨%¦' ORA#$01ä%°' STA$DE01;AKTIVIERT SILVER SUR#FER BANK IN RETRTO REPLAYñ%º' LDA#$80'&Ä' STAUARLCR;BAUDRATE REGISTER EINSCHALTEN (BIT7=1)6&Î' LDASSBARL^&Ø' STAUARRTD;HIER BAUDRATE TEILER LOWm&â' LDASSBARH–&ì' STAUARIER;HIER BAUDRATE TEILER HIGH£&ö' LDA#$03Ï&( STAUARLCR;%0= %0=1STOPPBIT %11#=8BITS' ( LDASSFIAM;SILVER SURFER FIFO AMOUNT WHEN NMI6'(;%11000111 = 14 BYTES & LOESCHT PUFFER & FIFO ONc'( STAUARIIR;BEIM SCHREIBEN FIFO STATT IIR|'((L10280 LDA#<(L10510)'2( LDX#>(L10510)¨'<( STA$0318;NMI VECTOR¶'F( STX$0319É'P( LDA#<(L1050#0)Ü'Z( LDX#>(L10500)ê'd( STA$FFFAø'n( STX$FFFB(x( LDA#$80"(‚( LDA$02A6;NTSC(0) PAL(1)1(Œ( BNEL10400?(–( ASL;#$00Y( (L10400 STAL11230+1;" s(ª(;EINSPRUNG VON NMI ON—(´(L10420 LDA#$01;NUR RECEIVE IRQS¦(¾( STAUARIERÈ(È( LDA#$03;RTS=ACTIVE DTR=AC#TIV×(Ò( STAUARMCRé(Ü( RTS;----" )æ(;NMI ROUTINE BRAUCHT 42US (+EVTL.43 F.BADLINE)k)ð(;=>MIT 1MHZ-C64 MAXIMALER SPEED IST 115200BAUD=ALLE 85TAKTZYKLE=1NMI (PAL)¤)ú(;SONST WIRD IM ERSTEN NMI EIN ZWEITER NMI AUSGELOESTä))L10500 SEI;NMI RAM VECTOR # KOPIE DER NMI ROUTINE" *)L10510 PHA;NMI ROM VECTOR *) TYAE*") PHA;BU=BUFFER HE=HEAD=READ TA=TAIL=WRITE L=LOW H=HIGN*,) CLD[*6) LDY#$00~*@) STYUARIER;VERHINDERT IRQ/NMISš*J)L10570 CLC;2 NICHT SEC!¯*T)L10580 LDA#$01;2ð*^) ANDUARLSR;4 #BU LEER NICHTVOLL NICHTVOLL FAST-VOLL GANZ-VOLL2+h) BEQL10760;2 HE E000 E000 EDFF E101 E080 E100 E080 E001 E000v+r) INCVIRAST+1;6 TA E000 E001 E000 E000 ED7F E000 ED80 E000 EDFFÀ+|) LDA$FB;3 HL 00 C 00 C FF C 01 C 80 C 00 C 80 C 01 C 00 C !CARRY=LO#Wÿ+†) SBC$F7;3 TL 00 C 01 C 00 C 00 C 7F C 00 C 80 C 00 C FF C,,) BEQL10820;2 B.I.LOWBYTE FREIER PUFFER=0Q,š)L10650 LDAUARRTD;4 RECEIVED DATAc,¤) STA($F7),Y;6w,®)L10670 INC$F7;5Œ,¸) BNEL10570;3 =42˜,Â) INC$F8¤,Ì) LDA$F8±,Ö) CMP#$EEÀ,à) BCCL10#580Í,ê) LDA#$E0Ù,ô) STA$F8ë,þ) BNEL10570;" ÿ,*L10760 INY;#$01#-* STYUARIER;ERLAUBT RECEIVE IRQS,-* PLA5-&* TAY>-0* PLAP-:* RTI;----" “-D*L10820 LDA$FC;HH E0 C E0 C ED S E1 S E0 S E1 C E0 C E0 S E0 CÐ-N* SBC$F8;TH E0 C E0 C E0 S E0 S ED S# E0 C ED C E0 S ED C.X* BCSL10860; FF C FF C 0D S 01 S F3 C 00 S F2 C 00 S F2 CM.b* ADC#$0E; + + + + +‘.l*L10860 BNEL10650; 0D 0D 0D 01 01 00 00 00 00¸.v*L10870 LDAUARRTD;=PUFFER GANZ VOLL#Ð.€* JMPL10570;------" /Š*;PROBLEM: WENN NMI-ROUTINE SOVIELE BYTES AUSGELESEN HAT,DASS DERX/”*;ZWISCHENPUFFER WENIGER BYTES ENTHAELT ALS NMI-AUSLOESEWERT =>z/ž*;UART DEAKTIVIERT IRQ/NMI-PINÅ/¨*;WENN JETZT EIN BYTE EMPFANGEN WIRD => UART LOEST NEUEN #IRQ/NMI AUS =>0²*;DIE ERSTE NMI-ROUTINE WIRD DURCH DIE ZWEITE UNTERBROCHEN =>:0¼*;DIE REIHENFOLGE DER BYTE KOENNTE VERKEHRT SEINa0Æ*;-----------------------------" ‚0Ð*L10960 LDA$DC01;TASTATURPORT0Ú* CMP#$FF¸0ä* BEQL11080;B.I.KEINE TASTE GEDRUE#CKTÅ0î* LDA#$7FÓ0ø* STA$DC00à0+ LDX#$00í0 + LDA#$FDû0+ CMP$DC01 1 + STX$DC0031*+ BNEL11080;B.I.ESCAPE NICHT GEDRUECKTm14+ RTS;GEDRUECKT ABER RSOUT ZEICHEN GEHT VERLOHREN---" Š1>+L11070 TAY;RS232 BYTEOUT1H+L11080 LDA#$20¬1R+ BITUARLSRé1\+ B#EQL10960;B.I.WARTEN MUSS BIS ALTES BYTE AUSGEGEBEN ISTù1f+ LSR;A=#$102p+ BITUARMSR42z+ BEQL10960;B.I. MODEM HAELT CTS=INACTIVC2„+ STYUARRTDR2Ž+ INCVIRASTj2˜+L11160 RTS;------" ‘2¢+;-----------------------------" ¼2¬+L11180 LDX#$01;NMI AUS (Z.B#. VOR LOAD)Û2¶+ STXUARMCR;RTS AUF INAKTIVé2À+ DEX;#$00 3Ê+ STXUARIER;VERHINDERT IRQ/NMISG3Ô+;EVTL AUF ENDE VON RECEIVED BYTE WARTEN (BEI USERPORT)`3Þ+L11230 LDA#$00;00/803è+ STA$DD0E;TIMER A ANHALTENÂ3ò+;EVTL LDX #$00 FALLS BEI L11180 X NICHT MIT# #01 GELADEN WIRD??á3ü+ STX$DD04;TIMER A LOW #$00ü3, STX$DD05;TIMER A HIGH 4, LDX#$8104, STX$DD0D;TIMER A IRQ-NMI ERLAUBEN[4$, ORA#$19;FORCE-LOAD & ONE-SHOT & STARTŠ4., STA$DD0E;TIMER A STARTEN -> LOEST NMI AUS®48, RTS;DD0D WIRD NICHT GELESEN =#>ë4B,;DIE NMI LEITUNG BLEIBT STAENDIG LOW => KEINE NEUEN NMIS5L,;WEIL NMI FLANKENGESTEUERT NICHT PEGELGESTEUERTH5V,;AUCH NICHT DURCH RESTORE MOEGLICH" o5`,;-----------------------------" ·5j,L11370 STAL11610+2;BEGINN HIGH BEISPIEL=F400 # PUFFER OUTï5t, STXL11610+1;ENDE+1 LOW F401 F402 F4FF F500 F501 6~, STYL12050+1;ENDE+1 HIGH<6ˆ, DEX;ENER KOMPLEMENT 00 01 FE FF 00E6’, TXAy6œ, EOR#$FF; FF FE 01 00 FF‚6¦, TAY¸6°, BEQL11460; F401 F402# F4FF F400 F401ð6º, DECL11610+2; F301 F302 F3FF F3017Ä,L11460 LDX#$7F'7Î, STX$DC00;TASTATUR AUSGABE PORT57Ø, DEX;#$7EH7â,L11490 LDA#$20W7ì, BITUARLSRf7ö, BEQL11550o7- LSR~7 - BITUARMSR7- BNEL11590¡7-L11550 LDA$DC01µ7(- # CMP#$FD;ESCAPEÄ72- BNEL11490Ö7<- BEQL11820;" 8F-L11590 STXUARRTD;ENDE+1 F401 F402 F4FF F500 F501H8P- INCVIRAST;Y= FF FE 01 00 FF…8Z-L11610 LDX$FFFF,Y;L11610= F301 F302 F3FF F400 F301”8d- BMIL11890¡8n- CPX#$7D°8x#!- BCSL11730½8‚- CPX#$20Ì8Œ- BCSL11890ô8–- BIT$8009;COOFON COMPRESSION OFF ON9 - BPLL11730;B.I.COMPRESSION OFF$9ª- CPX#$1339´- BEQL11730@9¾- CPX#$11O9È- BNEL11890“9Ò-L11730 LDA#$20;ZEICHEN ESCAPED AUSGEBEN ($11,13,7D-7F)/($00-1F)¢9Ü- BITUARLSR#"±9æ- BEQL11790º9ð- LSRÉ9ú- BITUARMSRØ9. BNEL11830ì9.L11790 LDA$DC01:. CMP#$FD;ESCAPE:". BNEL11730':,.L11820 BEQL12200;" ::6.L11830 LDA#$7DI:@. STAUARRTDX:J. INCVIRASTa:T. TXAn:^. EOR#$20w:h. TAXŠ:r.L11890 LDA#$20™:|. BITUARLSR¨:†. BE##QL11950±:. LSRÀ:š. BITUARMSRÏ:¤. BNEL11990ã:®.L11950 LDA$DC01÷:¸. CMP#$FD;ESCAPE;Â. BNEL11890;Ì. BEQL12200;" -;Ö.L11990 STXUARRTD<;à. INCVIRASTE;ê. INYT;ô. BNEL11610e;þ. INCL11610+2v;/ LDXL11610+2®;/L12050 CPX#$FF; F4 F4#$ F4 F5 F5À;/ BNEL11610;" Í;&/ LDX#$7Eà;0/L12080 LDA#$20ï;:/ BITUARLSRþ;D/ BEQL12140 MUSS NICHT AUSGESCHALTET WERDENˆ=î/ BIT$DD0D;LOESCHT IRQ-NMI©=ø/L12280 LDA#>(L#&10420);NMI EIN²=0 PHAÅ= 0 LDA#<(L10420)Î=0 PHA×= 0 PHP >*0 JMPL10500;RS232-NMI ROUTINE DIREKT ANGESPRUNGENC>40;RTS=ACTIV SETZEN RTI SPRINGT DIREKT ZU L10420" j>>0;-----------------------------" >H0L12360 LDA#$02;VERBINDUNG TRENNENÄ>R0 STA#'UARMCR;BIT0=0 DTR=INACTIV => MODEM LEGT AUFÞ>\0;RTS BLEIBT ACTIVE???ð>f0 RTS;------" ?p0;-----------------------------" >?z0L12410 LDA#$00;MODEM ADAPTER RESETY?„0 STAUARIER;IRQ/NMI OFFf?Ž0 LDA#$03Š?˜0 STAUARMCR;DTR & RTS AUF ACTIVE—?¢0 LDA#$47"¤?¬0 LDX#$FE½?¶0 STA$0318;NMI VECTORË?À0 STX$0319Ý?Ê0 RTS;------" @Ô0;-----------------------------" ;@Þ0;PROBLEM: BEI DISKZUGRIFF DARF ES KEINEN NMI GEBENŠ@è0;=>TIMER A VON DD00-CIA SO PRGRAMMIEREN, DASS NMI LEITUNG STAENDIG 0V WIRDÎ@ò0;=>RTS$=BIT0 BYTE 3 D¢Fª2 ROR¶F´2 ORA$B5;=BYTE DóF¾2; BIT0-4=BIT3-7 BYTE 2 D0GÈ2; BIT5 =OH BYTE 2 DmGÒ2; BIT6 =AL BYTE 3 DªGÜ2; $ BIT7 =BIT0 BYTE 3 D¹Gæ2 JSRL13060ÇGð2 STA$DC0CÛGú2 LDA$B4;=BYTE E÷G3;BIT0-6=BIT1-7 BYTE 3 EH3;BIT7 =OH BYTE 3 E" 'H3L13060 TAX;" OH"3L13070 LDA#$08;X=AUSZUGEBENDES BYTE]H,3 BIT$DC0D‘H63 BNEL13270;B.I.VORLETZTES BYTE ZU E$NDE GESENDET¬H@3L13100 LDA$DD08;=1/10SÀHJ3 SEC; 0 1 8 9ÉHT3 SEDáH^3 SBC#$01;99 0 7 8êHh3 CLDIr3 AND#$0F; 9 0 7 8I|3 STAL13210+1'I†3L13170 LDA$DC0D4I3 AND#$08CIš3 BNEL13270QI¤3 LDA$DD08dI®3L13210 CMP#$FFšI¸3 BNEL13170;WARTET 0.8S OB $ALTES BYTE AUSGEBEN ISTæIÂ3;WENN TATSAECHLICH NACH 0.8S KEIN IRQ KAM,STIMMT DIE AUSGABE NICHT MEHR1JÌ3;KOENNTE Z.B.SEIN,DASS ALS LETZTES EIN 0-BIT GESENDET WURDE UND DIESES]JÖ3;0.8S GEHALTEN WURDE (=BREAK ZUM MODEM)¨Jà3;WICHTIG IST, DASS ROUTINE AUCH$ BEI VERLUST VON EINEM IRQ NICHT HAENGTßJê3L13270 BIT$DD01;=VORLETZTES BYTE FERTIG AUSGEGEBENÿJô3 .IFCOLINI=0;B.I.CTS=ACTIVE$Kþ3 BVSL13450;CONTROLL LINES NORMAL-K4 .ELVK4 BVCL13450;CONTROLL LINES INVERTIERT_K4 .EI‹K&4 LDA$A8;=CTS=INACTIVE=MIT S$ENDEN WARTEN˜K04 CMP#$02ÎK:4 BNEL13450;B.I.NICHT BYTE 1 BYTE A AUSGEBEN WIRDéKD4 LDA$DC01;TASTATURPORTöKN4 CMP#$FDLX4 BEQL13450;B.I. ESCAPE GEDRUECKT(Lb4 LDA#$FFXLl4 STA$DC0C;GIBT STOPPBITS AUS,DAMIT DIE ZAHLŽLv4 BNEL13100;DER ABZUWARTENDEN IRQ$ RICHTIG BLEIBT" ÛL€4;FALLS CTS=INACTIVE:NUR VOR SENDEN VON BYTE A BYTE 0 WIRD NICHT GESENDET$MŠ4;GRUND:NUR DANN IST GERADE EIN STOPPBIT GESENDET WORDEN (=EINFACHER)sM”4;FALLS CTS INACTIVE WIRD=>ES WERDEN BIS ZU 4 BYTES GESENDET BEVOR PAUSIERT‰Mž4L13$450 LDA$C700,X›M¨4 RTS;-----" ÛM²4 .BY0,0,0,0,0,0;DAMIT KEINE PAGEUEBERSCHREITUNG IN SCHLEIFEN¼4;---------------------------------JNÆ4L13480 STAL14080+2;BEGINN HIGH BEISPIEL=F400 PUFFER OUTsNÐ4 STAL13820+2;IRQ MUSS GESPERRTT SEINµNÚ4 $ STXL14080+1;ENDE+1 LOW F401 F402 F4FF F500 F501ÆNä4 STXL13820+1Oî4 STYL14310+1;ENDE+1 HIGH F4 F4 F4 F5 F5@Oø4 DEX;ENDE+1 LOW -1 00 01 FE FF 00ZO5 TXA;EINER KOMPLEMENT—O 5 EOR#$FF; $ FF FE 01 00 FF O5 TAYàO 5 BEQL13640; F401 F402 F4FF F400 F401"P*5 DECL14080+2; F301 F302 F3FF F3013P45 DECL13820+2FP>5L13640 LDA#$7FyPH5 STA$DC00;TASTATURPORT,DASS NUR ESCAPE ABF$ RAGTPR5L13660 BIT$DD01­P\5 .IFCOLINI=0;B.I.CTS=ACTIVEÒPf5 BVSL13750;CONTROLL LINES NORMALÛPp5 .ELQz5 BVCL13750;CONTROLL LINES INVERTIERT Q„5 .EI(QŽ5 LDA$DC01;TASTATURPORT5Q˜5 CMP#$FDZQ¢5 BNEL13660;B.I. ESCAPE GEDRUECKT™Q¬5L13750 LDA#$3F;#$7E $ ASL (STARTBIT) + GESPIEGELT %01111110§Q¶5 BIT$DC0DÏQÀ5 STA$DC0C;SERIELLE AUSGABE =BYTE AÞQÊ5 INCVIRASTëQÔ5 LDA#$01÷QÞ5 STA$B4Rè5 LDX#$01@Rò5L13820 LDA$FFFF,Y;ERSTES AUSZUGEBENDES BYTE (NACH #$7E)|Rü5 BMIL13910;MUESSTE EIGENTLICH IMMER #$FF ODE$ R #$21 SEIN‰R6 CMP#$7D˜R6 BCSL13880¥R6 CMP#$20´R$6 BCSL13910ÕR.6L13880 PHA;ESCAPTED AUSGEBENâR86 LDA#$7DðRB6 DEX;#$00SL6L13910 STX$A8;01/00 FUER BYTE 2/3SV6 ASL+S`6 ROL$B44Sj6 ASL@St6 ROL$B4IS~6 ASLUSˆ6 ROL$B4‘S’6 ORA#$02;%00000010 B0$=B7(#$7E) B1=OH(#$7E) B2=AL(BYTE1)šSœ6 TAXªS¦6 LDA$C700,XÀS°6 STA$DC0C;=BYTE BÏSº6 INCVIRASTïSÄ6 LDX$A8;01/00 FUER BYTE 2/3TÎ6 BNEL14280;JETZT BYTE 2 AUSGEBEN X/A8=#00XTØ6L14050 PLA;ZEICHEN DAS JETZT ESCAPTED AUSGEGEBEN WIRD‹Tâ6 JMPL14250;JETZT$ BYTE 3 AUSGEBEN X/A8=#01" ¶Tì6;KEINE PAGEUEBERSCHREITUNG IN SCHLEIFEýTö6L14080 LDA$FFFF,Y;L14080= F301 F302 F3FF F400 F301=U7 BMIL14260;ENDE+1= F401 F402 F4FF F500 F501zU 7 CMP#$7D;Y= FF FE$ 01 00 FF‰U7 BCSL14200–U7 CMP#$20¥U(7 BCSL14260ÍU27 BIT$8000;COOFON COMPRESSION OFF ONðU<7 BPLL14200;B.I.COMPRESSION OFFýUF7 CMP#$13 VP7 BEQL14200VZ7 CMP#$11(Vd7 BNEL14260pVn7L14200 STAL14240+1;ZEICHEN ESCAPED AUSGEBEN ($11,13,7D-7F)/($$00-1F)¦Vx7 LDA#$7D;NICHT PHA PLA DAMIT STAPEL GLEICHBLEIBT,ÞV‚7 JSRL12320;FALLS KEIN RUECKSPRUNG WEGEN PLA PLA RTSìVŒ7 STA$DC0CÿV–7L14240 LDA#$FFW 7L14250 EOR#$20'Wª7L14260 JSRL123205W´7 STA$DC0CDW¾7L14280 INYSWÈ7 BNEL14080dWÒ7 INCL14080+2uW$Ü7 LDAL14080+2¸Wæ7L14310 CMP#$FF; F4 F4 F4 F5 F5ÊWð7 BNEL14080;" äWú7 LDA#$7E;ENDE ZEICHENóW8 JSRL12320X8 STA$DC0C;" @X8 LDA#$C0;ENDBITS V #$7E + 1-BITS ALS STOPPBITS AUSGEBENLX"8 LDX$A8fX,8 BEQL14470;B.I.BYTE $0oX68 DEX~X@8 BNEL14440“XJ8 LDA#$F0;=BYTE 1ŸXT8 ORA$B4®X^8 BNEL14480½Xh8L14440 DEXåXr8 BNEL14500;B.I.BYTE3 (NICHTS MACHENúX|8 LDA#$FC;=BYTE 2 Y†8L14470 ORA$B5!Y8L14480 JSRL13060/Yš8 STA$DC0CoY¤8L14500 STY$A8;Y=#$00 WICHTIG DASS <>#02 DAMIT K$EIN STOPPBIT‚Y®8;GESENDET WIRD¯Y¸8 JSRL13070;WARTEN BIS ZU ENDE AUSGEGEBENÜYÂ8 JSRL13070;WARTEN BIS ZU ENDE AUSGEGEBENñYÌ8 STY$DC00;Y=#$00ZÖ8 RTS;-----" )Zà8;-----------------------------" qZê8L14570 .IFCOLINI=0; NMI AUS$ (Z.B. VOR LOAD)…Zô8 LDA#$04;NORMALŽZþ8 .EL¦Z9 LDA#$02;INVERTIERT¯Z9 .EIáZ9 STA$DD01;RTS AUF INACTIVE (DTR BLEIBT ACTIV)[&9 LDA$DD08;00,01,03,08,09 1/10 [09 CLC[:9 SED1[D9 ADC#$02;02,03,05,10,11:[N9 CLDV[X9 AND#$0F;02,03,05,00,01–[b9L146$90 CMP$DD08;0.1-0.2S WARTEN OB TROTZ RTS=INACTIV 1 BYTE½[l9 BNEL14690;VOM MODEM GESENDET WIRDï[v9 LDA#$90;WARTET AUF ENDE EINES RECEIVED BYTESý[€9 CMP$0318+\Š9 BEQL14870;B.I.KEIN BYTE IM EMPFANGEN IST>\”9 LDX$DD08;1/10G\ž9 DEXV\¨9 BPLL14780c\²9 L$DX#$09w\¼9L14780 CMP$0318¤\Æ9 BEQL14870;B.I.BYTE FERTIG EMPFANGEN IST²\Ð9 CPX$DD08ë\Ú9 BNEL14780;WARTET 0.8S OB BYTE FERTIG EMPFANGEN WIRDø\ä9 LDA#$02]î9 STA$DD0F;TIMER B STOP ]ø9 LDA#$90I]: STA$0318;VECTOR AUF C190 (FLAG-NMI)ƒ] : BIT$DD0D;WEN$N NICHT=>NMI LEITUNG DAUERLOW=>NMI-RESETœ]:L14870 LDA#$40;'RTI'Ö] : STAL11580;NMI MACHT SOFORT RTI OHNE DD0D ZU LOESCHENï]*:L14890 LDA#$00;00/80^4: STA$DD0E;TIMER A ANHALTEN^>: LDX#$7F)^H: STX$DD0D7^R: STX$DD0DD^\: LDX#$00^^f: STX$DD04;TIMER $A LOWy^p: STX$DD05;TIMER A HIGH†^z: LDX#$81­^„: STX$DD0D;TIMER A IRQ-NMI ERLAUBENØ^Ž: ORA#$19;FORCE-LOAD & ONE-SHOT & START_˜: STA$DD0E;TIMER A STARTEN -> LOEST NMI AUS+_¢: RTS;DD0D WIRD NICHT GELESEN =>h_¬:;DIE NMI LEITUNG BLEIBT STAENDIG LOW =>$ KEINE NEUEN NMISœ_¶:;WEIL NMI FLANKENGESTEUERT NICHT PEGELGESTEUERTÅ_À:;AUCH NICHT DURCH RESTORE MOEGLICH" ì_Ê:;-----------------------------" 0`Ô:L15060 LDA#$7F; NMI EINk`Þ:;TIMER A WAR ONE-SHOT=>MUSS NICH$T AUSGESCHALTET WERDENy`è: STA$DD0D‡`ò: STA$DD0D `ü: LDA#$2C;'BIT $DD0D'¯`; STAL11580¼`; LDA#$98ß`; BIT$DD0D;LOESCHT NMI-IRQ-FLAGí`$; STA$DD0Dþ`.; .IFCOLINI=0a8; LDA#$06;NORMALaB; .EL3aL; LDA#$00;INVERTIERTMUSS WIEDER INITIALISIERT WERDEN & AUF CONTINUOUSüa~;L15200 LDA$02A6;NTSC (0) PAL (1) 1.02 / 0.98MHZ b; CMP#$01 b€;; LDA #$95Gb;; BCC L00000 ;B.I.NTSC^b‚;; $ LDA #$25vbƒ;;L00000 STA $DC06ƒb„; LDA#$42›bœ; BCCL10331;B.I.NTSC°b¦; LDA#$40;PAL (1)êbº;L10331 STA$DC07;TIMER B STATT TIMER A ALS KEYSCAN-IRQ cÎ;;LOWBYTE TIMER B LIEBER LASSEN WEGEN IEC-ROUTINEN]cØ;;NICHT DASS BEI IECIN (EE20-EE30) EIN FALS$CHES EOI KOMMTjcâ; LDA#$01šcì; STA$DC0F;TIMER B START (KEIN FORCE LOAD)" ¬cö; RTS;------" Óc<;-----------------------------" d hÂ= RTS;------" ehÌ=;-$#----------------------------" œhÖ=;PROBLEM: BEI DISKZUGRIFF DARF ES KEINEN NMI GEBENÏhà=;EINZIGE MOEGLICHKEIT NMI 100%IG ZU VERHINDERNiê=;=>TIMER A VON DD00-CIA SO PRGRAMMIEREN, DASS NMI LEITUNG STAENDIG 0V WIRDliô=;RTS-HANDSHAKE GEHT BEI ACIA (SW$$IFTLINK) NICHT => BEI ALLEN MODEM-ADAPTERƒiþ=;TYPEN WEGLASSEN" ¥i>;103 PAL (102.63) 0.98525MHZÇi>;107 NTSC (106.53) 1.02273MHZj>;INAKTV II STARTBIT II 1.DATENBIT II 2.DATENBIT IPj&>;---------- ------$%---------------Ÿj0>; II II II Iîj:>; --------------------- ---------------------(kD>; 0US 104US 208US@kN>; BEGINN STARTBI$&T_kX>; I I®kb>; 29TZ I =START TIMER B FRUEHMOEGLICHýkl>; 79TZ =START TIMER B SPAETMOEGLICH1lv>; I I€l€>; $' 29TZ I =AUSLESEN V.RXD FRUEHÏlŠ>; 79TZ =AUSLESEN V.RXD SPAET m”>;DIFFERENZ ZWISCHEN 29TZ UND 79TZ = 50TZBmž>;ABSTAND V.BITANFANG BIS FRUEH: 28US (29N#TSC-TZ)…m¨>;ABSTAND V.BITAENDE BIS SPAET: 23US (104US-81US (79PAL-TZ))¸m²>;IDEAL WAERE 2TZ FRUEHER; GEHT ABER AUCH SO" ðm¼>;WIE LANGE DAUERT ES VOM STARTBIT (HIGH-LOW-FLANKE)nÆ>;BIS TIMER B GESTARTET WIRD?&nÐ>;=MINIMALER WERT?nÚ>;29TZ (BEI 1MH#L-Í#,P,WÔ#×#‰‰ƒ ƒ ø#Lƒ †@†dƒ ƒ „ €ƒ £©Lê 3 ÃrÍr D ¶!ÍrÍr ™ÍrÍr¢ ãÍrÍr g ÈrÍrÈr ΟrÍr­Ír | Ír ÍršrÍr Ír:$Ír † ÍrÍr®Ír ãŸrÍr g ÈrÍrŸr Ô ýöæ Û r Û ‹r ΟrÍr8%Øæ;LI4,4,11î;" .EQSPCAOO=0;SPEEDER-CARTRIDGE OFF (0) ON (1)Y  .EQCOLINI=1;CONTROLL-LINES NOR MAL (0) INVERTED (1) ¨.EQ COREBI=$A8;COUNTER RECEIVE BITS¿ ©;$A8=WELCHE BITWEISE AUSGABEART DRAN IST 03-00 FUER 00-03å ª.EQ RXDBYT=$AA;RE%CEIVED DATA BYTE!«;$AA=ZAHLER FUER 256BYTE BLOECKE / ENDAKTIONEND!´.EQ COTRBI=$B4;COUNTER TRANSMITTED BITSl!µ.EQ TXDBIT=$B5;TRANSMITTED DATA BIT•!¶.EQ TXDBYT=$B6;TRANSMITTED DATA BYTEÅ!·;$B4=ZWISCHENSPEICHER FUER BITWEISE AUSGABEõ!¸;$B5=ZWIS%CHENSPEICHER FUER BITWEISE AUSGABE"÷;F7,F8=ENDEVECTOR SCHREIBEN TAILA"û;FB,FC=ANFANGVECTOR LESEN HEADi"H.EQ MOADTY=$0348;MODEM ADAPTER TYPE°"I.EQ RESTDE=$0349;RECEIVE STARTBIT DELAY (ONLY AT SPEEDER-CARTIDGE)á"K.EQ RENOLO=$034B;RECEIVE NOR%MALBIT LOW TIMER#L.EQ RENOHI=$034C;RECEIVE NORMALBIT HIGH TIMERA#M.EQ SENOLO=$034D;SEND NORMALBIT LOW TIMERp#N.EQ SENOHI=$034E;SEND NORMALBIT HIGH TIMER“#„.EQ VIRAST=$C800;VIDEORAMSTART¡#' .BA$C000¿#' JMPL10100;INITIALISIERENÝ#$' JMPL11840;%RS232 BYTE OUTý#.' JMPL13480;RS232 PUFFER OUT+$8' JMPL10870;RECEIVE BYTE DIREKT ANSPRINGENQ$B' JMPL14570;NMI AUS (Z.B.VOR LOAD)m$L' JMPL15200;IRQ-TIMER ON„$V' JMPL15060;NMI EIN´$`' JMPL15230;VERBINDUNG TRENNE MODEM LEGT AUFÑ$j' JMPL15340;ADAPTER R%ESETø$t';---------------------------------%~'L10100 SEI;INITIALISIEREN#%ˆ' LDX#$7F=%’' STX$DD0D;CIA-NMI OFFK%œ' STX$DD0D…%¦' LDA#$06;ODER #$86 (PB7 AUF AUSGANG?) RTS&DTR=AUSGANG“%°' STA$DD03¡%º' LDA$DD02®%Ä' AND#$FBÎ%Î' STA$DD02;PIN M AUF EING%ANGß%Ø' LDA#$80;PALí%â' LDY$02A6ü%ì' BNEL10230&ö' ASL;#$00 NTSCL&(L10230 STA$DD0E;SERIELL=EINGANG #$00/#$80 (TIMER A STOP)f& ( STX$DC0D;CIA-IRQ OFFw&( STX$DC0D;" ˆ&( STAL14890+1•&(( LDX#$42¬&2(; LDA #$95Ó&<( CPY#$01;NTSC (0) PAL (1% ) 50/60HZê&F( BCCL10330;B.I.PALÿ&P( LDX#$40;PAL (1)'Z(; LDA #$25P'd(L10330 STX$DC07;TIMER B STATT TIMER A ALS KEYSCAN IRQh'n(; STA $DC06ž'x(;LOWBYTE TIMER B LIEBER LASSEN WEGEN IEC-ROUTINENÛ'‚(;NICHT DASS BEI IECIN (EE20-EE30) EI% N FALSCHES EOI KOMMTè'Œ( LDA#$82 (–( STA$DC0D;TIMER B ERZEUGT IRQS( ( LDA#$016(ª( STA$DC0F;TIMER B START" G(´( .IFCOLINI=0[(¾( LDA#$06;NORMALd(È( .EL|(Ò( LDA#$00;INVERTIERT…(Ü( .EIª(æ( STA$DD01;DTR & RTS AUF ACTIVE" Ê(ð( LDASENOLO;50/52 (PAL/% NTSC)Ø(ú( STA$DC04ç() LDASENOHIõ() STA$DC05)) LDA#$41;NTSC %01000001 )") BCCL105201),) ORA#$80;PALo)6)L10520 STA$DC0E;TIMER A START SERIELL=AUSGANG CONTINUOUS|)@) LDA#$FFœ)J) STA$DC0C;STOPPBIT AUSGEBENÆ)T) .IFSPCAOO=1;SPEEDER CARTRIDGE OFF% ONÕ)^) LDARESTDEæ)h) STAL11110+1ï)r) .EI*|) LDARENOLO;102/106 (PAL/NTSC)*†) STA$DD06.*) LDARENOHI<*š) STA$DD07m*¤)L10630 LDA#$12;%00010010 ODER #$02 -> L11150˜*®) STA$DD0F;TIMER B:AUSGABE AN PB7 + OFF¥*¸) LDX#$00¸*Â)L10660 LDY#$07Á*Ì) TXA% Ð*Ö)L10680 LSRà*à) ROL$C700,Xé*ê) DEYø*ô) BPLL10680+þ) INX+* BNEL10660+* LDA#$90*+* LDX#$C1G+&* STA$0318;NMI ROM VECTORU+0* STX$0319h+:* LDA#<(L10970){+D* LDX#>(L10970)˜+N* STA$FFFA;NMI RAM VECTOR¦+X* STX$FFFBÞ+b* LDA#$98;FLAG-NMI + %TIMER B NMI ERLAUBEN %10011000ì+l* BIT$DD0Dú+v* STA$DD0D ,€* RTS;----" 3,Š*;-----------------------------" f,”*L10870 BIT$DD0D;RECEIVE BYTE DIREKT ANSPRINGENo,ž* RTS»,¨*;RECEIVE BYTE ROUTINE DIREKT ANSPRINGEN GEHT NICHT,WEIL DIE NMI ROUTINE%-²*;NICHT PRUEFT WELCHES IRQ-BIT DEN NMI AUSGELOEST HAT UND DESHALB DIE?-¼*;FALSCHE ROUTINE MIT FALSCHEM TIMING AUSFUEHREN WUERDE‰-Æ*;=>NUR DAS IRQ REGISTER DURCH AUSLESEN LOESCHEN DAMIT ES DIE IRQ-NMI-¿-Ð*;LEITUNG WIEDER FREI GIBT, FALLS SIE DAUERLOW% IST .Ú*;EVTL FALLS CIA-NMI WAEHREND ABARBEITEN VON RESTORE-NMI AUSGELOEST WURDE?4.ä*;-----------------------------" h.î*; (NMI) ;7?¨.ø*L10970 SEI;2 NMI RAM VECTOR KOPIE DER NMI ROUTINEÀ.+L10980 JMP($%0318);5ç. +;---------------------------------6/+.BY0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0…/ +.BY0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0“/*+ .BA$C113Á/4+;KEINE PAGEUEBERSCHREITUNG IN N%MI ROUTINEö/>+; NMI->SEI->JMP(0318) ;14?50H+ BIT$DD0D;4 NMI ROM VECTOR BYTE READY NMIW0R+ BPLL11390;2 B.I.KEIN CIA-NMIb0\+ PHA;3Œ0f+ .IFSPCAOO=1;SPEEDER CARTRIDGE OFF ON—0p+ CLD;2¢0z+ SEC;2·0„+L11110 LDA#$FF%;2Ì0Ž+L11120 SBC#$01;2ß0˜+ BNEL11120;2/3è0¢+ .EI1¬+L11150 LDA#$02;2 %00000010 ODER #$12 -> L10630W1¶+;DALLMANN: #$92 GEHT NICHT,WEIL SONST ALARM STATT CLOCKƒ1À+ STA$DD0F;4 TIMER B STOP PB7 BLEIBT ON­1Ê+ LDA#$90;2 %10010000 (DALLMANN: #$92)Í1Ô+ %STA$DD0D;4 ENABLE FLAG-NMIê1Þ+ STA$0318;4 NMI AUF C190õ1è+ TYA;22ò+ PHA;3.2ü+ LDY$DD0C;4 RECEIVED BYTE ABER GESPIEGELT92, CLD;2s2, CLC;2 NICHT SEC E= E100 EDFF E2FF ECFF°2, LDA$FB;3 ANFANG LOW 01 C 00 C 00 C 00 C%ë2$, SBC$F7;3 END LOW C=LO =>-01 -00 -FF -FF -FF+3., BEQL11400;2/3 00 S 00 C 00 C 00 CU38,L11290 LDA$C700,Y;2 RXDBYT GESPIEGELTd3B, LDY#$00;2“3L, STA($F7),Y;6 PUFFER NICHT VOLL=>SCHREIBENÏ3V,;ROUTINE GEHT DAVON AUS%,DASS NIE XON/XOFF GESENDET WIRDí3`, INC$F7;5 VECTOR ERHOEHEN4j, BEQL11460;2/3 " 4t,L11350 INCVIRAST+1;6'4~, PLA;424ˆ, TAY;2=4’, PLA;4W4œ,L11390 RTI;6 ----" š4¦,L11400 LDA$FC;3 ANFANG HIGH E1 S E0 C E3 C E0 CÕ4°, SBC$F8;3 ENDE% HIGH -E1 -ED -E2 -EC5º, BCSL11440;2/3 B.I. 00 F2? 00 F3"5Ä, ADC#$0E;2Q5Î,L11440 BNEL11290;2/3 B.I.PUFFER NICHT VOLLt5Ø, JMPL11350;3 PUFFER VOLL"---- ˆ5â,L11460 LDY$F8;5“5ì, INY;2¢5ö, CPY#$EE;2µ5- BNE%L11510;2/3Ä5 - LDY#$E0;2Ø5-L11510 STY$F8;3ô5- JMPL11350;3 -----" 6(-;---------------------------------j62-.BY0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0¹6<-.BY0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0%,0,0,0,0,0,0,0,0Ç6F- .BA$C190ü6P-; NMI->SEI->JMP(0318) ;14?A7Z-L11580 BIT$DD0D;4 NMI ROUTINE STARTBITR7d- BPLL11670;2]7n- PHA;3v7x- LDA#$13;2 %00010011µ7‚- STA$DD0F;4 TIMR B:FORCELOAD CONTINUOUS IMPU%LS PB7ON STARTô7Œ-;VON HIGH-LOW FLANKE VON STARTBIT BIS TIMER B START: 29TZ?'8–- STA$DD0D;4 DISABLE FLAG-NMI (&TIMER-B&-A-NMI)<8 - STA$0318;4 C113G8ª- PLA;4`8´-L11670 RTI;6-----" ‡8¾-;---------------------------------›8È-L11690 LDX$DC01¨8Ò- CPX#%$FFÑ8Ü- BEQL11860;B.I.KEINE TASTE GEDRUECKT9æ- STYL11790+1;WICHTIG,FALLS ZAHLER F.PUFFER SENDEN9ð- LDX#$7F"9ú- STX$DC00/9. LDY#$0089. NOPF9. LDX$DC01T9". STY$DC00g9,.L11790 LDY#$00t96. CPX#$FD9@. BNEL11860;B.I.ESCAPE NICHT GEDRUCKT¯9J. %RTS;------" Ö9T.;---------------------------------:^.L11840 SEI; RS232 BYTE OUTH:h.;WICHTIG DAMIT IRQ-ROUTINE NICHT DC0D LOESCHT:r.L11860 BIT$DD01;4 B.I.CTS=INACTIV (=WARTEN MIT SENDEN AUF MODEM)ž:|. .IFCOLINI=0Å:%†. BVCL11690;2 CONTROLL LINES NORMALÎ:. .ELù:š. BVSL11690;2 CONTROLL LINES INVERTIERT;¤. .EI ;®. TAX;¸. LDA$C700,X3;Â. LSR;0 ALS STARTBITS;Ì. BIT$DC0D;LOESCHT ALTE IRQSt;Ö. STA$DC0C;SERIELLES REGISTER•;à. LDA#$FF;1 ALS (7) STOPPBITSž;ê. ROR%¬;ô. STA$DC0C»;þ. INCVIRASTã;/ LDX$DD08;00,01-09 ECHTZEITUHR 1/10õ;/ DEX;FF,00-08</ BPLL12050<&/ LDX#$09;09,00-08-<0/L12050 LDA#$08A<:/L12060 CPX$DD08l¼/;I A II B II C II D II E I)>Æ/; -> REIHENFOLGE DER AUSGABE ->W>Ð/;I 3 II 2 II 1 II 0 I…>Ú/;O76543210AO76543210AO76543210AO76543210A³>ä/;76543210765432%!10765432107654321076543210á>î/;I E II D II C II B II A I?ø/; <- REIHENFOLGE DER AUSGABE <-1?0;BEI RS232 WIRD BIT 0 ZUERST AUSGEGEBENP? 0;CIA GIBT BIT 7 ZUERST AUSg?0;AL = STARTBIT LOW? 0;OH = STOPPBIT HIGH¦?*0;------------------%"---------------Ö?40;1BYTE (ACCU) AUSGEBEN NUR 10 STATT 16 BITS@>0L12320 INCVIRAST;A=AUSZUGEBENDES BYTE@H0 DEC$A8;03-00 -> 02-FF>@R0 BMIL12860;B.I. 0 WAR (00->FF)a@\0 BEQL12680;B.I. 1 WAR (01->00)m@f0 LDX$A8v@p0 DEXš@z0 BEQL12530;B.I.2 WAR (02->%#01)" ¿@„0 ASL;WAR 3 (03->02) BYTE 0Û@Ž0;BIT0 =AL BYTE0 A÷@˜0;BIT1-7=BIT0-6 BYTE0 AA¢0;CARRY =BIT7 BYTE0 B$A¬0 TAX;=BYTE A1A¶0 LDA#$01=AÀ0 STA$B4FAÊ0 ROLRAÔ0 STA$B5AÞ0; BIT0 =BIT7 BYTE 0 BÌAè%$0; BIT1 =OH BYTE 0 B Bò0; BIT2 =AL BYTE 1 BBü0 JMPL13070;" 8B1L12530 ASL;WAR 2 BYTE 1DB1 ROL$B4MB1 ASLYB$1 ROL$B4bB.1 ASLnB81 ROL$B4ŠBB1;BIT0-2=BIT5-7 BYTE 1 C¦BL1;B%%IT3 =OH BYTE 1 CÂBV1;BIT4 =AL BYTE 2 CÖB`1 ORA$B5;=BYTE BCj1; BIT0 =BIT7 BYTE 0 BPCt1; BIT1 =OH BYTE 0 BC~1; BIT2 =AL BYTE 1 BÊ%&Cˆ1; BIT3-7=BIT0-4 BYTE 1 BÜC’1 JMPL13060;" ûCœ1L12680 STA$B5;WAR 1 BYTE 2D¦1 LDA#$00D°1 SEC=Dº1 ROR$B5;WIRD ZU BIT5 (STOPPBIT V.BYTE2)FDÄ1 RORrDÎ1 LSR$B5;WIRD ZU BIT6 (STARTBIT V.BYTE3){DØ1 ROR”Dâ1 LSR$B5;WIRD %'ZU BIT7ÑDì1; BIT0-4=BIT3-7 BYTE 2 DEö1; BIT5 =OH BYTE 2 DKE2; BIT6 =AL BYTE 3 DTE 2 RORhE2 ORA$B4;=BYTE C„E2;BIT0-2=BIT5-7 BYTE 1 C E(2;B$IT3 =OH BYTE 1 C¼E22;BIT4 =AL BYTE 2 CØE<2;BIT5-7=BIT0-2 BYTE 2 CêEF2 JMPL13060;" FP2L12860 LDX#$03;WAR 0 BYTE 3FZ2 STX$A8#Fd2 STA$B40Fn2 LDA#$009Fx2 SECEF‚2 ROR$B4aFŒ2;BIT0-6=BIT1-7 BYTE 3 E}F–2;BIT7 =OH BYTE 3 E™F 2;CARRY &  ÏÿL  >ñLH¥…û©7…hX`Hx¥û…h` Éð`L@© Lð© Lð ùÉ ` çÉ ` °¢ÿš 4ðõÉ ðôÉ.ðð ˆ0ÙŠÐø¹dH¹wH`©? ðL@ ž  Ç Lq¥fð©…fLš¥aÅe Ð¥`Ådð`8` Ò†a…` 4ðÉ Ð¸ ܪ Ù†e…d`¥`…d¥a…e` Ò†a…` 4ЗXl`xl  ž   ëLÚL@  „±`H /&h :¤ÈÀÐí¢  /©…DZ`)É ð©…Ô ³ ÊÐå©…Ç` Ò†a…`  ç„ ç ‡¨ ç ‡ ¸¤‘`ÈÀÐâ©‘ ð ë °©:w¥a FŒxy¥` FŒz{© |©…ÆLCÉ ð`Lf Ò†a…`©…c :ðû >à à'°©ð© u…©àð Ê}ØL½àÐð¤¾Ø¨¥ÙAÐ ¹« ‘`ÈÊÐíLfÈ¢¥Ê0Ý&Ðø¥b‘`©‘ ð  °©,LbÉ ðìÉ Ð8¥cé…c¥båaÉÉÿÐK rec‘`Lü¥c‘`È¥b‘`Lü¢àèàð çò¢†b ÿȹàÑbðèæbæbæb¤bÀ¨° çÀÐå†`Lf 4Щ `É ðôÉ#Ð ç I Ù…b 4ÐÝ©`É(Ð6 ç I Ù…b çÉ)ðÉ,ðL5 W çÉ)г 4Ю©` _ 4У©` I Ù…b 4ðSÉ,ð4 à…c 4ðÉ,Ð ç&ÉXð ÉYÐÁ 4м©` 4д©`­ð©`© ` çÉXð ÉYÐ/ 4Ð*©` 4Ð"©`©` à…c çÉ)Ð 4Ð © `É$ðLf`Lf j çÉXÐó` j çÉYÐè` çÉ,Ðà`¥`IÿªèŠ` ç 4Щ…ºL®É,Ð Ù…º 4ðÉ,Ðw Ò…b†c 4Ðò©…¹¢†¹¥ºÉð ÉðL× © ¦b¤c Õÿ i LÉÐ7L©…¹…ºL 4ðòÉ ð÷É"&Т ùÉ"ð àèàð Ð©…¼©à…»`Lf©¥¢ô E¢½£TÊ÷¢½§iÊ÷¢½·ŽÊ÷©Šæº` …d†e ±d™ÈÐø©02©13L¢½Lý0Ê÷` ç j Ù…º j Ò…`†a j Ò…b†c 4Ð5¥ºÉðÉÐ Ñ©…¹©`¦b¤cèÐÈ  Øÿ  iLH *hÉÐðØLf©í¢õ E¢½º4Ê÷¢½½<Ê÷æº&` ±¬ LÝí ž¢ 4ðÈÉ ÐĆ Ù¦è 4Ð솢  ½‘` èäÐìðèL@ ž Ò…b†cäaÐÅ`° ä ±`‘b æbÐîæcLK¥d8å`H¥eåa=ec…chebæc…b Ì ±d‘bÆd¥dÉÿÐÆeÆb¥bÉÿÐãÆcL} ž 4ð}¢É Ðw ÷† à¦è 4Ðç *†  & ¹ð ±`Ùð LÇÈÄÐá 0 & /LÇL@ çÉ?Ð ùÉ?Щè 4ð É ÐhhL­`H©ÿh8`LfxØhEhDhChBh@hAÎ@ÐÎAºŽF¢½Â ðèà=Ðõ­A :­@ : /­ :­ :¢ /½B :èàÐò *L@CŽDŒEL5 ž Ò…b†c *  ±`ÑbÐ æbÐìæcL¤ 0 /L±L@ Ò¨ *ŠH˜ªh  ͽ L@ „`„a ù)&e`…`æa ùÉ0H¥`¤a &a &ae`…`˜ea`*…ahÔ * 0L@ ž¥`ed…`¥aee…a * 0L@ ž¥`8åd…`¥aåe…aL/  çÿ  4ð4É ð÷É$ðV¢àèàðI 4ÐóŠ¢à   ½ÿ©¢  ºÿ Àÿ çÿ  * ©…º ´ÿ©o…¹ –ÿ ¥ÿ ÒÿÉ Ðö «ÿ L@LfH *h à¢à © ½ÿ¢ ` ºÿ Õó¥º ´ÿ¥¹ –ÿ©… Œà ¥& ÿá¤Ð1 ¥ÿ¤Ð*¬àˆÐæ®á ͽ© Òÿ ¥ÿ¦Ðªð ÒÿL © Òÿ РBö L@ 4Ð0 * ¥gÐÆg©¢ ºÿ©…· Àÿ¢ Éÿ L@æg çÿ ÌÿLPLfmÖÂÒ-Žytû6žL–Èà7J+DMGX:,LSFTHRC$#+-@PêêxH©0…h‘®©7…êêêL©õ Ýí ñêê INTERN MONITOR BY R. GELFAND PR & IRQ SR AC XR YR SP .*1LDALDXLDYSTASTXSTYTAXTAYTXATYATXSTSXPLAPHAPLPPHPADCSBCINCDECINXDEXINYDEYANDORAEORCMPCPXCPYBITBCCBCSBEQBNEBMIBPLBVCBVSJMPJSRASLLSRROLRORCLCCLDCLICLVSECSEDSEINOPRTSRTIBRK???©­½¹¥µ¡±¢®¾¦¶ ¬¼¤´™…•‘Ž†–Œ„”ª¨Š˜šºhH(im}yeuaqéíýùåõáñîþ& æöÎÞÆÖèÊȈ)-=9%5!1 IM]YEUAQÉÍÝÙÅÕÁÑàìäÀÌÄ,$°ðÐ0PpLl  N^FVJ.>&6*n~fvjØX¸8øxê`@        .ITAYTXATYATXSTSXPLAPHAPLPPHPADCSBCINCDECINXDEXINYDEYANDORAEORCMPCPXCPYBITBCCBCSBEQBNEBMIBPLBVCBVSJMPJSRASLLSRROLRORCLCCLDCLICLVSECSEDSEINOPRTSRTIBRK???©­½¹¥µ¡±¢®¾¦¶ ¬¼¤´™…•‘Ž†–Œ„”ª¨Š˜šºhH(im}yeuaqéíýùåõáñîþ& "Äž2085 : BASIC-BOSS COMPILER L¼¢µµ2ÊÐø`ÉðÉð#Éð=Éð*h¨&A hB ºŽC H˜H©` ®®C š`®C š­B H­A H©`®C š­B H­A H©ÿ`h¨h®C šH˜HLD …Wh…Ah…Be¥WðLþ ©ÿ…9…: ±AU ȱAV ȱAW ȱAX   ±AS ȱAT ÈÈȱAY ȱAZ ȱA[ ȱA\ ȱAM ȱAN ȱAQ ȱAR ­H ð®I ¬J ŽO ŒP Lþ ®Q ¬R ŽO ŒP ­[ …Y­\ …Z­Z …X­Y ¨©…WÄYð ‘WÈÐ÷æXÐó¦Xä&Zñ­- ­. ­K ­ L ©…H Ñ(° ð Là­/ ŠH ®¥9H¥:H £h…:h…9hªL‹ãh…Ah…B ¢N ò  LਠD ¢³LIh…Ah e Là…kh…Ah ©  ¥k‘ ä Làh…Ah ÷ð¢ÿ,¢L[h…Ah ÷ð0¢ÿ,¢L[h…Ah…B ±A…WªðȱAI³†X¢7† Òÿ®ƒ†¦XÊ&Ðè¤WÈLà D© Òÿ$© ÒÿL}©L„…Eh…Ah M } Lઅ D ÉÿL}h…Ah q¥eð ±a¢7† Òÿ®ƒ†ÈÄeÐíL× D Ìÿ©…L}h…Ah ä¥eef¢Lc ¤e𠈱a‘ˆùÀÿÐõ­O ee…W­P i…X¤f𠈱c‘WˆùÀÿÐõ f äLx…Eh…Ah ML×h…Ah } +ºLŸh…Ah } j¸LŸh…Ah ¿LÈ¥Ó8é °ûIÿiLÐh…Ah& ëð©ÿЩL h…Ah q ¥e¦a¤b "¦©¤ª ”Lxh…Ah ÷Тÿ,¢L[h…Ah eÈ¥d‘© Làh…Ah…B ±A…aȱA…b©…]ȱA…W…i„E)…X i…Y¤E  †§…¨æ]¥X Ña°¤Yȱa…ªˆ±a…©LÅ ¤YÈ¥¨ÑaÐ¥§ˆÑa¢LcÆX¤E¥XÉ°Lû „E¤Yˆ±a…ªˆ±a…©„Y ¿¤E¥]É ©…]ȱA…W  æ]†c…dŪл䩰·¥ce§…§¥de¨…&¨ÆXL© ¥§…[¥¨…\„E ±a…^Éð§&¨ÉðÉð§&¨¥§e[…§¥¨e\…¨¥§ qa…§¥¨Èqa…¨¥i)𠥧…;¥¨…ƒÉ.ðùH)€…ùh)¢(Ý ƒðÊø0»Š ’ƒLJƒª½ÑƒH½ÐƒH`````@_>AB)DEHGWOJILM/FPQRSYU(TX*Z-';$%#?:^C,\©€…8LD¦ï‚ï‚ï‚/–Š›9ØŒ^›ÿ†2†ï„¦›Ž†]„Œ‰éŽÏ‰ú„'ÕŽ_‡~„dœP…›ÚŠL‰GŒÿ˜N†Î†¥‡9ˆ?ˆF‰–ˆ­‰a‹Ò‹Ã•~ž©$Ð$` .ƒÉ"Р >ƒÉ"ð ™ÈÐóLEƒÀðù„·©…»©…¼…¸¦øLI† 0„©…¹ ƒðƹ¢Á ¸„ 4€¥É@ð;© Lp‚ 0„©…¹ ƒð»¢Á ¸„¢® ¸„æ®Ðæ¯ š€¥ðÐÖ ¶„©ÿ…ý…þ ƒð ¸„`¢û Å„• Ò„•èè` >ƒÉ ðùÉ,ðõÐ >ƒ ç„ …´ >ƒ ç„´`É:i)` Å„ð'…ø`LEƒ Å„ðø…÷`æûÐæü`¥ÓÉ'Ð >ñðÉ Ð©…¶¥¶I…¶Líö¥¶ðæÐ÷`©…¶ ƒ †˜…Q…V…Zê`xæ±ûÆX`xæ‘ûÆX` ¥… -…  K ‚ ‚° … …Ðë¢ ЀLø€…¸„¹H˜HŠÐ©…ø…º¢† ±ÿ ®ÿ¥ð¢" ЀLJƒ¢h¨h`©…ù`  …L¤„H¥ù .)Ð%¦÷Т†÷à¢6 ЀLJƒ©  t… Jó¦¸ PòæùhH ÝíhLç¥ù)ð 3ó© ‘ò©'…ù`©- «… ø€ © «… K…Á¢Á©*Щ. «…ÊÐðÈÀÐä¥ûi…û¥üi…ü© L«… ¤„ -… ö… ‚° …ÐóLã… x…L … ¶„  … 4… >ƒ ¢©…Á >ƒÉ*Ð8&ÁLr†ÁÊÐî¥Á TÈÀÐÞ`É É °É€©.` ¤„ -…©' «… ø€© «…  K €† «…ÈÀ Ðò©' $ƒ¥ûi …ûæü ‚° …ÐÉLã… ¶„  … 4… >ƒ  >ƒÉ.ð TÈÀ Ðñ` ƒ'𠶄¥û ¥ü ` ñ‰ 톦úš©‡H©H¢ú½HèÐùh¨hªh@Ø© Ð!Щ†¢h ÊùhÉÐhɇðHH­ ÐÎ Î º†ú©RL~ƒ©©‡¢M Ѐ­  ‭  
 ç¢ü½ 
 çèÐò¥ú 
 ç­ …ª©   窩0iˆÐô` ¶„ ¥ü ¢û >ƒ Å„èÐô…ú© çL‡ .ƒÉ ÐLEƒÆÓ©…ü Å„…û ˆð ¥û…ü Å„…û`©' …Ó…ù lå©$ ç ø€¥üÐ¥û “‡© ç©# ç¦û¥üL)Œ©…û…ü  >ƒÉ0ÐûL6ˆÉ1ðLEƒ8&ûˆÐç` ɇLí‡ ˆLí‡ >ƒÉ ðùÉ$ÐLɇÉ%ÐLˆÉ#ÐLöˆLEƒ¥ýeû…ý¥þeü…þ`¥ý8åû…ý¥þåü…þ` .ƒÆÓÉ+ð É-ðÉ Ð©…Â`¢†ý†þ†ù†¶è†Â Fˆ¥ÂÐLEƒ¥û…ý¥ü…þ .ƒÉ+ðÉ-ðÉ Ðñ¦¶ðâ ç¥ý…û¥þ…üL퇅Á Fˆæ¶¥ÁÉ+Ð eˆ¥ÂÐË©' LɈ sˆLçˆ >ƒÉ ðùÆÓ¢Š†û…ü¨ ÏÿÉ Ð ©…†û„ü`É:°é/°ÆÓÐï…®û&ü¥ü…¯¥û &¯ &¯eûe®ª¥¯eü(iL‰ öˆL퇦úš [ÿLΘ©: «… ø€ © «… K â€ÈÀÐð © «…ˆÐú K €† «…ÈÀÐò© L«… ¤„ -… V‰¥ûi…ûæü ‚° …ÐèLã… ‹ ¶„  >ƒ Å„ TÈÀÐò©…Ó låÆÖLV‰ ¶„ ¸„ Å„…¶ 1… ¥¶ T ‚°' …Là‰`¢©•JÊÐû©…S©L…T†ù`„¶ ‘-æ-Ðæ.渤¶` ¶„ ¸„ 1… sˆð…¸Je¸H¢p Ѐhª© )Œ¢~ Ѐ©…ùÜ…® eˆ©&©Š'¥-8é…Á¥.é…©}…¯ „¸¥® Š¥¯ Šæ®Ð毩ƒ Š  Kª˜ )Œ ‚°? …¥¸ÉE°©, ŠL|Š ¨ŠÂ¢‡ Ѐð% ˜ Š¥-H‘ÁÈ¥.‘Á…Âh…Á© Šˆú¥.É` ¨Š©Ê&©ñ'îÜ` ¶„ ¸„¢Á ¸„ 4' …©Ü…ù sˆ¥Áeý…Ã¥Âeþ…Ä eˆ¥ÁÅû¥Âåü8¥ÁÅý¥Âåþð°,©ý…O©Ã…X  K T ‚°¥ýÐÆþÆý¥ÃÐÆÄÆÃL#‹îÜ` ©Á…X K T ‚°ë …æÁÐîæÂLK‹¢— Ѐ ¹ ƒð ç¢ © çÊÐúÈÀ)Ðé`  …L4…¢†·†¸†º†»ª½’…¼Ð`½‘ª)…·Š)JJ…¹Š &º &¸ &»``© L«…H µ‹hL«…© L«…¤Ó© ‘ÑÈÀ(Ðù` ¶„ ¸„¢Á ¸„ ƒ¢ ½í‹' •JÊÐøL‹Žxæ±ûÑÁÆX(`†¶  Kð ø€ ‹…¶ Ę° …æÁÐåæÂLý‹¥¶Ð¢¬ ЀLã… 7„Lͽ©7…Lt¤¢½€•JÊÐøL˜ ÏÿÉ Ð¢¹ Ѐ¥É6ð©AЩO ç¢ÇLЀ¢6ÉAðÉOðLEƒè†` †± …„‰”   †³ “”’…  †· ‘•‰”  ¢ ½w½yŒw½Ÿ½ƒŒŸ½Ç%½ŒÇÊÙ`¢ ½w½Ÿ½%ÇÊë` ¥…©“ sŽ¥û…'Áiç…ý¥ü…Âi…þ¥Ñ…®¥Ò…¯ 4…  K‘Ñ ‚° …æÑÐïæÒLÿŒ© ç —Œ¢  ¥ÅÉðÉð ÉðÈÐïèÐê©…¶ ÁŒ¥¶Ð ¢ ÈÐýèÐøLÉЩ“LçÉÐ%© ç¥Á…û¥Â…ü ±Ñ T ‚°¢ …æÑÐïæÒLiL¾ ±ÑI€‘Ñ¥ÏI…Ï©…Í` „Ï„Î„Í Bñð H¥Ïð ‚h`æÎÐí¥ÍÆÍÉÐå ‚L •É ÐLÉÐ¥ÖÉðìæÖ¥Ñi(…ÑáæÒÐÝÉ'‘Ð¥ÖðÕÆÖ¥Ñ8é(…Ñ°ÊÆÒÐÆÉÐ¥ÓÉ'Ð ¥ÖÉð¶æÖ©ÿ…ÓæÓæÑЪæÒЦÉÐ¥ÓÐ ¥ÖðšÆÖ©(…ÓÆÓ¥ÑÐÆÒÆÑL¾É °L¾É@É` É€ É íÉÀ° 8é 8é  ‘ÑLüÉà°8é`L7ŽÉÿðÎ8éàL7Ž ç­†¢ØÙÚÛèÐñ` ˜…TLû‹ ¶„ ¸„ Å„…¶  …L1… “Ž  KE¶ T ‚° …L©Ž` “Ž  Ke¶ T ‚°ì …LÂŽ >ƒÉEÐL¤Ž'ÉAÐL½ŽLEƒ©7…¥z…û¥{…ü©¨‘+ 3¥Ši…-¥# U¦¥ü…{¥û…zLM‰ ‹ ‹ ‹L‹ Ç‹©, «… ø€   KH †‹h ‡‹¦·ð È K †‹ÊÐó©8å·ªð ÊÐú`¦¼½“H)€© (ð©* «…h) «…½F“H)€…½h) «…½Œ“ 4¥·ð.¥ºÐ.¥»ÐS¦¹½Ò“ «…¤· K  Ð÷½Ú“ «…½â“ «…½ê“ «…© L«…¥¹ð©( «…¤· K  Ð÷©)L¹¦ªðÁ'©M çŠ â€L¼¦ªÐð¦·èŠeû…Á¥üi…ÂL©7…© †© sŽ¢Ü ЀLU‡  KÉÆÂeÁ…Á楤Á Þ€L¼ «…L‹ ¤„ -… „ª  ]¥½ð ©- # «…ˆÐú µ‹ ‚° k …ÐÜLã…¥ûe·…ûæüL…©…·…¸…¹…¼ .ƒÉFÐ ƒÐæ¸`É ðûÆÓ  ÏÿÉ ððÉAóÉ[°ï™ÈÀÐ颽“)ÍнF“)ÍÐ ½Œ“)ÍðèàCÐÝ¢†¼à'ð³ .ƒÉ Ðæ¸Ð¦L”É0ÉG° É:ÉA8``BBBB! RRBNNNÂBBBB! RRBNNNÂBBB! RRBNNNžBBB! RRBNNNBBBB! RNBBBB! RNNRRBBBB! R'RBNNNBBBB! RRBNNN #B:9#:%#9#: #B:9#:#9:9#:B;(;'((;B;9(;-9;9(;*B<9!<$!!< B<9!<9<9!<+B=9)=&))= B=9)=/9=9)=909>201>96201>0B201>8070 ? ?43 ?B? ?5 ?9@@@ B@9@'9@9@,9A,A,",A,BA9,A.,9A9,A*AAABBBBBBBBBBCCCCCCCDDDEIIIJJLLLLNOPPPPRRRRSSSSSSSTTTTTTÓÓÒÓÒÓÌÄÉÃ*DNSCCEIMNPÒVVLLLLMPPEEEONNNÍSDDDSORHHLLOOÔÔBEEETTTAASXXYKLLRRAACSR*CDLCSQTIELKCSCDIVPXYCXYRCXYPRAXYRPAAPAPLRISCCDIAXYXYXASAPOAEAXXPCA ' #((  ,) ,,, X, XXY )Y)XY, g” ì Ïÿ ìÆÓ(ÆÓ(` ÏÿL”ÉMÐ ¥«ð ” Å„ðÉ° …ª ÏÿÉ Ð©…¸`¢†Á†ÂÉ#Ð$ ”ð Å„…Á ÏÿÉ Ðä©…¹æ·©…¸` .ƒÉ$ðù`É(Ð9 ”ö Å„…Á .ƒÉ,Р .ƒÙñ“ÐàˆÐõ©L^”É)ÐL!•É ðÍÆÓ ”ÆL4•`É$Ð .ƒ ì°`ÆÓ ”ø Å„…Á .ƒÉ ЩL^”É,Ð' .ƒÉXð ÉYÐØ©L^”© L^”ÆÓ ”Ç¥Á… ń…Á .ƒÉ ЩBæ·L^”É,Ь .ƒÉXð ÉYС©RL•©NL•  .ƒÙó“ЈÐõ©L^”`¥Á… ń…Á .ƒÉ)Ð良ÉÐé©žL•¢ÿ¥¼èÝ’ð àÿÐö©…¸`½‘¨) Ð ˜Å¹Ðâ©…¸`)€ð¥¹ÉžÐ¢lÐíÉBðéÐÕ¥¹ÉBÐÏÆ·¥ûi…Ã¥üi…Ä¥Á8åÃ…Á¥ÂåÄ…Â¥ÁÉ€° ¥ÂÐ ©…ÂLo•¥ÂÉÿðóL]• 4…©…«…ù ¶„ y'¥¸Éð © çÆÖ låL – O•¥¸ðì Š T¤·ð ¹À TˆÐ÷©…Ó  ] k ±ÑÉ-Щ ç©…Ó©, ç ø€¦úš©…ÓLoƒ ö˜…ý¥ü…þ 1…©…ù¢2Êú†«©, ç ø€ ‹Р© çÆÖ lå .ƒÉ,Ð(¦ÓàÐ" ”ä Å„…ü ”Ú Å„…ûL––© ç©…ÓÐÌÆÓÉ ðï .ƒÉMÐ ”ã Å„ðÞÉ°Úª1 ª¥û¥üæÓÆÓ y¥¸Éð ÉðIÉе'L7— O•¥¸ð«Š  T¤·ð ¹À TˆÐ÷„Ó  ]¦ªð  „ª¥« T k ‚¥û…®¥ü…¯LJ–¥¼¢ Ýÿ—ðÊÐøL…–½ ˜…«©…·¥ª…Á½˜LÛ–¥ý…û¥þ…ü¥®…ý¥¯…þ©…«…ªÜ  K¢ Ý ˜ð)ÊÐøª½‘)…· k ‚áîÜ¥ªð¢ 𗥫ð¢ ð—`½˜ Tª½‘)…·È Kª½1Ð¥·ÉЩþÐ¥û TÈ¥ü T©…«Ð¯Lg— ª½…Á½…Â¥·Éð¥'Á T¥ÂÈ TLg— •Ð©þ…ªÐ¥Á TLg—½ ˜ð çèÐõ` "2BRbr’²Ò°ð0ÐPpL UNDEFINED LABEL(S) RELATIVE OUT OF RANGE TRACK/SECTOR: FOUND PRESS PLAY.­Ý Ý­Ý)üûÝ`¢½>…•JÊÐø©88å…M` 1…Lµ‹¢ ©}›äÊÐúɾÐ QôLŽ©7…® ¶„Lƒ íöÐ8`L'‚ ñ‰L0Œ¢ÿxšØèŽÐ £ý Pý ý [ÿX Sä ¿ã ɃL¢˜ ¶„…®¦ü†¯` WñÉ Ð¥¨ðH¢- ð—h †¥© †µ‹Lã…ÉNЭÏð …¨­Ï…©L=™LEƒÉRÐT ®™©§ ý™¢ ò  Wñ™ÏÈÐ÷  š©ML•™ ®™©§ fš¢ Pò ¹Ï Êñ¦ÐÈÐó 3ó©2 ý™© ‘ò©L‘òÉWð˪  „ƹ”š™vˆÐ÷Žw©‘ º‹Loƒ ƒð Å„ðB…¨ Å„…©LË™­§ð3¥¨ð'/  ¹š™ˆÐ÷©¨¦ø t…© ùý Jó© ¨¦ø þ©¢Ÿ š ùýLJóLEƒ¥¨ YšŽ¥© YšŽ¢ Pò¢½ Êñèà õ 3ó©… ƒ¥ø í©o Çí îÉ0ÐLïí î ÊñÉ Ðö ïí ‡™LJƒ¢08é è°ùi:`¢ Pò¢½š ÊñèàõL3óU:13 0 18 00B-P 13 0ÌCF00CFFF # ÌÿL‡™¢Á ¸„ ¸„¢® ¸„ ¶„ ¸„©…ùÜL4…  K' ‡‹¥¸ð;È K…ªÈ K…«¥ª8åÁª¥«åÂ#¨¥ªÅÃ¥«åÄ°Še®…ª˜e¯…« ¥ª TÈ¥« T ‚° kLÚîÜ` ¦šLÚ ¦š¢µúµÀ•úµ­•ÀÊÐê ðŠ¢½•À½•úÊÐó­…®­…¯ÎÜ 4…LÚ ¶„ ¸„  ƒð Å„™ÈÐò„¶ÀÐLEƒ ˜˜  KÙÐ ÈĶÐó ø€ ‹ Ę° …L› µ‹Lã…­Ð ЭÐ äЩU…ü }Ž äÿÉ Ð''©…û s˜©ЭÐ)ßЭÐ)ïТŽ ÐŽ!ÐLvŽÉ…Ðî ÐɆÐî!ÐɇРæü¥ü }ŽL¿›ÉHÐ ­Ð)ïÐL¿›ÉMÐ ­Ð ÐL¿›É0”É9°8é1J…û­Ð ЭÐ)÷Щ8åû…û s˜L¿›  KH … K…üh…û`hh©H©‡Hºêº ·˜ð Å„…® ƒðLEƒ¢½Žœ•JÊÐøLœx¥®…±ûH©7…h`© ç 祮 †¢½  †‹èàÐò¢-½Ìœ'ÊÐ÷†¶Lúœ…­ H­(êêêxŽŒh ¥…®©7…L-žæ¶L  ‹©. «… ø€ ‹  K ‡‹ ]­…ý­…þ©1©êX¥‘ÉÐ ã…­…úLJƒ >ñ®É ð ÉJÐáà ÐÝLž¥ºð7àLÐ … Sœx¥ý¥þºŽL¥œà Ð¥ûiH¥üiHLY … SœL\à`Ð h…üh…û …L_à@Ðh LàÐX¥ûiH¥üiH­ H©þ…û©ÿ…ü'  KªÈ K¨¥®)Ðê…ü†ûL_­ÉfðÉÐî­ɇÐç ã…­…ú©RL~ƒ­ÉþÐÓðêLWžê¤·ð K™ˆÐ÷®š¥ý¥þ®¬¥®LºŽ kL¥œ©©D7LžºŽ¥¶ðå¥Á…û¥Â…üL¥œ¥»ÐÜ¥¼ÉBðLž©n ž «L1 CRA BLOCKS CPU êêê©…¹ ƒðƹ¢Ã ¸„ ¨ž¥Ð ¢ Ѐ¤Ã¥ÄLÞ€LJƒ 2Ÿ¥«ÉðÉÐó©Q©^ ˜ ' «©A  «X¥‘ÉðÖ¥ÅÉ<Ðóx¥¹ð ­<…í=…Ä „­>8í<eÃ…®­?eÄ(í=…¯¢ Ѐ¥Ä¤Ã Þ€ GŸ¥½E×ð©ÿ…` „À­Ð)ïÐÊÐýˆÐúx` ™ŸÉðù…« ÇŸ‘²ÈÀÀÐöð# ™Ÿ ÇŸ‘ÃE×…×æÃÐæÄ¥ÃÅ®¥Äå¯æ ÇŸ ŸÈ„ÀX© x­Ð Ð Êü© Ü Ýý­ ð ­Ÿ(` îŸ Ÿ„שÝ¢ ן&½¥½ÉÐõ  ÇŸÉðùĽEÐè ÇŸˆÐö`©…£ ן&½Æ£Ð÷¥½`©, Üðû­ ÝŽÝH©ÝhJJ` "„ð¢F ð— "„Ðû`"1UGꤷð K™ˆÐ÷®š¥ý¥þ®¬¥®LºŽ kL¥œ©©D7LžºŽ¥¶ðå¥Á…û¥Â…üL¥œ¥»ÐÜ¥¼ÉBðLž©n ž «L1 CRA BLOCKS CPU êêê©…¹ ƒðƹ¢Ã ¸„ ¨ž¥Ð ¢ Ѐ¤Ã¥ÄLÞ€LJƒ 2Ÿ¥«ÉðÉÐó©Q©^ ˜ '"0 ™"“ 1581 ÁUTOSTART ÄEVICE # ÃHANGER"[™" ££££ £££££££££ ££££££££ £££££££"™" BY ÊIM ÃOLLETTE 1/88"°™"ÔHIS PROGRAM CREATES AN AUTOSTART FILE"è(™"CALLED "Ç(34)"ÃÏÐÙÒÉÇÈÔ ÃÂÍ 86"Ç(34)" THAT, WHEN" 2™"THE 1581 IS TUR'#NED ON OR RESET,"8 <™"WILL AUTO-EXECUTE, AND CHANGE THE"f F™"1581'S DEVICE NUMBER. ÔO RESTORE IT TO"” P™"THE DIP-SWITCH SETTING, YOU MUST RESET"¾ Z™"THE 1581 ×/Ï A DISK CONTAINING THE"å d™"ÃÏÐÙÒÉÇÈÔ ÃÂÍ 86 FILE INSERTED." n…"ÃURRENT ÄEVICE '$#";CD x…" ÎEW ÄEVICE #";ND3 ‚A$²Ç(0)ªÇ(3)ªÇ(11)[ ŒA$²A$ªÇ(169)ªÇ(NDª32)ªÇ(133)ªÇ(119)ƒ –A$²A$ªÇ(169)ªÇ(NDª64)ªÇ(133)ªÇ(120)¤  A$²A$ªÇ(76)ªÇ(90)ªÇ(255):P²0á ªT²1¤Ã(A$):P²(257¬(PªÆ(Ê(A$,T,1)))­256)¯255:‚:A$²A$ªÇ(P) ´™"ÉNSERT DISK FOR FÆILE AND HIT A KEY." ¾¡Z$:‹Z$²""§190L ÈŸ15,CD,15,"S0:COPYRIGHT CBM 86,U,W": 15o ÒŸ2,CD,2,"COPYRIGHT CBM 86,U,W"z ܘ2,A$;› æ 2:…"ÄONE! ÁNOTHER DISK";Z$¼ ð‹È(Z$,1)²"Y"°È(Z$,1)²"Ù"§180™"ÃÏÐÙÒÉÇÈÔ ÃÂÍ 86 FILE INSERTED." n…"ÃURRENT ÄEVICE  ©(…w©H…xLZÿs    !‚'!81 DEVICE CHANGE''x©'©©…gL‹¢ÿ „c ð ©¨…b  `±`èà ðîÝ«ÐöŠ8ùØÈÐ÷„˜ e…b ½AЩ# ðL_ÉÐLqÉÐ qLœÉÐ qL¦ÉÐL_ÉÐ _LœÉÐ _L¦ÉЩ( ð _ œ©)LðÉЩ( ð _©) ðL¦É Ð: ©$ ð ±`08e`H ¤aȘ :¥a :h :L8e`H°î¤aˆ˜ :éÉ Ð ©( ð &q©)LðL °©: ðL0 °©, ð 0 / ±b ðÈÀÐö© Lð¥a :¥`L: FH˜ ðhLðHJJJJ S¨hLS)É 0ii0`©$ ð  ±` :L©$ ð ±` : ±` :  Læ`Ð æaÐH©ÿ…fh`©, ð©XLð©, ð©YLð *©.Lð È…˜ È `ÉA80éé0` ÙªLÙ çÉ ðù¨ çL¸ 4ð`L@  ÒÿL (DEMAIL64 20050129  JA 3D  (D»JAÀ(ÿÿÿÿÿ(ÿÿÿÿÿ(ÿÿÿÿÿ(ÿÿÿÿÿ(ÿÿÿÿÿ(ÿÿÿÿÿ(ÿÿÿÿÿ(ÿÿÿÿÿ(ÿÿÿÿÿ(ÿÿÿÿÿ ÀÿøÿÿÿÿD»JAÀ!€ÿÿÿÿ(ÿÿÿÿÿ(ÿÿÿÿÿ(ÿÿÿÿÿ(ÿÿÿÿÿ(ÿÿÿÿÿ(ÿÿÿÿÿ(ÿÿÿÿÿ(ÿÿÿÿÿ(ÿÿÿÿÿ(ÿÿÿÿÿ(ÿÿÿÿÿ(ÿÿÿÿÿ(‚'PROMON 64 JA    !‚'!81 DEVICE CHANGEƒ'%COPYRIGHT CBM 86‚'&1000 MONI ‚)HYPRA-ASS JA‚)HYPRA-ASS       ‚& LABEL->ZEIL.NUMM‚* RENUMBER S33(‚* SEND/RECEIVE-PR5‚ AUSTRO-SPEED '88?ƒ(----------------‚*NMI USERP.1045  d‚%NMI ENHAN.1020  V‚,&NMI SWIFT.1050  !‚#NMI SISU 1020   "‚-LOADSAVE 1083   \(‚ 4-MAIN1030      (‚06-MAIN1132      >‚7-MAIN1132      J‚1A-MAIN1134      D‚B-MAIN1134      D‚3 9-MAIN1134      '‚3-MAIN1136      R‚4 5-MAIN1136      ](‚C-MAIN1136      Y‚68-MAIN1137      ^‚'0-MAIN1138      -‚8'D-MAIN1139      =‚2-MAIN1143      j‚:1-MAIN1144      kƒ(----------------‚"KWIK->ASCII1141 -(‚!DEATTACH1142    (ƒ(----------------ƒ(----------------ƒ(----------------‚=MENUE1131       = EM64README1144  ‚=CONFIG-INPRE1132.‚CONFIG-EMACE1142l( ƒ(----------------‚EM64MAIN1144----H‚>-DEATTACH1142   3‚?&KWIK WRITE      Q‚ -KWIK->ASCII1141J‚A'FILE-SURVEY 2.7E- SURVEY-DOCU.ENG "ƒ(----------------( ‚ &EM64MOAD20 1045 ‚CEM64MOAD21 1045 ‚CEM64MOAD30 1020 ‚C EM64MOAD31 1020 ‚CEM64MOAD40 1050 ‚CEM64MOAD50 1020 ‚CEM64IOSA00KN1083‚C&EM64CHARSET      ÿ‚ EM64COUNTER-FILEƒ(----------------‚ EM64INPR MSN ‚ EM64EMAC EXAMPLEƒ(---------------- 4TESTING EMAIL64)`ž2901:" ‘'hYPRA-aSS mAKRO-aSSEMBLER (c) 1985 bY gERD mOELLMANN (cORRECTED vERSION) s kL®§ð é€Ló§hhL¯` CPXCPYLDXLDYCMPADCANDDECEORINCLDAASLBITLSRORAROLRORSBCSTASTXSTYJMPJSRTXATAXTYATAYTSXTXSPHPPLPPHAPLABRKRTIRTSNOPCLCSECCLISEICLVCLDS)EDDEYINYDEXINXBPLBMIBVCBVSBCCBCSBNEBEQäĦ¤Åe%ÆEæ¥$F&få…†„L Šª˜¨ºš(Hh@`ê8Xx¸ØøˆÈÊè0Pp°Ðð@@Th{{{({({¨¨{¨¨{;ÀÀØ ü+-*/^AO>=ðZÉ<ðV ñ®L L ¯L½®Lj s)ÉNÐ sÉ!ÐLЮ©L yª`hhŠÉ!Ð sª sÉ!Ð⊢ Ý… ðÊÐøðŠi©¢†ML»­H s ñ® ÷·ªhÉ<ðŠ¨ ¢³L ©¢Ž©©¢ Ž ©G¢Ž ©…,©Ø…+©× D¦¢úšLI¨¢†A ±zÝ{ÐȱzÝ|ÐȱzÝ}ðæAèèèà¨ÐÞ©L ¦A½# …;©Lü¨©…> sÉ#ðOÉ(ÐU *¥=Ð yÉ,ð"É)Ð sÉ,ð'Ð s¥AÉЩ …>)Lm ©L s©X ÿ® ÷®æ>Lm s©Y ÿ®Lm 8©…>Lm ©…> yð;É;ð7¢†> - yÉ,Ð" sª sŠÉXð ÉYð©L Æ>¥=ÐÆ>Æ>Lm © …>LV ©…>` yðúÉ;ðö©L ¦>àÐ ¥AÉ°¥;é…;à ð)¥AÉ5ðÉðÉ0L( àЩ…B`àðà Щ…B`¥AÉЩl…;Lµ ©L ©…Bàð à Ð æB¥;i…;`©àð ÊLä ¦A=[ Ц)>àðàÐÉèè†>Lâ ¦>àÐ¥AÉÐ ©…B©¾…;`½v …B½~ e;…;` ­ ÆB¥ýÉô¥<8åûª¥=åü¨Šé…<°ˆÀðÈÐÉ€æ<ÉþÆ<`É€°`©L íÉ€é`¢ ©•]ÊÐû s ±éÉ@°é/ ~½¥ai…aâL~¹¥aé…aL L¯…b„c¢8LI¼¢† † †¥z¤{…I„J y ±° © …©L s ±èLÒ É'ðøè†E©6…©ù¢¿†`…_)ä0JÐÅ/D ±_ÉÿðÍ­ Ð*ˆ±_ͬ Ð"Èȱ_ÅEÐȱ_…Gȱ_…H ±IÑGÐÈÄEÐõL¥¥_8é¦`°´ÊLï hHÉ¿Ð Ÿ¦ýðÊð©L ©,©€ L¢ ¥_¤`Ä.ÐÅ-°L·…/„0 ­¬ ‘_È­­ ‘_È¥E‘_È¥I‘_È¥J‘_¥_¤`iÈ…I„J©7…8` ‘©6… ƒ Ÿ ¦ ` Ÿ©L Û#©…ý…þLb ±zðȱz…9ȱz…:¤{¦zèÐÈŽÁŒÂ  û¨`)8`¥ýÉC­2 Ãÿ©ÿ…:©¬ ­ ¯ ©® ­àð ת  ת ת®Û Éÿ > ¦ Ìÿ­Û ÃÿL{ã xLé$Là ¢úš Ž¦¥+¦,t Žu ©H¢Àà3r Žs ­r ®s …/†0©À¿¬ ­ ¯ ©® Ì°R sÉ.ÐB sÉMðÉRÐ7 sÉTÐîÀ­¿ÍÀ°%© L L¯ s©A ÿ® ±  ¥z‘IÈ¥{‘I©ÿ‘_î¿ © û¨L’æý©¬) ­ ¯ ©® Ž¦ ´ ÌLøL– ±zÉ;ðõÉ ðNÉ.ðJ¥ýÉðȱzð[É Ð÷ û¨Li©ÿ… s ± © …°¥JÍs Ð ¥IÍr °© L ¥ü¦û ‘ yÉÐð s yÉ.ðU _ ±zðÉ;ð©L ­3ð e s © û¨Lþ­3ðï®2 Éÿ W­Á®Â…_†`¢ ‚ ת Ìÿ s © û¨L¢ ±zÝœÐȱzÝð èèà,Ðé© L ½ÉH½ÈH­3) ð e©Lü¨ s ± ©ÿ ‘_L  s ± ©= ÿ®¥JH¥IH -h…Ih…J¥=¦< ‘Ls *q Œp xLs©…B 8…; Ó yÉ,ðñLs©…B  sÉ"ðL™­È±zðÉ"ð …;˜H Óh¨L`È û¨Ls©…B *…<„; Ó yÉ,ðïLs¦ýÊð* çÿ s ô© n¢ ºÿ Àÿ¢ Éÿ¥û Òÿ¥ü Òÿ ÌÿL©€…þL¥ýÉ ©…þ© Ãÿ ÌÿL © û¨  û¨ ) sÉ.Ðî sÉRÐçL­¬ ­ ° s ± ¥{HÒ¥zHÑ©6H… ±I…{ˆ±I…z©7… yÉ(ÐN ¼ yÉ(ÐJ * ¼ Š s ± ¥=¦< ‘ yÉ)ðÉ,Ð) ¼ yÉ,Ð ®L; ¼ yÉ)Ð ¼ ¥L ŠLy© L ­° Ð ­® ®¯ ¬ Ž­ `î¬ Ðî­ `î® Ðî¯ `­° Ð ©¬ ­ `­¬ Ðέ ά `hÉ6Ðh…zh…{hHÉ6Ð ¼L©¬ ­ L) © L ¦ýÊÐ6 sðÉ;ð ± yÉ,Ð sLý¥/¦0r Žs ©È¦{˜ezèt Žu L¥ýÉ÷ Ìÿ¥û¦üp Žq s ô¢  ºÿ©… ®t ¬u uá©…ý¥þð¢ ÉÿLr s Š­¥aÐ ý® - £¨LþL *Lz s Š­¥aðLs ©ÈÈÈÈ û¨ sÉ.Ðï sÉEÐè sÉLðÉIÐÝL¦z¤{­Ñ…z­Ò…{ŽÑŒÒ`¦ýÊð$¥þÐ,¥û¦ü…"†#¦B ) ¥;‘"Êð È¥<‘"ÊðÈ¥=‘"¥Beû…ûæü`¢ Éÿ¦B¥; ÒÿÊð ¥< ÒÿÊð¥=L ÌÿLü s Š­ ÷·…=„<` sÉ"ð -ÉИ` ±z…<ȱzÉ"ÐÈ û¨¥<`LH² ‰ À { ¦ýÊð­3ð NLÓ­p ®q …û†ü` ±I…bˆ±I…c„p` ‘IˆŠ‘I„p`EQBABYTXWOOBENMA..RTCOAPONGOIFELEIGLLISYSTDP*9O{“ÉÞúÇî,i‚ˆ)•¸÷ò¼<x¦z¤{èÐȆ»„¼ È±zÉ"Ðùˆ„·`END OF ASSEMBLY ­Ü €Ü­Ü)þÜ© Ü Ü ÜÜ`© Ü ×ª W©   «­ Ü)i0 Òÿ©: Òÿ­ ܪ)ðJJJJi0 ÒÿŠ)i0 Òÿ©. Òÿ­Ü)i0 ÒÿLתBASE = $ LAST BYTE AT $ W©Œ  «­q 7­p 7©•  «¤ü¦ûЈʘ 7Š 7Lת@ ) j€¦ýÊð7 s ⥸2 Àÿ°,©ÿ3®2 Éÿ ת ת W©Ö  « ת ת Ìÿ eLLùàHJJJJ Bh)i0É:iLÒÿ®2 Éÿ¢ìö°© ÒÿèÐó¥ü 7¥û 7 R¦B¥; 7Êð¥< 7Êð ¥= 7L M M R©: ÒÿLÌÿ­Á®Â…_†`®2 Éÿ M תLÌÿ­3ðL›`¦ýÊð s ⢵·ÚÊø©ÿàL)LùàSYMBOLS IN ALPHABETICAL ORDER:¢½Ú•·Êø Àÿ°Ï®Û Éÿ ת ת ת W©ä  « ת ת z  תLÌÿ¦ýÊð© ÃÿLøL© Òÿ© LÒÿ¢ìö° RèÐõ`®2 Éÿ W¢ RÊÐúLÌÿ 8ô ý® ?õ ý® ?ö ý® ?÷L©…ý…ü¦ð 0BÊÊð-Êð-Êð0 `¥†z„{ sªðóÉ_ðÉ/ð¢ÿ†: y, y¥Lá§LLœL)L\LH©…`¥)… k M תL k©¦zè ½™ûðIÉ;ð'É.ð#É ðèÈLè½ð1É ðöÉ"ðÉ;ðÈ™ûLÈ™ûè½ÐöLUÈ™ûè½ðÉ"ÐòL0È™ý™ûÆ{©ÿ…z¥ €…L¢¤©‘ Òÿ¢© Òÿèà'Ðö©…Ó`­=®< ͽ¢ *©- Òÿ­=…­<…m@<î= `¥†zÈ„{¢­Ð æLLæz ë·¥¤<Œ=Ž@©…L s) ðÉ-ðL¯ k© ¦ yð É-Ðî s k©Ðæ¥Ð©ÿ……` ±_ðȱ_ªÈ±_ÅÐäð°$8` ±_ªÈ±_…`†_`LH² Û¥_¦`…†¥%ªèðæÐæ ¦¥_¦`…$†%8åŠåÑ¥-å$…_¥.å%…`¥e_…-¥e`…. ±$‘æÐææ$Ðæ%¥_8é…_¥`é…`á Y¦ 3¥Lt¤ Û ,¨ ° M ת (LªLt¤ ›·†þ ý® Š­ ÷·¦þa˜C ý®) Š­ ÷·¦þ˜Lt¤½C…½a…†þ ¦¦þ½…½…` ž· í DåLª ›·†þ ý® ë·Ž@¥¦<Ž=¦þ í­<C­=a °­=‘_ˆ­<‘_m@<î= (L>­<8í@¦þ°Î=­=Lt¤©…¦,¥+Ž=<©ÿ…… ¦¥_¦`…+†,LÆ®=­<†,…+ æLt¤ ›·ŽIL s Wâ ®ILºÿ©,©… µ oáLt¤ µ Yá)Lt¤ ›· í ƒ ý® ­  æLt¤¦`¥_i…]è†^©…E ÿæEȱ]ð"ĺð"Ñ»ðó±»É?ðíȱ]Ðûĺðæ]ÐÚæ^LĺÐ¥ÉÐL M ת (Lë ±_ªÈ±_…b†c¢8 I¼ ß½ ‡´ ¦¶L $«®Là°© ÒÿèÐô©- Òÿ ±_É;ðWÉ.ðS±_ð[É ð ÒÿèÈLŽ ÒÿÈèìô°© ÒÿL¢©…"±_ð5 ÒÿÈèÆ"Ðó ?«è±_ð$É;ð ÒÿèÈÐñìõ)°© ÒÿèÐó±_ð ÒÿèÈLá` ›· í ƒ ý® •©…Lå¥H¥H¢ ±_…ȱ_…ÈÄEð ±_ûèL Ä·ð ±¸ûèÈL'¤º±]ûðèÈL7Š¨L¢¤ ¦ M תh…h…¦þ½…½…¥Ee·¨±_ð¦`˜e_…]è†^ˆ„ELLF©…¹…¼©°…¸©Ø…»`LH² ž­ ‚·É&°ó…· ±"‘¸ÈÄ·Ð÷` ž­ ‚·ðÝÉ&°Ù…º ±"‘»ÈĺÐ÷`©…º ´ÿ©o…¹ –ÿ) ¥ÿ ÒÿÉ Ðö «ÿLt¤©$ ת©¨¢ ½ÿ¢ ` ºÿ Õó¥º ´ÿ¥¹ –ÿ©… „û ¥ÿ…þ¤Ð0 ¥ÿ¤Ð)¤ûˆÐé¦þ ͽ© Òÿ ¥ÿ¦Ðªð ÒÿL0© Òÿ L Bö æLÇ© …º ±ÿ©o…¹ “ÿ±zð ¨ÿÈLc ®ÿLt¤¥0Å.Ð¥/Å-ð sÉ!Ð z Lt¤¢¿©ù…E†Fä0}ÐÅ/w ,¨©6… ±EÈEÐV ±E…bˆ±E…cˆ±E…#ˆ±E…"ˆ±E…G©7… ת) W ¢±" ÒÿÈèÄGÐõè ?«ì÷÷ ?«©= Òÿ ?«©$ Òÿ¥b 7¥c 7¥E¦F8é°Ê 7„L”`MVLSADNEGTPFXRIK@!OBUCüyÂÅÒÁ7¦«’ÀÛáíäÆRs.I¹ s°L ¢ÝðÊÐøL¯½/H½EH`©6…¥0H¥/H æL¤¥ð ¥¦…/†0L„©7…h…/h…0`©ù¢¿…†8é…°ʆä0ÐÐÅ/Ê ±…!±…"ȱ…±)…ȱ…±…  ±Ñð°ÈÄ!ðÄ"Ðí¥!Å"𰥦L¨ ±Hˆú ±‘ˆùÈh‘Àø„Lù s  ªLt¤ ?«äÓ°ù`©ÿ ‘+ 3¥¥"¦#8iè…-†.Lt¤©¢Ø ͽ ?«¥,¦+ ͽ ?«¥.¦- ͽ ?«©8å-…c© å.…b ѽ©f ä «Lt¤ *¥…+¥…, D¦Lt¤ ›·É,Ðà°†! ›·¤!Àð Š™ôLt¤LH²ŠöLt¤©…! sÉRðÉHÐçæ! ›·Š ¤!™ ÐLt¤ ÒÿÈèÄGÐõè ?«ì÷÷ ?«©= Òÿ ?«©$ Òÿ¥b 7¥c 7¥E¦F8é°Ê 7„L”`MVLSADNEGTPFXRIK@!OBUCüyÂÅÒÁ7¦«’ÀÛáíäÆRs.I¹ s°L ¢ÝðÊÐøL¯½/H½EH`©6…¥0H¥/H æL¤¥ð ¥¦…/†0L„©7…h…/h…0`©ù¢¿…†8é…°ʆä0ÐÐÅ/Ê ±…!±…"ȱ…±)`ž2901:" ‘'hYPRA-aSS mAKRO-aSSEMBLER (c) 1985 bY gERD mOELLMANN (cORRECTED vERSION) s kL®§ð é€Ló§hhL¯` CPXCPYLDXLDYCMPADCANDDECEORINCLDAASLBITLSRORAROLRORSBCSTASTXSTYJMPJSRTXATAXTYATAYTSXTXSPHPPLPPHAPLABRKRTIRTSNOPCLCSECCLISEICLVCLDS)EDDEYINYDEXINXBPLBMIBVCBVSBCCBCSBNEBEQäĦ¤Åe%ÆEæ¥$F&få…†„L Šª˜¨ºš(Hh@`ê8Xx¸ØøˆÈÊè0Pp°Ðð@@Th{{{({({¨¨{¨¨{;ÀÀØ ü+-*/^AO>=ðZÉ<ðV ñ®L L ¯L½®Lj s)ÉNÐ sÉ!ÐLЮ©L yª`hhŠÉ!Ð sª sÉ!Ð⊢ Ý… ðÊÐøðŠi©¢†ML»­H s ñ® ÷·ªhÉ<ðŠ¨ ¢³L ©¢Ž©©¢ Ž ©G¢Ž ©…,©Ø…+©× D¦¢úšLI¨¢†A ±zÝ{ÐȱzÝ|ÐȱzÝ}ðæAèèèà¨ÐÞ©L ¦A½# …;©Lü¨©…> sÉ#ðOÉ(ÐU *¥=Ð yÉ,ð"É)Ð sÉ,ð'Ð s¥AÉЩ …>)Lm ©L s©X ÿ® ÷®æ>Lm s©Y ÿ®Lm 8©…>Lm ©…> yð;É;ð7¢†> - yÉ,Ð" sª sŠÉXð ÉYð©L Æ>¥=ÐÆ>Æ>Lm © …>LV ©…>` yðúÉ;ðö©L ¦>àÐ ¥AÉ°¥;é…;à ð)¥AÉ5ðÉðÉ0L( àЩ…B`àðà Щ…B`¥AÉЩl…;Lµ ©L ©…Bàð à Ð æB¥;i…;`©àð ÊLä ¦A=[ Ц)>àðàÐÉèè†>Lâ ¦>àÐ¥AÉÐ ©…B©¾…;`½v …B½~ e;…;` ­ ÆB¥ýÉô¥<8åûª¥=åü¨Šé…<°ˆÀðÈÐÉ€æ<ÉþÆ<`É€°`©L íÉ€é`¢ ©•]ÊÐû s ±éÉ@°é/ ~½¥ai…aâL~¹¥aé…aL L¯…b„c¢8LI¼¢† † †¥z¤{…I„J y ±° © …©L s ±èLÒ É'ðøè†E©6…©ù¢¿†`…_) ä0JÐÅ/D ±_ÉÿðÍ­ Ð*ˆ±_ͬ Ð"Èȱ_ÅEÐȱ_…Gȱ_…H ±IÑGÐÈÄEÐõL¥¥_8é¦`°´ÊLï hHÉ¿Ð Ÿ¦ýðÊð©L ©,©€ L¢ ¥_¤`Ä.ÐÅ-°L·…/„0 ­¬ ‘_È­­ ‘_È¥E‘_È¥I‘_È¥J‘_¥_¤`iÈ…I„J©7…8` ‘©6… ƒ Ÿ ¦ ` Ÿ©L Û#©…ý…þLb ±zðȱz…9ȱz…:¤{¦zèÐÈŽÁŒÂ  û¨`)!8`¥ýÉC­2 Ãÿ©ÿ…:©¬ ­ ¯ ©® ­àð ת  ת ת®Û Éÿ > ¦ Ìÿ­Û ÃÿL{ã xLé$Là ¢úš Ž¦¥+¦,t Žu ©H¢Àà3r Žs ­r ®s …/†0©À¿¬ ­ ¯ ©® Ì°R sÉ.ÐB sÉMðÉRÐ7 sÉTÐîÀ­¿ÍÀ°%© L L¯ s©A ÿ® ±  ¥z‘IÈ¥{‘I©ÿ‘_î¿ © û¨L’æý©¬)" ­ ¯ ©® Ž¦ ´ ÌLøL– ±zÉ;ðõÉ ðNÉ.ðJ¥ýÉðȱzð[É Ð÷ û¨Li©ÿ… s ± © …°¥JÍs Ð ¥IÍr °© L ¥ü¦û ‘ yÉÐð s yÉ.ðU _ ±zðÉ;ð©L ­3ð e s © û¨Lþ­3ðï®2 Éÿ W­Á®Â…_†`¢ ‚ ת Ìÿ s © û¨L¢ ±zÝœÐȱzÝð èèà,Ðé© L ½ÉH½ÈH­3)#ð e©Lü¨ s ± ©ÿ ‘_L  s ± ©= ÿ®¥JH¥IH -h…Ih…J¥=¦< ‘Ls *q Œp xLs©…B 8…; Ó yÉ,ðñLs©…B  sÉ"ðL™­È±zðÉ"ð …;˜H Óh¨L`È û¨Ls©…B *…<„; Ó yÉ,ðïLs¦ýÊð* çÿ s ô© n¢ ºÿ Àÿ¢ Éÿ¥û Òÿ¥ü Òÿ ÌÿL©€…þL¥ýÉ ©…þ© Ãÿ ÌÿL © û¨  û¨ )$sÉ.Ðî sÉRÐçL­¬ ­ ° s ± ¥{HÒ¥zHÑ©6H… ±I…{ˆ±I…z©7… yÉ(ÐN ¼ yÉ(ÐJ * ¼ Š s ± ¥=¦< ‘ yÉ)ðÉ,Ð) ¼ yÉ,Ð ®L; ¼ yÉ)Ð ¼ ¥L ŠLy© L ­° Ð ­® ®¯ ¬ Ž­ `î¬ Ðî­ `î® Ðî¯ `­° Ð ©¬ ­ `­¬ Ðέ ά `hÉ6Ðh…zh…{hHÉ6Ð ¼L©¬ ­ L)%© L ¦ýÊÐ6 sðÉ;ð ± yÉ,Ð sLý¥/¦0r Žs ©È¦{˜ezèt Žu L¥ýÉ÷ Ìÿ¥û¦üp Žq s ô¢  ºÿ©… ®t ¬u uá©…ý¥þð¢ ÉÿLr s Š­¥aÐ ý® - £¨LþL *Lz s Š­¥aðLs ©ÈÈÈÈ û¨ sÉ.Ðï sÉEÐè sÉLðÉIÐÝL¦z¤{­Ñ…z­Ò…{ŽÑŒÒ`¦ýÊð$¥þÐ,¥û¦ü…"†#¦B )&¥;‘"Êð È¥<‘"ÊðÈ¥=‘"¥Beû…ûæü`¢ Éÿ¦B¥; ÒÿÊð ¥< ÒÿÊð¥=L ÌÿLü s Š­ ÷·…=„<` sÉ"ð -ÉИ` ±z…<ȱzÉ"ÐÈ û¨¥<`LH² ‰ À { ¦ýÊð­3ð NLÓ­p ®q …û†ü` ±I…bˆ±I…c„p` ‘IˆŠ‘I„p`EQBABYTXWOOBENMA..RTCOAPONGOIFELEIGLLISYSTDP*9O{“ÉÞúÇî,i‚ˆ)'•¸÷ò¼<x¦z¤{èÐȆ»„¼ È±zÉ"Ðùˆ„·`END OF ASSEMBLY ­Ü €Ü­Ü)þÜ© Ü Ü ÜÜ`© Ü ×ª W©   «­ Ü)i0 Òÿ©: Òÿ­ ܪ)ðJJJJi0 ÒÿŠ)i0 Òÿ©. Òÿ­Ü)i0 ÒÿLתBASE = $ LAST BYTE AT $ W©Œ  «­q 7­p 7©•  «¤ü¦ûЈʘ 7Š 7LתHYPRA-ASS AS*SEMBLERLISTING:¦ýÊð7 s ⥸2 Àÿ°,©ÿ3®2 Éÿ ת ת W©Ö  « ת ת Ìÿ eLLùàHJJJJ Bh)i0É:iLÒÿ®2 Éÿ¢ìö°© ÒÿèÐó¥ü 7¥û 7 R¦B¥; 7Êð¥< 7Êð ¥= 7L M M R©: ÒÿLÌÿ­Á®Â…_†`®2 Éÿ M תLÌÿ­3ðL›`¦ýÊð s ⢵·ÚÊø©ÿàL*LùàSYMBOLS IN ALPHABETICAL ORDER:¢½Ú•·Êø Àÿ°Ï®Û Éÿ ת ת ת W©ä  « ת ת z  תLÌÿ¦ýÊð© ÃÿLøL© Òÿ© LÒÿ¢ìö° RèÐõ`®2 Éÿ W¢ RÊÐúLÌÿ 8ô ý® ?õ ý® ?ö ý® ?÷L©…ý…ü¦ð 0BÊÊð-Êð-Êð0 `¥†z„{ sªðóÉ_ðÉ/ð¢ÿ†: y, y¥Lá§LLœL*L\LH©…`¥)… k M תL k©¦zè ½™ûðIÉ;ð'É.ð#É ðèÈLè½ð1É ðöÉ"ðÉ;ðÈ™ûLÈ™ûè½ÐöLUÈ™ûè½ðÉ"ÐòL0È™ý™ûÆ{©ÿ…z¥ €…L¢¤©‘ Òÿ¢© Òÿèà'Ðö©…Ó`­=®< ͽ¢ *©- Òÿ­=…­<…m@<î= `¥†zÈ„{¢­Ð æLLæz ë·¥¤<Œ=Ž@©…L s* ðÉ-ðL¯ k© ¦ yð É-Ðî s k©Ðæ¥Ð©ÿ……` ±_ðȱ_ªÈ±_ÅÐäð°$8` ±_ªÈ±_…`†_`LH² Û¥_¦`…†¥%ªèðæÐæ ¦¥_¦`…$†%8åŠåÑ¥-å$…_¥.å%…`¥e_…-¥e`…. ±$‘æÐææ$Ðæ%¥_8é…_¥`é…`á Y¦ 3¥Lt¤ Û ,¨ ° M ת (LªLt¤ ›·†þ ý® Š­ ÷·¦þa˜C ý®* Š­ ÷·¦þ˜Lt¤½C…½a…†þ ¦¦þ½…½…` ž· í DåLª ›·†þ ý® ë·Ž@¥¦<Ž=¦þ í­<C­=a °­=‘_ˆ­<‘_m@<î= (L>­<8í@¦þ°Î=­=Lt¤©…¦,¥+Ž=<©ÿ…… ¦¥_¦`…+†,LÆ®=­<†,…+ æLt¤ ›·ŽIL s Wâ ®ILºÿ©,©… µ oáLt¤ µ Yá*Lt¤ ›· í ƒ ý® ­  æLt¤¦`¥_i…]è†^©…E ÿæEȱ]ð"ĺð"Ñ»ðó±»É?ðíȱ]Ðûĺðæ]ÐÚæ^LĺÐ¥ÉÐL M ת (Lë ±_ªÈ±_…b†c¢8 I¼ ß½ ‡´ ¦¶L $«®Là°© ÒÿèÐô©- Òÿ ±_É;ðWÉ.ðS±_ð[É ð ÒÿèÈLŽ ÒÿÈèìô°© ÒÿL¢©…"±_ð5 ÒÿÈèÆ"Ðó ?«è±_ð$É;ð ÒÿèÈÐñìõ*°© ÒÿèÐó±_ð ÒÿèÈLá` ›· í ƒ ý® •©…Lå¥H¥H¢ ±_…ȱ_…ÈÄEð ±_ûèL Ä·ð ±¸ûèÈL'¤º±]ûðèÈL7Š¨L¢¤ ¦ M תh…h…¦þ½…½…¥Ee·¨±_ð¦`˜e_…]è†^ˆ„ELLF©…¹…¼©°…¸©Ø…»`LH² ž­ ‚·É&°ó…· ±"‘¸ÈÄ·Ð÷` ž­ ‚·ðÝÉ&°Ù…º ±"‘»ÈĺÐ÷`©…º ´ÿ©o…¹ –ÿ* ¥ÿ ÒÿÉ Ðö «ÿLt¤©$ ת©¨¢ ½ÿ¢ ` ºÿ Õó¥º ´ÿ¥¹ –ÿ©… „û ¥ÿ…þ¤Ð0 ¥ÿ¤Ð)¤ûˆÐé¦þ ͽ© Òÿ ¥ÿ¦Ðªð ÒÿL0© Òÿ L Bö æLÇ© …º ±ÿ©o…¹ “ÿ±zð ¨ÿÈLc ®ÿLt¤¥0Å.Ð¥/Å-ð sÉ!Ð z Lt¤¢¿©ù…E†Fä0}ÐÅ/w ,¨©6… ±EÈEÐV ±E…bˆ±E…cˆ±E…#ˆ±E…"ˆ±E…G©7… ת* W ¢±" ÒÿÈèÄGÐõè ?«ì÷÷ ?«©= Òÿ ?«©$ Òÿ¥b 7¥c 7¥E¦F8é°Ê 7„L”`MVLSADNEGTPFXRIK@!OBUCüyÂÅÒÁ7¦«’ÀÛáíäÆRs.I¹ s°L ¢ÝðÊÐøL¯½/H½EH`©6…¥0H¥/H æL¤¥ð ¥¦…/†0L„©7…h…/h…0`©ù¢¿…†8é…°ʆä0ÐÐÅ/Ê ±…!±…"ȱ…±* …ȱ…±…  ±Ñð°ÈÄ!ðÄ"Ðí¥!Å"𰥦L¨ ±Hˆú ±‘ˆùÈh‘Àø„Lù s  ªLt¤ ?«äÓ°ù`©ÿ ‘+ 3¥¥"¦#8iè…-†.Lt¤©¢Ø ͽ ?«¥,¦+ ͽ ?«¥.¦- ͽ ?«©8å-…c© å.…b ѽ©f ä «Lt¤ *¥…+¥…, D¦Lt¤ ›·É,Ðà°†! ›·¤!Àð Š™ôLt¤LH²ŠöLt¤©…! sÉRðÉHÐçæ! ›·Š ¤!™ ÐLt¤ ÒÿÈèÄGÐõè ?«ì÷÷ ?«©= Òÿ ?«©$ Òÿ¥b 7¥c 7¥E¦F8é°Ê 7„L”`MVLSADNEGTPFXRIK@!OBUCüyÂÅÒÁ7¦«’ÀÛáíäÆRs.I¹ s°L ¢ÝðÊÐøL¯½/H½EH`©6…¥0H¥/H æL¤¥ð ¥¦…/†0L„©7…h…/h…0`©ù¢¿…†8é…°ʆä0ÐÐÅ/Ê ±…!±…"ȱ…±* À ý® ë·†¥…ý¥…þ©…§…¨ yÉ,Ð* sÉ«ðL¯ k©¥…§¥…¨ yÉ«Ðë s k©¥Ð©ÿ…=Ð¥…=¥…>x Ž¦ ±zÐL¶Á  û¨ s ÂÉðèÉËðɉð"ÉðɧðÉŠðÉ›ÐÞ sÉ«ð ÐÖ sɤÐÌ s¦z†¦{†Ž k©¥…û¥…ü ½À yÉ,ðàÐÑ òÁ ±_ð.È !ÂÅ>Ðä=ð° ÅüÐäûð°¥e‹…‹挠 !†_…`LÀÀ`¥‹…c¥Œ…* b¢8 I¼ ß½ ÿȹÐú„¥z8å8åÐLšÁJ…«¥z…;å«…9¥{…<é…:H8¥-åz…©¥.å{…ª ¦ªð±;‘9ÈÐùæ<æ:ÊÐò¦©ð±;‘9ÈÊÐø¥9…zh…{LšÁ8…«©å«…«e-…X¥.…[i…Y¥-…Z¥z…_e«H¥{…`iH ¿£h…{h…z¤ˆ¹‘ˆø 3¥¥"i…-¥#i….` òÁ ±_ÐX `¦LãÈ !ÂÅ>Ðä=ð°ë¥Œ‘_ˆ¥‹‘_e…‹挠 !†_…`L¹Á¥ý…‹¥þ…Œ/¥§…¥¨…L¦Éð É"ð ɃЩ:,©ª © û¨ y`±_ªÈ±_`¥…§¥…¨ yÉ«Ðë s k©¥Ð©ÿ…=Ð¥…=¥…>x Ž¦ ±zÐL¶Á  û¨ s ÂÉðèÉËðɉð"ÉðɧðÉŠðÉ›ÐÞ sÉ«ð ÐÖ sɤÐÌ s¦z†¦{†Ž k©¥…û¥…ü ½À yÉ,ðàÐÑ òÁ ±_ð.È !ÂÅ>Ðä=ð° ÅüÐäûð°¥e‹…‹挠 !†_…`LÀÀ`¥‹…c¥Œ…*dRO$²Ç(27)ªÇ(45)ªÇ(0)En™"“DRUCKT EMAIL64 GEPUFFERTE DATEN AUSax™"SEND DATEN: A100-AEFF€‚™"RECEIVE DATEN: E000-EDFF•Œ™"SEND/RECEIVE?"²–¡A$:‹A$³±"S"¯A$³±"R"§150â BE²41216:ED²44799:‹A$²"R"§BE²57344:ED²60927 ª™"WARTEN, ERMITTLE EN*DE DER DATEN (MAX 3,5KB)8 ´™"DRUCKER EINSCHALTENa ¾I²679¤704:‡A:—I,A:‚:—785,167:—786,2ª ȃ120,32,247,183,140,182,2,141,183,2,165,2,133,1,172,0,0,169,55,133,1À Òƒ32,162,179,88,96ß ÜA$²"":H$²"0123456789ABCDEFù æI²ED¤BE©«1:‹·(I)²0§‚ *ðEN²I:I²BE:‚3 úŸ4,4,0 :˜4,Ç(27)Ç(103)Ç(27)Ç(82)Ç(0);U ˜4,Ç(27)Ç(116)Ç(1)Ç(27)Ç(54);{ ˜4,Ç(27)Ç(68)Ç(50)Ç(0);: HOR TAB¦ ™"BEGINN"BE:™"ENDE";EN:™"LAENGE";EN«BE³ "I²BE¤EN¾ ,A²·(I)Î 6‹A³±126§370à ;™I«BE"/"EN«BEë @˜4,A$;ù J˜4,Ç(9)B$* TZ²0:A$²"":B$²"" ^˜4,"7E! h‰4906 r‹A²125§ES²1:‰490D |‹ES²0§420c †ES²0:‹(A¯32)²0§A²A°32:‰410o A²A¯223Š šA$²A$ªÇ(27)ªÇ(45)ªÇ(1)¼ ¤A$²A$ªÊ(H$,A­16ª1,1)ªÊ(H$,(A¯15)ª1,1)ªRO$ª" "Õ ®B²A:‹B³32°B±126§B²32è ¸B$²B$ªÇ(B)ª" "ü ÂZ²Zª1:‹Z³16b§490 ̘4,A$; Ö˜4,Ç(9)B$) àZ²0:A$²"":B$²""/ ê‚: ô˜4,A$;H þ˜4,Ç(9)B$V ˜4,Ç(12);Ç(27)Ç(68)Ç(50)Ç(0);: HOR TAB¦ ™"BEGINN"BE:™"ENDE";EN:™"LAENGE";EN«BE³ "I²BE¤EN¾ ,A²·(I)Î 6‹A³±126§370à ;™I«BE"/"EN«BEë @˜4,A$;ù J˜4,Ç(9)B$*Øæ;LI4,4,11î;" .EQFLCOOO=1;FLOW CONTROLL OFF (0) ON (1)T  .EQCOLINI=1;CONTROLL-LINES NORMAL (0) INVERTED (1)  .EQTXTASO=0;TRANSMIT TIMER A SWITCHING OFF (0) ON (1)É ( .EQRXTBSO=1;RECEIVE TIMER B SWITCHING OFF (0) ON (1)ý 2;OFF=DA*UERND-EIN ON=WIRD OFF- UND ON-GESCHALTET&!¨;.EQ COREBI=$A8;COUNTER RECEIVE BITSH!©.EQ RSNMFL=$A8;RS232 NMIFLAGSn!ª.EQ RXDBYT=$AA;RECEIVED DATA BYTEš!´.EQ COTRBI=$B4;COUNTER TRANSMITTED BITSÂ!µ.EQ TXDBIT=$B5;TRANSMITTED DATA BITë!¶.EQ TXDBYT=$*B6;TRANSMITTED DATA BYTE"÷;F7,F8=ENDEVECTOR SCHREIBEN TAIL7"û;FB,FC=ANFANGVECTOR LESEN HEADZ"ý;.EQ RSNMFL=$FD;RS232 NMIFLAGS‚"H.EQ MOADTY=$0348;MODEM ADAPTER TYPE²"I.EQ RESTLO=$0349;RECEIVE STARTBIT LOW TIMETã"J.EQ RESTHI=$034A;RECEIVE S*TARTBIT HIGH TIMER#K.EQ RENOLO=$034B;RECEIVE NORMALBIT LOW TIMERF#L.EQ RENOHI=$034C;RECEIVE NORMALBIT HIGH TIMERt#M.EQ SENOLO=$034D;SEND NORMALBIT LOW TIMER£#N.EQ SENOHI=$034E;SEND NORMALBIT HIGH TIMERÆ#„.EQ VIRAST=$C800;VIDEORAMSTART$Ž.EQ *VIBADD=$00;VIDEOBANK$DD00-VALUE (=C000-FFFF C800)$;3=%11 =0000-3FFF,$;2=%10 =4000-7FFFB$‘;1=%01 =8000-BFFFX$’;0=%00 =C000-FFFFf$' .BA$C000„$' JMPL11520;INITIALISIEREN¢$$' JMPL12550;RS232 BYTE OUTÂ$.' JMPL13080;RS232 PUFFER OUTð$8' JMPL1*4080;RECEIVE BYTE DIREKT ANSPRINGEN%B' JMPL13470;NMI AUS (Z.B.VOR LOAD)E%G' RTS;IRQ-TIMER ON (WIRD NIE AUSGESCHALTET)U%H' .BY$00,$00l%L' JMPL13920;NMI EINœ%V' JMPL14230;VERBINDUNG TRENNE MODEM LEGT AUF¹%`' JMPL14340;ADAPTER RESETà%j';------------*---------------------&t';KEINE PAGEUEBERSCHREITUNG IN NMI ROUTINEB&~'; (NMI) ;7?‚&ˆ'L10120 SEI;2 NMI RAM VECTOR KOPIE DER NMI ROUTINEÏ&’'; (JMP ($0318)) ;(5) FALLS ROM EINGESC*HALTET'œ'L10140 PHA;3 NMI ROM VECTOR ------F'¦' TXA;2 OBWOHL DD0D NMIS ERLAUBEN WUERDE, KANN HIER{'°' PHA;3 KEIN WEITERER NMI AUSGELOEST WERDEN, WEIL°'º' TYA;2 DIE NMI LEITUNG DAUERLOW IST UND DERN NMIÐ'Ä' PHA;3 FLANKENGEST*EUERT IST (Î' CLD;2 KEIN UNTERLAUF UNTERLAUFI(Ø' LDX$DD07;4 HB TB (1) 00 01 00X(â' LDA#$7F;2—(ì' STA$DD0D;4 CIA LOEST KEINE NMIS MEHR AUS ------Ü(ö'L10230 LDA$DD0D;4 NMI-IRQ STATUSREGISTER * ------)(L10240 BPLL10880;2/3 B.I.KEIN CIA-NMIK) (L10250 CPX$DD07;4 HB TB (2) 00 00 01‰)(;!FALLS 4800 BAUD (EVTL.BEI 2MHZ-C128 ODER F8 ODER SCPU),Ë)(;DANN IST DAS HIGHBYTE DES TIMERS IMMER 0 (TIMERWERT *CA. 205) *((;=>TIMER-B-UNTERLAUF KANN DAMIT NICHT FESTGESTELLT WERDENN*2(;ABHILFE: EVTL. DD08 = LOWBYTE TIMER ANSTELLE VON DD07 BENUTZEN?*<( LDY$DD01;4 PARALLELPORT (=RXD) !R1!Í*F( BCSL10360;2/3 B.I.TI.B NICHT UNTERGEL. S S* C+P(;TIMER B HATFEHLER: WENN DD0D AUSLIEST ZU DEM ZEITPUNKTAN DEM ER EIN IRQV+Z(;AUSLOESEN WUERDE, DANN LOEST ER EVTL. GAR KEIN IRQ AUS|+d( ORA#$02;2 SETZT TIMER B IRQ-FLAG¶+n( ORA$DD0D;4 LOESCHT IRQ-FLAG FALLS ER DOCH IRQ MACHTEæ+x(L103*60 ANDRSNMFL;3 MASKE FUER ERLAUBTE NMISñ+‚( TAX;2ü+Œ( LSR;2/,–( BCCL10430;2/3 B.I.KEIN TIMER-A TRANSMIT NMI" s, (L10400 LDA#$00;2 #$00/04 #$03/07 =TIMER A NMI (TRANSMIT) !T1!»,ª(;!ROUTINE GEHT DAVON AUS,DASS ALLE SERIELLEN LEITUNGEN INAKTIV SINDê* ,´( STA$DD00;4 GIBT BERECHNETES DATABIT AUS" û,¾(L10430 TXA;2 -È( AND#$10;2I-Ò( BEQL10620;2/3 B.I.KEIN FLAG-NMI !KEINE PAGEUEBERSCHR.!" ‡-Ü( LDA#$11;2 =FLAG-NMI !F!Â-æ(L10470 STA$DD0F;4 FORCE-LOAD CONTINUOUS START *!TIMER B.ð(;SETZT ABER (VERMUTLICH) TIMER-B-NMI-FLAG IN DD0D NICHT ZURUECK).ú( LDA#$12;2 VERHINDERT FLAG-NMIM.) EORRSNMFL;3 ERLAUBTTIMER B NMI^.) STARSNMFL;3.) STA$DD0D;4 ERLAUBT NMIS ------á.")L10530 LDA#$00;2 RECEIV*"E NORMAL BIT TIMERWERT ++++++/,) STA$DD06;4 (DER STARTBIT.TIMERWERT WURDE BEIM ENDEH/6)L10550 LDA#00;2 DES VORGANGERBYTES GESETZTX/@) STA$DD07;4q/J) LDA#$80;2 %10000000‚/T) STARXDBYT;3Ä/^) INCVIRAST+1;6 *# !F!0h) JMPL10730;3 CARRY BLIEB GLEICH ++++++ 0r);P0|)L10620 LDARSNMFL;3 ------•0†)L10630 STA$DD0D;4 NMI ERLAUBEN ------Ï0) TXA;2 *$ ++++++Þ0š) AND#$02;21¤) BEQL10730;2/3 B.I.KEIN TIMER B NMI CARRY=TIMER A NMIFLAG" X1®) TYA;2 =TIMER B RECEIVE NMI !R2!z1¸) LSR;2 RECEIVED DATA -> CARRY‹1Â) RORRXDBYT;5Ë1Ì) BCSL10910;2/3 B.I. ALLE 8 BITS EIN*%ES BYTES ERHALTEN !R2! 2Ö)L10710 TXA;2 ++++++02à) LSR;2 CARRY=OB TRANSMIT-NMI WARd2ê)L10730 BCCL10820;2/3 B.I.KEIN TIMER A NMI WAR" ¤2ô) DECCOTRBI;5 =TIMER A NMI = WAR TRANSMIT-NMI !T2!á2þ) BMIL113*&90;2/3 B.I.ALLE 8 BIT SCHON AUSGEGEBEN UND JETZTÿ2*;STOPPBIT AUSGEGEBEN WIRD3* LDA#$04+VIBADD;2U3* RORTXDBYT;5 CARRY MUSS HIGH SEIN DAMIT STOPPBIT REINROTIERh3&* BCSL10810;2/3¦30* LDA#$00+VIBADD;2 #$03 GEHT DAVON AUS,DASS LEITUNGEN DESî3:*L108*'10 STAL10400+1;4 SERIELLEN BUSSES INACTIV SIND !T2!ÿ3D*L10820 PLA;4 4N* TAY;24X* PLA;4 4b* TAX;2+4l* PLA;4?4v* RTI;6 ----" s4€*L10880 LDARSNMFL;=KEIN CIA-NMI (RESTORE-TASTE?)Ž4Š* STA$DD0D;NMI ERLAUBEN¦4”* JMPL10820;------" ì4ž*L1+0910 LDYRXDBYT;3 =ALLE 8 BITS EINES BYTES EMPFANGEN !R3!:5¨*;WICHTIG,DASS RXDBYT GELESEN WIRD,BEVOR DER FLAG-NMI DIESE SPEICHERSTELLEL5²*;UBERSCHREIBTa5¼*L10940 LDA#$00;2Ÿ5Æ* STA$DD06;4 TIMER B STARTWERT SETZEN F.NAECHSTEN FLAG-NMI´5Ð*L10960 +LDA#$00;2Ä5Ú* STA$DD07;4Õ5ä* .IFRXTBSO=1ä5î* LDA#$00;26ø* STA$DD0F;4 TIMER B ANHALTEN (EVTL UEBERFLUESSIG?)$6+ .EIo6 +;TIMER B MUSS NICHT AUSGESCHALTET WERDEN? LAUFT ZWAR WEITER, KANN ABERŸ6+;KEIN NMI AUSLOESEN, WEIL IN DD0D GELOESCHTê6 +;UND +TIMER B WIRD IN NMIR ROUTINE NICHT BEARBEITET, WEIL MASKENBIT LOW 7*+;KLAPPT ABER TROTZDEM NICHT.R74+;EVTL.:FALLS NAECHSTER FLAG-NMI KOMMT,DIESER ABGEARBEITET WIRD UND¡7>+;FALLS GENAU ZWISCHEN L10360 - L10530 TIMER B UNTERLAEUFT,DANN WIRD SOFORTÔ7H+;+EIN RECEIVE-NMI AUSGELOEST (VIEL ZU FRUEH)???8R+ LDA#$7F;2 !R3!Q8\+ STA$DD0D;4 NMI VERHINDERN ++++++8f+ STA$DD0D;4 ------Ÿ8p+ LDA#$12;2°8z+ +EORRSNMFL;3Á8„+ STARSNMFL;39Ž+ STA$DD0D;4 NMI ERLAUBEN ------:9˜+ CLC;2 NICHT SEC E= E100 EDFF E2FF ECFFw9¢+ LDA$FB;3 ANFANG LOW 01 C 00 C 00 C 00 C²9¬+ SBC$F7;3 END LOW C=LO =>-01 -00 +-FF -FF -FFò9¶+ BEQL11330;2/3 00 S 00 C 00 C 00 C :À+L11200 TYA;2 RXDBYT:Ê+ LDY#$00;2H:Ô+ STA($F7),Y;6 PUFFER NICHT VOLL=>SCHREIBEN„:Þ+;ROUTINE GEHT DAVON AUS,DASS NIE XON/XOFF GESENDET WIRD¢:è+ INC$F7;5 VECTOR ERHOEHE+N¸:ò+ BNEL10710;2/3 " Æ:ü+ LDY$F8;5Ñ:, INY;2à:, CPY#$EE;2ó:, BNEL11310;2/3;$, LDY#$E0;2E;.,L11310 STY$F8;3 !R3!a;8, JMPL10710;3 -----" ¤;B,L11330 LDA$FC;3 ANFANG HIGH E1 S E0 C E3 C + E0 Cß;L, SBC$F8;3 ENDE HIGH -E1 -ED -E2 -ECÄ, STY$DD0D;4 ------%>Î, ANDRSNMFL;3 LOESCHT TIMER A NMIe>Ø, STARSNMFL;3 !T3!¤>â, STA$DD0D;4 NMI ERLAUBEN + ------¾>ì, JMPL10820;3 -----" å>ö,;---------------------------------?-L11520 SEI;INITIALISIEREN? - LDX#$81?- LDA#$80E?- LDY$02A6;NTSC (0) PAL (1) 50/60HZ\?(- BNEL11590;B.I.PALi?2- LDX#$01w?<- ASL;#$00¸?F-L11590 STX$DC0E;WICHTIG,DAS+ S GLEICH AM ANFANG DAMIT SERIELLEï?P- STA$DD0E;PORT AUF EINGANG FALLS ENHANCED USERPORT@Z- .IFTXTASO=1@d- STAL11400+1;TIMER A OFF&@n- .EIC@x- STAL13750+1;TIMER A OFFp@‚- ORA#$11;TIMER: FORCE LOAD CONTINUOUS ON@Œ- .IFTXTASO=1º@–- STAL12770+1;TI+ MER A ON (=OFF/ON SCHALTEN V.TIMER A)Ã@ - .ELà@ª- TAX;=TIMER A DAUERND ONé@´- .EIA¾- STAL13990+1;TIMER A ONAÈ- LDA$DD00 AÒ- ORA#$04CAÜ- STA$DD00;PIN M (TXD) AUF HIGHQAæ- LDA$DD02^Að- ORA#$04~Aú- STA$DD02;PIN M AUF AUSGANGA. .IFCOLINI=0£A+ . LDA#$06;NORMAL¬A. .ELÄA". LDA#$00;INVERTIERTÍA,. .EIðA6. STA$DD01;DTR & RTS AUF ACTIVEB@. LDA#$06;DTR & RTS AUFAUSGANG BJ. STA$DD03/BT. LDARESTLO@B^. STAL10940+1NBh. STA$DD06]Br. LDARESTHInB|. STAL10960+1|B†. STA$DD07‹B. LDARENOLOœBš. +STAL10530+1«B¤. LDARENOHI¼B®. STAL10550+1ËB¸. LDASENOLOáBÂ. STA$DD04;TIMER AúBÌ. STAL13940+1;NMI EIN CÖ. LDASENOHICà. STA$DD050Cê. STAL13960+1;NMI EINACô. .IFTXTASO=0rCþ. STX$DD0E;TIMER A EIN (=TIMER A DAUERND ON){C/ .EIˆC/ LDX#$00¢C/ S+TX$DD0F;TIMER B OFF«C&/ DEX¿C0/ STXCOTRBI;#$FFÒC:/ LDA#<(L10140)åCD/ LDX#>(L10140)DN/ STA$0318;NMI ROM VECTORDX/ STX$0319#Db/ LDA#<(L10120)6Dl/ LDX#>(L10120)SDv/ STA$FFFA;NMI RAM VECTORaD€/ STX$FFFBnDŠ/ LDA#$7FD”/ STA$DD0D;ALLE CIA-NMI AUS+›Dž/ STA$DD0DÅD¨/ LDA#$90;FLAG-NMI ERLAUBEN %10010000ÔD²/ STARSNMFLâD¼/ STA$DD0DôDÆ/ RTS;----" EÐ/;---------------------------------,EÚ/ .IFFLCOOO=1@Eä/L12260 LDX$DC01MEî/ CPX#$FFvEø/ BEQL12580;B.I.KEINE TASTE GEDRUECKT¬E0 STYL12360+1;WIC+HTIG,FALLS ZAHLER F.PUFFER SENDEN¹E 0 LDX#$7FÇE0 STX$DC00ÔE 0 LDY#$00ÝE*0 NOPëE40 LDX$DC01ùE>0 STY$DC00 FH0L12360 LDY#$00FR0 CPX#$FDBF\0 BNEL12580;B.I.ESCAPE NICHT GEDRUCKTTFf0 RTS;------" ]Fp0 .EI‹Fz0L12410 LDX$DD08;00,01-09 ECHTZEITUHR 1/+10F„0 DEX;FF,00-08¬FŽ0 BPLL12450ÂF˜0 LDX#$09;09,00-08×F¢0L12450 BITCOTRBIG¬0 BMIL12580;B.I.ALTES BYTE FERTIG AUSGEGEBENG¶0 CPX$DD08JGÀ0 BNEL12450;WARTET 0.9S BIS ALTES BYTE AUSGEGEBENfGÊ0 TAX;AUSZUGEBENDES BYTE¦GÔ0 JSRL14080;FALLS NICHT=>LOES+CHT CIA-IRQ REGISTER (Y BLEIBT)ÂGÞ0 TXA;AUSZUGEBENDES BYTEïGè0;WICHTIG DAMIT WIEDER NMI AUSLOESEN KANN.Hò0;WICHTIG FALLS EIN NMI VERLOHREN GING (Z.B. WEGEN RESTORE)XHü0;UND NIE MEHR NMI AUSGELOEST WUERDE" ˜H1L12550 SEI; + RS232 BYTE OUT¯H1L12560 BITCOTRBI;3æH1 BPLL12410;2 B.I.ALTES BYTE NOCH NICHT UEBERTRAGENýH$1L12580 .IFFLCOOO=1SOLANGE WIE DER BIS ZUM ERSTEN UEBERLAUF BRAUCHT IST GENUG +ZEIT DASªP3;STOPPBIT DES VORHERIGEN BYTES ZU SENDENÑP3;---------------------------------Q3L13080 STAL13200+2;BEGINN HIGH BEISPIEL=F400 PUFFER OUTQQ"3 STXL13200+1;ENDE+1 LOW F401 F402 F4FF F500 F501nQ,3 STYL13420+1;ENDE+1 HIGHžQ63+ DEX;ENER KOMPLEMENT 00 01 FE FF 00§Q@3 TXAÛQJ3 EOR#$FF; FF FE 01 00 FFäQT3 TAYR^3 BEQL13170; F401 F402 F4FF F400 F401RRh3 DECL13200+2; F301 F302 F3FF F301ŒRr3L13170 LDA#$7E;ENDE+1 + F401 F402 F4FF F500 F501ÂR|3 JSRL12550;Y= FF FE 01 00 FFíR†3;KEINE PAGEUEBERSCHREITUNG IN SCHLEIFE*S3L13200 LDA$FFFF,Y;L13200= F301 F302 F3FF F400 F3019Sš3 BMIL13370FS¤3 CMP#$7DUS®3 BCSL13320bS¸3 CMP#$20qSÂ3 BCSL133+70™SÌ3 BIT$8009;COOFON COMPRESSION OFF ON¼SÖ3 BPLL13320;B.I.COMPRESSION OFFÉSà3 CMP#$13ØSê3 BEQL13320åSô3 CMP#$11ôSþ3 BNEL133704T4L13320 PHA;ZEICHEN ESCAPED AUSGEBEN ($11,13,7D-7F)/($00-1F)AT4 LDA#$7DPT4 JSRL12560YT&4 PLAfT04 EOR#$20{T:4L1+ 3370 JSRL12560„TD4 INY“TN4 BNEL13200¤TX4 INCL13200+2µTb4 LDAL13200+2íTl4L13420 CMP#$FF; F4 F4 F4 F5 F5ÿTv4 BNEL13200;" U€4 LDA#$7E$UŠ4 JMPL12550;------" KU”4;-----------------------------" “Už4L13470 .IFCOLINI=0; +! NMI AUS (Z.B. VOR LOAD)§U¨4 LDA#$04;NORMAL°U²4 .ELÈU¼4 LDA#$02;INVERTIERTÑUÆ4 .EIVÐ4 STA$DD01;RTS AUF INACTIVE (DTR BLEIBT ACTIV)%VÚ4 LDA$DD08;00,01,03,08,09 1/10.Vä4 CLC7Vî4 SEDSVø4 ADC#$02;02,03,05,10,11\V5 CLDxV 5 AND#$0F+";02,03,05,00,01¸V5L13590 CMP$DD08;0.1-0.2S WARTEN OB TROTZ RTS=INACTIV 1 BYTEßV 5 BNEL13590;VOM MODEM GESENDET WIRDW*5 LDA#$02;WARTET AUF ENDE EINES RECEIVED BYTES W45 BITRSNMFLNW>5 BEQL13730;B.I.KEIN BYTE IM EMPFANGEN ISTaWH5 LDX$DD08;1/10jWR5 +#DEXyW\5 BPLL13680†Wf5 LDX#$09›Wp5L13680 BITRSNMFLÈWz5 BEQL13730;B.I.BYTE FERTIG EMPFANGEN ISTÖW„5 CPX$DD08XŽ5 BNEL13680;WARTET 0.8S OB BYTE FERTIG EMPFANGEN WIRDIX˜5 BIT$DD0D;WENN NICHT=>NMI LEITUNG DAUERLOW=>NMI-RESETbX¢5L13730 LDA#$40;'RTI'œX+$¬5 STAL10140;NMI MACHT SOFORT RTI OHNE DD0D ZU LOESCHEN¯X¶5L13750 LDA#$00ÎXÀ5 STA$DD0E;TIMER A ANHALTENÛXÊ5 LDX#$7FéXÔ5 STX$DD0D÷XÞ5 STX$DD0DYè5 LDX#$00Yò5 STX$DD04;TIMER A LOW9Yü5 STX$DD05;TIMER A HIGHFY6 LDX#$81mY6 STX$DD0D;TIMER A IRQ-NM+%I ERLAUBEN˜Y6 ORA#$19;FORCE-LOAD & ONE-SHOT & STARTÇY$6 STA$DD0E;TIMER A STARTEN -> LOEST NMI AUSëY.6 RTS;DD0D WIRD NICHT GELESEN =>(Z86;DIE NMI LEITUNG BLEIBT STAENDIG LOW => KEINE NEUEN NMIS\ZB6;WEIL NMI FLANKENGESTEUERT NICHT PEGELGESTEUERT…ZL6+&;AUCH NICHT DURCH RESTORE MOEGLICH" ¬ZV6;-----------------------------" ðZ`6L13920 LDA#$48;'PHA' NMI EINÿZj6 STAL10140%[t6L13940 LDA#$00;SEND NORMALBIT LOW_[~6 STA$DD04;EVTL NUR EINMAL BEIM INITIALISIEREN+NMI EIN+'r[ˆ6L13960 LDA#$00€[’6 STA$DD05‘[œ6 .IFTXTASO=0ª[¦6L13990 LDA#$11;11/91¸[°6 STA$DD0EÁ[º6 .EIÎ[Ä6 LDA#$7FÜ[Î6 STA$DD0Dê[Ø6 STA$DD0D÷[â6 LDA#$90\ì6 STARSNMFL\ö6 STA$DD0D5\7L14080 LDA#>(L14150);NMI EIN>\ 7 PHAY\7 LDA#<(L14150);NMI EINb\,7 PHAk\(7 PHP \27 JMPL10120;RS232-NMI ROUTINE DIREKT ANGESPRUNGEN×\<7;RTS=ACTIV SETZEN RTI SPRINGT DIREKT ZU L14150" î\F7L14150 .IFCOLINI=0]P7 LDA#$06;NORMAL ]Z7 .EL#]d7 LDA#$00;INVERTIERT,]n7 .EI:]x7 STA$DD01L]‚7 RTS;------" s]Œ7;---------,--------------------" ¥]–7L14230 .IFCOLINI=0;AUFLEGEN VERBINDUNG TRENNE¹] 7 LDA#$00;NORMALÂ]ª7 .ELÚ]´7 LDA#$06;INVERTIERTã]¾7 .EI^È7L14280 STA$DD01;DTR & RTS AUF INACTIVE ^Ò7 RTS;------" e^Ü7;HAUPTPROGRAMM MUSS JETZT 1S WARTEN,WEIL BEI MODEM A,DAPTER RESET­^æ7;GEHT DTR AUF EINGANG UND DAMIT IMMER AUF 5V,SODASS BEI 'NORMAL' ZUÞ^ð7;ACTIV WIRD UND DAS MODEM EVTL.NICHT AUFLEGT_ú7;-----------------------------" ,_8L14340 LDA#$00;MODEM ADAPTER RESETO_8 STA$DD03;USERPORT AUF EINGANGi_8 ST,A$DD0F;TIMER B OFFž_"8;PIN M IST AUF HIGH WEIL STOPPBIT GESENDET WURDE¬_,8 LDA$DD0E¹_68 AND#$80Ó_@8 STA$DD0E;TIMER A OFFà_J8 LDA#$7Fî_T8 STA$DD0Dü_^8 STA$DD0D `h8 LDA#$47`r8 LDX#$FE/`|8 STA$0318;NMI VECTOR=`†8 STX$0319O`8 RTS;------" v`š8;,-----------------------------" ­`¤8;PROBLEM: BEI DISKZUGRIFF DARF ES KEINEN NMI GEBENà`®8;EINZIGE MOEGLICHKEIT NMI 100%IG ZU VERHINDERN/a¸8;=>TIMER A VON DD00-CIA SO PRGRAMMIEREN, DASS NMI LEITUNG STAENDIG 0V WIRD}aÂ8;RTS-HANDSHAKE GEHT BEI ACIA (S,WIFTLINK) NICHT => BEI ALLEN MODEM-ADAPTER”aÌ8;TYPEN WEGLASSEN" ÝaÖ8;WENN TIMER B AUCH BEI STARTBIT MIT GLEICHEM WERT BESCHRIEBEN WUERDEÿaà8;411 PAL (410,52) 0.98525MHZ!bê8;426 NTSC (426,13) 1.02273MHZpbô8;INAKTV II STARTBIT II 1.DATE,NBIT II 2.DATENBIT Iªbþ8;---------- ---------------------ùb9; II II II IHc9; --------------------- ---------------------‚c9; , 0US 417US 833USšc&9; BEGINN STARTBIT³c09; I Id:9; 19TZ I =START TIMER B FRUEHMOEGLICHQdD9; 163TZ =START TIMER B SPAETMOEG,LICH†dN9; I IÕdX9; 19+4=23TZ I =AUSLESEN V.RXD FRUEH$eb9; 163+132=295TZ =AUSLESEN V.RXD SPAETkel9;(WENN TIMER B AUCH BEI STARTBIT M, IT GLEICHEM WERT STARTEN WUERDE)©ev9;DIFFERENZ ZWISCHEN 23TZ UND 295TZ =272TZÀe€9;272TZ=276US (PAL)ÛeŠ9;272TZ=266US (NTSC)" f”9;RICHTIGER STARTBIT-TIMER-WERT PALfž9;456 PAL^f¨9;INAKTV II STARTBIT II 1.DATENBIT I, I 2.DATENBIT I˜f²9;---------- ---------------------çf¼9; II II II I6gÆ9; --------------------- ---------------------pgÐ9; 0US, 417US 833USˆgÚ9; BEGINN STARTBIT¡gä9; I Iðgî9; 19TZ I =START TIMER B FRUEHMOEGLICH?hø9; 163TZ =START TIMER B SPAETMOEGLICHwh:;, I IÆh :; 70US I =AUSLESEN V.RXD FRUEHi:; 347US=AUSLESEN V.RXD SPAETWi :; 70US + 2, 76US + 70US =417US’i*:; 69TZ + + 69TZ¼i4:;AUSLESEFENSTER IST 272TZ=276US GROSSj>:;DIESES FENSTER SOLLTE IN DER MITTE VON JEDEM DATENBIT LIEGEN (=417US)(jH:;70US + 276US + 70US = 417USujR:;D.H.DER FRUEHMOEGLI,CHE AUSLESEZEITPUNKT SOLLTE 70US NACH BITBEGINN SEINÄj\:;D.H.DER SPAETMOEGLICHE AUSLESEZEITPUNKT SOLLTE 70US VOR DATENBITENDE SEINkf:;WENN DER TIMERWERT IMMER GLEICH WAERE,WAERE DER FRUEHE ZEITPUNKT 23TZBkp:;NACH BITBEGINN, ER SOLLTE ABER 70US=69TZ S,EIN‰kz:;=>DER STARTBIT-TIMERWERT SOLLTE UM 46ZT (69TZ-23TZ) GROESSER SEINªk„:;ALS DER NORMALBITWERT (410)ÉkŽ:;ALSO 410TZ + 46TZ = 456TZl˜:;FRUEH:19TZ+456TZ+4TZ-410TZ=69TZ (AUSLESEN 69TZ NACH DATENBITBEGINN)]l¢:;SPAET:163TZ+456TZ+132TZ-410TZ=341 (AU,SLESEN ERFOLGT 69TZ VOR BITENDE)rl¬:;70US=69TZ (PAL)†l¶:;69TZ-23TZ=46TZÅlÀ:;410TZ+46TZ=456TZ = OPTIMALER STARTBIT CIA-TIMERWERT???" ílÊ:;RICHTIGER STARTBIT-TIMER-WERT NTSCûlÔ:;480 NTSCJmÞ:;INAKTV II STARTBIT II 1.DATENBIT II 2,.DATENBIT I„mè:;---------- ---------------------Ómò:; II II II I"nü:; --------------------- ---------------------\n;; 0US , 417US 833UStn;; BEGINN STARTBITn;; I IÜn$;; 19TZ I =START TIMER B FRUEHMOEGLICH+o.;; 163TZ =START TIMER B SPAETMOEGLICHbo8;; , I I±oB;; 75US I =AUSLESEN V.RXD FRUEHpL;; 342US=AUSLESEN V.RXD SPAETBpV;; 75US + 266US +, 75US =417US}p`;; 77TZ + + 77TZ§pj;;AUSLESEFENSTER IST 272TZ=266US GROSSòpt;;DIESES FENSTER SOLLTE IN DER MITTE VON JEDEM DATENBIT LIEGEN (=417US)q~;;75US + 266US + 75US = 417US`qˆ;;D.H.DER FRUEHMOEGLICHE AUS,LESEZEITPUNKT SOLLTE 75US NACH BITBEGINN SEIN¯q’;;D.H.DER SPAETMOEGLICHE AUSLESEZEITPUNKT SOLLTE 75US VOR DATENBITENDE SEINúqœ;;WENN DER TIMERWERT IMMER GLEICH WAERE,WAERE DER FRUEHE ZEITPUNKT 23TZ-r¦;;NACH BITBEGINN, ER SOLLTE ABER 75US=77TZ SEINtr°,;;=>DER STARTBIT-TIMERWERT SOLLTE UM 54ZT (77TZ-23TZ) GROESSER SEIN•rº;;ALS DER NORMALBITWERT (426)´rÄ;;ALSO 426TZ + 54TZ = 480TZýrÎ;;FRUEH:19TZ+480TZ+4TZ-426TZ=77TZ (AUSLESEN 77TZ NACH DATENBITBEGINN)HsØ;;SPAET:163TZ+480TZ+132TZ-426TZ=349 (AUSLESEN ,ERFOLGT 77TZ VOR BITENDE)^sâ;;755S=77TZ (NTSC)rsì;;77TZ-23TZ=54TZ±sö;;426TZ+54TZ=480TZ = OPTIMALER STARTBIT CIA-TIMERWERT???" Òs<;WIE LANGE IST NMI GESPERRT?òs <;NUR FLAG-NMI: 85TZt<;NUR RECEIVE-NMI: 75TZ2t<;NUR TRANSMIT-NMI: , 80TZRt(<;FLAG+TRANSMIT-NMI: 88TZ›t2<;RECEIVE+TRANSMIT-NMI: 75TZ (+EVTL.5 FALLS TIMER-B WAEHREND AUSLESENêt<<; UNTERLAEUFT).uF<;ERHOEHT SICH FALLS ROM (JMP (0318): +,5TZtuP<;ERHOEHT SICH FALLS BADLINE: +40-43TZ»uZ<;ERHOEHT SICH FALLS AKTUELLER BEFEHEL BEENDET WERDEN MUSS: +7TZ" óud<;WIE LANGE DAUERT ES VOM STARTBIT (HIGH-LOW-FLANKE)vn<;BIS TIMER B GESTARTET WIRD?Avx<;WENN DIE FLANKE, NICHT DEN NMI AUSLOEST,|v‚<;SONDERN DER NMI VON TRANSMIT TIMER A AUSGELOEST WURDEÂvŒ<;UND DER LOW-PEGEL NACH DER FLANKE BEI L10230 MITAUSGELESEN WIRD:×v–<;=MINIMALER WERTðv <;40TZ (BEI 1MHZ-C64)wª<;19US (GESCHAETZT BEI SCPU)Ew´<;WENN EIN TIMER A ,TRANSMIT NMI ABGEARBEITET WIRD‡w¾<;UND DIE STARTBIT-FLANKE 0.1US NACH AUSLESEN BEI L10230 KOMMTÕwÈ<;=>WAEHREND DES TRANSMIT-NMIS KANN DER FLAG-NMI NICHT ABGEARBEITET WERDEN#xÒ<;SONDERN ERST, WENN DER TRANSMIT-NMI WEITERE NMIS WIEDER ERLAUBT (L10630)[,xÜ<;BIS TRANSMIT-NMI WEITERE NMIS WIEDER ERLAUBT: 42TZ“xæ<;FLAG-NMI BIS TIMER B STARTET: 73TZËxð<;FALLS ROM (JMP (0318)): 5TZyú<;BADLINE: (40-)43TZ=y=;SCHLIMMSTENFALLS: , 163TZ" ƒy=;DIFFERENZ ZWISCHEN FRUEHESTENS UND SPAETESTENS: 163TZ-19TZ=144TZÒy=;DIES MUSS BEI STARTBIT-STARTWERT-CIA-TIMER BERUECKSICHTIGT WERDEN!!!!!" z"=;WIE LANGE DAUERT ES VOM NMI-AUSLOESEN VON RECEIVE-TIMER B4z,=;BIS RXD-LE,ITUNG GELESEN WIRD?^z6=;WENN TIMER B NICHT DEN NMI AUSLOEST,™z@=;SONDERN DER NMI VON TRANSMIT TIMER A AUSGELOEST WURDEÔzJ=;UND DER TIMERUNTERLAUF BEI L10250 MITAUSGELESEN WIRD:ÞzT=; 4TZ{^=;WENN EIN TIMER A TRANSMIT NMI ABGEARBEITET WIRDQ{h=;UND DE,R TIMER B NMI 0.1US NACH AUSLESEN BEI L10250 KOMMTž{r=;=>WAEHREND D.TRANSMIT-NMIS KANN D.TIMER B NMI NICHT ABGEARBEITET WERDENì{|=;SONDERN ERST, WENN DER TRANSMIT-NMI WEITERE NMIS WIEDER ERLAUBT (L10630)$|†=;BIS TRANSMIT-NMI WEITERE NMIS WIEDER ERLAUB, T: 36TZ\|=;TIMER B NMI BIS RXD-LEITUNG LIEST: 48TZ”|š=;FALLS ROM (JMP (0318)): 5TZÌ|¤=;BADLINE: (40-)43TZ}®=;SCHLIMMSTENFALLS: 132TZ" L}¸=;DIFFERENZ ZWISC,!HEN FRUEHESTENS UND SPAETESTENS: 132TZ- 4TZ=128TZ›}Â=;DIES MUSS BEI STARTBIT-STARTWERT-CIA-TIMER BERUECKSICHTIGT WERDEN!!!!!" Ä}Ì=;WIE LANGE DAUERT DATENUEBERTRAGUNG?Ò}Ö=;RECEIVE:ú}à=;1. FLAG-NMI 132TZ"~ê=;2.-8. RECEIVE-NMI ," 7*121TZJ~ô=;9. RECEIVE-NMI+SPEICHERN 189TZr~þ=;SUMME 1168TZ~>;TRANSMIT:«~>;1. STARTBIT 128.5TZÕ~>;2.-9. DATENBITS 8*128.5TZý~&>;9. STOPP+TIMAER OFF 146TZ%0>;SUMME ,# 1303TZG:>;SEND-BYTE NICHT-NMI ROUTINE:oD>; 63TZ“N>;SUMME WENN GLEICHZEITIG 1 BYTE»X>;GESENDET U.EMPFANGEN WIRD: 2534TZìb>;1BYTE SIND 10 BIT (INCL.START UND STOPPBIT),€l>;BEI 2400 BAUD HAT MAN PRO BYTE 1000,$000/2400*10=4167US ZEITE€v>;4167US=4105TZ (PAL)u€€>;MAN HAT 4105TZ ZEIT, BRAUCHT ABER NUR 2534Ä€Š>;BEI SEND BUFFER WAERE SENDEN IM HAUPTTEIL AUCH NICHT SCHNELLER ALS JSR" ”>;BAUDRATE IMPULSDAUER PAL NTSC CIA-START-PAL CIA-START-NTSC,%Bž>; 0.98525 1.02273‡¨>; 300 3333.3US 3284.16TZ 3409TZ 3283 3408˲>; 1200 833.3US 821.04TZ 852.25TZ 820 851‚¼>; 2400 416.6US 410.52TZ 426.13TZ 410 4258´‚Æ>;DIESE WERTE GELTEN FUER 1,2,8,20MHZw‚Ð>;!FUER FLAG-STARTBIT-TIMER-STARTWERT ANDERE WERTE NEHMEN!!Á‚Ú>;BEI 2MHZ-C128 UND BEI SCPU GEHEN VIELLEICHT AUCH 4800/9600 BAUD???" >;BAUDRATE IMPULSDAUER PAL NTSC CIA-START-PAL CIA-START-NTSC,'Øæ;LI4,4,11î;" ;GEHT NUR MIT NMI NICHT MIT IRQ6 .EQFLTOBA=1;FLAG TORSTEN BAADEN < .EQSLBASE=$DE00;40q F; .EQ SLBASE=$DF00;41” P; .EQ SLBASE=$D700;42· Z; .EQ SLBASE=$DE20;43Ú d; .EQ SLBASE=$DF-20;44ý ð;HEAD = TAIL =>PUFFER LEER !ñ;HEAD = TAIL+1 =>PUFFER VOLLC!ò;HEAD-1 = TAIL =>PUFFER VOLL!÷;F7,F8=ENDEVECTOR SCHREIBEN TAIL SCHWANZ HIERHIN SCHREIBT NMI ROUTINEÎ!û;FB,FC=ANFANGVECTOR LESEN HEAD KOPF HIER LIEST HAUPTPROGRAMMö!H- .EQMOADTY=$0348;MODEM ADAPTER TYPE"I .EQACBARA=$0349;ACIA BAUD RATE="„.EQ VIRAST=$C800;VIDEORAMSTARTS"Ð .EQSLDATA=SLBASEk"Ú .EQSLSTAT=SLBASE+1ƒ"ä .EQSLCMND=SLBASE+2›"î .EQSLCTRL=SLBASE+3³"ø .EQSLBAUD=SLBASE+7Á"' .BA$C000ß"' JMPL10100;-INITIALISIERENý"$' JMPL10930;RS232 BYTE OUT#.' JMPL11190;RS232 PUFFER OUTS#8' JMPL11990;RECEIVE BYTE NMI-ROUTINE (+RTS=ACTIVE)y#B' JMPL11010;NMI AUS (Z.B.VOR LOAD)¨#G' RTS;IRQ-TIMER ON (WIRD NIE AUSGESCHALTET)¸#H' .BY$00,$00Ï#L' JMPL11950;NMI EIN- $V' JMPL12070;VERBINDUNG TRENNEN PER HARDWARE DTR=INACTIV/$`' JMPL12130;MODEM ADAPTER RESETV$j';-----------------------------" e$t'L10100 SEI‚$~' STASLSTAT;SOFTWARERESET $ˆ' LDAACBARA;LOWNIBBLE=BAUDÝ$’';300 1200 2400 4800 9600 19200 38400 576-00 115200 230400%œ' BMIL10170;B.I.57600-230400BAUD@%¦' STASLCTRL;HIGHNIBBLE%0=1STOPPBIT 00=8BIT 1=INTERNAL CLOCKR%°' BPLL10210;" e%º'L10170 LDX#$10t%Ä' STXSLCTRL%Î' AND#$03%Ø' STASLBAUD©%â'L10210 LDA#<(L10440)¼%ì' LDX#>(L10440)Õ%ö' STA$0318;-NMI VECTORã%( STX$0319ö% ( LDA#<(L10430) &( LDX#>(L10430)&( STA$FFFA%&(( STX$FFFB2&2( LDA#$80O&<( LDA$02A6;NTSC(0) PAL(1)™&?(;!!!!NOCH TORSTEN BAADE VERZOEGERUNG MACHEN WIE BEI EINZELBYTE SENDEN¨&F( BNEL10330¶&P( ASL;#$00Ð&Z(L10330 STAL110-40+1;" 'd(L10340 LDA#$09;BIT7-5=%000=KEINE PARITAET BIT4=%0=KEIN ECHO'n( STASLCMNDO'x(;BIT3&2=%10 TRANSMIT-IRQ=OFF RTS=LOW=ACTIVEk'‚(;BIT1=%0 RECEIVE-IRQ=ON“'Œ(;BIT0=%1 MAIN-IRQ=ON DTR=LOW=ACTIVE¥'–( RTS;----" ß' (;NMI ROUTINE BRAUCHT KNAPP 10-0US (+EVTL.43 F.BADLINE).(ª(;=>MIT 1MHZ-C64 MAXIMALER SPEED IST 57600BAUD=ALLE 171TAKTZYKLE=1NMI (PAL)g(´(;SONST WIRD IM ERSTEN NMI EIN ZWEITER NMI AUSGELOEST§(¾(L10430 SEI;NMI RAM VECTOR KOPIE DER NMI ROUTINE" Å(È(L10440 PHA;NMI ROM VECTOR-Ô(Ò( LDASLSTATá(Ü( AND#$08)æ( BEQL10650;VZ,F.KEIN ACIA-NMIJ)ð(;WIE WIRD IRQ-PIN GELOESCHT FALLS Z.B.WECHSEL VON DCD ODER DSR DENc)ú(;NMI AUSGELOEST HAT?l)) TYA¦)) PHA;BU=BUFFER HE=HEAD=READ TA=TAIL=WRITE L=LOW H=HIGã)) LDY#$00;BU LEER NICHTVO- LL NICHTVOLL FAST-VOLL GANZ-VOLL*") CLD;HE E000 E000 EDFF E101 E080 E100 E080 E001 E000b*,) CLC;TA E000 E001 E000 E000 ED7F E000 ED80 E000 EDFF NICHT SECŸ*6) LDA$FB;HL 00 C 00 C FF C 01 C 80 C 00 C 80 C 01 C 00 CÜ*@) SBC$F7;TL 00 C 01 C 00 C 00 - C 7F C 00 C 80 C 00 C FF C+J) BEQL10670;B.I.LOWBYTE FREIER PUFFER=0*+T)L10580 LDASLDATA;RECIEVED DATAM+^) STA($F7),Y;CARRY MUSS BLEIBEN_+h)L10600 INC$F7n+r) BEQL10740…+|)L10620 INCVIRAST+1”+†)L10630 PLA+) TAY¬+š)L10650 PLA¾+¤) RTI;----" - ,®)L10670 LDA$FC;HH E0 C E0 C ED S E1 S E0 S E1 C E0 C E0 S E0 C>,¸) SBC$F8;TH E0 C E0 C E0 S E0 S ED S E0 C ED C E0 S ED C~,Â) BCSL10710; FF C FF C 0D S 01 S F3 C 00 S F2 C 00 S F2 C»,Ì) ADC#$0E; + + + + +ÿ- ,Ö)L10710 BNEL10580; 0D 0D 0D 01 01 00 00 00 00&-à)L10720 LDASLDATA;=PUFFER GANZ VOLL>-ê) JMPL10620;------" P-ô)L10740 LDY$F8Y-þ) INYf-* CPY#$EEu-* BNEL10790‚-* LDY#$E0”-&*L10790 STY$F8¬-0* JMPL10620;------" Ó-:*;---------- --------------------" ô-D*L10820 LDA$DC01;TASTATURPORT.E* .IFFLTOBA!=!1.F* LDX#$00#.G*L10833 DEX2.H* BNEL10833;.I* .EIH.N* CMP#$FFq.X* BEQL10940;B.I.KEINE TASTE GEDRUECKT~.b* LDA#$7FŒ.l* STA$DC00™.v* LDX#$00¦.€* LDA#$FD´.Š* CMP$DC01Â.”*- STX$DC00ì.ž* BNEL10940;B.I.ESCAPE NICHT GEDRUECKT&/¨* RTS;GEDRUECKT ABER RSOUT ZEICHEN GEHT VERLOHREN---" C/²*L10930 TAY;RS232 BYTEOUTV/¼*L10940 LDA#$10e/Æ* BITSLSTAT™/Ð* BEQL10820;B.I.WARTEN MUSS (HARDWARE VON MODEM)¬/Ñ* .IFFLTOBA!=!1»/Ò* BITSL-STATï/Ó* BEQL10820;B.I.WARTEN MUSS (HARDWARE VON MODEM)0Ô* LDX#$02;12TZ VERZOEGERUNG WIE BEI WHEELS,0Õ*L10965 DEX;0Ö* BNEL10965D0×* .EI“0Ø*;BEI TORSTEN BAADES SCPU-TOWER: EMAIL64 SENDET 02 =ACK (STEHT IN A100-AEFFâ0Ù*;ABER LINUX-PPPD-SERVER EMPFA-ENGT 01 =REQ (BEI SWIFTLINK / BEI ENHANCED=OKñ0Ú* STYSLDATA1ä* INCVIRAST1î*L10990 RTS;------" ?1ø*;-----------------------------" j1+L11010 LDX#$01;NMI AUS (Z.B. VOR LOAD)‰1 + STXSLCMND;RTS AUF INAKTIVÄ1+;EVTL AUF ENDE VON RECEIVED BYTE WART-EN (BEI USERPORT)Ý1 +L11040 LDA#$00;00/80ü1*+ STA$DD0E;TIMER A ANHALTEN24+ DEX2>+ STX$DD04;TIMER A LOW:2H+ STX$DD05;TIMER A HIGHG2R+ LDX#$81n2\+ STX$DD0D;TIMER A IRQ-NMI ERLAUBEN™2f+ ORA#$19;FORCE-LOAD & ONE-SHOT & STARTÈ2p+ STA$DD0E;TIMER A S-TARTEN -> LOEST NMI AUSì2z+ RTS;DD0D WIRD NICHT GELESEN =>)3„+;DIE NMI LEITUNG BLEIBT STAENDIG LOW => KEINE NEUEN NMIS]3Ž+;WEIL NMI FLANKENGESTEUERT NICHT PEGELGESTEUERT†3˜+;AUCH NICHT DURCH RESTORE MOEGLICH" ­3¬+;-----------------------------" õ-3¶+L11190 STAL11400+2;BEGINN HIGH BEISPIEL=F400 PUFFER OUT-4À+ STXL11400+1;ENDE+1 LOW F401 F402 F4FF F500 F501J4Ê+ STYL11790+1;ENDE+1 HIGHz4Ô+ DEX;ENER KOMPLEMENT 00 01 FE FF 00ƒ4Þ+ TXA·4è+ EOR#$FF; FF FE 01- 00 FFÀ4ò+ TAYö4ü+ BEQL11280; F401 F402 F4FF F400 F401.5, DECL11400+2; F301 F302 F3FF F301A5,L11280 LDX#$7Fe5, STX$DC00;TASTATUR AUSGABE PORTs5$, DEX;#$7E†5.,L11310 LDA#$10•58, BITSLSTAT¤5B, BNEL11380²5L, L-DA$DC01Æ5V, CMP#$FD;ESCAPEÕ5`, BEQL11910ç5j, BNEL11310;" #6t,L11380 STXSLDATA;ENDE+1 F401 F402 F4FF F500 F501Y6~, INCVIRAST;Y= FF FE 01 00 FF–6ˆ,L11400 LDX$FFFF,Y;L11400= F301 F302 F3FF F400 F301¥6’, BMIL11660²6œ-, CPX#$7DÁ6¦, BCSL11520Î6°, CPX#$20Ý6º, BCSL116607Ä, BIT$8009;COOFON COMPRESSION OFF ON(7Î, BPLL11520;B.I.COMPRESSION OFF57Ø, CPX#$13D7â, BEQL11520Q7ì, CPX#$11`7ö, BNEL11660¦7-L11520 BITSLSTAT;ZEICHEN ESCAPED AUSGEBEN ($11,13,7D-7F)/($00-1F)-µ7 - BNEL11590Ã7- LDA$DC01×7- CMP#$FD;ESCAPEæ7(- BEQL11910ó72- LDA#$108<- BNEL11520;" 8F-L11590 LDA#$7D'8P- STASLDATA68Z- INCVIRAST?8d- TXAL8n- EOR#$20U8x- TAXb8‚- LDA#$10w8Œ-L11660 BITSLSTAT†8–- BNEL11730”8 - LDA$DC01¨8ª- CMP#$FD;ESC-APE·8´- BEQL11910Ä8¾- LDA#$10Ö8È- BNEL11660;" ë8Ò-L11730 STXSLDATAú8Ü- INCVIRAST9æ- INY9ð- BNEL11400#9ú- INCL11400+249. LDXL11400+2l9.L11790 CPX#$FF; F4 F4 F4 F5 F5~9. BNEL11400;" ‹9". LDX#$7E 9,.L11820 BITSLSTAT¯9-6. BNEL11890½9@. LDA$DC01Ñ9J. CMP#$FD;ESCAPEà9T. BEQL11910í9^. LDA#$10ÿ9h. BNEL11820;" :r.L11890 STXSLDATA#:|. INCVIRAST6:†.L11910 LDA#$00D:. STA$DC00V:š. RTS;------" }:¤.;-----------------------------" ˜:®.L11950 LDA#$01;NMI EINº:¸. STA-$DD0D;TIMER A IRQ-NMI OFFû:Â.;TIMER A WAR NUR ONE SHOT => MUSS NICHT AUSGESCHALTET WERDEN;Ì. BIT$DD0D;LOESCHT IRQ-NMI:;Ö.L11990 LDA#>(L10340);NMI EINC;à. PHAV;ê. LDA#<(L10340)_;ô. PHAh;þ. PHP;/ JMPL10430;RS232-NMI ROUTINE DIREKT ANGESPRUNGENÔ-;/;RTS=ACTIV SETZEN RTI SPRINGT DIREKT ZU L10340" û;/;-----------------------------" <&/L12070 LDA#$00B<0/ STASLCMND;BIT0=0 DTR=INACTIV => MODEM LEGT AUF<:/;DTR=INACTIV ERST HIER, WEIL SONST ACIA KEINE NMI AUSLOEST UND EMAIL64»²/;ABER AENDERUNG VON DCD ODER DSR LOEST IMMER NMI AUS SOLANGE BIT1 V.DE02)>¼/;HIGH ISTv>Æ/;EINZIGE MOEGLICHKEIT NMI 100%IG ZU VERHINDERN WAERE BIT1 V.DE02 AUF LOW½>Ð/;ZU SETZEN, ABER DANN GEHT DTR- AUF INAKTIV UND DAS MODEM LEGT AUF??Ú/;EINZIG AT&D1 KOENNTE GEHEN, ABER DAS VERSTEHT NICHT JEDES MODEM" S?ä/;=>TIMER A VON DD00-CIA SO PRGRAMMIEREN, DASS NMI LEITUNG STAENDIG 0V WIRD ?î/;CHACKING 10 S121: BIT3&2 V. DE02=%00=>TRANSMITTER OFF (UND RTS°=INAKTIV)Ø?ø/;DAS MUSSTE GEMACHT WERDEN WENN RECEIVE PUFFER VOLL @0;ABER DANN KANN DIE ACIA NICHT SENDEN (SCHLECHT)B@ 0;=> RTS HANDSHAKE WENN PUFFER VOLL GEHT NICHT" G0%IG ZU VERHINDERN WAERE BIT1 V.DE02 AUF LOW½>Ð/;ZU SETZEN, ABER DANN GEHT DTR- Øð'; .LI 4,4,0ø';"* $' .EQRARO=$35;35=RAM F.PROGR 37=ROM F.TESTF .';FLASH8 BLEIBT AUF 8MHZu 8';!ALLE ROUTINE SCHALTEN AM ENDE AUF RAM UM˜ =' .EQVIRAST=$C800;VIDEORAMSTARTÎ B' .EQDVEMSE=$CE09;DEVICENUMBER EMAIL SEND ZU LADEN!L' .-!EQDREMSE=$CE0A;DRIVENUMBER EMAIL SEND ZU LADEN=!V' .EQDVEMRE=$CE0C;DEVICENUMBER EMAIL RECEIVED ZU SAVENv!`' .EQDREMRE=$CE0D;DRIVENUMBER EMAIL RECEIVED ZU SAVEN!j';---------------------------------Ë!t';LOG.FILENUMMER SEKUNDAERADRESSE FUNKTIONê!~';1 -"0 FREIER DISKSPACE ($$) "ˆ';2 2 SAVE V. RECEIVED EMAIL$"’';3 F SAVE FEHLERKANALV"œ';4 0 DIR MIT ZU LOADENDEN=ZU SENDENDEN EMAILS"¦';5 5 ZU LOADENDE = ZU SENDENDE EMAIL™"°';6 F LOAD FEHLERKANAL¶"º';8000-8008 CBM80 KENNUNGØ"Ä';8009 COMPRESSION-# OFF ONî"Î';800A-800F $$255:#Ø';8010-801F 1SAVENAME#â';8020-8023 ,S,W0#ì';802B-802F $255:I#ö';8030-803F 4LOADNAME]#(;8040-8043 ,S,R|# (;804F CARRIAGE RETURN™#(;8050-8077 FEHLERMELDUNG°#(;8078 END#$00Å#((;807B-807F R255:Þ#2(;8080-$-808F 5LOADNAMEï#<(;8090 =$F(;8091-80A0 4LOADNAME"$P(;9000-9FFF LOAD->SEND@$Z(;A000-AFFF RECEIVED->SAVEh$d(;AFFB-AFFF ENDFLAG-ZWISCHENSPEICHER¬$n(;B000-BFFF I/O-PUFFER (BEGINN VARIABEL BEGINN STEHT IN $A015)û$x(;BEI RCEIVE-BUFFER SPEICHERN-% ZUR ANALYSE: RECEIVE-ANALYSE-BUFFER=A100-AEFF"%‚(;---------------------------------0%Œ( .BA$9000W%–(;---------------------------------z% ( JMPL10490;9000 INITIALISIEREN¡%ª( JMPL11340;9003 DIR MIT 4*=S HOLENÂ%´( JMPL13100;9006 FILE OEFFNENä%¾( JMP-&L13470;9009 PUFFER LOADEN&È( JMPL13960;900C FILE CLOSE&Ò( JMPL14060;9012 RENAMED&Ü( JMPL14410;900F FEHLERKANAL LESENi&æ( JMPL14940;9015 DEINITIALISIEREN&ð(;---------------------------------Ô&ú(L10490 LDY#$36;A000:RAM E000:ROM INI-'TIALISIERENà&) STY$01í&) LDA#$06') JSR$FFC3;CLOSE''") LDA#$06;->B8 LOGISCHE FILENUMMERH',) LDXDVEMSE;->BA DEVICENUMMERl'6) LDY#$0F;->B9 SEKUNDAERADDRESSEz'@) JSR$FFBAš'J) LDA#$00;->B7 KEIN FILENAME¨'T) JSR$FFBD»'^) JSR$FFC0;OPENÖ'h) JSR$FF.B7;STATUS HOLENô'r) BEQL10630;B.I.FEHLERFREI(|) JMPL11280;FEHLER A MUSS NOTEQUAL SEIN@(†)L10630 LDX#06;LOG FILENUMMERi(‡) LDY#$80;VECTOR CD00 FLOPPY COMMANDOŽ(ˆ) JSR$07E8;SENDET FLOPPY COMMANDO›() LDX#$30©() STX$802C·(š) STX$802DÆ(¤) LDA#$3A;.:Ô(®) STA$802Fæ(¸) TXA;X=A=#$30)Â) LDYDREMSE;DRIVENUMMER 0-255)Ì) BEQL10820%)Ö)L10710 INX2)à) CPX#$3AA)ê) BNEL10800O)ô) INC$802Dd)þ) CPX$802D;X=#$3As)* BNEL10790)* INC$802C”)* STA$802D;#$30¨)&*L10790 TAX;#$30·)0*L10800 DEYÆ):* BNEL10.710ö)D*L10820 STX$802E;EINERSTELLE DRIVENUMMER 0-9*N* LDX#$2EC*X* LDADREMSE;DRIVENUMMER 0-255 0-9 10-99 100-255*b* CMP#$0A; $2:4*=S $20:4*=S $200:4*=S*l* BCCL10910™*v* DEX¦*€* CMP#$64µ*Š* BCCL10910¾*”* DEX+.ž*L10910 STXL13320+1;BEGINN FILENAME LOW 2E 2D 2C+¨* DEX+²* LDA#$24;"$J+¼* STA$8000,X;SCHREIBT $ VOR DRIVENUMMERŒ+Æ* STXL11500+1;BEGINN $ LOW 2D 2C 2B•+Ð* TXAÓ+Ú* EOR#$50; 7.D 7C 7BÜ+ä* TAXÿ+î* STAL14300+1;BEGINN RENAME LOW=,ø* EOR#$FF; 82 83 84F,+ SECS, + SBC#$6C•,*+ STAL13310+1;LANGE FILENAME $16 $17 $18¢,4+ SBC#$0Fê,>+L11070 STAL11490+1;LAN.GE $200:4*=S 7 8 9ù,H+ LDA#$52;R:-R+ STA$8000,X;R2: R20: R200: 7D 7C 7BC-\+ INXm-f+L11110 LDA$7FB0,X;KOPIERT DRIVENUMMER}-p+ STA$8000,X†-z+ INX•-„+ BPLL11110¶-Ž+ LDX#$34;"4"=EMAIL ZU SENDENÄ-˜+. STX$8030Ò-¢+ STX$8091Û-¬+ INXé-¶+ STX$8080ø-À+ LDA#$3D;=.Ê+ STA$8090.Ô+ LDX#$04,.Þ+L11230 LDAL18740-1,XD.è+ STA$8040-1,X;",S,RM.ò+ DEXu.ü+ BNEL11230;!MUSS EQUAL AM ENDE SEIN„., TXA;EQUAL“.,L11280 SEIÆ., LDY#RARO;RAM FALLS FEHLER BEI I.NITIALISIERENù.$, STY$01; => FEHLERKANALLESEN BRINGT NICHTS/., TAX/8, RTS;!EQUAL/NOT EQUALC/B,;---------------------------------‡/L,L11340 LDY#$36; $2:4*=S $20:4*=S $200:4*=S“/V, STY$01 /`, LDX#$02¿/j,L11370 LDAL18750,X.;*=S =>Ù/t, STA$8031,X;$200:4*=Sâ/~, DEXñ/ˆ, BPLL11370þ/’, LDA#$040œ, JSR$FFC3;CLOSE*0¦,;EVTL UEBERFLUESSIG70°, LDA#$04F0º, LDXDVEMSES0Ä, LDY#$00‰0Î, STYL14800+1;DEFAULT F. KEIN FEHLER EVTL.WEG?—0Ø, JSR$FFBAÛ0â,L11490 LDA#$FF;LAENGE $20. 0:4*=S 07 08 091ì,L11500 LDX#$FF;BEGINN LOW 2D 2C 2B81ö, LDY#$80;BEGINN HIGHT1- JSR$FFBD;A=NAMENLAENGEg1 - JSR$FFC0;OPENz1-L11540 LDA#$2F‡1- LDY#$48µ1(-L11560 STA$8107,Y;INITIALISIERT 8108-81. 4F¾12- DEYÍ1<- BNEL11560ã1F- STYL12230+1;#$002P- INY;INITIALISIERT ZAEHLER F.TZU SENDENDE EMAILS.2Z- STYL12660+1;#$01H2d- JSR$FFB7;SATUS HOLENW2n- BNEL11670d2x- LDX#$042‚- JSR$FFC6;EINGABE SETZENŸ2Œ- BCCL11700;B.I.FEHLERFREI²2–-L11670 LDY#$F. FÝ2 - STYL14800+1;FLAG F. FEHLER EVTL.WEG?õ2ª- JMPL12920;FEHLER" 3´-L11700 JSR$FFB73¾- BNEL11670(3È- LDY#$06;" m3Ò-L11730 JSR$FFCF;BASIN UEBERSPRINGT 2*LADEADRESSE 2*LINK 2*ZEILNR{3Ü- JSR$FFB7Š3æ- BNEL11670“3ð- DEY¥3ú- BNEL11730;" ¿3.L1178. 0 JSR$FFCF;BASINÈ3. TAXÖ3. JSR$FFB7å3". BNEL11670î3,. TXA46. BNEL11780;SUCHT ENDE DER 1.ZEILE" #4@. LDY#$0374J.L11850 JSR$FFCFW4T. STXL18690;FREIE BLOCKS LOWh4^. STXL12020+1‰4h. STAL18700;FREIE BLOCKS HIGHš4r. STAL12040+1£4|. TAX±4†. JSR$. FFB7Æ4.L11920 BNEL11670é4š. DEY;UEBERSPRINGT 2*ZEILENLINKø4¤. BPLL11850 5®. ASLL12020+15¸. ROLL12040+1'5Â. LDA#$0005Ì. ROLD5Ö. STAL12070+1;" s5à. SEC;SUBRATKTION:256-2=254=ÂYTES PRO BLOCK€5ê. LDA#$00™5ô.L12020 SBC#$FF;LOW*2¨5þ. LDAL18690Â5./L12040 SBC#$FF;HIGH*2Ñ5/ STAL18690à5/ LDAL18700 6&/L12070 SBC#$FF;BIT8 (BIT7V HIGH GEWESEN)60/ STAL18700;" 36:/L12090 JSR$FFCF<6D/ TAXJ6N/ JSR$FFB7Y6O/ BEQL12130f6P/ CMP#$40u6Q/ BNEL11920Š6X/ JMPL12610;EOI" Ÿ6b/L12130 CPX#$22;"Î6l/ BNEL.12090;SUCHT ANFANGS-ANFUEHRUNGZEICHENâ6v/L12150 JSR$FFCFë6€/ TAXù6Š/ JSR$FFB77”/L12180 BNEL119207¨/ CPX#$34;4E7²/ BNEL12610;B.I.'BLOCKS FREE' = ENDE…7¼/ INCL12230+1;ERHOEHT ZAEHLER ZU SENDENDER EMAILS 0->1 8->9«7Æ/L12230 LDA#$01;ZAEHLER EMAILS. 1-9¸7È/ CMP#$0AÔ7É/ BCSL12580;B.I.10.EMAILÝ7Ð/ ASLæ7Ú/ ASLò7ä/ ASL;*88î/ STAL12330+18ï/ STAL12450+1!8ø/ ASL;*16280 STAL12460+1?8 0 LDX#$00T80L12310 LDAL18700i8 0L12320 STAL18700Ÿ8*0L12330 INC$8108,X;8108-810C = KB-LAENGE V.1.EMAILÎ840 .LDYL18690;8148-814C = KB-LAENGE V.9.EMAIL×8>0 SEC÷8H0 LDAL18690;FREIE BLOCKS LOW9R0 SBCL18710,X;40000,4000,40,4 LOW+9\0 STAL18690?9f0 LDAL18700;HIGHe9p0 SBCL18720,X;40000,4000,40,4 HIGHt9z0 BCSL12320ƒ9„0 STYL18690Œ9Ž0 INX™9˜0 CPX#$05¨90 BNEL.12310Å9¢0L12450 LDY#$08;08,$10...Ò9£0 LDX#$04Û9¤0 SECñ9¥0L12453 LDA$8104,Y :¦0 ADC#$00;ERHOEHT UM 1KB:§0 CMP#$3A):¨0 BCCL124586:©0 LDA#$30L:ª0L12458 STA$8104,YU:«0 DEX^:¬0 DEYm:­0 BPLL12453‹:µ0L12460 LDY#$00;$10,$20...Ÿ:¶0L12470 JSR$FFCF¨.:À0 TAX¶:Ê0 JSR$FFB7Å:Ô0 BNEL12180Î:Þ0 TXAá:è0 CMP#$22;END-"ð:ò0 BEQL12570;ü0 STA$8140,Y;8150-815E = NAME 1.EMAIL;;1 INY;81D0-81DE = NAME 9.EMAILg;1 BNEL12470;SPEICHERT NAME OHNE '4' AB" ;1L12570 JMPL11780;" ©;$1L12580 DECL12230+1;=MEHR AL.S 9 EMAILS¸;)1 LDA#$3E;>Î;.1 STAVIRAST+$1D;" á;B1L12610 LDA#$30î;L1 LDX#$04P2 STAVIRAST+$46>U2 STAVIRAST+$3E%>Z2 LDA#$028>d2 STAVIRAST+$47K>i2 STAVIRAST+$3Fy>n2 LDA#$00;EQUAL/NOTEQUAL=FEHLERFREI/FEHLERˆ>x2L12920 PHA¤>‚2 JSR$FFCC;CL.EAR CHANNEL±>Œ2 LDA#$04Å>–2 JSR$FFC3;CLOSEÎ> 2 SEIÜ>ª2 LDY#RAROè>´2 STY$01?¾2 LDXL12230+1;ANZAHL ZU SENDENDER EMAILS?È2 TXA*?Ò2 ORA#$30c?Ü2 STAVIRAST+$1E;BILDSCHIRMAUSGABE ZU SENDENDER EAMILS{?æ2 PLA;EQUAL/NOTEQUAL•?ð2 BEQL13070;B.I.FEHLER¶.?ú2 JSRL14410;FEHLERKANAL LESENè?3L13070 LDXL12230+1;ANZAHL ZU SENDENDER EMAILS@3 TAY;EQUAL/NOT EQUAL @3 RTS;" 4@"3;---------------------------------x@,3L13100 LDY#$36; FILE OEFFNEN„@63 STY$01@@3 ASL–@J3 AS.LŸ@T3 ASL¶@^3 ASL;*16 ;$10,$20¿@h3 TAXÌ@r3 LDY#$0Eó@|3L13180 LDA$814E,X;KOPIERT FILENAMEA†3 STA$8031,Y A3 DEXAš3 DEY$A¤3 BPLL131801A®3 LDA#$05EA¸3 JSR$FFC3;CLOSERAÂ3 LDY#$00wAÌ3 STYL14800+1;FLAG F. KEIN FEHLERAÖ3 LDA#$05;->B8 LOGISCHE .FILENUMMER¾Aà3 LDXDVEMSE;->BA DEVICENUMMERâAê3 LDY#$05;->B9 SEKUNDAERADDRESSE÷Aô3 JSR$FFBA;SETLFSBþ3L13310 LDA#$00;->B7 FILENAME LANGEAB4L13320 LDX#$FF;->BB BEGINN LOW_B4 LDY#$80;->BC GEBINN HIGHtB4 JSR$FFBD;SETNAM‡B&4 JSR$FFC0;OPENÆB04 JMPL.14410;FEHLERKANAL LESEN (SCHALTET AAUF RAM (RARO) UM)íB:4;---------------------------------1CD4;WENN MAN DISK RAUSNIMMT,WAEHREND 1541 NICHT AUF DISK ZUGREIIFTlCN4;Z.B.WAEHREND C64 DIE NAECHSTEN PAKETE VOM SERVER HOLT·CX4;=>DIE 1541 SCHLIESST DEN KANA.L,OHNE EINE FEHLERMELDUNG IN ERRORPUFFERÉCb4;ZU SCHREIBEN Dl4;BEIM ANSCHLIESSENDEN CHKOUT WIRD ZWAR EIN FEHLER REGISTRIERT,NDv4;ALLERDINGS WUERDE VON DER 1541 00,OK,00,00 AUSGELESEN WERDEN–D€4;SODASS DAS EMAIL64 MEINEN WUERDE ALLES WAERE OK OBWOHL EM.AIL NICHT·DŠ4;NICHT KORREKT GESAVED WURDEîD”4;=>DESHALB L14800 UM DEVICE NOT PRESENT ABZUFANGEN2Ež4L13470 LDX#$36; PUFFER LOADEN>E¨4 STX$01KE²4 LDA#$B0\E¼4 STAL13650+2šEÆ4 LDX#$06;!BEFEHLSKANAL (NR.5 EVTL NUR ZUM .LESEN GEOEFFNETÈEÐ4 JSR$FFC9;CHKOUT DIREKT CHKIN GHET NICHTúEÚ4 BCSL13580;WEIL BEI DEVICE NOT PRESENT HAENGTFä4 JSR$FFCC;CLRCHFî4 LDX#$05/Fø4 JSR$FFC6;CHKINMF5 BCCL13610;B.I.FEHLERFREImF 5L13580 LDX#$00;KEINE EMAILSzF5 LDA#$FF™F5 STAL14800.+1;FLAG F.FEHLER«F 5 BNEL13810;" ÆF*5L13610 JSR$FFB7;STATUSÕF45 BNEL13580âF>5 LDX#$00öFH5L13640 JSR$FFCF GR5L13650 STA$B000,XG\5 INX$Gf5 BNEL137205Gp5 INCL13650+2FGz5 LDAL13650+2SG„5 CMP#$C0bGŽ5 BCSL13770vG˜5L13720 JSR$FFB7…G¢5 BEQL13640’. G¬5 CMP#$40©G¶5 BEQL13810;B.I.EOI»GÀ5 BNEL13580;" ÛGÊ5L13770 JSR$FFB7;PUFFER VOLLêGÔ5 BEQL13810÷GÞ5 CMP#$40Hè5 BNEL13580Hò5L13810 STXL13870+15Hü5 PHA;EQUAL/NOTEQUALIH6 JSR$FFCC;CLRCHRH6 SEI`H6 LDX#RAROlH$6 STX$01ŒH.6L13870 LDX#$FF;LOWBY.!TE ENDE«H86 LDYL13650+2;HIGHBYTE ENDE´HB6 PLAÃHL6 BEQL13940ÐHV6 CMP#$40ýH`6 BNEL14410;BEI FEHLER: FEHLERKANAL LESEN Ij6 EOR#$00It6L13940 RTS@I~6;---------------------------------„Iˆ6L13960 LDY#$36; FILE CLOS."EI’6 STY$01Iœ6 LDA#$05ÏI¦6 JSR$FFC3;CLOSE WEITER MIT FEHLERKANAL LESENðI°6L14000 JSRL14410;FEHLERKANALýIº6 LDX#$00!JÄ6 STXL14800+1;LOESCHT FEHLERFALG:JÎ6 TAX;EQUAL/NOT EQUALCJØ6 RTSjJâ6;---------------------------------„Jì6L14060 LDY#$36;REN.#AMEJö6 STY$01J7 LDX#$00®J 7 STXL14800+1·J7 ASLÀJ7 ASLÉJ(7 ASLÖJ27 ASL;*16êJ<7 TAX;$10,$20...÷JF7 LDY#$0EKP7L14160 LDA$814E,X;8050,8060...AKZ7 STA$8081,Y;KOPIERT NEUER FILENAMEhKd7 STA$8092,Y;KOPIERT ALTER FILENAMEqKn7 DEXzKx7 DEY‰K‚7.$ BPLL14160–KŒ7 LDX#$06¸K–7 JSR$FFC9;CHKOUT BEFEHLSKANALÇK 7 BCCL14280ÚKª7L14250 LDA#$FFëK´7 STAL14800+1ýK¾7 BNEL14380;" LÈ7L14280 JSR$FFB7 LÒ7 BNEL14250>LÜ7L14300 LDX#$FF;BEGINN LOW`Læ7L14310 LDA$8000,X;RENAME TEXTuLð7 JSR$FFD2;BASOUTƒLú7 JS.%R$FFB7’L8 BNEL14250›L8 INX¨L8 CPX#$A1·L"8 BCCL14310ÖL,8L14380 JSR$FFCC;CLRCHANNELM68 JMPL14000;FEHLERKANAL&FEHLERFLAG LOESCHEN" .M@8;---------------------------------rMJ8L14410 LDY#$36; FEHLERKANAL LESEN~MT8 STY.&$01›M^8 LDA#$0D;CARRIAGE RETURN©Mh8 STA$804F¶Mr8 LDX#$06ËM|8 JSR$FFC9;CHKOUTéM†8 BCCL14510;B.I.FEHLERFREIN8 LDA#$FF;SOFORT CHKIN GEHT NICHT,WEIL FALLS WENNSNš8 STAL14800+1;DEVICE NOT PRESENT => SYSTEM HAENGTeN¤8 BNEL14700;" N®8L14510 JSR$FFCC.';CLRCHŒN¸8 LDX#$06 NÂ8 JSR$FFC6;CHKIN­NÌ8 LDY#$00ÇNÖ8L14550 JSR$FFCF;BASINðNà8 STA$8050,Y;$8050-8077 FEHLERMELDUNGýNê8 CMP#$0D Oô8 BEQL14650Oþ8 INY"O9 CPY#$281O9 BCSL14650FO9 JSR$FFB7;STATUSUO&9 BEQL14550^O09 DEYqO:9L14650 LDA#$00§OD9L/14660 STA$8050,Y;BEI 8078 IMMER #00 ALS ENDEFLAG°ON9 INY½OX9 CPY#$29ÌOb9 BCCL14660ìOl9L14700 JSR$FFCC;CLRCCHANNELõOv9 SEIP€9 LDY#RAROPŠ9 STY$01P”9 LDA$8050*Pž9 EOR#$309P¨9 BNEL14920GP²9 LDA$8051TP¼9 EOR#$30|PÆ9 BNEL14920;B.I.FLOPPY FEHLER/ MELDETÀPÐ9L14800 LDA#$00;FLAG OB ZWISCHEN OPEN UND CLOSE IRGENDEIN FEHLERòPÚ9;L14800 WIRD AM ANFANG BEI OPEN INITIALISIERT3Qä9;WIRD BEI IRGENDEINEM FEHLER ZWISCHEN OPEN UND CLOSE GESETZTiQî9;FALLS FEHLERKANAL = 00,OK =>GIBT FEHLERKANAL AUS²Qø9;FALL/S FEHLERKANAL = 00.OK + ERRORFLAG GESETZT => DEVICE NOT PRESENTéQ: BEQL14920;B.I.KEIN FEHLER WAEHREND OPEN BIS CLOSEüQ :L14860 LDX#$1BR:L14870 LDAL18760,X9R : STA$8050,X;99,DEVICE NOT PRESENTBR*: DEXQR4: BPLL14870dR>: TXA;NOT EQUALsRH:L14920 R/TSšRR:;---------------------------------ÞR\:L14940 LDY#$36; DEINITIALISIERENêRf: STY$01÷Rp: LDA#$06 Sz: JSR$FFC3;CLOSES„: SEI"SŽ: LDY#RARO.S˜: STY$017S¢: RTS^S¬:;---------------------------------…S¶:;-----------/----------------------ÉSÀ:L15040 LDY#$36;A000:RAM E000:ROM INITIALISIERENÕSÊ: STY$01âSÔ: LDA#$03öSÞ: JSR$FFC3;CLOSETè: LDA#$03;->B8 LOGISCHE FILENUMMER=Tò: LDXDVEMRE;->BA DEVICENUMMERaTü: LDY#$0F;->B9 SEKUNDAERADDRESSEoT; JSR$FF/BAT; LDA#$00;->B7 KEIN FILENAMET; JSR$FFBD°T$; JSR$FFC0;OPENËT.; JSR$FFB7;STATUS HOLENúT8; BNEL15670;B.I.FEHLER A MUSS NOTEQUAL SEINU9; LDX#$03;LOG FILENIMMER7U:; LDY#$A0;VECORT COMMAND CD00\U;; JSR$07E8;FLOPPY COMMANDO SENDENiUB; LDX#$30w/UL; STX$800C…UV; STX$800D”U`; LDA#$3A;:¢Uj; STA$800F´Ut; TXA;X=A=#$30ÕU~; LDYDREMRE;DRIVENUMMER 0-255äUˆ; BEQL15360óU’;L15250 INXVœ; CPX#$3AV¦; BNEL15340V°; INC$800D2Vº; CPX$800D;X=#$3AAVÄ; BNEL15330OVÎ; INC$800CbVØ; STA$800D;#$30vVâ;L1/5330 TAX;#$30…Vì;L15340 DEY”Vö; BNEL15250ÄV FEHLERKANALLESEN BRINGT NICHTS¢ZT= TAX¼Z^= RTS;!EQUAL/NOT EQUALãZh=;---------------------------------'[r=L15730 LDY#$36; $$ FREIE BLOCKS3[|= STY$01@[†= LDA#$01T[= JSR$FFC3;CLOSEe[š= LDAL1/ 8460+1¦[¤= STAL16900+1;ZWISCHENSPEICHERN DES FEHLERFLAGS VON EMAILSAVE¾[®=;EVTL UEBERFLUESSIGË[¸= LDA#$01Ú[Â= LDXDVEMREç[Ì= LDY#$00\Ö= STYL18460+1;DEFAULT F. KEIN FEHLER EVTL.WEG?+\à= JSR$FFBAH\ê=L15850 LDA#$FF;LAENGE $$f\ô=L15860 LDX#$FF;B/ EGINN LOW\þ= LDY#$80;BEGINN HIGH›\> JSR$FFBD;A=NAMENLAENGE®\> JSR$FFC0;OPENÁ\>L15900 LDA#$2FÎ\&> LDY#$06é\0>L15920 STAVIRAST+$49,Yò\:> DEY]D> BPLL15920]N> JSR$FFB7;SATUS HOLEN*]X> BNEL160007]b> LDX#$01T]l> JSR$FFC6;EINGABE SETZENr]v> B/CCL16030;B.I.FEHLERFREI…]€>L16000 LDY#$FF°]Š> STYL18460+1;FLAG F. FEHLER EVTL.WEG?Æ]”> JMPL16700;FEHLERÚ]ž>L16030 JSR$FFB7é]¨> BNEL16000ö]²> LDY#$06;^¼>L16060 JSR$FFCF;BASIN UEBERSPRINGT 2*LADEADRESSE 2*LINK 2*ZEILNRI^Æ> JSR$FFB7X^Ð> BNEL16000/a^Ú> DEYp^ä> BNEL16060Š^î>L16110 JSR$FFCF;BASIN“^ø> TAX¡^? JSR$FFB7°^ ? BNEL16000¹^? TXAß^ ? BNEL16110;SUCHT ENDE DER 1.ZEILEì^*? LDY#$03_4?L16180 JSR$FFCF _>? STXL18690;FREIE BLOCKS LOW1_H? STXL16350+1R_R? STAL18700;FREIE BLOCKS HIGHc_\?/ STAL16370+1l_f? TAXz_p? JSR$FFB7‰_z? BNEL16000¬_„? DEY;UEBERSPRINGT 2*ZEILENLINK»_Ž? BPLL16180Ì_˜? ASLL16350+1Ý_¢? ROLL16370+1ê_¬? LDA#$00ó_¶? ROL`À? STAL16400+1 `Ê? SEC`Ô? LDA#$00-`Þ?L16350 SBC#$FF<`è? LDAL18690O`ò?L16370 SBC#$FF^`ü? /STAL18690m`@ LDAL18700€`@L16400 SBC#$FF`@ STAL18700œ`$@ LDX#$00±`.@L16430 LDAL18700Æ`8@L16440 STAL18700Û`B@ INCVIRAST+$49,Xê`L@ LDYL18690ó`V@ SECa`@ LDAL18690;FREIE BLOCKS LOW8aj@ SBCL18710,X;40000,4000,40,4 LOWGat@ STAL18690[a~@ LDAL18/700;HIGHaˆ@ SBCL18720,X;40000,4000,40,4 HIGHa’@ BCSL16440Ÿaœ@ STYL18690¨a¦@ INXµa°@ CPX#$05Äaº@ BNEL16430ãaÄ@ LDY#$00;FLAG.F.FEHLERFREIðaÎ@ LDX#$04bØ@ CLC;NICHT SEC=> -1Qbâ@L16610 LDAVIRAST+$49,X;VERMINDERT FREIEN DISKSPACE SICHERHEITSHALBER/cbì@ SBC#$00;UM 1pbö@ CMP#$30bA BCSL16660Œb A LDA#$30§bAL16660 STAVIRAST+$49,XÉbA BCSL16750;B.I.KEIN UNTERTRAGÒb(A DEXáb2A BPLL16610c99999KBcFA LDX#$04/cPAL16720 STAVIRAST+$49,X8cZA DEXGcdA BPLL16720ZcnAL16/750 LDA#$0BmcxA STAVIRAST+$4Ezc‚A LDA#$02cŒA STAVIRAST+$4F·c–A TYA;EQUAL/NOTEQUAL=FEHLERFREI/FEHLERÆc AL16800 PHAâcªA JSR$FFCC;CLEAR CHANNELïc´A LDA#$01d¾A JSR$FFC3;CLOSE dÈA SEIdÒA LDY#RARO&dÜA STY$01>dæA PLA;EQUAL/NOTEQUALXdðA BEQL16900/;B.I.FEHLERydúA JSRL18070;FEHLERKANAL LESENŒdBL16900 LDY#$FFÃdB STYL18460+1;SCHREIBT EMAILSAVE FEHLERFLAG ZURUECKÜdB TAX;EQUAL/NOT EQUALèd"B RTS;" e,B;---------------------------------Se6BL16950 LDY#$36; FILE/ OEFFNEN_e@B STY$01leJB LDA#$02€eTB JSR$FFC3;CLOSEe^B LDY#$00²ehB STYL18460+1;FLAG F. KEIN FEHLER¿erB LDY#$0EÐe|B STYL17250+1üe†BL17030 LDA#$02;->B8 LOGISCHE FILENUMMERfB LDXDVEMRE;->BA DEVICENUMMERAfšB LDY#$02;->B9 SEKUNDAERADDRESSEVf¤B JS/R$FFBA;SETLFS}f®BL17070 LDA#$00;->B7 FILENAME LANGE f¸BL17080 LDX#$FF;->BB BEGINN LOW¾fÂB LDY#$80;->BC GEBINN HIGHÓfÌB JSR$FFBD;SETNAMæfÖB JSR$FFC0;OPEN%gàB JSRL18070;FEHLERKANAL LESEN (SCHALTET AAUF RAM (RARO) UM)MgêB BEQL17480;B.I.FEHLERFREI GEO/EFFNET{gôB LDY#$36;=FEHLER BEIM OEFFNEN NICH 00,OK‡gþB STY$01”gC LDA#$02¨gC JSR$FFC3;CLOSE¶gC LDA$8050Ãg&C EOR#$36Òg0C BNEL17440àg:C LDA$8051ígDC EOR#$33ügNC BNEL17440hXCL17240 LDX#$0E;=63,FILE EXISTS2hbCL17250 CPX#$FFAhlC BNEL17330Rhv/C DECL17250+1bh€C LDA#$2D;"-†hŠC STA$8010,X;AN VORLETZTE STELLE–h”C LDA#$31;"1¦hžC STA$8011,X¸h¨C BNEL17030;" ìh²CL17330 LDA$8011,X;LETZES ZEICHEN DES FILENAMENSùh¼C CMP#$39iÆC BEQL173806iÐCL17360 INC$8011,X;=ZAHL "0" - "8" GEWESENViÚC BNEL170/30;ERNEUT OEFFNEN" ‚iäCL17380 LDA#$30;= 39 GEWESEN UEBERTRAG’iîC STA$8011,X›iøC DEXªiD BPLL17250äi D TXA;MINUS=FEHLER F.ALLE 15 STELLEN D.FILENAMENS VOLLjD STAL18460+1;FLAG F.FEHLERj DL17440 SEI j*D LDY#RARO,j4D STY$015j>D TAXVjHDL17480 /RTS;EQUAL / NOT EQUAL}jRD;---------------------------------Áj\D;WENN MAN DISK RAUSNIMMT,WAEHREND 1541 NICHT AUF DISK ZUGREIIFTüjfD;Z.B.WAEHREND C64 DIE NAECHSTEN PAKETE VOM SERVER HOLTGkpD;=>DIE 1541 SCHLIESST DEN KANAL,OHNE EINE FEHLERMELDUNG IN ERR/ORPUFFERYkzD;ZU SCHREIBENœk„D;BEIM ANSCHLIESSENDEN CHKOUT WIRD ZWAR EIN FEHLER REGISTRIERT,ÞkŽD;ALLERDINGS WUERDE VON DER 1541 00,OK,00,00 AUSGELESEN WERDEN&l˜D;SODASS DAS EMAIL64 MEINEN WUERDE ALLES WAERE OK OBWOHL EMAIL NICHTGl¢D;NICHT KORREKT GES/AVED WURDE~l¬D;=>DESHALB L18460 UM DEVICE NOT PRESENT ABZUFANGENÆl¶DL17590 STAL17780+2;BEGINN HIGH PUFFER SAVENâlÀD STXL17780+1;ENDE+1 LOWÿlÊD STYL17860+1;ENDE+1 HIGHmÔD DEXmÞD TXAmèD EOR#$FF-mòD BEQL17670>müD DECL1778/0+2MmEL17670 TAYZmE LDX#$36fmE STX$01sm$E LDX#$02m.E JSR$FFC9;CKOUT !DARF Y NICHT AENDERN»m8E BCCL17760;B.I.FEHLERFREIÎmBEL17730 LDA#$FFímLE STAL18460+1;FLAG F.FEHLERÿmVE BNEL17880;" n`EL17760 JSR$FFB7;STATUS)njE BNEL17730?ntEL17780 LDA$/FFFF,YTn~E JSR$FFD2;BASOUTinˆE JSR$FFB7;STATUSxn’E BNEL17730nœE INYn¦E BNEL17780¡n°E INCL17780+2²nºE LDAL17780+2ÅnÄEL17860 EOR#$FFÔnÎE BNEL17780ònØEL17880 PHA;EQUAL/NOTEQUALoâE JSR$FFCC;CLRCHoìE SEIoöE LDY#RARO)oF STY$012o F PLA_oF/ BNEL18070;BEI FEHLER: FEHLERKANAL LESENhoF RTSo(F;---------------------------------Óo2FL17970 LDY#$36; FILE CLOSEßo SYSTEM HAENGTêqðF BNEL18360;" rúFL18170 JSR$FFCC;CLRCHrG LDX#$03%rG JSR$FFC6;CHKIN2rG LDY#$0/#0Lr"GL18210 JSR$FFCF;BASINur,G STA$8050,Y;$8050-8077 FEHLERMELDUNG‚r6G CMP#$0D‘r@G BEQL18310šrJG INY§rTG CPY#$28¶r^G BCSL18310ËrhG JSR$FFB7;STATUSÚrrG BEQL18210ãr|G DEYör†GL18310 LDA#$00,sGL18320 STA$8050,Y;BEI 8078 IMMER #00 ALS ENDEFLAG5s/$šG INYBs¤G CPY#$29Qs®G BCCL18320qs¸GL18360 JSR$FFCC;CLRCCHANNELzsÂG SEIˆsÌG LDY#RARO”sÖG STY$01¢sàG LDA$8050¯sêG EOR#$30¾sôG BNEL18580ÌsþG LDA$8051ÙsH EOR#$30tH BNEL18580;B.I.FLOPPY FEHLER MELDETEtHL18460 LDA#$00;FLAG OB ZWISCHEN OPEN UN/%D CLOSE IRGENDEIN FEHLERwt&H;L18460 WIRD AM ANFANG BEI OPEN INITIALISIERT¸t0H;WIRD BEI IRGENDEINEM FEHLER ZWISCHEN OPEN UND CLOSE GESETZTît:H;FALLS FEHLERKANAL = 00,OK =>GIBT FEHLERKANAL AUS7uDH;FALLS FEHLERKANAL = 00.OK + ERRORFLAG GESETZT => DEVICE/& NOT PRESENTnuNH BEQL18580;B.I.KEIN FEHLER WAEHREND OPEN BIS CLOSEuXHL18520 LDX#$1B˜ubHL18530 LDAL18760,X¾ulH STA$8050,X;99,DEVICE NOT PRESENTÇuvH DEXÖu€H BPLL18530éuŠH TXA;NOT EQUALøu”HL18580 RTSvžH;---------------------------------cv¨HL1860/'0 LDY#$36; DEINITIALISIERENov²H STY$01|v¼H LDA#$03vÆH JSR$FFC3;CLOSE™vÐH SEI§vÚH LDY#RARO³väH STY$01¼vîH RTSãvøH;---------------------------------wIL18690 .BY$00;FREIE BLOCKS AUF DISK LOWIL18750 .TX"*=SxHIL18760 .TX"99,DEVICE NOT PRESENT ERROR,xRI .BY$00;E0NDEFLAGZx\I .BA$A000;START EINSPRUNG RECEIVED->SAVE}xfI JMPL15040;A000 INITIALISIEREN xpI JMPL15730;A003 FREIE KB HOLENÁxzI JMPL16950;A006 FILE OEFFNENâx„I JMPL17590;A009 PUFFER SAVENyŽI JMPL17970;A00C FILE CLOSE'y˜I JMPL18070;A00F FEHLERKANAL L0ESENLy¢I JMPL18600;A012 DEINITIALISIERENxy¬I .BY$B0;A015 HIGHBYTE BEGINN SAVEPUFFER–y¶I;ENDE IMMER BEI BFFF/C000¶yÀI;=>SVAEPUFFER VON B000-BFFFìyÊI;! 5 BYTE DAVOR WIRD ENDEFLAG ZWISCHENGESPEICHERT)zÔI;=> SAVE-ROUTINE / RS232-SEND-BUFFER MUSS BEI AF FA ENDENI .BA$A000;START EINSPRUNG RECEIVED->SAVE}xfI JMPL15040;A000 INITIALISIEREN xpI JMPL15730;A003 FREIE KB HOLENÁxzI JMPL16950;A006 FILE OEFFNENâx„I JMPL17590;A009 PUFFER SAVENyŽI JMPL17970;A00C FILE CLOSE'y˜I JMPL18070;A00F FEHLERKANAL L0Ø÷%N;!MIT ZEILE 20006 BEGINNEN /N; .EQ MODE=0) 9N; .EQ MODE=18 CN .IFMODE=2A MN .ELR WN .EQZPA0=$50c aN .EQZPA1=$51t kN .EQZPA2=$52… uN .EQZPA3=$53– N .EQZPA4=$54§ ‰N .EQZPA5=$55¸ “N .EQZPA6=$56É N .EQZPA7=$57Ú §N .EQZPA08=$58ë ±N .EQZPA9=$59ü »N .EQZPB0=$60 !ÅN .EQZPB1=$61!ÏN .EQZPB2=$62/!ÙN .EQZPB3=$63@!ãN .EQZPB4=$64Q!íN .EQZPB5=$65b!÷N .EQZPB6=$66s!O .EQZPB7=$67„! O .EQZPB8=$68•!O .EQZPB9=$69¨!O .EQENRELO=$F7»!)O .EQENREHI=$F8Î!3O .EQBERELO=$FBá!=O0 .EQBEREHI=$FCô!GO .EQTXNMIP=999"QO .EQBEBUHI=999"[O .EQENBULO=999-"eO .EQENBUHI=999@"oO .EQCRCLOW=999S"yO .EQCRCHIG=999f"ƒO .EQCRCBYT=999y"O .EQCOOFON=999Œ"—O .EQAUNOYE=999Ÿ"¡O .EQWABUSE=999²"«O .EQCOFOAU=999Å"µO .EQSESTAT=999Ø"¿O .EQSEI0PAD=999ë"ÉO .EQCLIPAD=999þ"ÓO .EQPRIDNS=999#ÝO .EQSECDNS=999$#çO .EQPRSEDN=9997#ñO .EQSENEDN=999L#ûO .EQSEBU01=$F400a#P .EQSEBU02=$FA00t#P .EQPSACCO=999‡#P .EQPSIDAD=999š##P .EQPRMERC=999­#-P .EQPRMESE=999À#7P .EQPRMENO=999Ó#AP .EQLOAFIL0=999æ#KP .EQBYRSIN=999ù#UP .EQWAMOME=999 $_P .EQBYRSOU=999$iP .EQCYRECS=9992$sP .EQSEACCO=999E$}P .EQSEBUF4=999X$‡P .EQSEBUFA=999k$‘P .EQSEBUAC=999~$›P .EQANAPPP=999‘$¥P .EQSTANPP=999¤$¯P .EQIDCORJ=999·$¹P .EQIDPRRJ=999Ê$ÃP .EQCSIPHE=999Ý$0 ÍP .EQSEQNUM=999ð$×P .EQFIIPHE=999%áP .EQTCPHDR=999%ëP .EQCSTCHD=999)%õP .EQTXINPR=999<%ÿP .EQTXEMAC=999O% Q .EQFIIPUD=999b%Q .EQQTYQCL=999u%Q .EQIAPOP3=999ˆ%'Q .EQIASMTP=999›%1Q .EQEMADBP=999®%;Q .EQCOEMAP=999Á%EQ .EQCOEMAS=999Ô%OQ .EQA0 CEMAD=999ç%YQ .EQTCHEOP=999ú%cQ .EQCOSEAD=999 &mQ .EQTXEMLO=999 &wQ .EQTXEMHI=9993&Q .EQSEIPCH=999F&‹Q .EQSEIPNC=999Y&•Q .EQSENCOM=999l&ŸQ .EQTXCOBI=999&©Q .EQSETCAN=999’&³Q .EQTXENFL=999¥&½Q .EQTXDIMA=999¸&ÇQ .EQTXTY1D=999Ë&ÑQ .EQDNSYFI=90 99Þ&ÛQ .EQLTCPDL=999ñ&åQ .EQLTCPDH=999'ïQ .EQTCPDNY=999'ùQ .EQTXTHCP=999*'R .EQTXIPTR=999=' R .EQPRTEXT=999P'R .EQGETKEY=999c'!R .EQEMSENY=999v'+R .EQUDPOSM=999‰'5R .EQBETCDA=999œ'?R .EQTXDDNE=999¯'IR .EQFIIPUT=999Â'SR .EQNTADBU=999Õ']R0 .EQNTSECE=999è'gR .EQNTSEYE=999û'qR .EQNTSEMO=999({R .EQNTSEDA=999!(…R .EQNTSEHO=9994(R .EQNTSEMI=999G(™R .EQDACENT=999Z(£R .EQDAYEAR=999m(­R .EQDAMONT=999€(·R .EQDATDAY=999“(ÁR .EQDAHO24=999¦(ËR .EQDAHOAP=999¹(ÕR .EQDAMINU=999Ì(ßR .EQDAS0 ECU=999ß(éR .EQTAMONT=999ò(êR .EQVIRAST=999)óR;=================================()ýR .IFMODE=06)S .BA$E001?)S .EIN)S .IFMODE=1\)%S .BA$E001e)/S .EIt)9S .IFMODE=1‚)CS .LI4,4,0‹)MS .EI™)WS;"6-MAIN¸)aS;"MIT ZEILE 20006 BEGINNENñ)kS .EQAN0CORQ=L21475;ANALYSE CONFIGUREREQUEST (LCP&NCP)'*uS .EQANLCAC=L23715;ANALYSE L-CONFIGURE ACKNOWLEDGE`*S .EQANLCNA=L23805;ANALYSE L-CONFIGURE NOTACKNOWLEDGE‘*‰S .EQANLCRJ=L23825;ANALYSE L-CONFIGURE REJECTÃ*“S .EQALTERE=L23925;ANALYSE L-TERMINATE REQUE0STù*S .EQALTEAC=L24095;ANALYSE L-TERMINATE ACKNOWLEDGE/+§S .EQANNCAC=L24205;ANALYSE N-CONFIGURE ACKNOWLEDGEh+±S .EQANNCNA=L24935;ANALYSE N-CONFIGURE NOTACKNOWLEDGE™+»S .EQANNCRJ=L25265;ANALYSE N-CONFIGURE REJECT¨+ÅS JMPL63400Ð+ÏS;-----------------0--------------" ÷+ÙS;=================================<,ãSL21475 STX$FA02;CONFIGURE REQUEST BEARBEITEN RCV LCP/NCPX,íS JSRPRMERC;RCV CNFG RQS,÷S LDX#$00;FLAG F.KEIN CONFIGURE NAK´,T BEQL22065;WICHTIG,FALLS KEIN OPTIONSCODE GIBT" Ó, TL215015 LDY#$00;OPTIONSCODEú,T LDA(ZPA4),Y;AKTUELLER OPTIONSCODE-T BIT$FA02;HIGHBYTE PROTOCOLLCODE6-)T BVCL21975;B.I.NCPD-3T INY;=LCPR-=T INY;#$02~-GT CMP#$02;ASYNC-CONTROL-CHARCTER-MAP LCP-QT BNEL21665š-[T INY;#03Â-eT LDA(ZPA4),Y; 00000000 000001010æ-oT AND#$0A; 00001010 00001010 .yT CMP#$0A; 00000000 000010100.ƒT BEQL21995;CMP 00001010 00001010I.T INX;#01 FLAG F. NAK[.—T BNEL21995;" ‰.¡TL21665 CMP#$03;AUTHENTICATE PROTOCOLL LCP˜.«T BNEL21915©.µT LDA(ZPA4),Y¶.¿T CMP#$C0Å.0ÉT BNEL21755Î.ÓT INYß.ÝT LDA(ZPA4),Yì.çT CMP#$23/ñT BEQL21855;B.I.PAP ZUSAETZLICH MINUS 1J2;V LDAZPA2;ENDE LOW +1b2EV SBCZPA4;VECTOR LOW|2OV LDAZPA3;ENDE HIGH +1•2YV SBCZPA5;VECTOR HIGH§2cV BCSL21515;" »2mV LDA#0$03;CFGNAKñ2wV CPX#$00;BEI LCP OB ACK/NAK. BEI NCP IMMER X=#00?3V BNEL221653‹V LDA#$02;CFG ACKF3•VL22165 STA$FA04;ANTWORT AUF CONFIGZREREQUESTO3ŸV CLCx3©V ADC#$82;02/03/04->84/85/86 ANPASSEN†3³V BIT$FA023½V BVSL22225;B.I.LCP¾3ÇV ADC#$07;2/4-0>8B/8D ANPASSENÍ3ÑVL22225 TAYñ3ÛV JSRPRMESE;SND CFGR ACK NAK RJCú3åV CLC4ïV LDAZPA0;POSD.BEFEHLSCODES&4ùV ADC#$04H4W STAZPA4;POS D.1.OPTIONSCODESU4 W LDA#$EE‚4W STAZPA5;POS D.1./AKTUELLEN OPTIONSCODES4!W LDA#$FF4+W STA$FA00ª45W LDA#$03¸40?W STA$FA01Å4IW LDA#$21þ4SW STA$FA03;PROTOCOLLCODE LOW (HIGH IST GESETZT 80/C0) 5]W LDY#$01'5gW LDA(ZPA0),Y;IDENTIFIER55qW STA$FA05B5{W LDA#$08d5…W STAZPA6;VECTOR ZUM SCHREIBENq5W LDA#$FA~5™W STAZPA7¸5£W JMPL23485;WICHTIG FALLS ES KEINEN OPTIO0NSCODE GIBT" Ë5­WL22445 LDY#$00ò5·W LDA(ZPA4),Y;AKTUELLER OPTIONSCODE6ÁW LDX$FA04;CONFIGURE ANTWORT BEFEHL'6ËW BIT$FA02>6ÕW BVCL22925;B.I.NCPL6ßW INY;=LCPZ6éW INY;#$02g6óW CPX#$02ˆ6ýW BNEL22605;B.I.NICHT CFG ACK¢6X CMP#$03;=CFG ACK LCPÐ6X B0NEL23035;B.I.NICHT AUTHENTICATE REQUESTÝ6X LDA#$807%X STAAUNOYE;SETZT FLAG FUER ATCT RQS7/X LDA#$C8H79X STAWABUSE;BIT7=WARTEN BIT6=F400-F9FF BIT3-0=8SECZ7CX BNEL23035;" m7MXL22605 CPX#$03Ž7WX BNEL22835;B.I.NICHT CFG NAKÂ7aX LDX#$00;FLAH F.ACCM0 =LCFG NAK LCPê7kX CMP#$02;ASYNC-CONTROL-CHARCTER-MAPù7uX BNEL227158X INY;#03.8‰X LDA(ZPA4),Y; 00000000 00001010R8“X AND#$0A; 00001010 00001010v8X CMP#$0A; = 00000000 00001010®8§X BNEL23035;CMP 00001010 X=#00 ACCM MUSS N0AK WERDENÛ8±X JMPL23415;=ACCM MUSS NAK NICHT WERDEN" 9»XL22715 CMP#$03;AUTHENTICATE PROTOCOLL9ÅX BEQL22745#9ÏX JMPL23415K9ÙXL22745 LDA(ZPA4),Y;AUTHENTICATE ARTX9ãX CMP#$C0g9íX BNEL22815p9÷X INY9Y LDA(ZPA4),YŽ9 Y CMP#$23¯9Y BEQL23415;C023=0PAP=KEIN NAK×9YL22815 INX;#$01 FLAG F.AUTHENTICATEé9)Y BNEL23035;" :3YL22835 CMP#$02;=CFG RJCLCP :=Y BEQL23415;B.I.ACCM-:GY CMP#$03E:QY BEQL23415;B.I.ATCTR:[Y CMP#$07q:eY BEQL23415;B.I.COMPRESSION~:oY CMP#$08:yY BEQL23415;B.I.COMPRESSION¯:ƒ0Y BNEL23035;" Ç:YL22925 CPX#$02;=NCPç:—Y BNEL23015;B.I.SND NCFG RJC;¡Y LDY#$02;=SND NCFG ACK KANN NURSERVER IP SEIN3;«YL22955 LDA(ZPA4),Y`;µY STASEIPAD-2,Y;KOPIERT SERVER IP ADDRESSi;¿Y INYv;ÉY CPY#$06…;ÓY BCCL22955—;ÝY BCSL23035;" ¸;çYL230 015 CMP#$03;=SND NCFG RJCø;ñY BEQL23415;B.I.SERVER IP ADDRESS (KOPIERT SIE NICHT B.RJC" 5<ûYL23035 LDY#$01;=AKTUELLER OPTIONCODE MUSS KOPIERT WERDENM<Z LDA(ZPA4),Y;LAENGE^<Z STAL23335+1m<Z DEY;# $00¢<#ZL23075 LDA$FA04;ACK (%010) NAK (%011) RJC (0!%100)«<-Z LSRÓ<7Z LDA(ZPA4),Y;ZU KOPIERENDES ZEICHENá‘Z BNEL23315;" />›ZL23195 CPY#$03;=AUTENTICATIONW>¥Z BEQL23305;KOPIERT NAK AUTHENTICATEd>¯Z CPY#$02s>¹Z BEQL23285€>ÃZ CPY#$01±>ÍZ BNEL23315;04 C023 A0#LS ERLAUBTER WERT SENDEN¾>×Z LDA#$04Ï>áZ STAL23335+1Û>ëZ .BY$2Cî>õZL23285 LDA#$C0ú>ÿZ .BY$2C ? [L23305 LDA#$23$?[L23315 STA(ZPA6),Y-?[ INY@?'[L23335 CPY#$FFR?1[ BCCL23075;" {?;[ TYA;LAENGE D.AKTUELLEN OPTIONSCODES„?E[ CLC‘?O[ ADCZPA6¶?Y[ 0$STAZPA6;SCHREIB-VECTOR ERHOEHENÅ?c[ BCCL23415Õ?m[ INCZPA7;" è?w[L23415 LDY#$01#@[ LDA(ZPA4),Y;LAENGE D.SOEBEN BEARBEITETEN OPTIONSCODES,@‹[ CLCN@•[ ADCZPA4;LESE-VECTOR ERHOEHEN[@Ÿ[ STAZPA4j@©[ BCCL23485w@³[ INCZPA5†@½[L23485 CLCš@Ç[ LDAZPA2;E0%NDLOW§@Ñ[ SBCZPA4´@Û[ LDAZPA3Á@å[ SBCZPA5â@ï[ BCCL23555;B.I.ENDE ERREICHT Aù[ JMPL22445;ZUMNAECHSETEN OPTIONSCODE" A\L23555 SEC7A \ LDAZPA6;ENDE LOW (+1)@A\ TAX\A!\ SBC#$04;BEFEHLSCODE LOvA+\ STA$FA07;=LAENGE LOW’A5\ LDAZPA7;ENDE HIGH (+1)0&›A?\ TAY¹AI\ SBC#$FA;BEFEHLSCODE HIGHÔAS\ STA$FA06;=LAENGE HIGH÷A]\ JSRSEBUFA; PUFFER FA00 SENDEN6Bg\ LDA$FA04;OPTIONCODE?NAK/RJC=>NOTEQUAL=>TIMERABLAUF WARTEN]Bq\ EOR#$02;ACK=>EQUAL=>SOFORT SENDEN…B{\ STAVIRAST+$3DE;!!!!NURPROVISORISCH«B…\ TAY;WA0'HRSCHEINLICH UEBERFLUESSIGåB\ RTS;ANALYSE CONFIGURE REQUEST LCP&NCP ENDE ANCFRQ" C™\;=================================PC£\L23715 LDA#$80;ANANLYSE LCP ACK VON SERVER ANLCACC­\;IST NICHT GANZ RICHTIG, GEHT NUR WENN NUR EINE ART CFGRQS1 GESENDET WIRDëC·\;VERGLEICHEN, OB GESENDETES UND EMPFANGENS PAKET IDENTISCH?!!!!!!!!!!!!!! DÁ\ STACOOFON;COMPRESSION ONDË\ LDA#$29SDÕ\ STABETCDA;BEGINN TCP-DATA (BEIM SENDEN) BEI F429 FA29 (cDß\;STATT FA2C}Dé\ LDY#$84;RCV LCFG ACK‰Dó\ .BY$2CÍDý1\L23805 LDY#$85;ANALYSE LCP NOTACKNOWLEDGE VON SERVER ANLCNAÙD] .BY$2CE]L23825 LDY#$86;ANALYSE LCP REJECT VON SERVER ANLCRJ,E] JSRPRMERC9E%] LDA#$20HE/] CMPSESTAT„E9] BEQL24185;B.I. LCP CFG ANTWORT BEREITS ERHALTEN GEHABTµEC] S1TASESTAT;=ERSTE LCP CFG ANTWORT VON SERVERáEM] LDA#$C7;8SEC F400 WARTEN !!!!!FA00ðEW] STAWABUSE+Fa] LDA#$00;EQUAL=>SOFORT SENDEN,WEIL ANDERS CLIENT-PHASEeFk] RTS;ANALYSE LCP...VON SERVER ENDE ANLC.." ©Fu]L23925 LDY#$87;ANALYSE LCP TERM1INAT REQUEST ALTERE¸F] JSRPRMERCËF‰] LDA#<(TXIPTR)ÞF“] LDX#>(TXIPTR)G] JSRPRTEXT;INTERNET PROVIDER SENDS TERMIANTE REQUEST*G§] LDA#<(TXTHCP)=G±] LDX#>(TXTHCP)iG»] JSRPRTEXT;TERMINATE? HANGUP? CONTINUE?~GÅ]L24005 JSRGETKEY‹GÏ] CMP1#$43šGÙ] BNEL24045¦Gã] RTS;" ¹Gí]L24045 CMP#$30ÈG÷] BCCL24005ÕG^ CMP#$33äG ^ BCSL24005 H^ RTS;AENDERN IN JMP SESTAT AENDERN" QH^L24095 LDY#$88;ANALYSE LCP TERMINAT ACKNOWLEDGE ALTEAC`H)^ JSRPRMERCoH3^ LDASESTAT|H=^ CMP#$F0¼HG^ BNE1L24165;B.I.NICHT IN TERMINATE REQUEST FASE (WAS MACHEN?ÐHQ^ LDA#$FD;HANGUPìHS^ BIT$0350;DIALUP NO YESIT^ BMIL24155;B.I.DIALUP8IU^ LDA#$FE;KEIN DIALUP => KANN NICHT AUFHAENGENMI[^L24155 STASESTATeIe^L24165 JMPSENCOM;" ŒIo^;========================1=========ÅIy^L24185 LDA#$01;KEINE AENDERUNG DER CLIENT SEND PHASEøIƒ^ RTS;NOT EQUAL=>MIT SENDEN AUF TIMER WARTEN" NÍ_ LDA#$06GN×_ CLCTNá_ ADCZPA4aNë_ STAZPA4jNõ_ CLCwNÿ_ LDAZPA2„1 N ` SBCZPA4“N` BCSL24405¢N` LDAPRSEDNÒN'` BNEL24675;B.I.EINE DNS ADDRESSE VORHANADENO1`L24625 LDY#$09;SERVER SENDET KEINE DNS + DNS NICHT IN CONFIG'O;` JSRPRMENO;FILE4OE` LDA#$F0COO` STASESTATcOY` RTS;ODER COMMANDO SENDE?" vOc`L24675 LDX#$031 Om`L24685 LDACLIPAD,XÊOw` STAFIIPHE+$10,X;KOPIERT CLIENTIP ADDRESS=SOURCE ADDRESSßO` STAFIIPUD+$10,XôO‹` STAFIIPUT+$10,XýO•` DEX PŸ` BPLL24685-P©` LDY#$03;VECTOR AUF PRIM DNSSOFORT SENDEN,CLIENT-SEND-PHASE-WECHSELèQ5a;!!NOCH SCHAUEN OB STIMMT"R?a RTS;ANALYSE NCP ACKNOWLEDGE ENDE ANNCAC" WRIaL24905 LDA#$FF;KEIN CLIENT-SEND-PHASEN-WECHSEL=>€RSa RTS;SENDEN ERST NACH1 TIMERABLAUF" §R]a;---------------------------------ëRgaL24935 LDY#$8C;ANALYSE NCP NOTACKNOWLEDGE ANNCNAúRqa JSRPRMERC S{a LDAPSIDAD+5S…a LDY#$01USa CMP(ZPA0),Y;VERGLEICHT EMPFANGENER/AKTUELLER IDENTIFIERjS™aL24985 BNEL24905ŽS£a1 INCPSIDAD+5;ERHOEHT IDENTIFIER¡S­aL25005 LDY#$00½S·a LDA(ZPA4),Y;OPTIONCODEèSÁa LDX#$00;VECTOR AUF CLIENT IP ADDRESSSõSËa CMP#$03TÕa BEQL25095.Tßa LDX#$04;VECTOR AUF PRIM DNS ADDRESSS;Téa CMP#$81JTóa BEQL25095{Týa LDX#$08;MUSS VECTOR AUFSEC DN1S ADDRESS SEINŽTbL25095 LDY#$02¥TbL25105 LDA(ZPA4),Y¶Tb STACLIPAD,X¿T%b INXÈT/b INYÕT9b CPY#$06äTCb BCCL25105íTMb TYAöTWb CLCUab ADCZPA4Ukb STAZPA4Uub CLC&Ub LDAZPA23U‰b SBCZPA4BU“b BCSL25005vUb LDA#$00;EQUAL=>KORRIGIERTE DATEN SO1FORT SENDEN¶U§bL25255 RTS; ENDE ANNCNA" úU±bL25265 LDY#$8D;ANALYSE NCP REJECT------------------------ANNCRJ V»b JSRPRMERCVÅb LDAPSIDAD+5'VÏb LDY#$01dVÙb CMP(ZPA0),Y;VERGLEICHT EMPFANGENER/AKTUELLER IDENTIFIERsVãb1 BNEL24985—Víb INCPSIDAD+5;ERHOEHT IDENTIFIERªV÷bL25335 LDY#$00ØVc;BIT7=SERVER KANN PRIDNS NICHT VERHANDELNW c;BIT6=SERVER KANN SECDNS NICHT VERHANDELN"Wc LDA(ZPA4),Y;OPTIONCODE/Wc CMP#$03>W)c BNEL25445|W3c LDY#$07;=SERVER KANN CLIENT IP ADDR1ESS NICHT VERHANDELN?‹W=c JSRPRMENO˜WGc LDA#$F0§WQc STASESTATÅW[c RTS;ODER SOFORT SENDEN?"ØWecL25445 CMP#$81çWoc BNEL25645Xyc LDY#$08;NO DENS NEGOTIATIONXƒc JSRPRMENOIXc LDASENEDN;=SERVER KANN PRIDSNICHT VERHANDELN†X—c ORA#$80;SETZT FLAG, DA1SS SERVER PRIDNS NICHT VERHANDELT•X¡c STASENEDNÈX«c LDY#$03;SERVER KANN PRIM DNS NICHT VERHANDELNYµcL25525 LDAPRIDNS,Y;WURDE ANFANGS V.0344 NACH 82XY KOPIERT9Y¿c BNEL25585;B.I.PRIM-DNS IN CONFIG FILE GESETZTBYÉc DEYQYÓc BPLL25525‰YÝc BMIL25715;B.1I.PRIDNS NICHT IN CONFIG-PRG GESETZT" ÓYçc;SERVER VERHANDELT PRIDNS NICHT ABER PRIDNS IN CONFIGURE GESETZT = OKèYñcL25585 LDAPRSEDNZûc;PRIDNS IN CONFIG GESETZT+SERVER VERHANDELT NICHTQZd;=>GESETZTE PRIDNS OHNE VERHANDLUNGUEBERNEHMENŠZd ORA#$80;SE1TZT FLAG FUER PRIM DNS ADDRESSE VORHANDEN™Zd STAPRSEDN«Z#d BNEL25715;" ¾Z-dL25645 CMP#$83ÍZ7d BNEL25715íZAd LDY#$08;NO DNS NEGOTIATIONüZKd JSRPRMENO0[Ud LDASENEDN;=SERVER KANN SECDNS NICHT VERHANDELNm[_d ORA#$40;SETZT FLAG, DASS SERVER SECDNS NI1CHT VERHANDELT|[id STASENEDN[sdL25715 LDY#$01§[}d LDA(ZPA4),Y;LAENGE°[‡d CLC½[‘d ADCZPA4Ê[›d STAZPA4Ó[¥d CLCè[¯d LDAZPA2;ENDELOWõ[¹d SBCZPA4\Ãd BCSL253357\Íd LDA#$00;EQUAL=>KORRIGIERTEDATEN SOFORT SENDENw\×dL25815 RTS;ANALYSE NCP REJECT----o------------ENDE ANNCRJ" †\¨÷L63400 NOP•\²÷ .IFMODE=2©\¼÷ .AP"7-MAIN*",8²\Æ÷ .EL»\Ð÷ .ENÈ\Ú÷ .EI;" ZAd LDY#$08;NO DNS NEGOTIATIONüZKd JSRPRMENO0[Ud LDASENEDN;=SERVER KANN SECDNS NICHT VERHANDELNm[_d ORA#$40;SETZT FLAG, DASS SERVER SECDNS NI1Ø÷(N;!MIT ZEILE 20010 BEGINNEN 2N; .EQ MODE=0) Q .EQCOEMAD=999Á%HQ .EQACEMAD=999Ô%RQ .EQT1 CHEOP=999ç%\Q .EQCOSEAD=999ú%fQ .EQTXEMLO=999 &pQ .EQTXEMHI=999 &zQ .EQSEIPCH=9993&„Q .EQSEIPNC=999F&ŽQ .EQSENCOM=999Y&˜Q .EQTXCOBI=999l&¢Q .EQSETCAN=999&¬Q .EQTXENFL=999’&¶Q .EQTXDIMA=999¥&ÀQ .EQTXTY1D=999¸&ÊQ .EQDNSYFI=999Ë&ÔQ .EQLTCPDL=91!99Þ&ÞQ .EQLTCPDH=999ñ&èQ .EQTCPDNY=999'òQ .EQTXTOP=999'üQ .EQTXRETR=999)'R .EQTXDELE=999<'R .EQTXSFRT=999O'R .EQTXLENG=999b'$R .EQCOEMAI=999u'.R .EQPRTEXT=999ˆ'8R .EQTXDOSK=999›'BR .EQTXDEPR=999®'LR .EQTXPR12=999Á'VR .EQGETKEY=999Ô'`R 1".EQTXSHNK=999ç'jR .EQTXNOSU=999ú'tR .EQTXILCH=999 (~R .EQTXSUCH=999 (ˆR .EQTXDEYN=9993(’R .EQTXWAOF=999F(œR .EQTXESFI=999Y(¦R .EQTXESRE=999l(°R .EQEXSESE=999(ºR .EQLTCPD0=999’(ÄR .EQEXSEAC=999¥(ÎR .EQTXWRAC=999¸(ØR .EQSETASA=999Ë(âR .EQSETA1#IS=999Þ(ìR .EQAPINEM=999ñ(öR .EQTXNSAE=999)÷R .EQVIRAST=999)øR .EQPRERWA=999 )S .EIG) S;=================================V)S .IFMODE=0d)S .BA$E001m)(S .EI|)2S .IFMODE=1Š)(TXWRAC)(.¸T JMPPRTEXT;" j.ÂTL21698 STAL21778+1;ANALYSE POP CONTENT BITS A=CONTENT-BITSw.ÌT LDX#$20ˆ.ÖT STXL21788+1©.àT LDY#$95;TCP (OHNE WAS DAZU)¸.êT JSRPRMERC2Å.ôT LDA#$D0Ö.þT STAL21868+1ð.U LDY#$05;BIT-POSITION/UL21778 LDA#$FF;CONTENT-BITS-/UL21788 AND#$FF;BIT-MASKEN/&U BEQL21928;B.I.BIT GELOESCHT[/0U TYA;5-0d/:U ASLm/DU ASLv/NU TAX¾/XUL21848 LDATXCOBI,X;TEXT CONTENT BITS SYN FIN RES PUS 2ACK URGË/bU AND#$3F0lUL21868 STAVIRAST+$3D0;STELLE AUF SCREEN NACH 'RCV TCP'0vU INCL21868+1 0€U INX)0ŠU TXA60”U AND#$03E0žU BNEL21848\0¨UL21928 LSRL21788+1e0ªU DEYt0¬U BPLL217780®U LDY#$0DŸ0°U LDA(ZPB2),Y;CONTENT BITS¶0²U LSR;FIN INS CARR2YÒ0´U BCCL22448;B.I.KEIN FINá0¶U LDASESTAT1¸U AND#$3C;LOESCHT BIT 7 6 1 01ºU CMP#$10/1¼U BEQL22148;B.I.IN FIN FASE>1¾U LDASESTATP1ÀU CMP#$8D;QUIT_1ÂU BNEL21960–1ÄU LDA#$92;HAT NACH QUIT-ANFRAGE SOFORT FIN ERHALTEN¨1ÆU BNEL21968;" Â1ÈUL219602 AND#$7F;CE->4EÚ1ÊU CMP#$4E;4E CE QUIT2ÌU BNEL22038;B.I.FIN NICHT NACH QUIT-ANFRAGE ERHALTEN'2ÍU LDASESTAT;4E CE:2ÏU EOR#$1C;52 D2O2ÐUL21968 STASESTAT\2ÒU LDY#$0Di2ÔU LDA#$00 2ÖU STA(ZPB2),Y;LOESCHT CONTENT BIT BESONDERS ACK-BITâ2×U;ACK-BIT MUS2S GELOESCHT WERDEN,DAMIT NACH RTS ZU HAUPTROUTINE/3ØU;DIESES NICHT DENKT ES HATTE SCHON DAS ACK FUER DIE FIN ANFRAGE ERHALTENK3âU BEQL22138;FIN-SENDEN" 3VL22038 LDA#<(TXESFI);TEXT EMAILSERVER WANTS TO FINISH CONNECTIONÂ3 V LDX#>(TXESFI);FINISH / TR2Y TO CONTINUE (F/C)Ñ3*V JSRPRTEXTæ34VL22068 JSRGETKEYõ3>V CMP#$43;C4HV BEQL224184RV CMP#$46;F"4\V BNEL22068Y4fV LDA#$D2;=FIN ERHALTEN / MUSS ABER FIN NOCH SENDENh4pV STASESTAT€4zVL22138 JMPSETCAN;" ¡4„VL22148 LDASESTAT;IN FIN FASE®4ŽV ORA#$023½4˜V STASESTAT5¢V;WENN MAN IN FIN FASE IST, MUSS EM64 BEREITS EIN FIN GESENDET HABENJ5¬V;=>DAS EMPFANGENE FIN PAKET ENTHAELT AUCH DAS ACK FUERS EM64-FINz5¶V;=>PRAKTISCH 50->53 /D0->D3 (=ENDE V. FIN)©5ÀV JSRSETCAN;SENDET ACK FUERS FIN (OHNE FIN)í25ÊV;NOCH ABFANGEN:WAS PASSIERT,WENN DIESE ACK-PAET VERLOHREN GEHT?46ÔV;SERVER SENDET WEITER FIN ANFRAGEN,ABER EM64 IST NICHT IN FIN-FASEZ6ÞV;=>SENDET NIE ACK FUER FIN WUNSCHž6èVL22248 LDA#$70;FALS JETZT=POP3FREISCHLTN->UDP-SMTP ENDE V.FINÅ6òV LDX$C2 FC8;LAENGE V.TIMESERVER NAMEç6üV BEQL22288;B.I.KIEN NAME GIBT7W LDA#$60;NETTIME DNS & TIME MACHEN#7WL22288 LDXSESTATL7W BPLL22398;B.I.TCP-POP3-FREISCHALTENl7$W LDA#$B0;UDP-POP3-EMPFANGEN°7.W;FALLS KEIN SMTP-AFTER-POP: MUSS JETZT NOCH POP3-ADRES2 SEN HOLENÇ78W BIT$CEF0;AUTH-ARTï7BW BPLL22368;B.I.NICHT SMTP-AFTER-POP8LW LDA#$C0;TCP-POP-EMPFANGEND8VW;ADRESSEN WURDEN BEREITS BEIM FREISCHALTEN GEHOLTW8`WL22368 CPX#$C0Š8jW BCCL22398;B.I.JETZT=SMTP (= ->POP3-EMPFANGEN)Å8tW LDA#$F0;FALLS JETZT=P2 OP3 EMPFANGEN->TERMINATE REQUESTÚ8~WL22398 STASESTAT9ˆW JMPSETCAN;DUERFTE FALSCH SEIN ?SENCOM" 9’WL22418 LDY#$0D,9œW LDA(ZPB2),Y89¦W LSR;" U9°WL22448 LSR;SYN INS CARRYq9ºW BCCL22588;B.I.KEIN SYNz9ÄW TAX‰9ÎW LDASESTAT–9ØW AND#$3F£9âW CMP#$032 ²9ìW BCSL22578Á9öW LDASESTATö9X ORA#$02;SETZT FLAG F.SYN ERHALTEN 40->42 41->43: X STASESTAT?:X;ACK BIT IST IMMER GESETZT (AUSSER BEI INITIALEM SYN):X;SOLLTE SYN BIT OHNE ACK-BIT GESETZT SEIN,DANN WIRD NIE ACK GESENDET!!!!!¶:(X;FEHLERMELDUNG 2 SERVER WANTS SYN?????È:2XL22578 TXA;" ç:(TXESRE);RESET / TRY TO CONTINUE (R/C)x;dX JSRPRTEXT;nXL22638 JSRGETKEYœ;xX CMP#$43;C«;2‚X BEQL22938º;ŒX CMP#$52;RÉ;–X BNEL22638õ; X INCTCPHDR+4;ERHOEHT SEQUENZNUMMER HIGH"<ªX LDASESTAT;40-5F C0-DF SYN FASE SETZEN<<´X AND#$C0;40-40 C0-C0K<¾X STASESTATz<ÈX JMPSENCOM;COMMANDO SENDEN ENDE APCOBI" À<ÒXL22738 LDASESTAT;=IN EROEFFNUN2GSFASE MIT SYN & ACK APSYACû<ÜX ORA#$01;40->41 42->43 80->81 82->83 C0->C1 C2->C3!=æX;40-43=POP3 80-83=SMTP C0-C3=POP3S=ðX STASESTAT;SETZT FLAG F.ACK V.SERVER ERHALTENe=úX LDX#$04;POP3r=Y AND#$F0=Y CMP#$80Ž=Y BNEL22828 ="Y LDX#$082;SMTPæ=,YL22828 STXCOSEAD;AB JETZT SERVERADRESSE VERGLEICHEN MIT POP3/SMTPó=6Y LDY#$0C>@YL22848 LDA(ZPB0),Y;IP HEADER SOURCE IPF>JY STAIAPOP3-$04,X;=SERVER IP ADRESSE_>TY STAFIIPHE+$14-$0C,Yh>^Y INYq>hY INX~>rY CPY#$10>|Y BCCL22848«>†Y LDA#$C23;4SECUNDEN WARTENÍ>Y STAWABUSE;ENDE SND TCP-ACK" ê>šYL22938 RTS;ENDE APSYAC" .?¤YL22948 LDA#$30;HOLT ANZAHL EMAILS ANALYSE POP STATO?®Y STAVIRAST+$26;ANZAHL EMAILSd?¸Y STAVIRAST+$27;"†?ÂY STAVIRAST+$22;AKTUELLE EMAIL›?ÌY STAVIRAST+$223;"¨?ÖY LDY#$04É?àY LDX#$00;FLAG F.KEINNE EMAILî?êYL23018 LDA(ZPB4),Y;TEXT NACH +OKû?ôY CMP#$3A @þY BCSL23258@Z CMP#$30&@Z BCCL23258=@Z BEQL23088;B.I."0"i@&Z INX;SETZT FLAG DASS EMAIL(S) VORHANDEN‚@0ZL23088 LDAVIRAST+$27•@:Z STAVIRAST+$262¦@DZ LDA(ZPB4),Y¹@NZ STAVIRAST+$27Â@XZ INYá@bZ CPY#$06;MAXIMAL 99 EMAILSð@lZ BCCL23018AvZ LDA(ZPB4),Y;DRITTES ZEICHEN NACH +OKQA€Z CMP#$3A;KLAPPT NICHT FALLS Z.B. 001 STATT 1 STEHToAŠZ BCSL23258;B.I.KEINE ZAHL|A”Z CMP#$30šAžZ BCCL23258;BI.IKEI2NE ZAHLÍA¨Z LDX#$39;=DREISTELLIGE ZAHL MEHRALS 99 EMAILSðA²Z STXVIRAST+$26;SETZT 99 EMAILSB¼Z STXVIRAST+$27;+FLAG F.EMAIL VORHANDEN+BÆZ LDX#$3E;">>BÐZ STXVIRAST+$25MBÚZL23258 TXApBäZ BNEL23318;B.I.EMAIL VORHANDENœBîZ LDY#$0C;NO EMAIL - DISCONNE2CT MANUALLY«BøZ JSRPRMENO½B[ LDA#$CE;QUITýB [ JMPSETASA;SEND TCP ANSWER SESTAT IN ACCU QUIT--" CC[L23318 JSRSETAIS;SEND TCP ANSWER INCREMENT SESTAT SENDET 'LIST'PC [ LDA#$0D_C*[L23338 INY…C4[ CMP(ZPB4),Y;SUCHT ENDE DER ZEILE”C>[ BNEL223338¡CH[ LDX#$02ªCR[ CLC¹C\[L23388 DEYÊCf[ LDA(ZPB4),YDp[ EOR#$30;TEST OB DIE LETZTEN DREI STELLEN 000 SINDDz[ BEQL234381D„[ SEC;WENN NICHT -> AUFRUNDEN@DŽ[L23438 DEXOD˜[ BPLL23388\D¢[ LDX#$04kD¬[L23468 DEY|D¶[ LDA(ZPB4),YŸDÀ[ EOR#$20;30-2>10 39->19 20->00ÀDÊ[ BEQL23708;B.I.ENDE ERREICHTäDÔ[ ADC#$20;ADDIERT UEBERTRAG DAZUñDÞ[ CMP#$3AEè[ BCCL23548 Eò[ LDA#$30(Eü[L23548 STAVIRAST+$41,X1E\ DEX@E\ BPLL23468jE\ BCSL23628;B.I.UEBERTRAG BEI 5STELLIGšE$\ DEY;!!GESAMTEMAILLAENGE IST2 EVTL. >99999MB«E.\ LDA(ZPB4),Y¸E8\ CMP#$20àEB\ BEQL23808;B.I.DOCH NUR 5STELLIG KBFL\L23628 LDX#$04;GESAMTEMAILLAENGE IST >99999KB (100MB)'FV\ LDA#$39BF`\L23648 STAVIRAST+$41,XKFj\ DEXZFt\ BPLL23648iF~\ LDA#$3E;>|Fˆ\ STAVIRAST+$40ŽF’\ BNEL238208;" ÉFœ\L23708 BCCL23748;B.I.KEIN UEBERTRAG BEI LETZTER STELLEÿF¦\ LDA#$31;WICHTIG FALLS 99->100 BEI LETZTER STELLEG°\ STAVIRAST+$41,XGº\ DEX,GÄ\L23748 TXA_GÎ\ BMIL23808;B.I.1 DER 5 STELLN SCHON AUSGEGEBENlGØ\ LDA#$30¸Gâ\L23778 STAVIRAST+$41,X2; 0441-0447=GESAMTEMAILLAENGEÁGì\ DEXÓGö\ BPLL23778;" æG]L23808 LDA#$30óG ] LDX#$04?H]L23828 STAVIRAST+$39,X; 0439-043F=DOWNGELOADETE GESAMTEMAILLAENGEHH] DEXWH(] BPLL23828dH2] LDA#$0BzH<] STAVIRAST+$3E;"KHF] STAVI2RAST+$46šHP] LDA#$02­HZ] STAVIRAST+$3FÃHd] STAVIRAST+$47;"BÐHn] LDX#$04ÙHx] SEC I‚]L23938 LDAVIRAST+$49,X;FREIER DISKSPACE IN KB8IŒ] SBCVIRAST+$41,X;GESAMTEMAILLAENGE IN KBAI–] DEXPI ] BPLL23938Iª] BCSL24018;B.I.MEHRFREI DISKSPEICHER ALS GESAM2TEMAILLAENGEÏI´] LDA#<(TXNSAE);TEXT NOT ENOUGH SPACE FOR ALL EMAILS ON DISKâI¾] LDX#>(TXNSAE)JÈ] JMPPRERWA;PRINT ERROR/WARNING" *JÒ]L24018 RTS;=ENDE APSTAT----" UJÜ]L24028 LDAZPB4;ANALYSE POP LIST FOLLOWbJæ] LDXZPB5tJð] BNEL24268;" ¸Jú]L24058 L2DY#$FF;=LIST STARTPAKET APLISTÅJ^ LDXZPB5âJ^ INCSESTAT;4?->4? C?->C?ïJ^ LDA#$0AþJ"^L24098 INY"K,^ CMP(ZPB4),Y;SUCHT ENDE VON +OK1K6^ BNEL24098HK@^ TYA;CARRY IST SETUKJ^ ADCZPB4‘KT^;FEHLER FALLS IN 1.PAKET +OK-MELDUNG 2NICHT ZU ENDE GEHTËK^^;FEHLER FALLS +OK-MELDUNG LAENGER ALS 255 ZEICHEN ISTÜKh^ LDY#$30;"0"ïKr^ STYVIRAST+$22üK|^ INY;"1"L†^ STYVIRAST+$23L^ LDY#$65RLš^ STYL25528+1;SCHREIBVECTOR HIGH AUF $8165 (-81C7)_L¤^ LDY#$01•L®^ STYL25418+1;SCHREIBVECTO2R LOW AUF $8101 (-8163)£L¸^ DEY;#$00´LÂ^ STYL24308+1öLÌ^L24268 STAL24298+1;=BEGINN DES DATENBEREICHS OHNE +OK-MELDUNGMÖ^ STXL24298+2Mà^ JMPL25948;" ?Mê^L24298 LDA$FFFF;AKTUELLES ZEICHENVMô^L24308 LDX#$FF;0-9Mþ^;0=ZEHNER VERGLEICHEN (EMAIL-NUM2 MER)§M_;1=EINER VERGLEICHEN (EMAIL-NUMMER)ÑM_;2=ERSTHOECHSTE STELLE (EMAIL-LAENGE)üM_;3=ZWEITHOECHSTE STELLE (EMAIL-LAENGE)'N&_;4=DRITTHOECHSTE STELLE (EMAIL-LAENGE)EN0_;5=EXPONET (EMAIL-LAENGE)N:_;6=SUCHT END #0A ->DANNACH NAECHSTENAEINTRAG BE2!ARBEITEN­ND_;7=PRUEFT OB . ENDE DES PAKETS SUCHENÇNN_;8=PRUEFT OB $0D -"-áNX_;9=PRUEFT OB $0A -"-ðNb_ BNEL24548Ol_L24428 CMPVIRAST+$22;0 ZEHNER!Ov_ BEQL245884O€_ LDXVIRAST+$22AOŠ_ CPX#$30`O”_ BNEL24498;B.I.MEHRSTELLIG}Ož_ INCL24308+1;=EINS2"TELLIG´O¨_ BNEL24568;=BEI 1-9 SOFORT MIT EINER VERGLEICHEN" ÇO²_L24498 LDY#$11íO¼_ JSRPRMENO;ERROR IN LIST ANALYSIS PÆ_ LDA#$07;SUCHT ENDE V.LISTPÐ_ STAL24308+15PÚ_L24538 JMPL25918;" DPä_L24548 DEXSPî_ BNEL24598Pø_L24568 CMPVIRAST+$23;1 EINER2# VERGLEICHEN›P` BNEL24498;B.I.FEHLER³P `L24588 JMPL25908;" ÂP`L24598 DEXÑP ` BNEL24698óP*`L24618 CMP#$20;WAR 2 1.STELLE Q4` BEQL24538;B.I.SPACE&Q>` AND#$0F;30-39->00-09@QH` STAL25428+1;1.STELLEjQR` STXL25308+1;UEBERTRAG INITIALISIERENwQ\` LDA2$#$20 Qf` STAL25478+1;EXPONENT INITIALISIEREN²Qp` JMPL25908;" ÁQz`L24698 DEXÐQ„` BNEL24798îQŽ`L24718 CMP#$0D;3 2.STELLER˜` BEQL25108;B.I.ENDE (EMAIL 1-9 BYTE LANG)%R¢` ASL.R¬` ASL7R¶` ASL@RÀ` ASLQRÊ` STAL25348+1cRÔ` JMPL25908;" rRÞ`L24798 DE2%XRè` BNEL24868¤Rò`L24818 CMP#$0D;WAR 4 3.STELLEÒRü` BEQL25108;B.I.EMAIL NUR 10-99 BYTES LANGßRa AND#$0FðRa STAL25298+1Sa JMPL25908;" S$aL24868 DEX S.a BEQL24898/S8a JMPL25708RSBaL24898 CMP#$0D;WAR 5 EXPONENTsSLa BEQL25078;B.I.ZIFFER FE2&RTIG€SVa CMP#$30—S`a BEQL24958;B.I.'0'¤Sja LDA#$01ÌSta STAL25308+1;UEBERTRAG AUF 1 SETZENýS~aL24958 LDAL25478+1;=ZIFFER ERHOEHT EXPONENTTˆa CLCT’a ADC#$10$Tœa STAL25478+16T¦a JMPL25918;" BT°a;00 1-9PTºa;10 10-99`TÄa;20 100-999rTÎa;30 10002'-9999†TØa;40 10000-99999œTâa;50 100000-999999´Tìa;60 1000000-9999999üTöaL25078 LDAL25478+1;EXPONENT =ZIFFER IST FERTIG Ub CMP#$30-U b BCSL25128;B.I.GROESSER ALS 1KBeUbL25108 LDA#$31;EXPONENT AUF 4STELLIG&1 ALS 1.STELLE†Ub 3BNEL25518;=AUF 1KB SETZEN" ›U(bL25128 BNEL25208¤U2b CLCµUADC#$10·W"cL25378 CMP#$A0ÆW,c BCCL25418ÓW6c SBC#$A0òW@c SEC;SET FLAG F. UEBERTRAG4XJcL25418 STA$8101;ACCU SPEICHERN 2.&3.STELLE CARRY MUSS BLEIBEN]XTcL25428 LDA#$FF;00 09 (999) 1.STELLE’X^c AD3C#$00; ADDIERT UEBTRAG CARRY DAZUŸXhc CMP#$0AÎXrc BCCL25478;B.I.KRIN UEBERTRAG BEI 1.STELLEæX|c LDA#$01;9999->1000Y†cL25478 ORA#$FF;EXPONENTYc BCCL255188Yšc ADC#$0F;=ADC#$10 ERHOEHT EXPONENTiY¤c;FEHLER FALLS EMAIL LAENGER ALS 999TER3RABYTE€Y®cL25518 INCL25418+1µY¸cL25528 STA$8165;ACCU SPEICHERN EXPONENT&1.STELLEÆYÂc INCL25528+1îYÌcL25548 LDY#$07;=ENDE EINES EINTRAGSZÖc LDXVIRAST+$23;EINER AKTUELL)Zàc LDAVIRAST+$22;ZEHNERIZêc CPXVIRAST+$27;EINER GESAMTXZôc BNEL25618rZþc CMP3VIRAST+$26;ZEHNER²Zd BEQL25688;B.I.DIES DIE LETZTE EMAIL WAR Y=7=ENDFLAG SUCHENÁZdL25618 INXÎZd CPX#$3AÝZ&d BCCL25668êZ0d LDX#$30 [:d INCVIRAST+$22;ZEHNER ERHOEHEN&[DdL25668 STXVIRAST+$23N[Nd DEY;#$06 ENDESUCHEN + WEITERMACHENe[XdL25688 STYL234308+1w[bd JMPL25918;" †[ldL25708 DEX•[vd BNEL25778®[€dL25728 CMP#$0A;WAR 6½[Šd BNEL25918Ê[”d LDA#$00Û[žd STAL24308+1í[¨d BEQL25918;" ü[²dL25778 DEX \¼d BNEL258287\ÆdL25798 CMP#$2E;WAR 7 MIT . VERGLEICHENF\Ðd BNEL25918X\Úd BEQL25908;" g\äd3L25828 DEXv\îd BNEL25878£\ødL25848 CMP#$0D;WAR 8 MIT $0D VERGLEICHEN²\e BEQL25908Ð\ eL25868 JMPL24498;FEHLER" ý\eL25878 CMP#$0A;WAR 9 MIT $0A VERGLEICHEN] e BEQL26028;ENDE V.LIST---5]*e BNEL25868;B.I.FEHLERL]4eL25908 INCL24308+1c]>eL25918 INC3L24298+1r]He BNEL25948ƒ]Re INCL24298+2’]\eL25948 CLC³]fe LDAZPB6;ENDE TCPDATEN+1 LOWÄ]pe SBCL24298+1Ñ]ze LDAZPB7â]„e SBCL24298+2ñ]Že BCCL26018^˜e JMPL24298<^¢eL26018 JMPSETCAN;LIST GEHT MIT NAECHSTEM PAKET WEITER" c^¬eL26028 LDX#$30;LIST-PAKE3 TE ZU ENDE„^¶e STXVIRAST+$22;00 AUF SCREEN—^Àe STXVIRAST+$23¶^Êe LDA#$00;ZAEHLER F. EMAILSÅ^Ôe STACOEMAIù^Þe JMPAPINEM;ANALYSE POP INCREMENT EMAIL NUMBER" ?_èeL26088 LDASESTAT;WAIT UNTIL MODEM IS OFFLINE 4E CE APQUITL_òe CMP#$CE[_üe BNEL23 6148Ÿ_f LDA#<(TXWAOF);WAIT UNTIL MODEM IS OFFLINE 4E CE APQUITÀ_f LDX#>(TXWAOF);PRESS ANY KEYÏ_f JSRPRTEXTâ_$fL26148 LDY#$0D`.f LDA(ZPB2),Y;CONTENT BITS `8f LSR`Bf LDASESTAT;4E CE3`Lf EOR#$1E;50 D0\`Vf BCCL26238;B.I.FIN-BIT NICHT 3 GESETZT”``f ORA#$02;52 D2 =IN QUIT PAKET WAR FIN-BIT GESETZTß`jf;NOCH IN HAUPTPROGRAMM MACHEN,DASS BEI GESETZTEM FIN-BIT UND QUIT-FASEò`tf;HIERHER KOMMTa~fL26238 JMPSETASA;ENDE APQUIT--" CaˆfL26248 LDASESTAT;ANALYSE POP FIN PAKAGEva’f ORA#$01;FL3 AG DASS EM64-FIN ACKNOWLEDGED WURDE…aœf STASESTAT’a¦f AND#$3F¥a°f CMP#$13;53 D3×aºf BNEL26318;B.I.AUF FIN VON SERVER WARTEN MUSSóaÄf JMPL22248;ENDE V.FIN" bÎfL26318 RTS;ENDE APSYNP" 7bØf;==============================" Fb¨÷L63400 NOPUb²÷ .IFMO;DE=2ib¼÷ .AP"B-MAIN*",8rbÆ÷ .EL{bÐ÷ .ENˆbÚ÷ .EI;" SETZTß`jf;NOCH IN HAUPTPROGRAMM MACHEN,DASS BEI GESETZTEM FIN-BIT UND QUIT-FASEò`tf;HIERHER KOMMTa~fL26238 JMPSETASA;ENDE APQUIT--" CaˆfL26248 LDASESTAT;ANALYSE POP FIN PAKAGEva’f ORA#$01;FL3Ø÷'N;!MIT ZEILE 20009 BEGINNEN 1N; .EQ MODE=0) ;N; .EQ MODE=18 EN .IFMODE=2A ON .ELR YN .EQZPA0=$50c cN .EQZPA1=$51t mN .EQZPA2=$52… wN .EQZPA3=$53– N .EQZPA4=$54§ ‹N .EQZPA5=$55¸ •N .EQZPA6=$56É ŸN .EQZPA7=$57Ú ©N .EQZPA38=$58ë ³N .EQZPA9=$59ü ½N .EQZPB0=$60 !ÇN .EQZPB1=$61!ÑN .EQZPB2=$62/!ÛN .EQZPB3=$63@!åN .EQZPB4=$64Q!ïN .EQZPB5=$65b!ùN .EQZPB6=$66s!O .EQZPB7=$67„! O .EQZPB8=$68•!O .EQZPB9=$69¨!!O .EQENRELO=$F7»!+O .EQENREHI=$F8Î!5O .EQBERELO=$FBá!?O3 .EQBEREHI=$FCô!IO .EQTXNMIP=999"SO .EQBEBUHI=999"]O .EQENBULO=999-"gO .EQENBUHI=999@"qO .EQCRCLOW=999S"{O .EQCRCHIG=999f"…O .EQCRCBYT=999y"O .EQCOOFON=999Œ"™O .EQAUNOYE=999Ÿ"£O .EQWABUSE=999²"­O .EQCOFOAU=999Å"·O .EQSESTAT=999Ø"ÁO .EQSEI3PAD=999ë"ËO .EQCLIPAD=999þ"ÕO .EQPRIDNS=999#ßO .EQSECDNS=999$#éO .EQPRSEDN=9997#óO .EQSENEDN=999L#ýO .EQSEBU01=$F400a#P .EQSEBU02=$FA00t#P .EQPSACCO=999‡#P .EQPSIDAD=999š#%P .EQPRMERC=999­#/P .EQPRMESE=999À#9P .EQPRMENO=999Ó#CP .EQLOAFIL3=999æ#MP .EQBYRSIN=999ù#WP .EQWAMOME=999 $aP .EQBYRSOU=999$kP .EQCYRECS=9992$uP .EQSEACCO=999E$P .EQSEBUF4=999X$‰P .EQSEBUFA=999k$“P .EQSEBUAC=999~$P .EQANAPPP=999‘$§P .EQSTANPP=999¤$±P .EQIDCORJ=999·$»P .EQIDPRRJ=999Ê$ÅP .EQCSIPHE=999Ý$3ÏP .EQSEQNUM=999ð$ÙP .EQFIIPHE=999%ãP .EQTCPHDR=999%íP .EQCSTCHD=999)%÷P .EQTXINPR=999<%Q .EQTXEMAC=999O% Q .EQFIIPUD=999b%Q .EQQTYQCL=999u%Q .EQIAPOP3=999ˆ%)Q .EQIASMTP=999›%3Q .EQCOEMAD=999®%=Q .EQACEMAD=999Á%GQ .EQTCHEOP=999Ô%QQ .EQC3OSEAD=999ç%[Q .EQTXEMLO=999ú%eQ .EQTXEMHI=999 &oQ .EQSEIPCH=999 &yQ .EQSEIPNC=9993&ƒQ .EQSENCOM=999F&Q .EQTXCOBI=999Y&—Q .EQSETCAN=999l&¡Q .EQTXENFL=999&«Q .EQTXDIMA=999’&µQ .EQTXTY1D=999¥&¿Q .EQDNSYFI=999¸&ÉQ .EQLTCPDL=999Ë&ÓQ .EQLTCPDH=9399Þ&ÝQ .EQTCPDNY=999ð&çQ .EQTXTOP=999'ñQ .EQTXRETR=999'ûQ .EQTXDELE=999)'R .EQTXSFRT=999<'R .EQTXLENG=999O'R .EQCOEMAI=999b'#R .EQPRTEXT=999u'-R .EQTXDOSK=999ˆ'7R .EQTXDEPR=999›'AR .EQTXPR12=999®'KR .EQGETKEY=999Á'UR .EQTXSHNK=999Ô'_R 3.EQTXNOSU=999ç'iR .EQTXILCH=999ú'sR .EQTXSUCH=999 (}R .EQTXDEYN=999 (‡R .EQTXWAOF=9993(‘R .EQTXESFI=999F(›R .EQTXESRE=999Y(¥R .EQEXSESE=999l(¯R .EQLTCPD0=999(¹R .EQEXSEAC=999’(ÃR .EQSETASA=999¥(ÍR .EQTXNSTE=999¸(×R .EQTXDIFU=999Ë(áR .EQTXOP3ER=999Þ(ëR .EQTXSAER=999ñ(õR .EQTXCLER=999)ÿR .EQTXDIER=999) S .EQPRDIER=999*)S .EQDOEMNY=999=)S .EQVIRAST=999P)S .EQACTDAT=999c)S .EQDACENT=999v)S .EQDAYEAR=999‰)S .EQDAMONT=999œ)S .EQDATDAY=999¯)S .EQDAHO24=999Â)S .EQDAMINU=9993Õ)S .EQDASECU=999è)S .EQAPDELE=999û)S .EQAPSTDO=999*&S .EI+*'S;=================================:*1S .IFMODE=0H*;S .BA$E001Q*ES .EI`*OS .IFMODE=1n*YS .BA$E001w*cS .EI†*mS .IFMODE=1”*wS .LI4,4,0*S .EI«*‹S;"9-MAINÊ*•S;"MIT ZEILE 200093 BEGINNEN÷*ŸS .EQAPTOPF=L21487;ANALYSE POP TOP FOLLOW#+³S .EQAPTOPS=L21547;ANALYSE POP TOP START2+ÛS JMPL63400Z+åS;-------------------------------" ‰+ïSL21487 LDAZPB4;(CA) ANALYSE POP TOP FOLLOW–+ùS LDXZPB5·+T JMPL21787;TOP-FOLGEPAKETE" ý++TL213547 INCSESTAT;C8->C9? APTOPS STARTPAKET TOP ,5T LDY#$00,?T JSRPRMENO&,IT LDY#$005,ST JSRPRMENOB,]T LDY#$00u,gT STYL21827+1;1.ZEICHEN DES HEADERS VERGLEICHENˆ,qT LDA#<(TXLENG)£,{T LDX#>(TXLENG);LENGTH:²,…T JSRPRTEXT¿,T LDX#$307Ú,™TL21657 LDAVIRAST+$30,Xð,£T STAVIRAST+$328,Xù,­T DEX-·T BPLL21657-ÁTL21697 LDAZPB4(-ËT LDXZPB55-ÕT LDY#$FFB-ßT LDA#$0AQ-éTL21737 INY’-óT CMP(ZPB4),Y;SUCHT ENDE VON +OK !!EIGENTLICH UEBERFLUESSIG¡-ýT BNEL21737¸-U TYA;CARRY IST SETÅ-3U ADCZPB4 .UL21787 STAL21817+1;=BEGINN DES DATENBEREICHS OHNE +OK-MELDUNGEGINN.%U STXL21817+2Y./U JMPL23417;WICHTIG FALLS NACH +OK NEUES PAKET BEGINNT" m.9UL21817 LDA$FFFF€.CUL21827 LDX#$FF°.MU;0=1.HEADER-ZEICHEN EINER ZEILE VERGLEICHEN¾.WU;1=23. -"-Ì.aU;2=3. -"-ö.kU;3=HEADER ZEICHEN AUF SCREEN AUSGEBEN/uU;4=ENDE DER HEADER ZEILE SUCHEN" K/U;5=1.BODY ZEICHEN VERGLEICHEN UND AUSGEBENz/‰U;6=2.BODY ZEICHEN VERGLEICHEN UND AUSGEBEN©/“U;7=3.BODY ZEICHEN VERGLEICHEN UND AUSGEBENÆ/U;8=BODY Z3EICHEN AUSGEBENý/§U;9=END 0A EINER BODY ZEILE SUCHEN (OHNE AUSZUGEBEN$0±U BNEL22277;0 1.ZEICHEN VERGLEICHENh0»UL21947 LDY#$0C; =ERSTES ZEICHEN EINER ZEILE VERGLEICHEN›0ÅUL21957 CMPTXSFRT,Y;SUBJECT FROM REPLY TO: DATEª0ÏU BEQL22167³0ÙU DEY¼30ãU DEYÅ0íU DEYÔ0÷U BPLL21957ê0V CMP#$2E;"." ENDEù0 V BNEL2206741V LDA#$06;HAT UEBERASCHEND IN HEADER END V.TOP GEFUNDEN`1V STAL21827+1;0D VON . 0D 0A VERGLEICHENr1)V JMPL23387;" ¡13VL22067 CMP#$0D;CARRIAGE RETURN HEADER ENDE°1=V BEQL22117ô13 GVL22087 LDA#$04;=ENDE DER ZEILE SUCHEN (HEAD.ZEIL.NICHT AUSGEBEN2QV STAL21827+12[V JMPL23387;" F2eVL22117 LDA#$09;=ENDE DES HEADERS GEFUNDENs2oV STAL21827+1;=ENDE DER BODY ZEILE SUCHEN€2yV LDA#$03¼2ƒV STAL23147+1;NUR DREI C64 ZEILEN ZU 40 ZEICH3!EN AUSGEBENÎ2V JMPL23327;" ÿ2—VL22167 TYA;1.ZEICHEN IST FRO REP TO: SUB DAT3¡V CLC3«V LDX#>(TXSFRT).3µV ADC#<(TXSFRT)=3¿V BCCL22227F3ÉV INX]3ÓVL22227 STAL22337+1n3ÝV STAL22407+13çV STXL22337+23ñV STXL22407+2·3ûVL22267 JMPL23377;0->1 3"------" Æ3WL22277 DEXÛ3W BEQL22327;B.I.1ä3W DEXÿ3#W BNEL22517;B.I.NICHT 24-WL22317 INX;X->2'47WL22327 INX;X->1=4AWL22337 CMP$FFFF,XL4KW BNEL22087U4UW DEX•4_W BEQL22267;1->2 B.I.2.ZEICHEN VERGLICHEN (NICHTS AUSGEBEN)Ï4iW LDY#$00;=AUCH 3.ZE3#ICHEN WAR RICHTIG = JETZT AUSGEBENÞ4sW JSRPRMENOë4}W LDX#$005‡WL22407 LDA$FFFF,X5‘W CMP#$405›W BCCL22447*5¥W AND#$1FF5¯WL22447 STAVIRAST+$320,XO5¹W INX\5ÃW CPX#$04k5ÍW BCCL22407x5×W LDA#$23Ž5áW STAL22587+1;2->3¦5ëWL22507 JMPL23377;" µ5õW3$L22517 DEXÄ5ÿW BNEL22647ç5 XL22537 CMP#$0D;3 ZEILE PRINTEN6X BEQL22507;B.I.ENDE DER ZEILE 3->46X CMP#$40+6'X BCCL22587861X AND#$1FR6;XL22587 STAVIRAST+$323c6EX INCL22587+1t6OX LDAL22587+16YX CMP#$48¶6cX BCSL22507;B.I.ZEILE LANGER ALS 40 3%ZEICHEN 3->4Ö6mXL22637 JMPL23387;BLEIBT 3" å6wXL22647 DEXô6X BNEL22707!7‹XL22667 EOR#$0A;4 SUCHT END-$0A DER ZEILEJ7•X BNEL22637;B.I.NICHT ENDE BLEIBT 4y7ŸX STAL21827+1;4->0 (=1.ZEICHEN VERGLEICHEN)‹7©X BEQL22637;" š7³XL22707 DEX©7½X BNEL2283&37Ó7ÇX CMP#$2E;5 1.BODY ZEICHEN VERGLEICHENâ7ÑX BEQL22827ï7ÛX CMP#$0D8åX BNEL22797;B.I.KEINE LEERZEILE$8ïX LDX#$09;5->9G8ùX STXL21827+1;ZEILENENDE SUCHENY8Y JMPL23387;" l8 YL22797 LDX#$08™8Y STXL21827+1;5->8 BODY ZEICEHEN AUSGEBEN«8!Y JMPL233'117;" Ç8+YL22827 JMPL23377;5->6" Ö85YL22837 DEXå8?Y BNEL229679IY CMP#$0D;6 2.BODY ZEICHEN VERGLEICHEN9SY BEQL22957C9]Y LDXL23147+1;ZAEHLER BODY ZEILENk9gY BMIL23117;B.I.BEREITS 3 AUSGEGEBEN’9qY LDX#$2E;GIBT '.' AUS (=1.ZEICHEN)¦9{Y STXVIRAST+$4320·9…Y INCL23207+1Û9Y LDX#$08;BODY ZEICEHEN AUSGEBENì9™Y STXL21827+1:£Y JMPL23117;A=2.ZEICHEN AUSGEBEN" .:­YL22957 JMPL23377;6->7" =:·YL22967 DEXL:ÁY BNEL23097v:ËY CMP#$0A;7 3.BODY ZEICHEN VERGLEICHEN…:ÕY BEQL23087–:ßY LDXL23147+1¥:éY BMIL243117²:óY LDX#$2EÆ:ýY STXVIRAST+$320×:Z INCL23207+1ä:Z LDX#$08õ:Z STXL21827+1;%Z JMPL23117;" ';/ZL23087 JMPL23497;ENDE----" 6;9ZL23097 DEXE;CZ BNEL23287o;MZL23117 CMP#$0D;8 BODY ZEICHEN PRINTEN~;WZ BNEL23147”;aZ JMPL23377;8->9" ½;kZL231474 LDX#$03;ZAEHLER F.BODY-ZEILENÌ;uZ BPLL23177â;Z JMPL23377;8->9" õ;‰ZL23177 CMP#$40<“Z BCCL23207ƒ[ LDAZPB6;ENDE TCPDATEN+1 LOW->[ SBCL21817+1:>—[ LDAZPB7K>¡[ SBCL21817+2Z>«[ BCCL23487i>µ[ JMPL21817>¿[L23487 JMPSETCAN;" ¦>É[L23497 LDA#<(TXDOSK4);TOP ZU ENDEÕ>Ó[;SCHAUEN OB ACK PAKET GESENDET WIRD SONST:?Ý[;SERVER WARTE LANGE AUF PAKET UND BRICHT EVTL VERBINDUNG AB(?ç[ LDX#>(TXDOSK)7?ñ[ JSRPRTEXTJ?û[ LDA#<(TXDEPR)]?\ LDX#>(TXDEPR)€?\ LDY$CFC2;SCRATCH EMAIL YES/NO§?\ BNEL23607;B.I. AS4K YES BEI DELETEº?#\ LDA#<(TXPR12)Í?-\ LDX#>(TXPR12)â?7\L23607 JSRPRTEXT÷?A\L23617 JSRGETKEY@K\ CMP#$310@U\ BNEL23657;B.I.NICHT 1=DOWNLOAD ->RETRp@_\ JMPAPSTDO;ANALYSE POP START DOWNLOAD RETR" ƒ@i\L23657 CMP#$32¡@s\ BNEL23827;B.4I.NICHT SKIPª@}\ CLC·@‡\ LDX#$04A‘\L23697 LDAVIRAST+$39,X;30 30 39 39 39C=S GESAMTDOWNGELOADETEEMAILLAENGEA›\ AND#$0F;00 00 09 09 09eA¥\ ADCVIRAST+$31,X;30 39 30 39 39 +LAENGE ACTUELLER(GESCIPTER)EMAILA¯\ CMP#$3A;30 39 39 42 43A¹\ BCCL23757¾A4Ã\ SBC#$0A; 38 39 CARRY BLEIBT SETèAÍ\L23757 STAVIRAST+$39,X;30 39 39 38 39B×\ DEX;C C C S S CLEAR/SET=CARRYBá\ BPLL23697UBë\ BCCL23817;B.I.KEIN UEBERTRGA BEI HOCHSTER STELLEdBõ\ LDA#$3E;>wBÿ\ STAVIRAST+$38¯B ]L23817 JMPAPDELE;SKIP4 WARUM APDELE????????? " ×B]L23827 LDX$CFC2;DELETE EMAIL YES NOöB] BEQL23617;B.I.KEIN DELETEC'] CMP#$33%C1] BNEL23617;B.I.NICHT 3=DELETE8C;] LDA#<(TXSHNK)KCE] LDX#>(TXSHNK)sCO] JSRPRTEXT;ARE YOU SHUER...PRESS DEˆCY]L23897 JSRGETKEY—Cc] B4 EQL23897¦Cm] CMP#$44;DµCw] BNEL23497ÊC]L23937 JSRGETKEYÙC‹] BEQL23937èC•] CMP#$45;E÷CŸ] BNEL23497D©] CLC D³] LDX#$04ID½]L23997 LDAVIRAST+$39,X;GESAMT-DOWNGELOADETE-EMAILLAENGEVDÇ] AND#$0FDÑ] ADCVIRAST+$31,X;+ LAENGE ACTUELLER (GESCIPTER) EM4 AILDÛ] CMP#$3A¬Då] BCCL24057¹Dï] SBC#$0AÔDù]L24057 STAVIRAST+$39,XÝD^ DEXìD ^ BPLL23997"E^ BCCL24117;B.I.KEIN UEBERTRGA BEI HOCHSTER STELLE1E!^ LDA#$3E;>DE+^ STAVIRAST+$38\E5^L24117 LDA#$CD;DELE„E?^ JMPSETASA;ENDE ANALYSE TOP START" “E¨÷L6N3400 NOP¢E²÷ .IFMODE=2¶E¼÷ .AP"A-MAIN*",8¿EÆ÷ .ELÈEÐ÷ .ENÕEÚ÷ .EI;" •] CMP#$45;E÷CŸ] BNEL23497D©] CLC D³] LDX#$04ID½]L23997 LDAVIRAST+$39,X;GESAMT-DOWNGELOADETE-EMAILLAENGEVDÇ] AND#$0FDÑ] ADCVIRAST+$31,X;+ LAENGE ACTUELLER (GESCIPTER) EM4 Ø÷$N;!MIT ZEILE 20005 BEGINNEN .N; .EQ MODE=0) 8N; .EQ MODE=18 BN .IFMODE=2A LN .ELR VN .EQZPA0=$50c `N .EQZPA1=$51t jN .EQZPA2=$52… tN .EQZPA3=$53– ~N .EQZPA4=$54§ ˆN .EQZPA5=$55¸ ’N .EQZPA6=$56É œN .EQZPA7=$57Ú ¦N .EQZPA48=$58ë °N .EQZPA9=$59ü ºN .EQZPB0=$60 !ÄN .EQZPB1=$61!ÎN .EQZPB2=$62/!ØN .EQZPB3=$63@!âN .EQZPB4=$64Q!ìN .EQZPB5=$65b!öN .EQZPB6=$66s!O .EQZPB7=$67„! O .EQZPB8=$68•!O .EQZPB9=$69¨!O .EQENRELO=$F7»!(O .EQENREHI=$F8Î!2O .EQBERELO=$FBá!R .EQTXREPL=999¯'HR .EQTXXMAI=999Â'RR .EQVERCPL=999Õ'\R4 .EQVERCPH=999è'fR .EQEXACBU=999û'pR .EQTIRES0=999(zR .EQENTDS0=999!(„R .EQNTADBU=9994(ŽR .EQFIIPUT=999G(˜R .EQPRMENO=999Z(¢R .EQACTDAT=999m(¬R .EQCOPRDA=999€(¶R .EQDAHO24=999“(ÀR .EQDAMINU=999¦(ÊR .EQDASECU=999¹(ÔR .EQDATDAY=999Ì(ÞR .EQSEI4PNC=999ß(èR .EQSEIPCH=999ò(éR .EQVIRAST=999)êR .EQHOUPMO=999)òR .EI])üR;=========================================================================l)S .IFMODE=0z)S .BA$E001ƒ)S .EI’)$S .IFMODE=1 ).S .BA$E001©)8S .EI¸)BS .IFMODE=1Æ)LS .LI4,44,0Ï)VS .EIÝ)`S;"5-MAINü)jS;"MIT ZEILE 20005 BEGINNEN3*tS .EQSETAIS=L21424;SEND TCP ANSWER INCREMENT SESTATh*~S .EQSETASA=L21444;SEND TCP ANSWER SESTAT IN ACCUŽ*ˆS .EQSETCAN=L21454;SEND TCP ANSWER±*’S .EQSENCOM=L21674;SEND COMMANDÀ*œS JMPL634004è*¦S;-------------------------------" .+°SL21424 INCSESTAT;SEND TCP ANSWER INCREMENT SESTAT SETAIS@+ºS BNEL21454;" †+ÄSL21444 STASESTAT;SEND TCP ANSWER SESTAT IN ACCU SETASAÊ+ÎSL21454 LDY#$03;SEND TCP ANSWER 4 SETCANø+ØSL21464 LDAEXSESE,Y;EXPECTED SERVER SEQ-NR1,âS;WURDE GLEICH BEIM EMPFANG UM KORREKTEN WERT ERHOEHT],ìS STATCPHDR+8,Y;SPEICHER ALS SEND-ACK-NRf,öS DEYu,T BPLL21464¾, T;EVTL NICHT EXSESE ALS ZWISCHENSPEICHER BENUTZEN,SONDERN SOFORT NAC4Hå,T;TCPHDR+8 BIS TCPHDR+$B SPEICHERN?î,T CLCû,(T LDY#$03--2TL21554 LDATCPHDR+4,Y;=ZULETZT GESENDTE SEQ-NRX-WENN TIMER ABGELAUFEN IST OHNE PAKET VON MODEM ZU ERHALTEN,DANN•4àU;NMI-RECEIVE-BYTE-ROUTINE DIREKT ANSPRINGEN UM CIA/ACIA-RGISTER AUSZULESENÆ4êU;DAMIT NMI WIEDER 54"V WIRD UND NMIS AUSLOEST.×4ôU DECL22014+1ê4þUL22014 LDA#$095V BPLL22235;B.I.NOCH NICHT 10MAL WIEDERHOLT(5V LDASESTAT55V CMP#$FE\5&V BEQL22244;B.I.ENDE=DATUM ANZEIGEN‘50V LDY#$10;RECEIVED 10 TIMES NO ANSWER FROM SERVER¬5:V JSRPRMENO;ABORT RETR4#YÃ5DVL22084 LDA#$E7;ROMÏ5NV STA$01Ø5XV CLIê5bV JSR$FFE4;GETó5lV SEI6vV LDX#$E5;RAM6€V STX$016ŠV CMP#$52;R86”V BEQL22224;B.I.RETRYG6žV CMP#$41;AV6¨V BNEL22084w6²V LDA#$FD;=VERBINDUNG BEENDEN“6³V BIT$0350;DIALUP NO YES¢6´V BMIL22204Ô6µV L4$DA#$FE;KEIN DIALUP => KANN NICHT AUFHAENGENé6¼VL22204 STASESTAT7ÆV JMPL22224;------" 7ÒVL22235 LDY#$00C7ÓV JSRPRMENO;SCROLLEN AENDERN IN ' -REPEAT'R7ÔV LDASESTAT[7ÕV TAXd7ÖV LSRm7×V LSRv7ØV LSR7ÙV LSRŒ7ÚV ORA#$30™7ÛV CMP#$3A¨7ÜV BCCL22234%8µ7ÝV ADC#$06Ï7ÞVL22238 STAVIRAST+$320Ø7ßV TXAå7àV AND#$0Fò7áV ORA#$30ÿ7âV CMP#$3A8ãV BCCL222458äV ADC#$0658åVL22245 STAVIRAST+$321G8æV JMPL22244;" u8êVL22224 LDA#$09;EVTL AENDERN IN 033C-03FF?†8ëV STAL22014+1²8íVL22244 LDAWABUSE;WARTEN BU4&FFER SECONDSÑ8îV BPLL22454;B.I.KEIN WARTENÞ8øV LDX#$06í8W LDASESTATú8 W CMP#$8B 9W BNEL223349 W LDAEXACBU!9*W ASL*94W TAXQ9>WL22334 SED;ABLAUFTIMERWERTE SETZENh9HW BIT$DD0B;ANHALTENu9RW AND#$0F¯9\W SEC;NICHT CLC=>+1=> 1-16 SECONDS WARTEN 4'(NICHT 0-15)è9fW ADC$DD09;SEK $59+$16 IST MAXIMAL $75 =>NIE UEBETRAGõ9pW CMP#$60:zW BCCL22414:„W SBC#$60*:ŽWL22414 STATIRES0+1,XH:˜W LDA$DD08;ZEHNTEL STARTENY:¢W STATIRES0,Xb:¬W CLD„:¶WL22454 LDASESTAT;PROVISORISCH¢:ÀWL22464 STA$7F00;7F00-7FF5F³:ÊW INCL22464+1Â:ÔW BITAUNOYEì:ÞW BMIL22524;B.I.AUTHENTICATE ZU SENDEN&;èW JMPL22984;SEND COMMAND (NORMALE,KEIN AUTHENTICATE)" N;òW;-------------------------------" };üWL22524 LDY#$80;AUTHENTICATE REQUEST SENDEN™;X JSRPRMESE;SND ATCT RQS¦;X 5LDA#$FF´;X STA$FA00Á;$X LDA#$03Ï;.X STA$FA01Ü;8X LDA#$C0ê;BX STA$FA02÷;LX LDA#$23 Y INY;FA0A FA29 FA0B FA2A FA2A FA49(>Y INX5>Y CPX#$20D>(Y BCCL22764>2YL22834 TXA; 01 20 01 20 01 20 LANGE PASSWORD¯>FY LDY$FA08; 00 00 01 01 20 20?PY STA$FA09,Y;FA09 FA09 FA0A FA0A FA29 FA298?ZYL22874 LDA#$FF; 01 20 02 21 21 40A?dY CLCN?nY ADC#$06…?xY STA$FA07; 07 26 08 27 27 46 LAENGE LOW’?‚Y LDX#$00¬?ŒY5 STX$FA06;LAENGE HIGH¹?–Y ADC#$04Ö? Y TAX;08 2E ENDE LOW (+1)ò?ªY LDY#$FA;ENDE HIGH (+1)2@´Y JMPSEBUFA;PUFFERAUSGEBEN-------------------------------" @¾Y;=========================================================================¨@ÈYL22984 LDASESTA5T;COMMANDO AUSGEBENµ@ÒY CMP#$20Ä@ÜY BCSL23054ã@æY LDA#<(PSACCO);SESTAT=#$00AðY LDX#>(PSACCO);PAKAGE SEND ADDRES&CTRL-COMPRESSION'AúY LDY#$12[AZ JMPSEACCO;2 CONFIGURE REQUEST ZU SERVER----" nAZL23054 CMP#$30}AZ BCSL23684£A"Z LDY#$8A;NCP SEND5EN SESTAT=#$20²A,Z JSRPRMESE¿A6Z LDX#$06ÖA@ZL23104 LDAPSIDAD,XæAJZ STA$FA00,XïATZ DEXþA^Z BPLL23104 BhZ LDA#$08BrZ STAZPA6%B|Z LDA#$FA7B†Z STAZPA7;FA08DBZ LDY#$05]BšZL23194 LDACLIPAD-2,YxB¤Z STA(ZPA6),Y;FA0A-FA0DB®Z DEYB¸Z BNEL231945BÂZ LDA#$03³BÌZ STA(ZPA6),Y;FA08¼BÖZ INYÐBàZ LDA#$06;LAENGEæBêZ STA(ZPA6),Y;FA09ïBôZ CLCüBþZ ADCZPA6 C[ STAZPA6C[ BITSENEDNIC[ BMIL23464;B.I.SEVER VERHANDELT PRIDNS NICHTVC&[ LDY#$05oC0[L23344 LDAPRIDNS-2,Y€C:[ STA(ZPA6),Y‰CD[ DEY˜CN[ 5 BNEL23344¥CX[ LDA#$81¶Cb[ STA(ZPA6),Y¿Cl[ INYÓCv[ LDA#$06;LAENGEäC€[ STA(ZPA6),YíCŠ[ CLCúC”[ ADCZPA6 Dž[ STAZPA6;FA14!D¨[L23464 BITSENEDNSD²[ BVSL23614;B.I.SERVER VERHANDELT SECDNS NICHT`D¼[ LDY#$05yDÆ[L23494 LDASECDNS-2,YŠDÐ[ STA(ZPA6),Y“D5 Ú[ DEY¢Dä[ BNEL23494¯Dî[ LDA#$83ÀDø[ STA(ZPA6),YÉD\ INYÝD \ LDA#$06;LAENGEîD\ STA(ZPA6),Y÷D \ CLCE*\ ADCZPA6E4\ STAZPA6;FA1A.E>\L23614 LDXZPA6;FA1ACEH\ TXA;ENDE LOW 1ALER\ SECYE\\ SBC#$04nEf\ STA$FA07;$16=22…Ep\ LDY#$FA;ENDE HIGH—Ez\ 5 JMPSEBUFA;" ªE„\L23684 CMP#$40¹EŽ\ BCSL23714àE˜\L23704 JMPL25894;30 POP3-DNS-UDP" óE¢\L23714 CMP#$60F¬\ BCSL23754F¶\ ORA#$80;40-53 -> C0-D3EFÀ\ JMPL26834;TCP-POP3 FREISCHALTEN" XFÊ\L23754 CMP#$68zFÔ\ BCCL23704;60 NETTIME DNS UDP‡FÞ\ CMP#$70–5 Fè\ BCSL23914·Fò\ LDX#$03;68 NETTIME-TIME-UDPäFü\L23804 LDANTADBU,X;NETTIME ADRESS BUFFERG] STAFIIPUT+$14,X;FIELDS IPHEADER UDP TIMEG] DEX*G] BPLL238047G$] LDX#$1FNG.]L23854 LDAFIIPUT,X^G8] STA$FA00,XgGB] DEXvGL] BPLL23854ŽGV] LDA#$20;END5 E+1 LOW G`] JMPL26504;" ³Gj]L23914 CMP#$80ÂGt] BCSL23944ãG~] JMPL25894;70 SMTP-DNS-UDP" öGˆ]L23944 CMP#$B0H’] BCCL23974Hœ] JMPL25864;" :H¦]L23974 CMP#$83;80-AF TCP-SMTPIH°] BCSL24024_Hº] LDX#$19;SMTPPORT~HÄ] LDY#$01;SMTP (NICHT POP3)HÎ] J5MPL26884;" ¥HØ]L24024 BNEL24044ÖHâ] JMPL28424;C MUSS 1 SEIN =83 =NUR ACK SENDENéHì]L24044 CMP#$85øHö] BCSL24094I^ LDA#<(TXEHLO);=84 EHLO'I ^ LDX#>(TXEHLO)9I^ JMPL27994;" NI^L24094 BNEL24134oI(^ LDA#<(TXAUPL);85 AUTH PLAIN‚I2^ LDX#>(TXAUPL)5”I<^ JMPL27994;" §IF^L24134 CMP#$87¶IP^ BCCL24164ÈIZ^ JMPL25024;" Jd^L24164 LDX#$00;=86 USERNAME + PASSWORD IN BASE64-CODEDRJn^;AUTHORIZATION-IDENTITY (NICHTVORHANDEN) $00 AUTHENTICATION-IDENTITY=USER-sJx^;NAME $00 PASSWORD ²J‚^ STX$FD005;ENDFLAG F.NICHTVORHANDENE AUTHORIZATION-IDENTITYÐJŒ^ LDA$CF60;LAENGE USERNAMEáJ–^ STAL24254+1K ^L24224 LDA$CF61,X;USERNAMEKª^ STA$FD01,XK´^ INX,K¾^L24254 CPX#$FF;KÈ^ BCCL24224DKÒ^ INXQKÜ^ LDA#$00ZKæ^ TAYKð^ STA$FD00,X;END-FLAG F. USERNAME5ˆKú^ INX¦K_ LDA$CF90;LAENGE PASSWORT·K_ STAL24384+1ÖK_L24344 LDA$CF91,Y;PASSWORDæK"_ STA$FD00,XïK,_ INXøK6_ INY L@_L24384 CPY#$FFLJ_ BCCL24344+LT_ STXL24884+1WL^_ LDA#$00;SCHREIBT 2* NULLBYTES DAHINTER’Lh_ STA$FD00,X;WICHTIG FALLS NICHT G5ENAU IN DREIER PAKETEªLr_ STA$FD01,X;AUFGEHTÍL|_; HD-BYTE0 HD-BYTE1 HD-BYTE2ðL†_; 00000000 11111111 22222222M_; 00000011 11112222 223333336Mš_; BASE0 BASE1 BASE2 BASE3CM¤_ LDY#$29RM®_ BITCOOFONaM¸_ BMIL24524nMÂ_ LDY#$2C‚MÌ_L24524 T5AX;#$00œMÖ_L24534 LDA$FD00,X;HD0°Mà_ STAL24764+1;B0¹Mê_ INXÍMô_ LDA$FD00,X;HD1áMþ_ STAL24794+1;B1êM` INXþM` LDA$FD00,X;HD2N` STAL24824+1;B2N&` AND#$3F3N0` STAL24854+1;B3OÐ` INYUOÚ`L24794 LDA$82FF;B1eOä` STA$FA00,YnOî` INY…Oø`L248524 LDA$82FF;B2•Oa STA$FA00,YžO a INYµOaL24854 LDA$82FF;B3ÅO a STA$FA00,YÎO*a INYïO4aL24884 CPX#$FF;=GESAMTENDE+1þO>a BCCL245341PHa BEQL25014;B.I.GENAU IN 3ER-PAKETE AUFGEGANGENUPRa LDA#$3D;'=' =FLAG F.BASE64-END^P\a DEYgPfa DEXxPpa CPXL248854+1«Pza BEQL24994;B.I.2 BYTES IM END-TRIO-PAKET WARENÇP„a DEY;=1BYTE IN END-TRIOùPŽa STA$FA00,Y;LOESCHT B2 (=HD1 NICHT VORHANDEN)Q˜a INY:Q¢aL24994 STA$FA00,Y;LOESCHT B3 (=HD2 NICHT VORHANDEN)CQ¬a INYmQ¶aL25014 JMPL28324;END 0D/0A + SENDEN" ‚QÀaL525024 BNEL25064¢QÊa LDA#<(TXHEC6);=87 HELO C64µQÔa LDX#>(TXHEC6)ÇQÞa JMPL27994;" ÚQèaL25064 CMP#$89éQòa BCSL25304Rüa LDX#$00;=88 MAIL FROM BEGINN EINER NEUEN MAILHRb STXVERCPL;INITIALISIERT VECTOR RCPTURb LDA#$B0dRb STAVERCPHˆR$b LDYBETC5DA;BEGIN TCP-DATA 29/2CŸR.bL25134 LDATXMAFR,X®R8b BEQL25194¾RBb STA$FA00,YÇRLb INYÐRVb INXâR`b BNEL25134;" õRjbL25194 LDX#$00StbL25204 LDA$CE91,X;EIGENE EMAILADRESSE.S~b BEQL25264>Sˆb STA$FA00,YGS’b INYPSœb INXbS¦b BNEL25204;" wS°bL25264 L5DA#$3E;>‡Sºb STA$FA00,YSÄb INY·SÎb JMPL28324;END 0D/0A DAZU & SENDENÌSØbL25304 BNEL25514âSâb LDX#$00;=89 RCPTñSìb LDYBETCDATöbL25334 LDATXRCPT,XTc BEQL25394'T c STA$FA00,Y0Tc INY9Tc INXHT(c BNEL25334wT2cL25394 LDXVERCPL;VERCP ZEIGT AUF5 ANFANGS <†T*U–c BNEL25424BU cL25504 JMPL28324;" UUªcL25514 CMP#$8BdU´c BCSL25564€U¾c L5DA#<(TXDATA);=8A DATA“UÈc LDX#>(TXDATA)¥UÒc JMPL27994;" ºUÜcL25564 BEQL25584ÉUæc JMPL25784óUðcL25584 LDAEXACBU;=8B EMAILTEXT SENDENüUúc ASLVd TAX6Vd LDAENTDS0,X;END TCP-DATA SENDBUFFER 0-2 LOWCVd STAZPA6hV"d LDABETCDA;BEGINN TCP DATA 29/2C5•V,d STAZPA4;DIE PUFFER BLEIBEN IMMER GLEICHÏV6d SEC;WEGEN DEN SEQ-NR DARF NIE ETWAS GEAENDERT WERDENÜV@d SBC#$14éVJd STAZPA2öVTd SBC#$14W^d STAZPA08Whd LDAENTDS0+1,X;END TCP-DATAS SENDBUFFER 0-2 HIGHWWrd STAZPA7;F4-F5 F6-F7 F8-F9vW|d AND#$FE;F45-F4 F6-F6 F8-F8ƒW†d STAZPA5Wd STAZPA3Wšd STAZPA1µW¤d JMPSEIPNC;SENDEN" ÊW®dL25774 BNEL25854ÝW¸dL25784 CMP#$8DXÌd BCCL25584;=8C WARTEN AUF 250OK NACH EMAILTEXT@XÖd;UNKLAR OB RICHTIG;EVTL.GAR NICHTS SENDEN??X×d;JMPL28424 GEHT NICHT,WEIL BEI 85D VOR DER WIEDERHOLUNG KEIN PAKET GESENDETÉXØd;WURDE=>SEQUENZNUMMER IST FALSCH (NOCH NICHZ ERHOEHT)ØXàd BNEL25854îXêd LDY#$07;=8D QUITYôd JMPL27974;" 9YþdL25854 JMPL28654;FIN (ALLES WAS >8D ABER fL26174 STYFIIPUD+$19;PORTLOW IPADRESSE ERMITTELN SND UDPà\Hf;ABSENDERPORTLOW=SESTAT=30/60/70/B0þ\Rf;EMPFAENGERPORT IMMER $35/]\f LDA$CF00,X;LAENGE DES POP3/SMTP/TIME-NAMENS@]ff STAL26314+1Q]pf STAL26434+1b]zf STAL5#26494+1k]„f INXx]Žf LDY#$00§]˜f STYCOSEAD;KEIN COMPARE DER SERVER ADRESSEê]¢fL26274 LDA$CF00,X;POP3:CF08-CF2F SMTP:CF30-CF5F NETTIME:CF??^¬f STA$FA2C,Y;KOPIERT NAMEN^¶f INY^Àf INX-^ÊfL26314 CPY#$00<^Ôf BCCL26274I^Þf LDY#$92X^èf JSRPRMESE5$e^òf LDX#$2B|^üfL26364 LDAFIIPUD,Xµ^g STA$FA00,X;KOPIERT FILESD,IP-HDR,UDP-HDR,UDP-ANFANG¾^g DEXÍ^g BPLL26364Ú^$g LDX#$03ç^.g LDY#$2F_8gL26424 LDAQTYQCL,X;KOPIERT QTYPE QCLASS 0001 00013_BgL26434 STA$FAFF,Y<_Lg DEYE_Vg DEXW_`g BPLL26424;" 5%`_jg CLCm_tg LDA#$30€_~gL26494 ADC#$FFœ_ˆgL26504 LDY#$FA;HIGHBYTEº_’g STAZPA6;ENDE UDP-DATEN+1×_œg STYZPA7;!EVTL UEBERTRAGä_¦g LDX#$04ÿ_°g STXZPA0;BEGINN IP-HDR `ºg STYZPA1`Äg LDX#$185`Îg STXZPA2;BEGINN UDP-HDRB`Øg STYZPA3]`âg SEC;A=ZPA6=EN5&DE+1 LOW}`ìg SBCZPA0;ZPA0;BEGINN IP-HDR–`ög STA$FA07;LAENGE LOWÆ`h;EVTL NOCH LAENGE HIGH,FALLS LAENGERALS 255Ï` h SECç`h LDAZPA6;ENDE LOW+1ô`h SBCZPA2 a(h STA$FA1D;LAENGE LOW"a2h;!EVTL UEBERTRAGGak STAZPA6;ENDE TCP DATEN +1(iHk STXZPA7;(TCP-DATEN GIBT ES NICHT)5iRk LDX#$03Bi\k LDY#$176ˆifkL27494 LDATCHEOP,X;SCHREIBT TCP OPTION DAZU (MAX.500 BYTE SENDEN)™ipk STA(ZPA2),Y¢izk DEY«i„k DEXºiŽk BPLL27494Çi˜k LDY#$03j¢kL27554 LDATCPHDR+4,Y;BEI SYN:CLIENT-SEND-SEQ-NR IN EXSEAC-PUFFER KOPIKj¬k STAEXSEAC,Y;EVTL.UEBERFLUESSIG WARUM DANN 6UEBERHAUPT„j¶k DEY;UNTERSCHIED ZW. EXSEAC UND SEQ-FELD AUD GESEND.ŸjÀk BPLL27554;HEADER FELDÖjÊk INY;00 ALTE LAENGE AUF 1, DAMIT UM 1 ERHOEHT WIRDåjÔk STYAOSTDHðjÞk INY;1ÿjèk STYAOSTDL3kòk LDA#$60;TCP-HDR-LENGTH=6*4=24 (STATT 20) BYTESFkük STATCP6 HDR+$0Cckl LDA#$02;BIT1=HIGH = SYNƒkl STATCPHDR+$0D;CONTENT BITSžkl JSRSEIPCH;X=ENDE HIGHÉk$l LDA#$10;SETZT ACK BIT IN CONTENT BYTEÜk.l STATCPHDR+$0Dék8l LDA#$50ükBl STATCPHDR+$0C6lLl RTS; ENDE SEND TCP SYN" \lVlL26 7734 BNEL27764;B.I.NICHT $43/C3kl`l;CARRY=SET¨ljl JMPL28424;=$43/C3=HAT ACK&SYN EMPFANGEN+MUSS ACK SENDEN¼ltlL27764 CMP#$C8;ñl~l BEQL27824;B.I.$48/$C8 LIST-FOLGEPAKETE->NUR-ACKþlˆl CMP#$CA.m’l BEQL27824;B.I.$4A TOP-FOLGEPAKETE->NUR-ACK;mœl CMP#$CC6 nm¦l BNEL27834;B.I.NICHT RETR-FOLGEPAKETE->NUR-ACK¡m°lL27824 JMPL28424;B.I.RETR-FOLGEPAKETE->NUR-ACKÂmºlL27834 CMP#$D0;=$44-6F C4-EFÑmÄl BCCL27864ãmÎl JMPL28634;" #nØlL27864 SEC;=$44-4E 64-6E=USER PASS STAT LIST FOLGE-LIST TOP[nâl SBC#$C4;=$00-0A 6 FOLG-TOP RETR FOLGE-RETR DELE QUITdnìl TAYqnöl CPY#$05˜nm BCCL27974;B.I.0-3 = $C4-C7 -> 0-3¼n m BEQL27964;B.I.5: 5->4 = C9 ->4Énm CPY#$07ínm BEQL27954;B.I.7: 7->5 = CB ->5o(m DEY;CD,CE: 9,A->6,7o2mL27954 DEY'oC0 C0->C0Úpúm CMP#$C4qn BEQL28204;B.I.USER (NICHT BEI SMTP 84)qn LDX#$30 qn CMP#$C5>q"n BNEL28324;B.I6.NICHT PASSsq,nL28204 LDA$CF60,X;CF60 (USER) CF90 (PASS) LAENGE”q6n BEQL28324;B.I.KEIN PASSWORT£q@n TXA;00 30¬qJn CLCÄqTn ADC$CF60,X;+LAENGEÕq^n STAL28304+1äqhnL28264 INXôqrn LDA$CF60,Xr|n STA$FA00,Y r†n INY rnL28304 CPX#$FF/ršn BCCL28264B6r¤nL28324 LDA#$0DRr®n STA$FA00,Y[r¸n INYhrÂn LDA#$0AxrÌn STA$FA00,Y–rÖn INY;ENDE TCP-DATEN+1 LOW£ràn LDX#$FA¶rênL28394 STXZPA7Ãrôn STYZPA6ðrþn CLC;FLAG F.1-255 TCP-DATEN VORHANDEN" 4soL28424 LDA#$01;EINSPRUNG NUR-ACK (OHNE DATEN) SENDEN !C MU6SS HIAso LDX#$15Nso LDY#$29]s&o BITCOOFONls0o BMIL28504ys:o LDA#$04†sDo LDX#$18“sNo LDY#$2C¦sXoL28504 STAZPA0³sbo STXZPA2Àslo STYZPA4Ísvo LDA#$FAÚs€o STAZPA1çsŠo STAZPA3ôs”o STAZPA5tžo BCCL28604;B.I.ES TCP-DATEN GIBT7t¨o STYZPA6;=KEINE6 TCP-DATENDt²o STAZPA7_t¼oL28604 LDY#$94;TCP-ACKntÆo JSRPRMESE…tÐo JMPSEIPCH;-----" ­tÚoL28634 CMP#$E0;UNKLAR OB 60 RICHTIGÌtäo BCSL28934;B.I.60-6F E0-EFótîoL28654 AND#$01;SESTAT=$50-53 D0-DFuøo BEQL28694;B.I.FIN GESENDET WERDEN MUSSTup SEC;Z.6B.BEI53/D3:MUSS ACK AUF SERVER-FIN SENDENfu p JMPL28424;" upL28694 LDY#$96;TCP FINu p JSRPRMESEu*p LDA#$01¬u4p BITCOOFONÎu>p BMIL28754;B.I.COMPRESSION ONÛuHp LDA#$04îuRpL28754 LDX#$FAûu\p STAZPA0%vfp STXZPA1;BEGINN IP-HEADER FA01/FA04.vp6p CLCdvzp ADC#$14;BEGINN TCP-HEADER LOW 1+20=21 4+20=24ƒv„p STAZPA2;BEGINN TCP HEADERvŽp STXZPA3v˜p ADC#$14Êv¢p STAZPA4;WICHTIG F.BERECHNUNG DER LAENGE×v¬p STXZPA5öv¶p STAZPA6;ENDE TCP DATEN +1wÀp STXZPA7;(TCP-DATEN GIBT ES NICHT)EwÊp LDA#6$11;BIT0=HIGH = FIN BIT4=ACKewÔp STATCPHDR+$0D;CONTENT BITS€wÞp JSRSEIPCH;X=ENDE HIGH«wèp LDA#$10;SETZT ACK BIT IN CONTENT BYTE¾wòp STATCPHDR+$0Døwüp RTS; ENDE SEND TCP FIN" 7xqL28934 LDA#$00;ACK PAKET MIT WINDOW 00006 SENDEN SESTAT=E0Uxq STATCPHDR+$0F;WINDOW LOWtxq STATCPHDR+$0E;WINDOW HIGH“x$q SEC;FLAG F.KEINE TCPDATENÄx.q JSRL28424;ACKPAKET MIT WINDOW 0000 AUSGEBENÑx8q LDA#$06yBq STATCPHDR+$0E;WINDOW HIGH WINDOW AUF $0600=1,5KByLq RTS;------" .yVqL290164 LDASESTAT;y`q CMP#$F0Jyjq BNEL29084{ytq LDA#<(PSTERE);PAKAGE SEND TERMINATE REQUESTŽy~q LDX#>(PSTERE)¢yˆq LDY#$08;LAENGEÐy’q JMPSEACCO;TERMINATE REQUEST ZU SERVER" åyœqL29084 LDASESTATòy¦q CMP#$FDz°q BNEL29424zºq INCSESTAT;FD->FE:zær JMPH6OUPMO;HOOK UP MODEM"--- OzðrL29424 LDADATDAY‡zúr BEQL29754;B.I.KEIN DATUM V.ZEITSERFER GEHOLT WURDE¥zt JSRACTDAT;ACTUALIZE DATE²z&t LDY#$40Ñz0t JSRCOPRDA;COPY&PRINT DATEéz:tL29754 RTS;------" øz¨÷L63400 NOP{²÷ .IFMODE=2{¼÷ .AP"6-MAIN*",8${Æ÷ .EL-{Ð÷ .EN:{Ú÷ .EI;" BNEL29084{ytq LDA#<(PSTERE);PAKAGE SEND TERMINATE REQUESTŽy~q LDX#>(PSTERE)¢yˆq LDY#$08;LAENGEÐy’q JMPSEACCO;TERMINATE REQUEST ZU SERVER" åyœqL29084 LDASESTATòy¦q CMP#$FDz°q BNEL29424zºq INCSESTAT;FD->FE:zær JMPH6Ø÷'N;!MIT ZEILE 20008 BEGINNEN 1N; .EQ MODE=0) ;N; .EQ MODE=18 EN .IFMODE=2A ON .ELR YN .EQZPA0=$50c cN .EQZPA1=$51t mN .EQZPA2=$52… wN .EQZPA3=$53– N .EQZPA4=$54§ ‹N .EQZPA5=$55¸ •N .EQZPA6=$56É ŸN .EQZPA7=$57Ú ©N .EQZPA68=$58ë ³N .EQZPA9=$59ü ½N .EQZPB0=$60 !ÇN .EQZPB1=$61!ÑN .EQZPB2=$62/!ÛN .EQZPB3=$63@!åN .EQZPB4=$64Q!ïN .EQZPB5=$65b!ùN .EQZPB6=$66s!O .EQZPB7=$67„! O .EQZPB8=$68•!O .EQZPB9=$69¨!!O .EQENRELO=$F7»!+O .EQENREHI=$F8Î!5O .EQBERELO=$FBá!?O6 .EQBEREHI=$FCô!IO .EQTXNMIP=999"SO .EQBEBUHI=999"]O .EQENBULO=999-"gO .EQENBUHI=999@"qO .EQCRCLOW=999S"{O .EQCRCHIG=999f"…O .EQCRCBYT=999y"O .EQCOOFON=999Œ"™O .EQAUNOYE=999Ÿ"£O .EQWABUSE=999²"­O .EQCOFOAU=999Å"·O .EQSESTAT=999Ø"ÁO .EQSEI6PAD=999ë"ËO .EQCLIPAD=999þ"ÕO .EQPRIDNS=999#ßO .EQSECDNS=999$#éO .EQPRSEDN=9997#óO .EQSENEDN=999L#ýO .EQSEBU01=$F400a#P .EQSEBU02=$FA00t#P .EQPSACCO=999‡#P .EQPSIDAD=999š#%P .EQPRMERC=999­#/P .EQPRMESE=999À#9P .EQPRMENO=999Ó#CP .EQLOAFIL6=999æ#MP .EQBYRSIN=999ù#WP .EQWAMOME=999 $aP .EQBYRSOU=999$kP .EQCYRECS=9992$uP .EQSEACCO=999E$P .EQSEBUF4=999X$‰P .EQSEBUFA=999k$“P .EQSEBUAC=999~$P .EQANAPPP=999‘$§P .EQSTANPP=999¤$±P .EQIDCORJ=999·$»P .EQIDPRRJ=999Ê$ÅP .EQCSIPHE=999Ý$6ÏP .EQSEQNUM=999ð$ÙP .EQFIIPHE=999%ãP .EQTCPHDR=999%íP .EQCSTCHD=999)%÷P .EQTXINPR=999<%Q .EQTXEMAC=999O% Q .EQFIIPUD=999b%Q .EQQTYQCL=999u%Q .EQIAPOP3=999ˆ%)Q .EQIASMTP=999›%3Q .EQCOEMAD=999®%=Q .EQACEMAD=999Á%GQ .EQTCHEOP=999Ô%QQ .EQC6 OSEAD=999ç%[Q .EQTXEMLO=999ú%eQ .EQTXEMHI=999 &oQ .EQSEIPCH=999 &yQ .EQSEIPNC=9993&ƒQ .EQSENCOM=999F&Q .EQTXCOBI=999Y&—Q .EQSETCAN=999l&¡Q .EQTXENFL=999&«Q .EQTXDIMA=999’&µQ .EQTXTY1D=999¥&¿Q .EQDNSYFI=999¸&ÉQ .EQLTCPDL=999Ë&ÓQ .EQLTCPDH=96!99Þ&ÝQ .EQTCPDNY=999ð&çQ .EQTXTOP=999'ñQ .EQTXRETR=999'ûQ .EQTXDELE=999)'R .EQTXSFRT=999<'R .EQTXLENG=999O'R .EQCOEMAI=999b'#R .EQPRTEXT=999u'-R .EQTXDOSK=999ˆ'7R .EQTXDEPR=999›'AR .EQTXPR12=999®'KR .EQGETKEY=999Á'UR .EQTXSHNK=999Ô'_R 6".EQTXNOSU=999ç'iR .EQTXILCH=999ú'sR .EQTXSUCH=999 (}R .EQTXDEYN=999 (‡R .EQTXWAOF=9993(‘R .EQTXESFI=999F(›R .EQTXESRE=999Y(¥R .EQEXSESE=999l(¯R .EQLTCPD0=999(¹R .EQEXSEAC=999’(ÃR .EQSETASA=999¥(ÍR .EQTXNSTE=999¸(×R .EQTXDIFU=999Ë(áR .EQTXOP6#ER=999Þ(ëR .EQTXSAER=999ñ(õR .EQTXCLER=999)ÿR .EQTXDIER=999) S .EQPRDIER=999*)S .EQDOEMNY=999=)S .EQVIRAST=999P)S .EQACTDAT=999c)S .EQDACENT=999v)S .EQDAYEAR=999‰)S .EQDAMONT=999œ)S .EQDATDAY=999¯)S .EQDAHO24=999Â)S .EQDAMINU=9996$Õ)S .EQDASECU=999Þ)S .EI*'S;=================================*1S .IFMODE=0"*;S .BA$E001+*ES .EI:*OS .IFMODE=1H*YS .BA$E001Q*cS .EI`*mS .IFMODE=1n*wS .LI4,4,0w*S .EI…*‹S;"8-MAIN¤*•S;"MIT ZEILE 20008 BEGINNENÖ*©S .EQAPRETF=L21517;ANALYS6%E POP RETRIEVE FOLLOW+½S .EQAPRETS=L24167;ANALYSE POP RETRIEVE START.+ÇS .EQAPDELE=L29367;ANALYSE POP DELEi+ÑS .EQAPINEM=L29447;(ANALYSE POP) INCREMENT EMAIL NUMBERœ+ÒS .EQAPSTDO=L30367;(ANALYSE POP) START DOWNLOAD«+ÛS JMPL63400Ó+åS;--------------6&-----------------" , TL21517 LDAZPB4;(CC) ANALYSE POP RETRIEVE FOLLOW,T LDXZPB56,!T JMPL24837;RETR-FOLGEPAKETE" z,g^L24167 LDA#$30; APRETS²,q^ STADOEMNY;SETZT FLAG,DASS EMAILS DOWNGELOADET SINDÛ,{^ STAL26'6197+1;FLAG F.START-SAVE-BLOCKî,…^L24197 LDX#$04-^L24207 CMPVIRAST+$49,X;FREIER DISKSPACE?-™^ BNEL24597;B.I.IRGENDEIN KB FREIH-£^ DEXW-­^ BPLL24207s-·^ LDAL26197+1;=DISK FULLª-Á^ BMIL24597;B.I.WEGEN ALTEM FEHLER NICHT MEHR SAVEN½-Ë^ LDA#<(TXDIF7U)Ð-Õ^ LDX#>(TXDIFU)ß-ß^ JSRPRTEXTô-é^L24297 JSRGETKEY.ó^ BEQL24297+.ý^ LDA#$E0;ACK MIT WINDOW=0000 SENDEN:._ JSRSETASAP._ JSR$C00C;NMI OFFƒ._L24347 JSR$A003;FREIER DISKSPACE AKTUALISIEREN¡.%_ BEQL24497;B.I.FEHLERFREI´./_ LDA#<(TXDIER)Ç.9_7 LDX#>(TXDIER)Ö.C_ JSRPRDIERë.M_L24397 JSRGETKEYø.W_ CMP#$31 /a_ BEQL24347;B.I.NEW DISK IS INSERTED-/k_ LDX#$80:/u_ CMP#$32R/_ BEQL24497;B.I.SKIP_/‰_ LDX#$C0l/“_ CMP#$33Š/_ BNEL24397;B.I.NICHT QUIT¹/§_ STXL26197+1;SETZT FLAG F.NICHT MEHR SAV7ENÔ/±_L24497 JSR$C012;NMI ONá/»_ LDA#$30ó/Å_ BNEL24197;" @0Ï_;2 GETRENNTE ROUTINEN, WEIL EVTL I/O ROUTINEN GIBT DIE SO KLEINEN PUFFERj0Ù_;HABEN, DASS TOP NICHT GANZ REINPASST¢0ã_;A=ANFANG EMAIL LOW X=ANFANG EMAIL HIGH (OHNE +OK)¶0í_;SUBJECT SUCHE7NÛ0÷_;ABFRAGE OB GENUG PLATZ AUF DISK1`;FREIER DISKSPACE-ANZEIGE VERRINGERNEAKK1 `;EVTL NOCH ANALYSE WENN START UND ENDE EE41 (Z.B.FALLS NUR +OK)n1`L24597 LDA#$CC;RETR-FOLGEPAKET}1` STASESTATŠ1)` LDY#$00½13` STYL25467+1;LOESCHT DOWNGELOEDEDTE 7EMAILMENGEÔ1=` STYL25497+1; -"-ö1G` STYL24917+1;SAVEPUFFERVECTOR2Q` LDX$A015;ABHAENGIG V.I/O-ROUTINEJ2[` STXL24997+2;SAVEPUFFERVECTOR BEGINN HIGH_2e` DEX;Z.B. B0->AFp2o` STXL24697+2¥2y`L24697 STY$AFFF;LOESCHT ENDFLAG-ZWISCHENSPEICHERî2ƒ`;WICHTI7G BEI: 1.PACKET ENTHAELT NUR +OK => BEI AFFB-AFFF WUERDE NOCH73`;ENDFLAG VON LETZTEM DURCHGANG STEHEN UND EM64 WURDE MEINEN ES WAEREY3—`;DAS ENDE DER AKTUELLEN EMAIL“3¡` DEY;UEBERSPRINGT '+OK+LAENGE' BEI 1.EMAIL-TEXT-PAKET 3«` LDA#$0A¯3µ`L24757 INY7À3¿` CMP(ZPB4),Yï3É` BNEL24757;B.I.NICHT ENDE DER ERSTEN ZEILE!4Ó` TYA;CARRY=SET! =ENDE +1 DER ERSTEN ZEILEC4Ý` LDXZPB5;TCPDATEN BEGINN HIGH†4ç` ADCZPB4;ANFANG EE30 EE30 EE30 EE30 EE30 EE00 EE00 EE00 EE41Ë4ñ` BCCL24837;ENDE+1 EEFF EF00 EF017 EF30 EF31 EEFF EF00 EF01 EE41 5û` INX;(ENDE) EEFE EEFF EF00 EF2F EF30 EEFE EEFF EF00 EE40" Q5aL24837 SEC;A=ANF.LOW 30 30 30 30 30 00 00 00 41”5a SBCZPB6;ENDE+1LOW FF 00 01 30 31 FF 00 01 41Ó5a TAY; C 317 S 30 S 2F S 00 C FF C 01 S 00 C FF S 006#a BCSL24887;X=ANF.HI EE EE EE EE EE EE EE EE EE6-a DEXj67aL24887 STXL24987+2; ED EE EE EE ED ED EE ED EE³6AaL24897 LDAZPB6;ENDE+1LOW FF 00 01 30 31 FF 007 01 41Ä6Ka STAL24987+1ù6UaL24917 LDX#$00;MUSS MIT #00 INITIALISIERT WERDEN7_a TYA67ia BEQL25067;WICHTIG FALLS PAKET NACH +OK ZU ENDE…7sa;GMX SENDET IM 1.EMAIL-PAKET MANCHMAL NUR '+OK 1000 MESSAGE FOLLOWS CR LF'¹7}a;OHNE WEITER DATEN=>MUSS GLEI7 CH AUF ENDE TESTENý7‡a;EVTL NOCH ANALYSE WENN START UND ENDE EE41 (Z.B.FALLS NUR +OK)8‘a;LIEST V. EE00-EFFFa8›aL24987 LDA$FFFF,Y; EDFF EE00 EE01 EE30 ED31 EDFF EE00 ED01 EE41­8¥aL24997 STA$FF00,X; ^^Y= 31 30 2F 00 FF 01 00 7 FF 00Ê8¯a;SCHREIBT NACH B000-BFFFÓ8¹a INXý8Ãa BEQL25257;B.I.SAVEPUFFER PAGEWECHSEL 9ÍaL25037 INY9×a BNEL24987M9áaL25057 INCL24987+2;=RECEIVEPUFFER PAGEWECHSELd9ëaL25067 LDAL24987+2¥9õa CMPZPB7;ENDE+1HI EE EF EF EF EF EE EF EF 7 EEè9ÿa BNEL24987;BLOCKS: 1 1 1 1 2 1 1 2 0" *: b STXL24917+1;ENDE SAVEPUFFER+1 LOW =RECEIVEP.Z.ENDE GELESEN3:b TXA\:b LDXL24997+2;ENDE SAVEPUFFER +1 HIGHe:'b SECu:1b SBC#$05;-5„:;b BCSL25167:Eb DEXÔ:ObL25167 STAL25197 7+1;ZEIGT JETZT AUF 5-LETZTES ZEICHEN DER TCP-DATENå:Yb STXL25197+2ò:cb LDY#$04;mbL25197 LDA$FFFF,Y;wb CMPTXENFL,YA;b BNEL25327;B.I.NICHT ENDE DER EMAILJ;‹b DEYY;•b BPLL25197‰;ŸbL25247 JMPL26127;SAVE,WEIL ENDE DER EMAIL" µ;©bL25257 INCL24997+72;SAVEPUFFER UEBERTRAGÆ;³b LDAL24997+2Ó;½b CMP#$C0<Çb BNEL25037;B.I.SAVEPUFFER NOCH NICHT VOLL<Ñb STXL24917+1;=#$008<Ûb STYL28747+1;READPUFFER LOWr<åbL25317 JMPL26117;SAVE,WEIL SAVEPUFFER VOLL (X=#$00)" ²<ïbL25327 SEC;Z.B. C000-BE12 7=NICHT ENDE DER EMAILÙ<ùb LDA#$00; 00 SAVEPUFFERENDE C000 =c SBCL24917+1; 12 AKTUELLES SAVEPUFFERENDE/= c TAX; EE&C NOCH FREIER PLATZ LOWW=c LDA#$C0;C0 SAVEPUFFERENDE HIGHˆ=!c SBCL24997+2;BE AKTUELLES SAVEPUFFERENDE˜=+c CMP#$06;01Â=75c BCCL25427;B.I.WENIGER ALS 1.5KB FREIâ=?c LDX#$00;SONST 1,5KB-WINDOWï=Ic LDA#$06>ScL25427 STXTCPHDR+$0F;WINDOW LOW2>]c STATCPHDR+$0E;WINDOW HIGH\>gc JSRSETCAN;SEND TCP ANSWER ACK PACKETƒ>qc CLC;EMAIL LAENGENANZEIGE ERHOEHEN–>{cL25467 LDA#$00Ä>7…c ADCLTCPDL;ACTUELL RECIEVED TCP-DATEN LOWÕ>c STAL25467+1è>™cL25497 LDA#$00?£c ADCLTCPDH;ACTUELL RECEIVED TCP-DATEN HIGH(?­c STAL25497+15?·c CMP#$04b?Ác BCSL25557;B.I.MEHR ALS 1KB TEXT GELADENt?ËcL25547 RTS;" ‡?ÕcL25557 SBC#$04˜?ßc STAL25497+71¥?éc LDX#$04¾?óc SEC;NICHT CLC => +1ý?ýcL25597 LDAVIRAST+$29,X;ERHOEHT AKTUELLE EMAILLAENGE UM 1KB @d ADC#$00@d CMP#$3A&@d BCCL25647F@%d LDA#$30;WAR UEBERGANG 9 ->a@/dL25647 STAVIRAST+$29,Xƒ@9d BCCL25707;B.I.KEIN UEBERTRAGŒ@Cd DEX¦@Md BPL7L25597;CARRY =SETÜ@Wd LDA#$3E;> AUCH BEI 10000ER STELLE IST UEBERTRAGò@ad STAVIRAST+$28;" AkdL25707 LDX#$04Aud SEC;NICHT CLCTAdL25727 LDAVIRAST+$39,X;ERHOEHT GESAMTEMAILLAENGE UM 1KBaA‰d ADC#$00nA“d CMP#$3A}Ad BCCL25777ŠA§d LDA#$30¥A±dL257777 STAVIRAST+$39,XÇA»d BCCL25837;B.I.KEIN UEBERTRAGÐAÅd DEXßAÏd BPLL25727BÙd LDA#$3E;> AUCH BEI 10000ER STELLE IST UEBERTRAG+Bãd STAVIRAST+$38;" >BídL25837 LDX#$04UB÷d CLC;NICHT SEC=>-1“BeL25857 LDAVIRAST+$49,X;ERNIEDRIGT FREIEN DISKSPACE UM 17KB B e SBC#$00­Be CMP#$30ÆBe BCSL25907;B.I.30-38èB)e LDA#$39;WAR UNTERTRGA 30->2FC3eL25907 STAVIRAST+$49,X%C=e BCSL26007;B.I.KEIN UEBERTRAG.CGe DEX=CQe BPLL25857mC[e;UNTERTRAG 00000->99999 KANN ES NICHT GEBENzCee LDX#$04‡Coe LDA#$30ÒCyeL257977 STAVIRAST+$49,X;FREIER DISKSPACE AUF 00000 SODASS FGESAVED WIRD Dƒe DEX;VIELLEICHT IST RETTUNG TROTZ UNTERTRAG MOEGLICHDe BPLL25977;" 0D—eL26007 LDX#$04=D¡e LDA#$30iD«eL26027 CMPVIRAST+$49,X;FREIER DISKSPACE“Dµe BNEL25547;B.I.NOCH IRGENDEIN K7B FREIœD¿e DEXÏDÉeL26057 BPLL26027;X=#$FF SAVE WEIL DISK FULL" EÓe;!!EVTL SUBTARKTION NEU INITIALISIEREN????" EÝe;3GRUENDE FUER SAVE:6Eçe;-L25317 SAVEPUFFER VOLLTEñe;-L25247 ENDFLAG GEFUNDEN|Eûe;-L26057 KEIN FREIER DISKSPACE MEHRÃEfL26117 STX7L28667+1;00=SAVERPUFFER VOLL FF=KEIN FREIER DISKSPACE" ñEfL26127 LDA#$00;EINSPRUNG ENDFLAG GEFUNDENFf STATCPHDR+$0F;WINDOW LOW.F#f STATCPHDR+$0E;WINDOW HIGH_F-f JSRSETCAN;TCP-PACKET MIT WINDOW 0000 SENDEN…F7f LDA#$06;(WINDOW LOW BLEIBT #$00)µFA7f STATCPHDR+$0E;WINDOW HIGH AUF 1,5KB-WINDOWËFKf JSR$C00C;NMI OFFÞFUfL26197 LDA#$00õF_f;00 FOLGESAVEBLOCK Gif;4C STARTSAVEBLOCK2Gsf;80 %1000 NEW ATTEMPT (AT ERROR)QG}f;A0 %1010 SKIP (AT ERROR)pG‡f;C0 %1100 QUIT (AT ERROR)G‘f BNEL26277 G›f JM7PL27377;=FOLGESAVEBLOCK" ÈG¥fL26277 BPLL30000;B.I.STARTSAVEBLOCKøG¯f JMPL27567;NACH ERROR WARTET AUF ENDFLAG" H0uL30000 LDY#$006H2u STYL26197+1;SETZT FLAG F. FOLGEPAKETEdH5u BIT$CFC3;ART DER SAVE-NAMEN GENERIEREUNG„H:u BMIL30016;B.I.COUNTER-FILE7ŸHDu BVSL30040;B.I.NETTIME×HNu JMPL26367;ZU SAVENAME NACH SUBJECTFILED GENERIERENIXuL30016 LDX#$0E;FILENAME NACH COUNTERFILE/IbuL30051 LDA$02A7,X;AUS EM64COUNTER-FILE?Ilu STA$8011,XHIvu DEXWI€u BPLL30051dI”u LDX#$0EmIžu SECƒI¨uL30121 LDA$02A7,X7I²u ADC#$00I¼u CMP#$3A¬IÆu BCCL30171¹IÐu LDA#$30ÏIÚuL30171 STA$02A7,XÞIäu BCCL30211çIîu DEXöIøu BPLL30121JvL30211 JMPL27107;-----" EJ@œL30040 JSRACTDAT;NAME NACH NETTIME GENERIEREN…JJœ LDADACENT;!NOCH TEST OB NETTIME GEHOLT WERDEN KONNTE??7????ŽJTœ TAX—J^œ LSR Jhœ LSR©Jrœ LSR²J|œ LSR¿J†œ ORA#$30ÍJœ STA$8011ÖJšœ TXAãJ¤œ AND#$0FðJ®œ ORA#$30þJ¸œ STA$8012 KÂœ LDADAYEARKÌœ TAXKÖœ LSR(Kàœ LSR1Kêœ LSR:Kôœ LSRGKþœ ORA#$30UK STA$8013^K TXAkK AND#$0FxK& ORA#$30†K0 S7TA$8014«K: LDADAMONT;00-09 10 11 12 (BCD)ÇKD CMP#$0A; C C S S SãKN ADC#$30;30-39 41 42 43ñKX STA$8015Lb LDADATDAY Ll TAXLv LSRL€ LSR$LŠ LSR-L” LSR:Lž ORA#$30HL¨ STA$8016QL² TXA^L¼ AND#$0FkLÆ ORA#$30yLÐ STA$8017ˆLÚ7 LDADAHO24‘Lä TAXšLî LSR£Lø LSR¬Lž LSRµL ž LSRÂLž ORA#$30ÐL ž STA$8018ÙL*ž TXAæL4ž AND#$0FóL>ž ORA#$30MHž STA$8019MRž LDADAMINUM\ž TAX"Mfž LSR+Mpž LSR4Mzž LSR=M„ž LSRJMŽž ORA#$30XM˜ž STA$801AaM¢ž TXAnM¬ž AND#$0F{M¶ž ORA#$307 ‰MÀž STA$801B˜MÊž LDADASECU¡MÔž TAXªMÞž LSR³Mèž LSR¼Mòž LSRÅMüž LSRÒMŸ ORA#$30àMŸ STA$801CéMŸ TXAöM$Ÿ AND#$0FN.Ÿ ORA#$30N8Ÿ STA$801DNBŸ LDA#$20,NLŸ STA$801E:NVŸ STA$801FON`Ÿ JMPL27107;---" ™NjŸ;SCHLECHT,WEIL SAVEROUTINE GIBT, DIE 7!SOFERT SPEICHERT, OHNE IN PUFFERÆNtŸ;ZWISCHENZUSPEICHERN=>WIE BEI TOP MACHENO~Ÿ;EMAIL SO GROSS,DASS TOP KOMMT JA NEINROˆŸ;ASK DELE = YES SCREEN BEI TOP SCREEN BEI RETRžO’Ÿ; 7"SUBJECT BEI TOP SUBJECT BEI RETRíOœŸ;ASK DELE = NO SCREEN BEI TOP KEIN SCREEN-AUSGABE9P¦Ÿ; SUBJECT BEI TOP SUBJECT BEI RETRyP°ŸL26367 LDA$A015;BEGINN SAVEPUFFER (ABHAENGIG V.I/O-ROUT7#INE)ŠPºŸ STAL26417+2—PÄŸ LDY#$00¤PΟ LDA#$0AÒPØŸL26417 CMP$FF00,Y;ZEICHEN AUS SAVE PUFFERôP⟠BEQL26577;B.I.ENDE DER ZEILEQìŸL26437 INYQöŸ BNEL26417#Q  INCL26417+24Q   LDXL26417+2AQ  CPX#$C0PQ  BCCL26417oQ( L26497 LDX#$0E;=NO SUBJECT–Q27$ L26507 LDATXNOSU,X;TEXT NO SUBJECT¸Q<  STA$8011,X;FILENAME-SPEICHERÁQF  DEXÐQP  BPLL26507óQZ  BMIL27107;'NO SUBJECT' "--- Rd L26557 LDA#$0ARn  BNEL26437;---" ARx L26577 STYL26687+1;ZEIGT AUF #$0ARR‚  STYL26817+1eRŒ  SEC;ODER CLC?nR–  TYA˜R7%   SBCL24917+1;AKTUELLES SAVEPUFFERENDEÁRª  LDAL26417+2;AKTUELLE ZEIGERPOS HIGHÒR´  STAL26687+2ãR¾  STAL26817+2SÈ  SBCL24997+2;AKTUELLES SAVEPUFFERENDE HIGH3SÒ  BCSL26497;B.I.ENDE ERREICHT@SÜ  LDX#$01VSæ L26687 LDA$FFFF,XcSð  CPX#$01•Sú  BNEL267&757;B.I.NICHT ERSTES ZEICHEN DER EMAIL¢S¡ CMP#$0DÄS¡ BEQL26497;B.I.HEADER ZU ENDEÓS¡ CMP#$2E;.ôS"¡ BEQL26497;B.I.EMAIL ZU ENDE"T,¡L26757 CMPTXSFRT-1,X;VERGLEICHT MIT 'SUB'>T6¡ BNEL26557;WEITERSUCHENGT@¡ INXTTJ¡ CPX#$04cTT¡ BNEL26687ƒT^¡ LDX#7'$0A;= SUBJECT GEFUNDEN™Th¡L26817 LDA$FFFF,X¦Tr¡ CMP#$0D¾T|¡ BEQL27087;B.I.ENDEËT†¡ CMP#$20äT¡ BCCL26997;B.I.00-1FøTš¡ LDY#$15;=20-FF&U¤¡L26877 CMPTXILCH,Y;TEXT ILLEGAL CHARACTER5U®¡ BNEL26917`U¸¡ LDATXSUCH,Y;TEXT SUBSTITUTE CAHRACTERsU¡ BNEL287007;-" ‚UÌ¡L26917 DEY‘UÖ¡ BPLL26877šUà¡ TAYµUê¡ BMIL26997;B.I.$80-$FFÏUô¡L26957 CMP#$60;=20-7FèUþ¡ BCCL27007;B.I.20-5FV¢ AND#$5F;=60-7F -> 40-5F ASCII->PETSCII"V¢ .BY$2C5V¢L26997 LDA#$20OV&¢L27007 STA$8011-$0A,XXV0¢ INXgV:¢ CPX#$19;?v8VD¢ BCCL26817ˆVN¢ BCSL27107;" ›VX¢L27057 LDA#$20¯Vb¢ STA$8011-$0A,X¸Vl¢ INXËVv¢L27087 CPX#$19ÚV€¢ BCCL27057óVŠ¢L27107 JSR$A006;OPENW”¢ BEQL27377;B.I.FEHLERFREI?Wž¢ LDA#<(TXOPER);OPEN ERROR RETRY SKIP QUITRW¨¢ LDX#>(TXOPER)gW²¢L27147 JSRPRDIER8|W¼¢L27157 JSRGETKEY‰WÆ¢ CMP#$31ªWТ BNEL27327;B.I.NICHT 1=RETRYéWÚ¢ JSR$A003;FREIER DISKSPACE AKTUALISIEREN (FALLS DISK GEWCHXä¢ BEQL27237;B.I.FEHLERFREI$Xî¢ LDA#<(TXDIER);DIR ERROR7Xø¢ LDX#>(TXDIER)IX£ BNEL27147;" uX £L27237 LDA#$30;=NEUES D8IR $$ FEHLERFREI‚X£ LDX#$04X £L27257 CMPVIRAST+$49,XÚX*£ BNEL27107;B.I.AUF NEUEINGELEGTER DISK IRGENDEIN KB FREIãX4£ DEXòX>£ BPLL27257YH£ LDA#<(TXDIFU)YR£ LDX#>(TXDIFU)3Y\£ BNEL27147;DISK FULL" FYf£L27327 CMP#$32`Yp£ BEQL27467;B.I.2=SKIP£Y8z£L27347 CMP#$33;AM ENDE KOMMT CLOSE OBWOHL GAR NICHTS GEOEFFNET½Y„£ BEQL27467;B.I.3=QUITÏYŽ£ BNEL27157;" Z˜£L27377 LDA$A015;ANFANG HIGH PUFFER SAVEN.Z¢£ LDXL24917+1;ENDE LOWIZ¬£ LDYL24997+2;ENDE HIGH{Z¶£ JSR$A009;PUFFER SA8VEN ANFANG LOW IMMER #$00)™ZÀ£ BEQL27567;B.I.FEHLERFREIÇZÊ£ LDA#<(TXSAER);SAVE ERROR AGAIN SKIP QUITÚZÔ£ LDX#>(TXSAER)éZÞ£ JSRPRDIERþZè£L27457 JSRGETKEY[ò£L27467 LDX#$80[ü£ CMP#$319[¤ BEQL27557;B.I.1=AGAINF[¤ LDX#$A0S[¤ CMP#$32m[$¤ BEQL278557;B.I.2=SKIPz[.¤ LDX#$C0‡[8¤ CMP#$33§[B¤ BNEL27457;B.I.NICHT 3=QUITÔ[L¤L27557 STXL26197+1;SETZT FLAG F. ERROR" \V¤L27567 LDAL24917+1;ENDE SAVEPUFFER+1 LOW\`¤ LDXL24997+2; -"-HIGH)\j¤ SEC;C0006\t¤ SBC#$80E\~¤ BCSL27627N\ˆ¤ DEXe\’¤L27627 STA8L27697+1v\œ¤ STXL27697+2„\¦¤ LDX$A015\°¤ DEXž\º¤ STXL27707+2¿\Ĥ CLC;FLAG F.ENDFLAG GEFUNDENÌ\Τ LDX#$7Bì\ؤL27697 LDA$BF80,X;BFFB-BFFF3]â¤L27707 STA$AF80,X;AF80+7B=AFFB-AFFF HIGHBYTE INITIALISIERENb]ì¤;WICHTOG FALLS ENDFLAG AN SAVEPUFFE8RGRENZE ]ö¤ EORTXENFL-$7B,X;NICHT CMP WEIL CARRY GLEICH BLEIBEN MUSS¯]¥ BEQL27757Ì] ¥ SEC;FLAG F.KEIN ENDFLAG ^¥L27757 INX;DEX GEHT NICHT,WEIL AFFC-AFFF UEBERSCHRIEBEN WIR1^¥ BPLL27697;BEVOR VERGLICHEN WIRDQ^(¥ BCSL27887;B.I.KEIN ENDFLAGj^2¥ JM8 PL28767;ENDFLAG" ´^<¥;MUSS BEIM SAVEN,WEIL SAVEPUFFER VOLL IST, VORHER DER FREIE DISKSPACEÕ^F¥;UM 1 VERMINDERT WERDEN???" _P¥;00=FREE DISKSPACE NOCH NICHT INITIALISIERT0_Z¥;40=FREE DISKSPACE = NEU INITIALISIERTx_d¥;80=ALTE DISK WURDE GECLOSED=>NEUE8 DISK MUSS INITIALISIERT + OPEN" œ_n¥;Y= DISK=FREE SPACE DISK=FULLÙ_x¥;00 WEITER FREE DISKSPACE AKTUALISIEREN Y->#$40`‚¥;40 WEITER CLOSE&DISKWECHSEL-FORDERN Y->#$80A`Œ¥;80 OPEN&WEITER DISKWECHSEL FORDERN" T`–¥L27887 LDY#$008 g` ¥L27897 LDX#$04t`ª¥ LDA#$30`´¥L27917 CMPVIRAST+$49,X´`¾¥ BNEL28367;B.I.IRGENDEIN KB FREI½`È¥ DEXÓ`Ò¥ BPLL27917;X=#$FFä`Ü¥ LDAL26197+1 aæ¥ BPLL27987;B.I.KEIN ALTER FEHLER7að¥ JMPL28657;KEIN SAVE WEGEN ALTEM FEHLER" Qaú¥L27987 TYA;=DISK FULL…8 a¦ BNEL28177;B.I.FREE DISKSPACE=NEU INITIALISIERT’a¦ LDY#$40©a¦L28017 STYL28157+1Üa"¦L28027 JSR$A003;FREIER DISKSPACE AKTUALISIERENúa,¦ BEQL28157;B.I.FEHLERFREI b6¦ LDA#<(TXDIER)/b@¦ LDX#>(TXDIER);TEXT DIR ERRORNbJ¦ JSRPRDIER;PRINT DIR ERRORcb8 T¦L28077 JSRGETKEYpb^¦ CMP#$31‚bh¦ BEQL28027;" br¦ CMP#$32žb|¦ BEQL28147«b†¦ CMP#$33ºb¦ BNEL28077Òbš¦L28147 JMPL27467;" ëb¤¦L28157 LDY#$FF;40/80ýb®¦ BNEL27897;" Cc¸¦L28177 BMIL28247;B.I.BEREITS GECLOSED =DISK IST WIRKLICH VOLLWc¦ JSR$A080C;CLOSEuc̦ BEQL28247;B.I.FEHLERFREI¤cÖ¦ LDA#<(TXCLER);CLOSE ERROR RETRY SKIP QUIT·cঠLDX#>(TXCLER)Æcê¦ JSRPRDIERÕcô¦ JMPL27457dþ¦L28247 LDA#<(TXDIFU);DISK FULL INSERT NEW DISKd§ LDX#>(TXDIFU)*d§ JSRPRTEXT8d§ LDA$A015_d&§ STAL24997+2;SAV8EPUFFER AUF ANFANGƒd0§ LDX#$00;NOCH PRUEFEN OB STIMMT”d:§ STXL24917+1ÀdD§L28317 JSRGETKEY;WARTET AUF TASTENDRUCKÏdN§ BEQL28317ôdX§ LDY#$80;FLAG F.MUSS OPEN MACHEN"eb§;WO WIRD FREIER DISKSPACE INITIALISIERT??4el§ BNEL28017;" Yev§L28367 TYA;=NICHT 8ENDE DER EMAILe€§ BPLL28657;B.I.NICHT GECLOSED KEIN OPEN NOETIG¦eŠ§L28387 JSR$A006;OPENÄe”§ BEQL28657;B.I.FEHLERFREIòež§ LDA#<(TXOPER);OPEN ERROR RETRY SKIP QUITf¨§ LDX#>(TXOPER)f²§L28427 JSRPRDIER/f¼§L28437 JSRGETKEY(TXDIER)ûf¨ BNEL28427;DIR ERROR" 'g ¨L28517 LDA#$30;=NEUES DIR $$ FEHLERFREI4g¨ LDX#$04Og ¨L28537 CMPVIRA8ST+$49,XŒg*¨ BNEL28387;B.I.AUF NEUEINGELEGTER DISK IRGENDEIN KB FREI•g4¨ DEX¤g>¨ BPLL28537·gH¨ LDA#<(TXDIFU)ÊgR¨ LDX#>(TXDIFU)åg\¨ BNEL28427;DISK FULL" øgf¨L28607 CMP#$32hp¨ BEQL28647;B.I.2=SKIP%hz¨L28627 CMP#$33Eh„¨ BNEL28437;B.I.NICHT 3=QUIT8]hŽ¨L28647 JMPL27467;" Žh˜¨L28657 JSR$C012;NMI ON NICHT ENDE DER EMAILÍh¢¨L28667 LDA#$00;00=SAVEPUFFER VOLL FF=KEIN FREIER DISKSPACEôh¬¨ BEQL28697;B.I.SAFEPUFFER VOLL WARi¶¨ RTS;" 2iÀ¨L28697 LDA$A015;WAR SAVE WEIL SAVEPUFFER VOLL~iʨ;BEI ERROR:D8ISKSPAVE WIRD ERNIEDRIGT=>OEFTERS SAVE WEIL SAVEPUFFER VOLL±iÔ¨;=>FREIER DISKSPACE WIRD OEFTERS INITIALISIERTÂiÞ¨ STAL24997+2Ïiè¨ LDX#$00âiò¨L28747 LDY#$00õiü¨ JMPL25037;-" :j©L28767 JSR$A00C;CLOSE (LIEST IMMER FEHLERKANAL) ENDE VON SAVE^j© B8EQL29037;B.I.CLOSE FEHLERFREIj© LDA#<(TXCLER);CLOSE ERROR AGAIN SKIP QUIT j$© LDX#>(TXCLER)µj.©L28807 JSRPRDIERæj8©L28817 JSR$A003;FREE DISKSPACE AKTUALISIERENkB© BEQL28867;B.I.FEHLERFREIkL© LDA#<(TXDIER)*kV© LDX#>(TXDIER)Bk`© BNEL28807;DIR E8R" ]kj©L28867 JSR$C012;NMI ONpkt©L28877 LDA#$20œk~© BITL26197+1;ALTER FEHLER WAEHREND SAVEÅkˆ© BPLL28937;B.I.VORHER KEIN I/O ERRORèk’© BVSL29027;B.I.C0 = QUIT %1100 lœ© BNEL28997;B.I.A0 = SKIP %10101l¦© BEQL28967; 80 = AGAIN %1000" Fl°©L28937 8JSRGETKEYSlº© CMP#$31tlÄ© BNEL28977;B.I.NICHT 1=AGAINŒlΩL28967 JMPL29727;" ŸlØ©L28977 CMP#$32¿lâ© BNEL29007;B.I.NICHT 2=SKIP×lì©L28997 JMPL29367;" êlö©L29007 CMP#$33 mª BNEL28937;B.I.NICHT 3=QUIT"m ªL29027 JMPL29427;" 9mªL29037 LDAL26197+1\8mª BMIL28817;B.I.ALTER I/O-ERRORqm(ª JSR$C012;NMI ON~m2ª LDX#$04‡m<ª CLC¢mFªL29087 LDAVIRAST+$49,X¯mPª SBC#$00¼mZª CMP#$30Ëmdª BCSL29137Ømnª LDA#$39ómxªL29137 STAVIRAST+$49,Xn‚ª BCSL29227 nŒª DEXn–ª BPLL29087>n ª LDX#$04;UNTERTRAG 00000->899999Knªª LDA#$30fn´ªL29197 STAVIRAST+$49,Xon¾ª DEX~nȪ BPLL29197¤nÒªL29227 LDA$CFC2;DELETE NO ASK YESºnܪ BEQL29367;B.I.NOÑnæª BMIL29347;B.I.YESoðª LDA#<(TXDEYN);=ASK-DELE (NOCH HEADER UND BODY AUSGEBEN)!oúª LDX#>(TXDEYN)=o« JSRPRTEXT;DELETE8 (Y/N)go«;WEITERMACHEN DELE NAECHSTE EMAIL...|o«L29297 JSRGETKEY‹o"« CMP#$4E;Nšo,« BEQL29367©o6« CMP#$59;Y¸o@« BNEL29297ÐoJ«L29347 LDA#$CD;DELEïoT« JMPSETASA;ENDE APRETS"-- 9p^«L29367 LDAVIRAST+$27;GESAMTEMALIANZAHL LOW AP8DELE_ph« CMPVIRAST+$23;AKTUELLE EMAIL LOWnpr« BNEL29447†p|« LDAVIRAST+$26;HIGHžp†« CMPVIRAST+$22;HIGHÞp« BNEL29447;B.I.NOCH NICHT ALLE (MAX99) EMAILS DWONGELOADEDöpš«L29427 LDA#$CE;QUITq¤« JMPSETASA;ENDE APDELE----" aq®«L29447 INCVIRAST+$23;ER8HOEHT EMAIL-SCREEN ZAEHLER APINEMtq¸« LDAVIRAST+$23q« CMP#$3AqÌ« BNEL29517£qÖ« INCVIRAST+$22°qà« LDA#$30Ãqê« STAVIRAST+$23Øqô«L29517 INCCOEMAIåqþ« LDX#$00 r¬ LDAVIRAST+$22;ZEHNER EMAILNUMMERr¬ CMP#$306r¬ BEQL29607;B.I.EINST8ELLIGHr&¬ STATXTOP+4,X[r0¬ STATXRETR+5,Xnr:¬ STATXDELE+5,XwrD¬ INX–rN¬L29607 LDAVIRAST+$23;EINER¨rX¬ STATXTOP+4,X»rb¬ STATXRETR+5,X÷rl¬ STATXDELE+5,X;MODIFIZIERT EMAILBEFEHLSTEXTE DIE NUMMERsv¬ LDA#$00s€¬ STATXRETR+6,X*sŠ¬ STATXDELE+6,X­ LDA#$20;SPACE‰tH­ STAVIRAST+$28œtR­ STAVIRAST+$30¿t\­ LDXCOEMAI;COUNTER EMAILS 1-99ìtf­ LDA$8164,X;EXPONENT&HIGBYTE EMAILLAENGEup­ CMP#$81;=100000000BYTE=100000KB=100MB>uz­ BCCL29997;B.I.8 EMAIL KLEINER 100MBKu„­ LDA#$39XuŽ­ LDY#$04…u˜­L29937 STAVIRAST+$31,Y;>99999KB AUSGEBENŽu¢­ DEYu¬­ BPLL29937¬u¶­ LDA#$3E;>¿uÀ­ STAVIRAST+$30ÑuÊ­ BNEL30277;" ýuÔ­L29997 LSR;1000-9999 10000000-99999999vÞ­ LSR; 30 70$vè­ LSRBvò­8! LSR; 03 07dvü­ EOR#$FF; FC F8mv® SECv® SBC#$F8; 04 00˜v® TAY¨v$® LDA$8164,Xµv.® AND#$0FÂv8® ORA#$30ëvB® STAVIRAST+$31,Y;1.STELLE DER LAENGEøvL® CPY#$04+wV® BCSL30277;B.I.EINER-KB STELLE BESCHRIEBEN8" IST;w`® LDA$8100,XDwj® TAXMwt® LSRVw~® LSR_wˆ® LSRhw’® LSRuwœ® ORA#$30žw¦® STAVIRAST+$32,Y;2.STELLE DER LAENGE«w°® CPY#$03Þwº® BCSL30277;B.I.EINER-KB STELLE BESCHRIEBEN ISTçwÄ® TXAôwή AND#$0FxØ® ORA#$30*xâ® STAVIRAST+$33,Y;3.STELLE DER L8#AENGE[xì®L30277 LDXCOEMAI;ZAEHLER F.EMAILS 1-$63 (99)dxö® SEC„x¯ LDA$8100,X;EMAILLAENGE LOW«x ¯ SBC$CFC0;LAENGE AB WANN MENUE LOW»x¯ LDA$8164,XÉx¯ SBC$CFC1ûx(¯ BCCL30367;B.I.EMAIL SO KLEIN,DASS KEIN MENUE y2¯ LDA#$C9;TOP$y<¯ JMPSETASA;-----" 8$ 7yF¯L30367 LDY#$00FyP¯L30377 SECSyZ¯ LDX#$04yd¯L30397 LDAVIRAST+$49,X;FREIER DISKSPACE©yn¯ SBCVIRAST+$31,X;AKTUELLE EMAILLAENGE²yx¯ DEXÁy‚¯ BPLL30397ïyŒ¯ BCCL30467;B.I.EMAIL NICHT AUF DISK PASSTz–¯L30447 LDA#$CB;RETRz ¯ JMPSETASA;------" .8%zª¯L30467 TYAbz´¯ BNEL30557;B.I.FREIE DISKSPACE AKTUALISIERT IST’z¾¯ LDA#$E0;=ACK PACKET MIT WINDOW=0000 SENDEN¡zȯ JSRSETASA½zÒ¯L30507 JSR$C00C;NMI OFFâzܯ JSR$A003;FREIER DISKSPACE HOLEN÷zæ¯ JSR$C012;NMI ON{ð¯ LDY#$FF{ú¯ BNEL30377;-" X{°L308&557 LDA#<(TXNSTE);NOT ENOUGH SPACE FOR THIS EMAIL ON DISKk{° LDX#>(TXNSTE)z{° JSRPRTEXT{"°L30587 JSRGETKEYž{,° CMP#$41;A»{6° BEQL30507;B.I.NEUE DISKÊ{@° CMP#$42;Bæ{J° BEQL30447;B.I.DOWNLOADó{T° CMP#$43 |^° BEQL30697;B.I.SKIP|h° CMP#$44'|r°Ö BNEL305879||° LDA#$CE;QUITK|†° JMPSETASA;" w|°L30697 JMPL29447;INCREMENT EMAIL NUMBERž|š°;==============================" ­|¨÷L63400 NOP¼|²÷ .IFMODE=2Ð|¼÷ .AP"9-MAIN*",8Ù|Æ÷ .ELâ|Ð÷ .ENï|Ú÷ .EI;" N{ð¯ LDY#$FF{ú¯ BNEL30377;-" X{°L309Ø÷-N;!MIT ZEILE 20013 BEGINNEN 7N; .EQ MODE=0) AN; .EQ MODE=18 KN .IFMODE=2A UN .ELR _N .EQZPA0=$50c iN .EQZPA1=$51t sN .EQZPA2=$52… }N .EQZPA3=$53– ‡N .EQZPA4=$54§ ‘N .EQZPA5=$55¸ ›N .EQZPA6=$56É ¥N .EQZPA7=$57Ú ¯N .EQZPA98=$58ë ¹N .EQZPA9=$59ü ÃN .EQZPB0=$60 !ÍN .EQZPB1=$61!×N .EQZPB2=$62/!áN .EQZPB3=$63@!ëN .EQZPB4=$64Q!õN .EQZPB5=$65b!ÿN .EQZPB6=$66s! O .EQZPB7=$67„!O .EQZPB8=$68•!O .EQZPB9=$69¨!'O .EQENRELO=$F7»!1O .EQENREHI=$F8Î!;O .EQBERELO=$FBá!EO9 .EQBEREHI=$FCô!OO .EQTXMOAD=999"YO .EQBEBUHI=999"cO .EQENBULO=999-"mO .EQENBUHI=999@"wO .EQCRCLOW=999S"O .EQCRCHIG=999f"‹O .EQCRCBYT=999y"•O .EQCOOFON=999Œ"ŸO .EQAUNOYE=999Ÿ"©O .EQWABUSE=999²"³O .EQCOFOAU=999Å"½O .EQSESTAT=999Ø"ÇO .EQSEI9PAD=999ë"ÑO .EQCLIPAD=999þ"ÛO .EQPRIDNS=999#åO .EQSECDNS=999$#ïO .EQPRSEDN=9997#ùO .EQSENEDN=999L#P .EQSEBU01=$F400a# P .EQSEBU02=$FA00t#P .EQPSACCO=999‡#!P .EQPSIDAD=999š#+P .EQPRMERC=999­#5P .EQPRMESE=999À#?P .EQPRMENO=999Ó#IP .EQLOAFIL9=999æ#SP .EQBYRSIN=999ù#]P .EQWAMOME=999 $gP .EQBYRSOU=999$qP .EQCYRECS=9992${P .EQSEACCO=999E$…P .EQSEBUF4=999X$P .EQSEBUFA=999k$™P .EQSEBUAC=999~$£P .EQANAPPP=999‘$­P .EQSTANPP=999¤$·P .EQIDCORJ=999·$ÁP .EQIDPRRJ=999Ê$ËP .EQCSIPHE=999Ý$9ÕP .EQSEQNUM=999ð$ßP .EQFIIPHE=999%éP .EQTCPHDR=999%óP .EQCSTCHD=999)%ýP .EQTXINPR=999<%Q .EQTXEMAC=999O%Q .EQFIIPUD=999b%Q .EQQTYQCL=999u%%Q .EQIAPOP3=999ˆ%/Q .EQIASMTP=999›%9Q .EQTCHEOP=999®%CQ .EQCOSEAD=999Á%MQ .EQSEFIWR=999Ô%WQ .EQT9XEMLO=999ç%aQ .EQTXEMHI=999ú%kQ .EQSEIPCH=999 &uQ .EQSEIPNC=999 &Q .EQTXDIIP=9993&‰Q .EQTXDIEA=999F&“Q .EQSELOP1=999Y&Q .EQSELOP2=999l&§Q .EQSELOP3=999&±Q .EQTXPLWA=999’&»Q .EQLTCPDL=999¥&ÅQ .EQLTCPD0=999¸&ÏQ .EQLTCPDH=999Ë&ÙQ .EQROIOSE=9999Þ&ãQ .EQDVIOSE=999ñ&íQ .EQROIORE=999'÷Q .EQDVIORE=999'R .EQSEAURE=999*' R .EQSENCOM=999='R .EQANCORQ=999P'R .EQANLCAC=999c')R .EQANLCNA=999v'3R .EQANLCRJ=999‰'=R .EQANNCAC=999œ'GR .EQANNCNA=999¯'QR .EQANNCRJ=999Â'[R .EQSECDRJ=999Õ'eR9 .EQSEPRRJ=999è'oR .EQANUDDN=999û'yR .EQANTCPP=999(ƒR .EQDNSYFI=999!(R .EQMOADTY=9994(—R .EQTXIOLO=999G(¡R .EQTXIOSA=999Z(«R .EQPRTEXT=999m(µR .EQTXLOEF=999€(¿R .EQTXCBM8=999“(ÉR .EQINFLRE=999¦(ÓR .EQAPCOBI=999¹(ÝR .EQAPSYAC=999Ì(çR .EQAPL9 ISF=999ß(ñR .EQAPTOPF=999ò(ûR .EQAPRETF=999)S .EQAPSTAT=999)S .EQAPLIST=999+)S .EQAPTOPS=999>)#S .EQAPRETS=999Q)-S .EQAPDELE=999d)7S .EQAPQUIT=999w)AS .EQAPFINP=999Š)KS .EQEXSESE=999)US .EQEXSEAC=999°)_S .EQSETCAN=999Ã)iS .EQAPWRAC=9999 Ö)sS .EQALTERE=999é)}S .EQALTEAC=999ü)‡S .EQSETAIS=999*‘S .EQTXEM64=999"*›S .EQLOFINA=9995*¥S .EQLOINPR=999H*¯S .EQDOEMNY=999[*¹S .EQTXEMSE=999n*ÃS .EQSTMAIP=999*ÍS .EQEMSENY=999”*×S .EQBETCDA=999§*áS .EQENEMSL=999º*ëS .EQENEMSH=999Í*õS .9 EQCOEMSE=999à*ÿS .EQTXDATE=999ó* T .EQMAPREN=999+T .EQTXOPER=999+T .EQTXLOER=999,+'T .EQPRDIER=999?+1T .EQGETKEY=999R+;T .EQTXDIER=999e+ET .EQVIRAST=999x+OT .EQTXCHSE=999‹+YT .EQCOBEIR=999ž+cT .EQTACRLO=999±+mT .EQTACRHI=999Ä+wT .EQSEFLC9 O=999×+T .EQSTPOBE=999ê+‹T .EQTXCOFI=999ý+•T .EQDRSYFI=999,ŸT .EIU,©T;=========================================================================d,³T .IFMODE=0r,½T .BA$E001{,ÇT .EIŠ,ÑT .IFMODE=1˜,ÛT .BA$E001¡,åT .EI°,ïT .IFMODE=1¾,ùT .LI4,4,9 0Ç,U .EIÕ, U;"D-MAINô,U;"MIT ZEILE 20013 BEGINNEN-!U;-------------------------------" `-+UL21711 LDA#$93;CLEAR SCREEN ANFANG HAUPTPROGRAMMn-5U JSR$FFD2{-?U LDA#$00‘-IUL21725 STA$0100,Xš-SU DEX©-]U BNEL21725²-gU SEIÏ-qU LDA9#$E1;RAM-CHARSET-RAMÛ-{U STA$01è-…U LDA#$00û-U LDY#<(L25481).™U LDX#>(L25481)%.£UL21791 STXL21801+2G.­UL21801 STA$FF00,Y;LOESCHT RAMi.¯U STA$CC10,Y;LOESCHT CD00-CD0Fr.·U INY.ÁU BNEL21801’.ËU LDXL21801+2›.ÕU INXª.ßU BEQL21892·.éU CPX#$CDÆ9.óU BNEL21791ô.ýU LDX#$D8;BEREICH CD00-CFFF NICHT LOESCHEN/V BNEL21791;" /VL21892 TSXK/V STXSTPOBE;RETTET STAPEL NACH STACK POINTER BEGINX/%V LDX#$00‘//VL21846 LDA$D000,X;KOPIERT ZEICHENSATZ VON ROM IN RAM¡/9V STA$D000,X±/CV STA$D200,XÁ/MV 9STA$D300,XÑ/WV STA$D400,Xá/aV STA$D600,Xñ/kV STA$D700,X0uV LDA$D100,X0V STA$D100,X!0‰V STA$D500,X*0“V INX90V BNEL21846F0§V LDA#$E7R0±V STA$01n0»V LDA#$24;VIDEORAM=$C800Š0ÅV STA$D018;CHARSET=$D000—0ÏV LDA#$04¸0ÙV STA$DD00;VIC-BANK=C000-F9FFFÅ0ãV LDA#$C8á0íV STA$0288;VIDEORAM=C800î0÷V LDA#$801W STA$0291;SHIFT-CBM VERBIETEN#1 W LDA#$93;CLEAR11W JSR$FFD2D1W LDA#<(L25472)a1)W STA$0314;ROM-IRQ-VECTORt13W LDA#>(L25472)‚1=W STA$0315‹1GW CLI˜1QW LDA#$0F¶1[W STA$D418;MAX.LAUTSTAE9RKEÃ1eW LDA#$F0Ý1oW STA$D406;MAX.SUSTAINö1yWL21931 LDA#<(L25451) 2ƒW LDX#>(L25451)-2W STA$FFFE;RAM-IRQ-VECTOR SETZEN;2—W STX$FFFFN2¡W LDA#<(L25241)a2«W LDX#>(L25241)ƒ2µW STA$8000;RESET-VECTOR SETZEN‘2¿W STX$8001Â2ÉW LDX#$3F;BASE64 TABELLE GEN9ERIEREN 8200-823Fé2ÓWL22021 TXA;00-19 1A-33 34-3D 3E 3Fö2ÝW CPX#$3E3çW BCCL220913ñW BEQL2208193ûW LDA#$33; 33E3X .BY$2Cm3XL22081 LDA#$2F; 2F€3XL22091 CPX#$343#X BCCL22121´3-X ADC#$B4; E9-F2 9E4 E8Ç37XL22121 CPX#$1AÖ3AX BCCL22151û3KX ADC#$05; 20-39 EF-F8 EA EE&4UXL22151 ADC#$41;41-5A 61-7A 30-39 2B 2F64_X STA$8200,X?4iX DEXQ4sX BPLL22021;" z4}X LDY#$00;GENERIERT CRC-FAST-TABELLEN4‡XL30010 LDA#$00œ4‘X STACRCBYT«4›X STACRCLOWº94¥X STYCRCHIGà4¯X LDX#$08;ZAEHLER F.8BITS PRO BYTEõ4¹XL30060 LSRCRCBYT5ÃX RORCRCLOW;GESPIEGELT)5ÍX RORCRCHIG;GESPIEGELTR5×X BCCL30230;B.I.0-BIT=>KEINE DIVISIONa5áX LDACRCLOW5ëX EOR#$84;(X^16+)X^12+X^5+1=1021 GESPIEGELTŸ5õX STACRCLOW®5ÿX LDACRC9HIGÝ5 Y EOR#$08;(X^16+)X^12+X^5+1=1021 GESPIEGELTì5Y STACRCHIGû5YL30230 DEX 6'Y BNEL3006061Y LDACRCLOW*6;Y STATACRLO,Y96EY LDACRCHIGJ6OY STATACRHI,YS6YY INYe6cY BNEL30010;" r6mY LDX#$04‰6wYL22201 LDATXCBM8,X™6Y STA$8004,X¢6‹Y DEX±6•Y B9PLL22201¾6ŸY LDX#$05Õ6©YL22251 LDATXDATE,X÷6³Y STA$830A,X;DATE: ->830A-830F7½Y DEX7ÇY BPLL222517ÑY LDA#$0D97ÛY STA$832A;END-0D V.DATE:F7åY LDA#$0A{7ïY STA$832B;END-00 (832C) IST MIT 00 INITIALISIERTˆ7ùY LDA#$00¶7Z STASTANPP+2;FLAG F.PAKET 9NEU ANALYSIERENÃ7 Z LDA#$2Cÿ7Z STABETCDA;BEGINN TCPDATA (BEIM SENDEN) AUF F42C SETZEN 8!Z LDA#$008+Z STABERELOM85Z STAENRELO;WIRD AUCH VON MODEMTREIBER GESETZTZ8?Z LDA#$E0i8IZ STABEREHIx8SZ STAENREHI…8]Z LDX#$03È8gZL22441 LDATXEM64,X;TEST OB 9EMAC-CONFIG-FILE BEREITS IN RAM ISTØ8qZ CMP$CFFC,Xç8{Z BNEL22531÷8…Z CMP$CD00,X9Z BNEL225319™Z DEX9£Z BPLL22441'9­Z CLC99·Z BMIL22651;" k9ÁZL22531 JSRSELOP1;SELECT & LOAD INITIALISIERENx9ËZ LDA#$08£9ÕZ STAL22561+1;WICHTIG FALLS 2.DURCHGANG9Ä9ßZL22561 LDA#$08;DEVICE NUMBERÔ9éZ CMP#$1F;31:óZ BCSL22641;X=ANZAHL GEFUNDENER DIR EINTRAEGE/:ýZ LDX#<(TXDIEA);TEXT DIR EMAIL ACCOUNTB:[ LDY#>(TXDIEA)Q:[ JSRSELOP2b:[ INCL22561+1t:%[ BNEL22561;" ±:/[L22641 JSRSELOP3;WARTET AUF TASTENDRUCK 9+ LAEDT PROGRAMMÄ:9[L22651 LDA#$E7Ð:C[ STA$01é:M[ BCSL22531;B.I.ERROR ;W[ LDX$BA;DEVICENUMMER VON WO EM64EMAC GELADEN WURDE;;a[;!KEINE KERNAL ADRESSE€;k[;FALLS EMAC BEREITS VORHER IN RAM STAND,KOENNTE SEIN,DASS BA=#00Î;u[;ABER DANN SIND HOFFENTLIC9H D.GERAETEADRESSE IN CE00-CFFF BEREITS GESETZTø;[ LDADNSYFI;DEVICE NUMBER SYSTEM FILES<‰[ BNEL22751;B.I.IN EM64INPR GESETZT.<“[ STXDNSYFIc<[L22751 LDADVIOSE;DEVICENUMBER I/O SEND (TO LOAD)r<§[ BNEL22781<±[ STXDVIOSE¶<»[L22781 LDADVIORE;DEVICE9NUMBER I/O SEND (TO LOAD)Å<Å[ BNEL22802Ô<Ï[ STXDVIORE=Ù[L22802 LDA$CD04;FLAG OB CONFIG-&SYSTEM-FILES ZU LADEN/IN MEMORY4=ã[ BPLL22803;B.I.ZU LADENF=í[ JMPL23661;" Y=÷[L22803 LDY#$60|=\ JSRSEFLCO;SEND FLOPPY COMMAND‰= \ LDA#$E7•=\ STA$01¢=\ 9LDX#$18¯=)\ LDY#$00¸=3\ CLCÔ==\ JSR$FFF0;CURSOR SETZENá=G\ LDX#$03$>Q\L22821 LDATXEM64,X;TEST OB INPR-CONFIG-FILE BEREITS IN RAM IST4>[\ CMP$03FC,XC>e\ BNEL22911S>o\ CMP$033C,Xb>y\ BNEL22911k>ƒ\ DEXz>\ BPLL22821ƒ>—\ CLC•>¡\ BMIL23081;" Ó>«9\L22911 LDA$CE10;INPR-FILENAME DER NACHGELADEN WERDEN SOLLì>µ\ BEQL23021;B.I.MENUEù>¿\ LDX#$07?É\L22941 LDA$CE10,X;NAME V. INPR/?Ó\ STALOFINA+8,XM?Ý\ LDATXDIIP+1,X;'EM64INPR'^?ç\ STALOFINA,Xg?ñ\ DEXv?û\ BPLL22941…?] JSRLOINPR¢?] BCCL23081;B.9 I.ERRORFREEÔ?]L23021 JSRSELOP1;SELECT & LOAD INITIALISIERENþ?#] LDADNSYFI;DEVICE NUMBER SYSTEM FILES,@-] LDX#<(TXDIIP);TEXT DIR INTERNET PROVIDER?@7] LDY#>(TXDIIP)N@A] JSRSELOP2…@K] JSRSELOP3;WARTET AUF TASTENDRUCK + LAEDT PROGRAMM˜@U]L23081 LDA#9!$E7¤@_] STA$01½@i] BCSL23021;B.I.ERRORÖ@s]L23102 LDX#<(TXCHSE)é@}] LDY#>(TXCHSE)ö@‡] LDA#$0C#A‘] JSRLOAFIL;LOAD EM64CHARSET* NACH $E000(TXMOAD)OCå^ LDA#$0BoCï^ JSRLOAFIL;LOAD EM64MOAD00*ˆCù^ BCSL23231;B.I.ERRORÂC_ J9$MPL23491;PROVISORISCH SOLANGE KEIN LOAD EMAILSENDìC _ LDAROIOSE;ROUTINE I/O SEND (TO LOAD)õC_ TAXþC!_ LSRD+_ LSRD5_ LSRD?_ LSR&DI_ ORA#$30HDS_ STATXIOLO+8;MODIFIZIERT TEXTQD]_ TXA^Dg_ AND#$0FkDq_ ORA#$30|D{_ STATXIOLO+9•D…_L23411 LDX#<9%(TXIOLO)¨D_ LDY#>(TXIOLO)µD™_ LDA#$0BÕD£_ JSRLOAFIL;LOAD EM64IOLO00*îD­_ BCSL23411;B.I.ERRORýD·_ LDAROIOSE EÁ_ CMP#$02FEË_ BCCL23661;B.I.STANDART KERNAL (GEMEINSAM F. LOAD&SAVE)nEÕ_L23491 LDAROIORE;MODEM ADAPTER TYPEwEß_ TAX€Eé_ LSR‰Eó_ LSR’9&Eý_ LSR›E` LSR¨E` ORA#$30ÊE` STATXIOSA+8;MODIFIZIERT TEXTÓE%` TXAàE/` AND#$0FíE9` ORA#$30þEC` STATXMOAD+9FM`L23611 LDX#<(TXIOSA)*FW` LDY#>(TXIOSA)7Fa` LDA#$0BWFk` JSRLOAFIL;LOAD EM64IOSA00*pFu` BCSL23611;B.I.ERROR˜F` BIT$CFC3;KIND OF FI9'LENAME GENARION½F‰` BPLL23661;B.I.NICHT COUNTERFILEÖF“`L23652 LDX#<(TXCOFI)éF` LDY#>(TXCOFI)öF§` LDA#$08G±` JSRLOAFIL;LOAD EM64COUNTER-FILE4G»` BCSL23652;B.I.ERRORCGÅ` LDA#$53;SQGÏ` STA$CD00^GÙ` LDA#$30lGã` STA$CD01zGí` STA$CD02‡G÷` LDX#$00:¨Ga LDYDRSYFI;DRIVENUMMER 0-255·G a BEQL10820ÄGa CPY#$0AâGa BCCL24830;B.I.EINSTELLIGëG)a INXøG3a CPY#$64H=a BCCL24830;B.I.ZWEISTELLIG-HGa INX;=DREISTELLIGJAb STA$01;AUF RAM UMSCHALTENLJKb STA$CFFFZJUb STA$03FFwJ_b LDA$CE04;COLOR CHARCTER…Jib STA$:0286“Jsb STA$D021¦J}b LDA#$93;CLEAR´J‡b JSR$FFD2ÁJ‘b LDX#$27ÎJ›b LDA#$A0éJ¥bL23754 STAVIRAST+$50,XòJ¯b DEXK¹b BPLL23754KÃb LDA$CE05KÍb STA$D020&K×b LSR/Káb LSR8Këb LSRAKõb LSROKÿb STA$D021‚K c;SEND/LOAD ROUTINE INITIALISIEREN JSR$9:000µKc JSR$A000;RECEIVE->SAVE ROUTINEN INITIALISIRENñKc JSR$A003;FREIER DISKSPACE ZUM EMAIL-SPEICHERN ANZEIGENL'c JSR$A012;RECEIVE->SAVE DEINITIALISIERENOL1c JSR$9000;LOAD->SEND-ROUTINEN INITIALISIEREN”L;cL23881 JSR$9003;ZU SENDENDE EMAILS DIR LA:DEN (WECHSELT FLOPPYDIR£LEc BEQL24011¶LOc LDA#<(TXDIER)ÉLYc LDX#>(TXDIER)ØLcc JSRPRDIERíLmcL23931 JSRGETKEYúLwc CMP#$31Mc BEQL23881;B.I.RETRY M‹c CMP#$32JM•c BEQL24351;B.I.SKIP (GESAMTES SENDEN)WMŸc CMP#$33fM©c BNEL23931~M³cL24001 JMPMAPREN:;" ®M½cL24011 STXEMSENY;ANZAHL ZU SENDENDER EMAILS·MÇc TXAäMÑc BEQL24351;B.I.KEINE EMAIL ZU SENDEN IST÷MÛcL24041 LDA#$01Nåc STACOEMSE!Nïc JSR$9006;OPEN 1.EMAIL0Nùc BEQL24111CNd LDA#<(TXOPER)VN d LDX#>(TXOPER)hNd BNEL24171;" –N!dL24111 JSR$9:009;LAEDT ERSTE 4KB V.1.EMAIL´N+d BEQL24371;B.I.FEHLERFREIÅN5d CMP#$40;EOIãN?d BEQL24301;B.I.FEHLERFREIöNId LDA#<(TXLOER) OSd LDX#>(TXLOER)O]dL24171 JSRPRDIER3OgdL24181 JSRGETKEY@Oqd CMP#$31_O{d BEQL24041;B.I.RETRY/AGAINlO…d CMP#$33„Od BEQL2:4001;B.I.QUIT‘O™d CMP#$32 O£d BNEL24181¯O­d LDXEMSENY¸O·d DEXãOÁd BEQL24331;B.I.KEINE 2.EMAIL ZU SENDENPËd INCCOEMSE;ERHOEHT EMAILZAEHLERPÕd BNEL24371;" FPßdL24301 STXENEMSL;END EMAIL SEND LOW (+1)nPéd STYENEMSH;END EMAIL SEND HIGH (+1)€Pód B: EQL24371;" ´PýdL24331 STXEMSENY;FLAG F.KEINE ZU SENDENDE EMAILíPe;WICHTIG,DASS NICHT SENDROUTINEN ANGESPRUNGEN WERDEN(QeL24351 JSR$9015;LOAD->SEND=OFF =KEIN EMAIL ZU SENDEN6Qe JSR$A000]Q%eL24371 JSR$C000;RS232 ROUTINEN ON0jQ/e LDX#$07©Q9eL243: 91 LDA$0340,X;KOPIERT CLIENT IP ADDRESS UND DNS ADDRESÙQCe STACLIPAD,X;IN VARIABLENPUFFER ALS DEFAULTâQMe DEXñQWe BPLL24391þQae LDA#$E7 Rke STA$01Rue LDA#<(TXPLWA)0Re LDX#>(TXPLWA)?R‰e JSRPRTEXTRR“eL24481 LDA#$00`Re STA$DD0BnR§e STA$DD0A|R: ±e STA$DD09¤R»e STA$DD08;INITIALISIERT UHR V. CIA2­RÅe SEIºRÏe LDA#$E5ÉRÙe STA$01;" åRãe BIT$0350;DIALUP NO YESÿRíe BMIL24561;B.I.DIALUPS÷e JMPL25231;=F.E.ROUTER-SfL24561 LDA#$C0>S f STAL24751+1xSf LDA#$41;TEXT PROBLEM WITH CONNECTION OF C64: TO MODEMŒSf STAVIRAST+$200›S)f LDA#$41;AªS3f JSRBYRSOU¹S=f LDA#$54;TÈSGf JSRBYRSOUÚSQf LDA#$0D;ëS[f STAL24881+1úSef JSRBYRSOU!Tof JSRWAMOME;WARTET AUF MODEMMELDUNGCTyf LDA#$20;TEXT WIEDER LOESCHENfTƒf STAVIRAST+$200;------" READY.uTf L: DA#$41;A„T—f JSRBYRSOU“T¡f LDA#$54;T¢T«f JSRBYRSOUÂTµfL24741 LDX#$FF;FLAG F.% & \ñT¿fL24751 LDA$03C0;HIGHBYTE MUSS GESETZT SEIN UÉf BEQL24981;B.I.ENDEUÓf CMP#$25;%'UÝf BEQL249716Uçf CMP#$26;&EUñf BEQL24971^Uûf CMP#$5C;\ BACKSLASHmUg BEQL249:71zUg CMP#$41‰Ug BCCL24911–U#g CMP#$5B¸U-g BCSL24911;B.I.KEIN BUCHSTABEÐU7g LDY#$00;=BUCHSTABEVAgL24881 LDX#$00;FLAG OB VORHERIGES ZEICHEN % & \ WARVKg STYL24881+1BVUg BPLL24981;B.I.BEGINN V.NEUEM BEFEHL€V_gL24911 JSRBYRSOU;RS232OUT INITIALI:SIERUNGSSTRING AN MODEM‘Vig INCL24751+1¢Vsg LDAL24751+1¯V}g CMP#$FC¾V‡g BCCL24741ÙV‘g LDA#$00;FLAG F.ENDE" W›gL24971 STXL24881+1;SETZT FLAG F.%&\W¥gL24981 PHAW¯g LDA#$0D,W¹g JSRBYRSOU;WÃg JSRWAMOMEPWÍgL25021 LDA#$41;A_W×g JSRBYRSOUnWág LD:A#$54;T}Wëg JSRBYRSOU†Wõg PLA˜Wÿg BNEL24911;" §W h LDA#$44;D¶Wh JSRBYRSOUÃWh LDA#$B0ÔW'h STAL25121+1üW1hL25121 LDA$03B0;P/T & TELEFONNUMMER X;h BEQL25191XEh JSRBYRSOU+XOh INCL25121+1/ýS .EQZPA8=$58O/T .EQZPA9=$59b/T .EQZPIPBL=$5Au/ T .EQZPIPBH=$5Bˆ/ T .EQZPTCBL=$5C›/ T .EQZPTCBH=$5DÜ/T .EQZPB0=$60;ZEROPABGE :%B TEMPORAERERDATENBEREICH0T .EQZPB1=$61;NUR FUER EIN UNTERPROGRAMM/0%T .EQZPB2=$62;B=ZUM TCP-ANALYSIEREN@0/T .EQZPB3=$63Q09T .EQZPB4=$64b0CT .EQZPB5=$65s0MT .EQZPB6=$66„0WT .EQZPB7=$67•0aT .EQZPB8=$68¦0kT .EQZPB9=$69Á0uT .EQCRCLOW:&=$8B;CRC LOWÝ0T .EQCRCHIG=$8C;CRC HIGHù0‰T .EQCRCBYT=$8D;CRC BYTE21“T .EQENRELO=$F7;END RECEIVE LOW (SCHREIBEN) E000-EDFFV1T .EQENREHI=$F8;END RECEIVE HIGHˆ1§T;ENRE WIRD VON (NMI-) MODEM TREIBER GEAENDERT¿1±T .EQBERELO=$FB;BEGIN RECEIVE LOW (LESE:'N) E000-EDFFå1»T .EQBEREHI=$FC;BEGIN RECEIVE HIGH2ÅT;BERE WIRD VON (DIESEM) HAUPTPROGRAMM GEAENDERTB2ÏT;ZEIGT AUF NAECHSTES ZULESENDES BYTEl2ÙT;DECODIERTER EMPFANGSPUFFER EE00-F3DC”2ãT .EQMOADTY=$0348;MODEM ADAPTER TYPE¹2äT .EQVIRAST=$C800;VIDEO R;AM STARTé2íT .EQDNSYFI=$CE06;DEVICE NUMBER SYSTEM FILES3îT .EQDRSYFI=$CE07;DRIVE NUMBER SYSTEM FILESP3÷T .EQROIOSE=$CE08;ROUTINE I/O SEND = LOAD FREOM DISK{3U .EQDVIOSE=$CE09;DEVICENUMBER I/O SEND³3 U .EQROIORE=$CE0B;ROUTINE I/O RECEIVE = SAVE TO ;DISKá3U .EQDVIORE=$CE0C;DEVICENUMBER I/O RECEIVE4U;=================================@4)U;LABELS,DIE AUCH VON ANDEREN MODULEN BENUTZT WERDENz43U .EQCOOFON=$8009;L11751;COMPRESSION OFF (00) ON (80)­4=U;!!AB $800C-80?? LIEGT AUCH FILENAME-PUFFER...;É4GU;8050-8077 ERRORMESSAGEá4QU;8078 END #$005[U;=================================,5eU;8200-823F BASE64 KODIERTABELLEi5oU .EQSESTAT=$8240;SEND STATE (EVTL ZEROPGAE WEIL HAEUFIG)5yU;00-1F LCP (NUR 00)™5ƒU;20-2F NCP (NUR 20)®5U;30 UDP POP3-;DNSñ5—U;40-5F POP3 (NUR OEFFNEN+PASSWORT+QUIT (WEGEN SMTP AFTER POP))6¡U; 40-45 SYN,USER,PASS ->C0-C5/6«U; 46-4D GIBT ES NICHTN6µU; 4E-53 QUIT FIN -> CE-D3f6¿U;60 UDP NETTIME-DNS6ÉU;68 UDP NETTIME-TIME”6ÓU;70 UDP SMTP-DNS¨6ÝU;80-AF SMTP TCP;½6çU; 80-82 SYN&ACKË6ñU; 84=EHLOß6ûU; 85=AUTH PLAIN 7V; 86=USERNAME+PASSWORT BASE64-KODIERT7V; 87=HELO C64.7V; 88=MAIL FROM<7#V; 89=RCPTJ7-V; 8A=DATA]77V; 8B=EMAILTEXT„7AV; 8C=WARTEN AUF 250 NACH EMAILTEXT’7KV; 8D=QUIT¡7LV;90-92 FIN¶7UV;;B0 UDP POP3-DNSÝ7_V;C0-EF POP3 TCP (EMAILS EMPFANGEN)ò7iV; C0-C2 SYN&ACK.8sV; C0 %00 MUSS SYN SENDEN (WEIL NOCH KEIN ACK ERHALTEN)[8}V; & KEIN SYN VON SERVER ERHALTEN£8‡V; C1 %01 MUSS SYN NICHT MEHR SENDEN (WEIL ACK VON SERVER ERHALTEN)Ð;8‘V; & KEIN SYN VON SERVER ERHALTEN9›V; C2 %10 MUSS SYN SENDEN (WEIL NOCH KEIN ACK VON SERBER ERHALTEN)^9¥V; & SYN VON SERVER ERHALTEN (& HAT ES MIT ACK BEANTWORTET)¦9¯V; C3 %11 MUSS SYN NICHT MEHR SENDEN (WEIL ACK VON SERVER ERHALT;EN)í9¹V; & SYN VON SERVER ERHALTEN (& HAT ES MIT ACK BEANTWORTET):ÃV; =>KANN WEITERGEHEN+:ÍV;C0-C2=VERBINDUNGSAUFBAUk:×V;BIT0=SYN 0=NOCH NICHT ACKNOWLEDGED 1=BEREITS ACKNOWLEDGED¨:áV;BIT1: 0=KEINE SYN-ANFRAGE VON DNS 1=SYN-ANFRAGE ;VON DNSÈ:ëV;C3=WARTEN AUF SERVER READYÕ:õV;C4=USERâ:ÿV;C5=PASSï: W;C6=STATü:W;C7=LIST;W;C8=LIST-FOLGEPAKETE&;'W;C9=TOP 1-99>;1W;CA=TOP-FOLGEPAKETEP;;W;CB=RETR 1-99i;EW;CC=RETR-FOLGEPAKETE{;OW;CD=DELE 1-99ˆ;YW;CE=QUIT¨;cW;D0-D2 FIN VERBIND; UNGSABBAUä;mW; D0 %00 MUSS FIN SENDEN (WEIL NOCH KEIN ACK ERHALTEN)KANN WEITERGEHENà=ÇW;D0-D3=VERBINDUNGSABBAU >ÑW;BIT0=FIN 0=NOCH NICHT ACKNOWLEDGED 1=BEREITS ACKNOWLEDGEDo>ÛW;BIT1: 0=KEINE FIN-ANFRAGE VON EMAILSERVER DNS 1=FIN-ANFRAGE VON EMAILSER–>åW;C0-EF POP3 TCP (EMAILS EMPFANGEN)¬>; ïW;F0 LCP-TERMINATE¿>ùW;FD=EINHAENGENÔ>X;FE=ALLES FERTIGò> X;ZPA2/ZPA3=BEGINN TCP-HDR?X;ZPA4/ZPA5=BEGINN TCP-DATEN2?!X;ZPA6/ZPA7=ENDE TCP-DATEN+1R?+X;ZPA8/ZPA9=ARBEITSVECTOR" p?5X;PORT ABSENDER=$0400-04FF??X;0430=POP3-UDP (=SESTAT)§?IX;0460; =NETTIME-DNS-UDPÂ?SX;0468=NETTIME-TIME-UDPÕ?]X;0470=SMTP-UDPê?gX;04B0=POP3-UDP" @qX;0419=SMTP-TCP (=LOWBYTE EMPFAENGERPORT)-@{X;046E=POP3-TCP" d@…X .EQBEBUHI=$8241;BEGIN BUFFER HIGH (UEBERFLUESSIG)ˆ@X .EQENBULO=$8242;END BUFFER LOW­@™X .EQENBU;HI=$8243;END BUFFER HIGHñ@£X .EQAUNOYE=$8244;AUTHENTICATE NO(00)YES(80) UEBERTRUMPFT SESTATA­X .EQWABUSE=$8245;WAIT BUFFER SECONDSgA·X;BIT7=WAIT B6=F400-F9FF/F400-F5FF B5=F600-F7FF B4=F800-F9FF B3-0=SECONDS•AÁX .EQCOFOAU=$8246;COUNTER FOR AUTHENTICA;TEÎAËX .EQDOEMNY=$8247;DOWNLOADED EMAILS NO (0) YES (1-FF)üAÕX .EQSEIPAD=$8248;-$824B SERVER IP ADDRESS1BßX;VVVVV AB HIER MUSS DIREKT HINTEREINANDER LIEGEN_BéX .EQCLIPAD=$824C;-$824F CLIENT IP ADDRESS‰BóX .EQPRIDNS=$8250;-$8253 PRIMARERE DNS´BýX .E;QSECDNS=$8254;-$8257 SECUNDAERE DNSêBY;_____ BIS HIER MUSS DIREKT HINTEREINANDER LIEGENCY .EQIAPOP3=$8258;-$825B INTERNETADRESSE POP3`CY .EQIASMTP=$825C;-$825F INTERNETADRESSE SMTP DIREKT NACH IAPOP3”C%Y .EQEMSENY=$8260;EMAIL TO SEND NO (0) YES ;($80)ÀC/Y .EQACEMAD=$8261;ACTUALL EMAILADDRESSESD9Y .EQPRSEDN=$8262;PRIMAERER (BIT7) SEKUNDAERER (BIT6) DNS-SERVER7DCY .EQSENEDN=$8263;SERVER NEGOTIATES DNS ADDRESS_DMY;BIT7=PRIDNS BIT6=SECDNS 0=YES 1=NO‹DWY .EQSEQNUM=$8264;-$8267 SEQUENCE NUMBER¶;DaY .EQIDCORJ=$8268;IDENTIFIERCODE REJECTçDkY .EQIDPRRJ=$8269;IDENTIFIER PROTOCOLL REJECTEuY .EQCOSEAD=$826A;COMPARE SERVER ADDRESSAEY;00=NEIN 04=MIT POP3- 08=MIT SMTP-ADDRESSyE‰Y .EQBETCDA=$826B;BEGIN TCP-DATA (BEIM SENDEN) 29/2C¢EŠY .EQSTPOBE=$8;26C;STACK POINTER BEGINÐE“Y .EQTCPDNY=$826D;TCPDATANO (0) YES (1-FF)FY .EQCOEMAI=$826E;COUNTER EMAILS 0-$63/99 (HEXDEZ)AF§Y .EQEXSESE=$8270;-8273 EXPECTED SERVER SEQUENCE NUMBERF±Y .EQEXSEAC=$8274;-8277 EXPECTED SERVER ACKNOWLEDGE NUMBER´F»Y .EQL;TCPD0=$8278;-827B LENGTH TCPDATA (RECEIVED)ÞFÅY .EQLTCPDH=$827A;LENGTH TCP-DATA HIGHGÏY .EQLTCPDL=$827B;LENGTH TCP-DATA LOW?GÙY .EQAOSTD0=$827C;-827F AMOUNT OF OLD SEND TCP DATASvGãY .EQAOSTDH=$827E;AMOUNT OF OLD SEND TCP DATAS HIGH¬GíY .EQAOSTDL=$;827F;AMOUNT OF OLD SEND TCP DATAS LOWáG÷Y .EQINFLRE=$8280;INCREMENT FLAG RECEIVE 00/01/80HZ .EQINFLSE=$8281;INCREMENT FLAG SEND 00/01/80=H Z .EQVERCPL=$8282;VECTOR RECIPIENT LOWhHZ .EQVERCPH=$8283;VECTOR RECIPIENT HIGH©HZ .EQACNRS0=$8284;-$8287 ;ACKNOWLEDGE NUMBER SEND0 (F400-F5FF)êH)Z .EQACNRS1=$8288;-$828B ACKNOWLEDGE NUMBER SEND1 (F600-F7FF)+I3Z .EQACNRS2=$828C;-$828F ACKNOWLEDGE NUMBER SEND2 (F800-F9FF)^I=Z .EQRESEAC=$8290;-$8293 RECEIVED SERVER ACK-NR’IGZ .EQEXACBU=$8294;EXPECTED ACKNOW;LEDGE BUFFER 00ÃIQZ .EQACSEBU=$8295;ACTIVE SEND BUFFER 00 01 02íIRZ .EQCOBEIR=$8296;COUNTER BEEPS IN IRQJ[Z .EQUDPOSM=$829C;UDP IS POP3 OR SMTPGJeZ .EQCOEMAP=$829D;COUNTER EMAILADDRESSES POP3xJoZ .EQCOEMAS=$829E;COUNTER EMAILADDRESSES SMTP©JyZ .EQ;COEMAT=$829F;COUNTER EMAILADDRESSES TIMEåJƒZ .EQEMADBP=$82A0;-$82BF EMAILSERVER ADDRESS BUFFER POP3!KZ .EQEMADBS=$82C0;-$82DF EMAILSERVER ADDRESS BUFFER SMTPTK—Z .EQNTADBU=$82E0;-$82E3 NETTIME ADDRESS BUFFERK¡Z .EQTIRES0=$82F0;-$82F1 TIME REPAT SEN;D0®K«Z .EQTIRES1=$82F2;-$82F3 TIME REPAT SEND1ÛKµZ .EQTIRES2=$82F4;-$82F5 TIME REPAT SEND2L¿Z .EQTIRES3=$82F6;-$82F7 TIME REPAT SEND3?LÉZ .EQENTDS0=$82F8;-$82F9 END TCP-DATAS SENDBUFFER 0vLÓZ .EQENTDS1=$82FA;-$82FB END TCP-DATAS SENDBUFFER 1­LÝZ .;EQENTDS2=$82FC;-$82FD END TCP-DATAS SENDBUFFER 2ÙLçZ .EQCOEMSE=$82FE; COUNTER EMAIL TO SENDûLñZ .EQDACENT=$8300;DATE CENTURYMûZ .EQDAYEAR=$8301;DATE YEAR:M[ .EQDAMONT=$8302;DATE MONTHXM[ .EQDATDAY=$8303;DATE DAY†M[ .EQDAHO24=$8304;DATE HOUR 24-;HOUR FORMAT²M#[ .EQDAHOAP=$8305;DATE HOUR AM/PM-FORMATÔM-[ .EQDAMINU=$8306;DATE MINUTEEöM7[ .EQDASECU=$8307;DATE SECUNDEN8[;=================================@N9[ .EQTACRLO=$8E00;TABLE CRC LOWdN:[ .EQTACRHI=$8F00;TABLE CRC HIGH‹NA[;===============;==================·NK[ .EQTXSRLO=L24311;TEXT SEND/RECEIVE LOWäNU[ .EQTXSRHI=L24591;TEXT SEND/RECEIVE HIGH O_[ .EQTXSERE=L24221;TEXT SEND/RECEIVE1Oi[ .EQLOFINA=L24211;TEXT FILE NAMEUOs[ .EQTXMOOK=L24051;TEXT MODEM OK~O}[ .EQTXMOCO=L24061;TEXT MODEM ;CONNECT¥O‡[ .EQTXMOER=L24071;TEXT MODEM ERRORåO‘[ .EQTXCOBI=L24081;TEXT CONTENT BITS SYN FIN RES PUS ACK URG P›[ .EQTXENFL=L24091;TEXT END FLAGSYP¥[;-------------------------------------------------------------------------†P¯[ .EQSEBU01=$F400;SEND B;UFFER 1 F400-F9DC±P¹[;FUER REQUEST VON MIR / AKTION VON MIRÞPÃ[ .EQSEBU02=$FA00;SEND BUFFER 2 FA00-FFDC-QÍ[;FUER ANTWORT AUF SERVER / REAKTION VON MIR (ABERAUCH AUTHENTICAT-REQUEST)NQ×[;DC00 UHR = AKTUELLE UHRZEITQá[;DD00 UHR = STARTET BEI 0 !!NMI ;ROUTINE AENDERN DASS 50 HZÜQë[;-------------------------------------------------------------------------þQõ[ .EQTXMOAD=L24141;TEXT NMI-P*'Rÿ[ .EQTXINPR=L24151;TEXT INET PROVIDEROR \ .EQTXEMAC=L24161;TEXT EMAIL ACOUNT€R\ .EQTXDIIP=L24171;TEXT DIR IN; TERNET PROVIDER­R\ .EQTXDIEA=L24181;TEXT DIR EMAIL ACCOUNTàR'\ .EQTXIOSA=L24191;TEXT INPUT/OUTPUT SAVE EMAILS1\ .EQTXIOLO=L24201;TEXT INPUT/OUTPUT LOAD EMAIL6S2\ .EQTXCHSE=L24202;TEXT CHARSET]S3\ .EQTXCOFI=L24203;TEXT COUNTERFILEŠS;\ .EQTXEMLO=L2;!5421;TABELLE TEXT EMAIL LOW¸SE\ .EQTXEMHI=L25501;TABELLE TEXT EMAIL HIGHØSO\ .EQTXTOP=L25661;TEXT TOP 1úSY\ .EQTXRETR=L25681;TEXT RETR 1Tc\ .EQTXDELE=L25701;TEXT DELE 1[Tm\ .EQPSACCO=L26301;PAKAGE SEND ADDRESS&CONTROL COMPRESSIONTw\ .EQPSTERE=L2;"6491;PAKAGE SEND TERMINATE REQUESTÂT\ .EQPSIDAD=L26571;PAKAGE SEND IP DNS ADDRESSîT‹\ .EQFIIPUD=L26651;FILEDS IP-HDR UDP-HDR'U•\ .EQFIIPUT=L27171;FILEDS IP-HDR UDP-HDR TIME NETTIMEJUŸ\ .EQQTYQCL=L27121;QTYPE QCLASSrU©\ .EQFIIPHE=L27521;FIELD & IP;#-HEADERšU³\ .EQTCPHDR=L27771;TCP-HEADER-HEADERÃU½\ .EQTCHEOP=L28011;TCP-HEADER-OPTIONSïUÇ\ .EQTXSFRT=L25751;SUBJECT FROM REPLY TOVÑ\ .EQTXLENG=L25801;TEXT LENGHTH:9VÛ\ .EQTXNOSU=L25821;TEXT NO SUBJECTbVå\ .EQTXILCH=L25831;ILLEGAL CHARACTERSVï\ .;$EQTXSUCH=L25891;SUBSTITUTED CHARACTERS³Vù\ .EQTXLOEF=L25951;LOAD END FILEÏV] .EQTXCBM8=L26031;CBM80êV ] .EQTXEM64=L26041;EM64W] .EQTXEMSE=L26051;TEXT EMAILSEND3W!] .EQTXHEC6=L26061;TEXT HELO C64XW+] .EQTXMAFR=L26081;TEXT MAIL FROMxW5] .EQTXRCPT;%=L26101;TEXT RCPT˜W?] .EQTXDATA=L26121;TEXT DATAÁWI] .EQTXEHLO=L26141;TEXT EXTENDED HELOçWS] .EQTXAUPL=L26161;TEXT AUTH PLAIN X]] .EQTXXMAI=L26181;TEXT X-MAILER+Xg] .EQTXFROM=L26251;TEXT FROMLXq] .EQTXREPL=L26261;TEXT REPLY~X{] .EQNTSECE=L28071;NE;&TTIME SECONDS PER CENTURY­X…] .EQNTSEYE=L28091;NETTIME SECONDS PER YEARÝX] .EQNTSEMO=L28111;NETTIME SECONDS PER MONTH Y™] .EQNTSEDA=L28151;NETTIME SECONDS PER DAY6Y£] .EQNTSEHO=L28161;NETTIME SECONDS HOURcY­] .EQNTSEMI=L28171;NETTIME SECONDS MINUTE;'…Y·] .EQTAMONT=L28181;TABLE MONTH¥YÁ] .EQTXDATE=L28211;TEXT DATEÏYË] .EQTXCLER=L28221;TEXT C64-LOAD-ERRORZÕ];=========================================================================-Zß] JMPL63500TZé];---------------------------------fZó]L24051 .<TX"OK}Zý]L24061 .TX"CONNECT’Z^L24071 .TX"ERROR¹Z^L24081 .TX"FIN SYN RES PUS ACK URGÙZ^L24091 .BY$0D;TEXT END FLAGåZ%^ .BY$0AñZ/^ .BY$2EýZ9^ .BY$0D [C^ .BY$0A$[M^L24141 .TX"EM64MOAD00*D[W^L24151 .TX"EM64-INETPROVIDRd[a^L24161 .TX"EM64-EMAILA<COU-*~[k^L24171 .TX"$EM64INPR*˜[u^L24181 .TX"$EM64EMAC*³[^L24191 .TX"EM64IOSA00*Î[‰^L24201 .TX"EM64IOLO00*ê[Š^L24202 .TX"EM64CHARSET*\‹^L24203 .TX"EM64COFI"\Œ^ .BY$0D;WICHTIG BEI SCRATCHB\“^L24211 .TX"0123456789ABCDEFp\^L24221 .BY$13;SND BILD<SCHIRM ANZEIGE CODE|\§^ .BY$0Eˆ\±^ .BY$04”\»^ .BY$20¤\Å^ .BY$12;RCV°\Ï^ .BY$03¼\Ù^ .BY$16È\ã^ .BY$20Î\í^;]÷^L24311 .BY<(L24871);TABELLE LOWBYTES MELDUNGEN (MIT SND RCV)!]_ .BY<(L24891)3] _ .BY<(L24911)E]_ .BY<(L24931)W]_ .BY<(L24951)i])<_ .BY<(L24971){]3_ .BY<(L24991)]=_ .BY<(L25011)Ÿ]G_ .BY<(L25031)±]Q_ .BY<(L25051)Ã][_ .BY<(L25071)Õ]e_ .BY<(L25091)ç]o_ .BY<(L25111)ù]y_ .BY<(L25131) ^ƒ_ .BY<(L25151)^_ .BY<(L25171)/^—_ .BY<(L25191)A^¡_ .BY<(L25211)S^«_ .BY<(L25231)e^µ_ <.BY<(L25251)w^¿_ .BY<(L25271)‰^É_ .BY<(L25291)›^Ó_ .BY<(L25311)­^Ý_ .BY<(L25331)¿^ç_ .BY<(L25351)Ñ^ñ_ .BY<(L25371)ã^û_ .BY<(L25391)é^`;,_`L24591 .BY>(L24871);TABELLE HIGHBYTES MELDUNGEN (MIT SEND RCV)>_` .BY>(L24891)P_#` .BY>(L24911)b_-` .<BY>(L24931)t_7` .BY>(L24951)†_A` .BY>(L24971)˜_K` .BY>(L24991)ª_U` .BY>(L25011)¼__` .BY>(L25031)Î_i` .BY>(L25051)à_s` .BY>(L25071)ò_}` .BY>(L25091)`‡` .BY>(L25111)`‘` .BY>(L25131)(`›` .BY>(L25151):`¥` .BY>(L25171)L`¯` .BY>(L25191)^`¹` .BY<>(L25211)p`Ã` .BY>(L25231)‚`Í` .BY>(L25251)”`×` .BY>(L25271)¦`á` .BY>(L25291)¸`ë` .BY>(L25311)Ê`õ` .BY>(L25331)Ü`ÿ` .BY>(L25351)î` a .BY>(L25371)aa .BY>(L25391)aa;-------" -a'aL24871 .TX"ATCT RQS";$809a1a .BY$00Va;aL24891 .TX"ATCT ACK";<$81baEa .BY$00aOaL24911 .TX"ATCT NAK";$82‹aYa .BY$00§acaL24931 .TX"LCP RQS";$83³ama .BY$00ÏawaL24951 .TX"LCP ACK";$84Ûaa .BY$00÷a‹aL24971 .TX"LCP NAK";$85b•a .BY$00bŸaL24991 .TX"LCP RJC";$86+b©a .BY$00Hb³aL25011 .TX"LTMT RQS";$87Tb½a .BY<$00qbÇaL25031 .TX"LTMT ACK";$88}bÑa .BY$00šbÛaL25051 .TX"LCOD RJC";$89¦båa .BY$00ÃbïaL25071 .TX"IPCP RQS";$8AÏbùa .BY$00ìbbL25091 .TX"IPCP ACK";$8Bøb b .BY$00cbL25111 .TX"IPCP NAK";$8C!c!b .BY$00>c+bL25131 .TX"IPCP RJC";$8DJc5b .BY$00gc?b< L25151 .TX"NTMT RQS";$8EscIb .BY$00cSbL25171 .TX"NTMT ACK";$8Fœc]b .BY$00¹cgbL25191 .TX"NCOD RJC";$90Åcqb .BY$00îc{bL25211 .TX"LCP PROTOCOLL REJECT";$91úc…b .BY$00dbL25231 .TX"UDP DNS";$92"d™b .BY$00>d£bL25251 .TX"TCP SYN";$93Jd­b .BY$00fd< ·bL25271 .TX"TCP ACK";$94rdÁb .BY$00ŠdËbL25291 .TX"TCP";$95–dÕb .BY$00²dßbL25311 .TX"TCP FIN";$96¾déb .BY$00ÛdóbL25331 .TX"TCP PAST";$97çdýb .BY$00ecL25351 .TX"TCP FUTURE";$98ec .BY$00>ecL25371 .TX"TCP FROM/TO WRONG SERVER";99Je%c .BY$00< je/cL25391 .TX"TCP ACK PUS";$9Ave9c .BY$00†eCc;-------" ´eMcL25421 .BY<(L25581);TXEMLO TEXT EMAIL LOWÆeWc .BY<(L25601)Øeac .BY<(L25621)êekc .BY<(L25641)üeuc .BY<(L25661)fc .BY<(L25681) f‰c .BY<(L25701)2f“c .BY<(L25721)afcL25501 .BY>(L25581< );TXEMHI TEXT EMAIL HIGHsf§c .BY>(L25601)…f±c .BY>(L25621)—f»c .BY>(L25641)©fÅc .BY>(L25661)»fÏc .BY>(L25681)ÍfÙc .BY>(L25701)ßfãc .BY>(L25721)øfícL25581 .TX"USER ";00g÷c .BY$00gdL25601 .TX"PASS ";01)g d .BY$00AgdL25621 .TX"STAT";02Mgd < .BY$00eg)dL25641 .TX"LIST";03qg3d .BY$00Œg=dL25661 .TX"TOP 1 3";04œgGd .BY$00,$00¶gQdL25681 .TX"RETR 1";05Æg[d .BY$00,$00àgedL25701 .TX"DELE 1";06ðgod .BY$00,$00hydL25721 .TX"QUIT";07hƒd .BY$00$hd;-------" Mh—dL25751 .BY$53,$75,$62;TXSFRT< SUBJECTfh¡d .BY$46,$72,$6F;FROM€h«d .BY$52,$65,$70;REPLY˜hµd .BY$54,$6F,$3A;TO:·h¿d .BY$44,$61,$74;DATE----" ÝhÉdL25801 .TX"LENGTH:";TEXTE LENGHTHðhÓd .BY$00;----" iÝdL25821 .TX"NO SUBJECT ";TXNOSU?içdL25831 .BY$22,"#","$","*";" TXILCHYiñ<d .BY",","?",":",$3B;;giûd .TX"=@/<šie .BY">",$5C,$7C;\/BACKSLASH,SENKRECHTER STRICH¾ie .BY$E4,$F6,$FC,$DF;AE,OE,UE,SSÛie .BY$C4,$D6,$DC;AE,OE,UEj#eL25891 .BY"'",$A6," ","+";TXSUCHj-e .TX". .."'j7e .BY"-"," ",$DD,"[";jAe .BY"]",$AE,$A5IjKe <.TX"AOUSVjUe .TX"AOU‡j_eL25951 .BY$93,$11,$11,$11;TEXT LOAD END FILE”jie .TX"LÏ" jse .BY$22»j}e .TX"NAME OF END-FILE"×j‡e .BY$22,$2C,$30,$30,$0Dój‘e .BY$11,$11,$11,$11,$11k›e .TX"IFST=64TÈRÕk¥e .BY$13,$004k¯eL26031 .TX"ÃÂÍ80";CBM80Nk¹eL26041< .TX"EM64";EM64nkÃeL26051 .TX"EM64TXTEMAILSEND•kÍeL26061 .TX"HELO C64";TEXT HELO C64¡k×e .BY$00ÌkáeL26081 .TX"MAIL FROM:<";TEXT MAIL FROMØkëe .BY$00lõeL26101 .TX"RCPT TO:<";TEXT RCPT TO:< lÿe .BY$00,l fL26121 .TX"DATA";TEXT DATA8lf .BY$00dlf<L26141 .TX"EHLO C64";TEXT EXTENDED HELOpl'f .BY$00›l1fL26161 .TX"AUTH PLAIN";TEXT AUTH PLAIN§l;f .BY$00çlEfL26181 .BY$3E,$0D,$0A,$58,$2D;> X- TXXMAImOf .BY$4D,$61,$69,$6C,$65,$72,$3A,$20;MAILER:VmYf .BY$45,$6D,$61,$69,$6C,$36,$34<,$20,$6F,$6E,$20;EMAIL64 ON•mcf .BY$61,$20,$43,$36,$34,$20,$77,$69,$74,$68,$20;A C64 WITHÊmmf .BY$30,$2E,$30,$36,$34,$20,$4D,$42,$20;0.064 MBúmwf .BY$52,$41,$4D,$20,$61,$6E,$64,$20;RAM AND REPLY-TO: <ÝnŸf .BY$54,$6F,$3A,$20,$3C,$00;> REPLY-TO: <o©f;===============================" So³f;PROTOCOL FIEL- AND ADRESS-AND-CONTROL-FILED-C<OMPRESSION LCP”o½fL26301 .BY$FF;ADDRESS PSACCO PAKAGE SEND ADDR&CTRL-COMPRES©oÇf .BY$03;CONTROLLÇoÑf .BY$C0;PROTOCOLLCODE LCPåoÛf .BY$21;PROTOCOLLCODE LCPpåf .BY$01;1 COMMAND: COBFIGURE REQUEST6pïf .BY$01;2 IDENTIFIER (COUNTER 1-FF<)Ppùf .BY$00;3 LENGTH HIGHipg .BY$0E;4 LENGTH LOW’p g .BY$07;5 PROTOCOL-FIELD-COMPRESSION§pg .BY$02;6 LENGTHÜp!g .BY$08;7 ADDRESS-AND-CONTROLL-FIELD-COMPRESSIONñp+g .BY$02;8 LENGTHq5g .BY$02;9 ASYNC CONTROLL CHARCTER MAP0q?g .BY$06;A LENGTH>q<Ig .BY$00;BiqSg .BY$0A;C $11 & $ 13 NURESCAPED SENDENwq]g .BY$00;Dqgg .BY$00;E -----" Üqqg;PROTOCOL TERMIANTE REQUEST LCPr{gL26491 .BY$FF;ADDRESS PSTERE PAKAGE SEND TERMINATE REQUEST2r…g .BY$03;CONTROL<LPrg .BY$C0;PROTOCOLLCODE LCPnr™g .BY$21;PROTOCOLLCODE LCP—r£g .BY$05;1 COMMAND: TERMINATE REQUEST¿r­g .BY$02;2 IDENTIFIER (COUNTER 1-FF)Ùr·g .BY$00;3 LENGTH HIGHùrÁg .BY$04;4 LENGTH LOW-----" FALLS ANDERST,MUSS SELBST GEAENDERT UND WIEDER£ƒm;AUF 5 GESETZT WERDENàƒm .BY$10;BIT5=URGET B4=ACK B3=PUSH B2=RESET B1=SYN B0=FINÿƒm;ACK ALSDEFFAULT GESETZT!!6„%m .BY$02;W=INDOW $0600=1,5K !!!!NOCH AUF 6 AENDERNI„/m .BY$00;WINDOW^„9m .BY$00;CHECKSUMs„Cm .BY$00;CHECKSUMŽ„Mm .BY$00;URGENT POINTER©„Wm .BY$00;URGENT POINTERÒ„am;---------------------------------" þ„kmL28011 .BY$02;TCHEOP TCP HEADER OPTIONS9…um .BY$04;=DASSSERVER MAXIMAL 512 BYTES AUF EINMAL SENDETE…m .BY$02Q…‰m .BY$00f…“m .BY$00;LEERBYTE……m .BY$00;LEERBYTE-------" Ð…§mL28071 .BY$BC,$17,$C2,$00;NETTIME SECONDS PER CENTURY (24ST) NTSECE†±m .BY$BC,$19,$13,$80;JAHRHUNDERT MIT 25 SCHALTTAGENR=†»mL28091 .BY$01,$E1,$33,$80;NETTIME SECONDS PER YEAR (KEIN SJ) NTSEYEu†Åm .BY$01,$E2,$85,$00;SCHALTJAHRÀ†ÏmL28111 .BY$00,$24,$EA,$00;NETTIME SECONDS PER MONTH (28TAGE) NTSEMOá†Ùm .BY$00,$26,$3B,$80;(29TAGE)‡ãm .BY$00,$27,$8D,$00;(30TAGE)#‡ím= .BY$00,$28,$DE,$80;(31TAGE)n‡÷mL28151 .BY$01,$51,$80;NETTIME SECONDS PER DAY NTSEDA¹‡nL28161 .BY$00,$0E,$10;NETTIME SECONDS PER HOUR NTSEHOˆ nL28171 .BY$00,$00,$3C;NETTIME SECONDS PER MINUTE NTSEMI=7ˆnL28181 .TX"JFMAMJJASOND";TABLE MONTH TAMONToˆn .BY$61,$65,$61,$70,$61,$75,$75,$75,$65,$63,$6F,$65§ˆ)n .BY$6E,$62,$72,$72,$79,$6E,$6C,$67,$70,$74,$76,$63׈3nL28211 .BY$44,$61,$74,$65,$3A,$20;TEXT DATE"‰=nL28221 .BY$21,$0D,$0A,$0D,$0A;TEXT C64 úLOAD ERROR TXCLER:‰Gn .TX"C64-LOAD-ERRORY‰Qn .BY$0D,$0A,$2E,$0D,$0A;" h‰ øL63500 NOP·‰ø;=========================================================================Ɖ ø .IFMODE=2Ú‰*ø .AP"2-MAIN*",8ã‰4ø .ELì‰>ø .ENù‰Hø .EI;" SEMI=dDN²Â(186):‹DN³8§DN²8@nŸ15,11,15: 15:‹ST²0§Ÿ15,11,15,"UIlx™"“ÅMAIL64 ÓTART ÍENUE˜‚™"1 ×RITE EMAIL WITH ËWIK-×RITEÅŒ™"2 ÔRANSLATE ËWIK-×RITE-TEXT TO ÅMAILì–™"3 ÓEND AND RECEIVE EMAILS  ™"= 4 ÒEAD EMAILS6 ª™"ÅMAI64 IS ÆREEWAREW ´™"ÊOCHEN ÁDLERx ¾™"ÈAELDESTR. 9› È™"Ä-74912 ËIRCHARDT¹ Ò™"ÇERMANYØ Ü™"ÎÌÑ@GMX.DEø æ™"WWW.NLQ.DE ð=  15 ú—780,3:ž65457( —780,96ª15:ž65427; —780,85:ž65448N —780,73:ž65448Y "ž65454l ,¡A$:‹A$²""§300‡ 6‹(A$³"1")°(A$±"4")§300 @™"“² J‹A$²"4"§B$²"FILE-SURVEY*":‰470Ò T‹A$²"3"§B$²"EM64MAIN*":‰470ö ^‹A$²"2"§B$²"-KWIK->ASCII*":‰470 h= ™"ËWIK-×RITE RUNS BEST FROM A 1541 AS7 r™" DEVICE 8 OR 9.] |™"ÉT CHANGES THE DEVICE ADDRES OFu †™" DEVICE 8 TO 11.œ ™"ÓO THERE MUSTN'T BE A DEVICE 11.¹ šŸ15,11,15: 15:‹ST³±0§460× ¤™"ÄEVICE 11 IS PRESENT. ®™"ÓO ËWIK-×RITE WILL HAVE GO= T PROBLEMS.2 ¸™"É CHANGE THE DEVICE ADDRESS FROM 11 TO 3f Ÿ15,11,15:˜15,"M-W"Ç(119)Ç(0)Ç(2)Ç(32ª3)Ç(64ª3)y ÌB$²"KWIK WRITE” Ö™"DEVICENUMBER ";DN´ à…"‘";C$:C²Å(C$)â êD$²"REM": IFA$="2"THEND$="PÏ2079,"+C$ ô™"“LÏ"Ç(34)BK$Ç(34)","C þ™""D$ ™"RÕ= —631,13:—632,13:—633,13:—198,3NGES THE DEVICE ADDRES OFu †™" DEVICE 8 TO 11.œ ™"ÓO THERE MUSTN'T BE A DEVICE 11.¹ šŸ15,11,15: 15:‹ST³±0§460× ¤™"ÄEVICE 11 IS PRESENT. ®™"ÓO ËWIK-×RITE WILL HAVE GO= ÅMAIL64 ÅMAIL64 IS AN EMAIL-PROGRAM FOR AN UNEXPANDED Ã64. ÉT SUPPORTS STANDART-ÒÓ232- MODEMS WITH MOST ÒÓ232-ADAPTERS: ÕSERPORT, ÅNHANCED-ÕSERPORT, ÓWIFTLINK / ÔURBO232 AND ÓILVERÓURFER. ÆOR SENDING USERNAME AND PASSW=ORD IT SUPPORTS ÐASSWORD ÁUTHENTICATION ÐROTOCOL (ÐÁÐ) ONLY, NOT ÃÈÁÐ AND NOT DIRECT TRANSFER LIKE A TERMINAL PROGRAM. ÉF YOUR INTERNET-PROVIDER USES ÃÈÁÐ ONLY, THEN YOU MUST TRY A DIFFERENT ONE. ÙOU RECOGNIZE ÃÈÁÐ WHEN YOU RECEIVE MANY 'ÒÃÖ ÌÃÆÇ ÒÑÓ' AN=D 'ÓÎÄ ÌÃÆÇ ÎÁË' (AT ÐÁÐ YOU RECEIVE ONE ONLY). ÉF YOUR INTERNET PROVIDER USES TERMINAL-PROGRAM- MODE ONLY (PROBABLY IN THE ÕÓÁ) THEN YOU CAN TELL ME AND É WOULD TRY TO FIND TIME TO PROGRAM THIS FEATURE IF YOU WILL BE THE BETA-TESTER FOR IT. ÁFTER THE 'Á=ÔÄ...' LINE APPEARS ON THE SCREEN IT TAKES UP TO 30 SECONDS UNTIL THE SERVER ANSWERS - YOU HAVE TO WAIT. ÅVERY TIME WHEN THE CHARACTER TOP LEFT ON THE SCREEN CHANGES, ÅMAIL64 SENDS ONE BYTE. ÅVERY TIME WHEN THE CHARCTER RIGHT OF IT CHANGES THEN ÅMAIL64 R=ECEIVES ONE BYTE. ÁS LONG AS ONE OF THESE BYTES CHANGES EVERYTHING IS OK. ÉF BOTH CHARACTERS DON'T CHANGE THEN THERE IS A CRASH; RESET THE Ã64 AND PULL OFF THE MODEM CABLE BUT ÎÅÖÅÒ PULL OFF THE ÒÓ232 ADAPTER. ÅMAIL64 CAN DOWNLOAD THE FIRST 99 EMAILS AND= SAVES THEM TO DISK AND IT CAN SEND 9 EMAILS. ÆIRST YOU MUST RUN 'CONFIG-INPR*' TO CONFIG THE INTERNET-PROVIDER. ÔHEN YOU MUST RUN 'CONFIG-EMAC*' TO CONFIG THE EMAIL-ACCOUNT. ÔHE CONFIGURATION IS A LITTLE BIT COMPLICATED. ÉF THERE ARE ANY QUESTIONS, PROB8LEMS, BUGS... PLEASE ASK ME. ÊOCHEN ÁDLER ÎÌÑ@GMX.DE EVERYTHING IS OK. ÉF BOTH CHARACTERS DON'T CHANGE THEN THERE IS A CRASH; RESET THE Ã64 AND PULL OFF THE MODEM CABLE BUT ÎÅÖÅÒ PULL OFF THE ÒÓ232 ADAPTER. ÅMAIL64 CAN DOWNLOAD THE FIRST 99 EMAILS ANDU™"ÈAELDESTR. 9"™"Ä-74912 ËIRCHARDT*,™"ÇERMANY;6™"ÎÌÑ@GMX.DEC@…A$Ee –™"YOUR EMAIL ACCOUNT.z  ™"ÙOU MUST TYPE:Ÿ ª™"ÕSERNAME FOR INTERNET PROVIDERÄ ´™"ÐASSWORD FOR INTERNET PROVIDERñ ¾™"ÔELEPHONE NUMBER FOR INTERNET PROVIDER=!è $033C 0828 E KENNUNG EM644ò $033D 0829 MGü $033E 0830 6Z $033F 0831 4v $0340 0832 CLIENT-IP- $0343 0835 ADDRESS¥$ $0344 0836 DNS-¾. $0347 0839 ADDRESSÖ8 $0348 0840 MOADTY B USER- ENHNCD SWIFT- S=ILVER0 L PORT USRPRT LINK SURFER] V $0349 0841 RESTLO RESTDE ACBARA SSBARLŠ ` $034A 0842 RESTHI SSBARH· j $034B 0843 RENOLO RENOLO SSFIAMÖ t $034C 0844 RENOHI RENOHIõ ~ $034D 0845 SENOLO SENOLO ˆ =$034E 0846 SENOHI SENOHI ’G œ USER- ENHNCD SWIFT- SILVER• ¦ PORT USRPRT LINK SURFER --------------------------------´ ° $0350 0848 ÄIALUP NO YES¾ º $03Þ Ä $0370-038F 0880-0911 NAME Î $0390-03AF 0912-0943 =PASSWORT PASSWORD: Ø $03B0 0944 PULSE- / TONE-DIAL{ â $03B1-03BF 0945-0959 TELEPHONE-NUMBER OF INTERNET PROVIDERÉ ì $03C0-03FB 0960-1019 INITIALISIERUNGSBEFEHL INITIAL STRING TO MODEMë ö $03FC-03FF 1020-1023 'EM64' -------=------------------------- ‹K±0§1600Q ™"“CONFIGURE EMAIL64-INTERNET-PROVIDERd †DN(9):†NA$(9)r (™:I²8¤30ƒ 2Ÿ15,I,15: 15“ <‹ST³±0§1540¨ FŸ15,I,15,"I": 15¿ PŸ2,I,0,"$EM64INPR*Ù ZJ²0¤5:¡#2,A$:‚:‰1500è d‹K²10§1530ü nJ²0¤3:¡#=2,A$:‚ x‹ST³±0§1530# ‚¡#2,A$:‹ST³±0§15307 Œ‹A$³±Ç(34)§1410P –¡#2,A$:‹A$³±"E"§1530^  ™K;:‰1460x ª¡#2,A$:‹A$²Ç(34)§1480’ ´™A$;:NA$(K)²NA$(K)ªA$œ ¾‰1450± È™I:DN(K)²I:K²Kª1ç Ò¡A$:A²Æ(A$ªÇ(0)):‹(A±47)¯(A³48ªK)§I²30:‚: 2:‰1550þ Ü¡#2,A$:‹=ST³±0§1530æ‹A$³±""§1500ð‰1380 ú 2+‚:ND²Kd‹K²0§™"INSERT DISK WITH FILE 'EM64INPR...":…A$:‰1320}™"TYPE 0 -"K«1"¨"¡A$:A²Æ(A$ªÇ(0)):‹(A³48)°(A±47ªK)§1570´,AN²A«48Ê6“NA$(AN),DN(AN),1ï@A$²"":I²828¤831:A$²A$ªÇ(Â(I)):‚÷=J™A$T…"RETURN";A$:-------------=^—828,69:—829,77:—830,54:—831,52eh—1020,69:—1021,77:—1022,54:—1023,52¡rI²849¤857:—I,0:‚: DELETES DEVICENUMBERS (OLD VERSION)Ç|™"$0340-$0343 CLIENT IP ADDRESSð†™"IN 99% USE 0.0.0.0 => THE SERVER=™"GIVES THE CLIENT IP ADDRESS>š™" "Â(832)"."Â(833)"."Â(834)"."Â(835)J¤…"‘";A$®J²0:A$(0)²"":A$(1)²"":A$(2)²"":A$(3)²"":I²1¤Ã(A$)±¸‹Ê(A$,I,1)³±"."§A$(J)²A$(J)ªÊ(A$,I,1):‰1740»ÂJ²Jª1ÁÌ‚ÓÖA(0)²Å(A$(0))åàA(1)²Å(A$(1))÷êA(2)=²Å(A$(2)) ôA(3)²Å(A$(3))+þ™""A(0)"."A(1)"."A(2)"."A(3)@™"CORRECT (Y/N)U¡B$:‹B$²"N"§1660g‹B$³±"Y"§1810“&—832,A(0):—833,A(1):—834,A(2):—835,A(3)½0™"$0344-$0347 (PRIMARY) DNS ADDRESSæ:™"IN 99% USE 0.0.0.0 => THE SERVERD™= "GIVES THE DNS ADDRESS-N™"ONLY IF YOU GET 'SERVER DOESN'T SENDXX™"DNS ADDRESS' THEN ASK YOUR INTERNET-…b™"PROVIDER FOR THIS ADDRESS AND INPUT IT±l™" "Â(836)"."Â(837)"."Â(838)"."Â(839)½v…"‘";A$ô€J²0:A$(0)²"":A$(1)²"":A$(2)²"":A$(3)²"":=!I²1¤Ã(A$)$Š‹Ê(A$,I,1)³±"."§A$(J)²A$(J)ªÊ(A$,I,1):‰1950.”J²Jª14ž‚F¨A(0)²Å(A$(0))X²A(1)²Å(A$(1))j¼A(2)²Å(A$(2))|ÆA(3)²Å(A$(3))žÐ™""A(0)"."A(1)"."A(2)"."A(3)³Ú™"CORRECT (Y/N)Èä¡B$:‹B$²"N"§1840Úî‹B$³±"Y"§2020ø—836,A(0)=":—837,A(1):—838,A(2):—839,A(3).™"$0348 MOADTY MODEM ADAPTER TYPEW ™"1 = USERPORT WITHOUT CTS-CONTROLL|™"2 = USERPORT WITH CTS-CONTROLLª ™"3 = ENHANCED USERPORT (DANIEL DALLMANN)É*™"4 = SWIFTLINK / TURBO232ó4™"5 = SILVER SURFER (OF =#RETRO REPLAY)+>™" "µ(Â(840)­16):…"‘";A$:M²Å(A$):‹(M²0)°(M±5)§21109H‹M²1§2170GR‹M²2§2170U\‹M²3§2170cf‹M²4§2810qp‹M²5§3070™z™"$0348 MOADTY MODEM ADAPTER TYPE¼„™" CONTROL-LINES-INVERTED㎙" -NOT INVERTED=$õ˜ BIT 6 = CTS¢ BIT 2 = DTR (FOR INITIALISE);¬ BIT 1 = RTS (FOR INITIALISE)i¶™" IF CTS IS THEN BIT6 OF DD01 ISŒÀ™"INV. +12V LOW 0V¯Ê™"INV. -12V HIGH 5VÒÔ™"NOT INV. +12V HIGH 5VõÞ™"NOT INV. =% -12V LOW 0Vè™"THE RS232 DRIVERCHIP INVERTS!!Eò™"IF YOU HAVE AN ADAPTER WITH ONLY THEjü™"DRIVERCHIP THEN IT IS INVERTED˜ ™"IF YOU HAVE AN ADAPTER WITH THE DRIVER-Þ ™"CHIP AND AN ADDITIONAL INVERTERCHIP THEN IT IS NOT INVERTED=& ™"REMARK:IF YOU DON'T KNOW THEN TRY:L$ ™"IF EMAIL64 HANGS AFTER 'LOADING' THEN TRY THE OPPOSITE VALUEz. ™"REMARK: DATA-LINES ARE ALLWAYS INVERTED‰8 A²Â(840)¯1§B ™"TYPE 0 FOR NOT INVERTEDÁL ™"TYPE 1 FOR INVERTED×V ™"TYPE ? FOR HELPé` ™"=' ";A"‘":…A$j A²Å(A$):‹A$³±"?"§25100t ™"YOUR USERPORT-MODEM-ADAPETR MUST BE\~ ™"CONNECTED TO THE C64 AND TO THE MODEMzˆ ™"AND MUST BE SWITCHED ON£’ ™"IF IT HAS A CTS-LED IT MUST BE ON.Ðœ ™"IF NOT, SWITCH OFF YOUR C64 AND DRIVES𦠙"AND T>HE MODEM AND CORRECTø° …A$%º A²0:A$²"NOT ":‹(Â(56577)¯64)²0§A²1:A$²""RÄ ™"MODEM ADAPTER IS "A$"INVERTED":‰2370mÎ B²Â(840)¯2:—840,M¬16ªA{Ø ‹M³3§2650£â ™"ENHANCED USERPORT: DO YOU USE Aàì ™"SPEEDER CARTRIDGE (FLASH8 SCPU)? (0=NO >2=YES)êö ™" "B …"‘";A$:‹A$²"0"§2690! ‹(A$³±"2")¯(A$³±"0")§2530; —840,M¬16ª2ªA: 32/33a ™"RESTDE RECEIVE STARTBIT DELAY†( ™"TRY 40 FOR F8 AND 80 FOR SCPU2 ™"!!!NOT TESTED!!!²< ™"RESTDE "Â(841)ÊF …"‘";A:—841,AÔP ‰2690Z> ™"RESTLO/HI RECEIVE STARTBIT LOW/HIGH TMR+d ™"TRY 456 FOR PAL AND 480 FOR NTSCNn ™"RESTLO/HI "Â(841)ª256¬Â(842)xx …"‘";A:—841,A¯255:—842,A­256§‚ ™"RENOLO/HI RECEIVE NORMALBIT LOW/HIGH TMÔŒ ‹M³3§™"TRY 410 FOR PAL AND 425 FOR NTSC>– ‹M²3§™"TRY 102 FOR PAL AND 106 FOR NTSC$  ™"RENOLO/HI "Â(843)ª256¬Â(844)Nª …"‘";A:—843,A¯255:—844,A­256w´ ™"SENOLO SEND NORMALBIT LOW/HIGH TM¤¾ ‹M³3§™"TRY 410 FOR PAL AND 425 FOR NTSCÐÈ ‹ M²3§™"TRY 50 FOR PAL AND 52 FOR NTSCóÒ> ™"SESTLO/HI "Â(845)ª256¬Â(846)Ü …"‘";A:—845,A¯255:—846,A­2561æ PRINT"$034FTð ‰3330:-----------------------qú ™"SWIFTLINK /TURBO 232 ™" 0= DE00 ™" 1= DF00Ÿ ™" 2= D700®" ™" 3= DE20½, ™" 4= DF20Ä6 ™"ô@ ™" "Â(84>0)¯15:…"‘";A$:A²Å(A$):‹A$²"0"§2900 J ‹(A²0)°(A±4)§2880T —840,M¬16ªA>^ ™"$0349 ACBARA ACIA BAUD RATEUh ™" 21= 300BAUDkr ™" 23= 1200BAUD| ™" 24= 2400BAUD—† ™" 26= 4800BAUD­ ™" 28= 9600BAUDÚ ™" 30= 19200BAUDÙ¤ ™" 31= >38400BAUDü® ™"ONLY AT TURBO232 AVAILABLE: ¸ ™" 130= 57600BAUD9  ™" 129=115200BAUD (ONLY WITH SCPU)P Ì ™"(128=230400BAUD)e Ö ™"TYPE 21...128ˆ à ™"ACBARA ";Â(841):…"‘";A“ ê —841,A¶ ô ‰3330:-----------------------Ì þ —840,80:--------ü>  ™"$0349/034A SSBARL SILVERSURFER BAUDRATE! ™" 1536= 300BAUD-! ™" 384= 1200BAUDE!& ™" 192= 2400BAUD]!0 ™" 96= 4800BAUDu!: ™" 48= 9600BAUD!D ™" 24= 19200BAUD¥!N ™" 12= 38400BAUD½!X ™" 8= 57600BAUDÕ!b ™" 4=1>15200BAUDî!l ™" (2=230400BAUD)"v ™" (1=460800BAUD)%"€ ™"TYPE 4...1536 (TRY: 4)E"Š ™"SSBARA "Â(841)ª256¬Â(842)w"” …"‘";A:—841,A¯255:—842,A­256:---------¥"ž ™"$034B SSFIAM SILVERSURFER FIFO AMOUNTä"¨ ™"HOW MANY BYTES UART RECEIVES U> NTIL IT MAKES AN NMI/IRQú"² ™" 0= FIFO OFF #¼ ™" 3= 1BYTE #Æ ™" 67= 4BYTE3#Ð ™" 131= 8BYTEF#Ú ™" 195= 14BYTEe#ä ™"TYPE 0...195 (TRY: 195)ˆ#î ™"SSFIAM ";Â(843):…"‘";A«#ø —843,A:======================Î# ™"$0350 DIUPNY DIALUP > NO YESö# ™"HAVE YOU GOT A DIALUP CONNECTION?$ ™" 0= NO, I HAVEN'T GOT A DIALUP-J$ ™" CONNECTION. I'VE GOT A ROUTERp$* ™" F.E. 'PPPD' ON A LINUXPCŸ$4 ™" 128= YES, I'VE GOT A DIALUP CONNECTIONÊ$> ™" WHERE I MUST SEND AT-COMM> ANDSä$H ™" TO THE MODEM%R ™"TYPE 0 / 128 (TRY: 128)&%\ ™"DIUPNY ";Â(848):…"‘";AI%f —848,A:======================X%p ™"„%z ™"$0370-038F USERNAME²%„ ™"ONLY STANDART (NO CBM) PC-ASCII ALLOWEDÎ%Ž A$²"":I²880¤> 911:B²Â(I)é%˜ ‹(B±64)¯(B³91)§B²Bª128&¢ ‹(B±96)¯(B³123)§B²B«32&¬ A$²A$ªÇ(B):‚,&¶ ™"USERNAME ";A$U&À …"";A$t&Ê A²Ã(A$):™"LENGTH"A:B$²""&Ô ‹A±32§™"TOO LONG":‰3330ª&Þ I²1¤A:B²Æ(Ê(A$,I,1))¼&è ™Ê(A$,I,1);B;Ë&ò ‹> B³32§3620Ú&ü ‹B³65§3630ñ&‹B³91§B²Bª32:‰3630'‹B³193§3620'‹B³219§B²B«128:‰3630>'$™"ILLEGAL CHARACTER":I²99:‰3640Z'.B$²B$ªÇ(B):™"->"Ç(B);B;b'8™:‚q'B‹I±90§3330†'LUS$²B$:LU²Ã(US$)˜'VA$²"":I²1¤LU¬'`B²Æ(Ê(US$,I,1))Ç'j‹(B±64)¯(B³91)§>B²Bª128â't‹(B±96)¯(B³123)§B²B«32ó'~A$²A$ªÇ(B):‚ (ˆ™"USERNAME ";A$(’™"CORRECT (Y/N)3(œ¡A$:‹A$²"N"§3330E(¦‹A$³±"Y"§3740[(°I²880¤911:—I,0:‚g(ºI²1¤LU§(ÄI²1¤LU:—879ªI,Æ(Ê(US$,I,1)):‚:===========================¶(Ι"â(Ø™">$0390-03AF PASSWORD)â™"ONLY STANDART (NO CBM) PC-ASCII ALLOWED,)ìA$²"":I²912¤943:B²Â(I)G)ö‹(B±64)¯(B³91)§B²Bª128b)‹(B±96)¯(B³123)§B²B«32s) A$²A$ªÇ(B):‚Š)™"PASSWORD ";A$³)…"";A$Ò)(A²Ã(>A$):™"LENGTH"A:B$²""î)2‹A±32§™"TOO LONG":‰3790*<I²1¤A:B²Æ(Ê(A$,I,1))*F™Ê(A$,I,1);B;)*P‹B³32§39708*Z‹B³65§3980O*d‹B³91§B²Bª32:‰3980_*n‹B³193§3970x*x‹B³219§B²B«128:‰3980œ*‚™"ILLEGAL CHARACTER":I²99:‰3990¸*ŒB$²B$ªÇ(B):™"->"Ç(B);B;À>*–™:‚Ï* ‹I±90§3790ä*ªPA$²B$:LP²Ã(PA$)ö*´A$²"":I²1¤LP +¾B²Æ(Ê(PA$,I,1))%+È‹(B±64)¯(B³91)§B²Bª128@+Ò‹(B±96)¯(B³123)§B²B«32Q+ÜA$²A$ªÇ(B):‚h+æ™"PASSWORD ";A$|+ð™"CORRECT (Y/N)‘+ú¡A$:‹A$²"N"§3790£+‹A$³±"Y"§4090¹+I²912¤943:—I,0:>‚ù+I²1¤LP:—911ªI,Æ(Ê(PA$,I,1)):‚:===========================,"‹ Â(848)²0§4610: NO DIALUP(,,™"q,6™"$03B1-03BF TELEPHONE-NUMBER OF INTERNET-PROVIDERŠ,@™"NUMBER ";Ç(34);™,JI²945¤959±,T‹Â(I)²0§I²959:‰4200¿,^>™Ç(Â(I));Ç,h‚:™ý,r—631,29:—198,1:…"";A$-|‹Ã(A$)±15§™"TOO LONG":‰4140;-†™"TELEPHONE-NUMBER: ";A$g-‹È(A$,1)²" "§™"NO SPACE AT BEGIN":‰4140|-š™"CORRECT (Y/N)‘-¤¡G$:‹G$²"N"§4140£-®‹G$³±"Y"§4260¹-¸I²945¤959:—>I,0:‚÷-ÂI²1¤Ã(A$):—944ªI,Æ(Ê(A$,I,1)):‚:=======================.Ì™"$03B0 TONE- / PULSE-DIAL?.Ö™"TONE/PULSE (T/P) ";Ç(Â(944))[.à…"‘";A$s.ê™"TONE/PULSE: ";A$ˆ.ô™"CORRECT (Y/N).þ¡G$:‹G$²"N"§4300¯.‹G$³±"Y"§4350Ð.>—944,Æ(A$):================ä.™"!/&™"$03C0-$03FB AT-COMMANDS TO MODEM (0-60)+/0S$²""E/:™"Í = CARRIAGE RETURNZ/D™"\ = BACKSLASH…/N™"TRY: &FE1V1Q0S0=0X3&C1&D2M1\Q3\N3\N6¢/X™"AT-COMMAND ";Ç(34);Ã/bI²960¤10>19:A²Â(I):‹A²13§A²0Ó/l‹A±0§™Ç(A);Û/v‚:™0€—631,29:—198,1:…"";A$10ŠI²1¤Ã(A$):B$²Ê(A$,I,1)F0”‹B$²"Í"§B$²Ç(13)k0ž‹(B$²"")°(B$²Ç(0))§I²Ã(A$):‰4530x0¨S$²S$ªB$~0²‚Š0¼™""S$Ÿ0Æ™"LENGTH:"Ã(S$)·0Й"CORREC>T (Y/N)?"Õ0Ú¡A$:‹A$³±"Y"¯A$³±"N"§4570æ0ä‹A$²"N"§4380ý0îI²960¤1019:—I,0:‚;1øI²1¤Ã(S$):—959ªI,Æ(Ê(S$,I,1)):‚:=======================[1™"SAVE NEW CONFIG (Y/N)?"y1 ¡A$:‹A$³±"Y"¯A$³±"N"§4620‡1‹A$²"N"§€·1 ™"NEW FILENAME F.CONFIG INTERN>ET PROVIDERÈ1*™" "NA$(AN)ö14…"‘";NA$:NA$²È(NA$ª" ",16)42>‹È(NA$,8)³±"EM64INPR"§™"MUST BEGIN WITH 'EM64INPR'":‰4640K2H™"DEVICE NUMBER"Z2R™" "DN(AN)f2\…"‘";DN€2fŸ2,DN,2,NA$ª",P,R": 2Ÿ2pŸ15,DN,15:„15,A,B$,C,D: 15¿2z‹A²62§>4820: FILE NOT FOUNDË2„™"ERRORÙ2Ž™A;B$;C;Dè2˜‹A³±0§46403¢™"CONFIG FILE WITH SAME NAME ALLREADY13¬™"EXISTS. OVERWRITE? (Y/N)F3¶¡A$:‹A$²"N"§4640X3À‹A$³±"Y"§4790s3ÊŸ15,DN,15,"S:"ªNA$: 15ƒ3ÔI²1¤Ã(NA$)œ3Þ—678ªI,Æ(Ê(NA$,I,1))¢3è‚­3ò—>780,0É3ü—781,DN: DEVICE NUMBERÞ3—782,0: SECADDRé3ž65466õ3—780,164$—781,167 4.—782,248ž65469$4B—193,60/4L—194,3<4V—780,193G4`—781,0R4j—782,4]4tž65496x4~Ÿ15,DN,15:„15,A,B$,C,D†4ˆ™A;B$;C;DŽ4’ 15œ4œ‹A±0§4610¨4¦—1023,0G FILE NOT FOUNDË2„™"ERRORÙ2Ž™A;B$;C;Dè2˜‹A³±0§46403¢™"CONFIG FILE WITH SAME NAME ALLREADY13¬™"EXISTS. OVERWRITE? (Y/N)F3¶¡A$:‹A$²"N"§4640X3À‹A$³±"Y"§4790s3ÊŸ15,DN,15,"S:"ªNA$: 15ƒ3ÔI²1¤Ã(NA$)œ3Þ—678ªI,Æ(Ê(NA$,I,1))¢3è‚­3ò—>"Äž2085 : BASIC-BOSS....00.00 L›¢µµ2ÊÐø`ÉðÉð#Éð=Éð*h¨>A hB ºŽC H˜H©` Ö®C š`®C š­B H­A H©`®C š­B H­A H©ÿ`h¨h®C šH˜HLD …Wh…Ah…Be¥WðLþ ©ÿ…9…: ±AU ȱAV ȱAW ȱAX   ±AS ȱAT ÈÈȱAY ȱAZ ȱA[ ȱA\ ȱAM ȱAN ȱAQ ȱAR ­H ð®I ¬J ŽO ŒP Lþ ®Q ¬R ŽO ŒP ­[ …Y­\ …Z­Z …X­Y ¨©…WÄYð ‘WÈÐ÷æXÐó¦Xä>Zñ­- ­. ­K ­ L ©…H ù(° ð L­/ ŠH Ö¥9H¥:H è h…:h…9hªL‹ã¨  ¢³Lh…Ah ; S¸L]h…Ah ; +ºL]h…Ah ; j¸L]h…Ah }Тÿ,¢Láh…Ah }ð¢ÿ,¢Láh…Ah }ð0¢ÿ,¢Láh…Ah…B ±A…WªðȱAI³†X¢7† Òÿ® †¦XÊÐè¤WÈ>L © Òÿ$© ÒÿLh…Ah Lh…Ai…Yh…Bi…Z ±A…E)…« ±A…CȱA…D кŠiªš¥ZH¥YH ¢@ t  ¢ t  ±AHˆ±AH¥«H©H¥ZH¥YH`h…[h…\Š%EкÊÊÊš±AHˆ±AHL¬ ±Að…Xˆ±A…W ±WHˆú0  ¹³ Hˆù¥\H¥[H`h…Ah PÈ¥d‘© Lh…Ah…B©…«Llª Š ÃÿLh…Ah P LH h ºÿ©> ½ÿ ÀÿL…Eh…Ah t  Lh…Ah…B ¢N ˜  Lh…Ah ê L…kh…Ah © , ¥k‘  Lh…Ah ”¥eð ±a¢7† Òÿ® †ÈÄeÐíLú©Lh…Ah Ð¥eef¢LO ,¤e𠈱a‘ˆùÀÿÐõ­O ee…W­P i…X¤f𠈱c‘WˆùÀÿÐõ R Ld…Eh…Ah tLú i©L©Lh…Ah uL™¢µ½2•ÊÐø`h…>!Ahʆk„l ”¥kÉÿТLOÅe©…lL ¥e8åkÅl°…l¥l ,¥k¤lL¹h…Ah ” Ü ¥eð±a‘©…nLdh…Ah uLåh…Ah ”  ±§‘©ˆù¤«Lh…Ah ” Ü¥e ‘©…nLdh…Ah†k ”¥eÅk°…k¥k ,¥e8åk¤kL¹h…Ah cLåh…Ah†k ”¥eÅk°…k¥k ,©¤kL¹h…Ah ’ЩÿЩL²©LÀh…Ah ’ð©ÿЩL²h…Ah…B >"±A…aȱA…b©…]ȱA…W…i„E)…X i…Y¤E '†§…¨æ]¥X Ña°¤Yȱa…ªˆ±a…©Lm¤YÈ¥¨ÑaÐ¥§ˆÑa¢LOÆX¤E¥XÉ°L£„E¤Yˆ±a…ªˆ±a…©„Y ü¤E¥]É ©…]ȱA…W 'æ]†c…dŪл䩰·¥ce§…§¥de¨…¨ÆXLQ¥§…[¥¨…\„E ±a…^Éð§&¨ÉðÉð§&¨¥§e[…§¥¨e\…¨¥§ qa…§¥¨Èqa…¨¥i)𠥧…;¥¨…>#$­L L­S Ò­T ÓL²„E¥AeEª¥BiHŠH¥n`©7…` h…Ah…B ±A…©È±A…ª 2 L…B ±AªÈ±A¨Š Ö ±AªÈ±A¨Š û ¥a`  ±AªÈ±A¨  &¥Aiª¥BiHŠH`…B ±AªÈ±A¨Š Ö ±A…$ȱA…% ±$Ȫð4±$Ef02äaÐ!±$ €ÅbÐȱ$ÅcÐȱ$ÅdÐ È©Åp±$åeð¥f IÿLÙ¥að ¥f*©ÿ°©` ±A…WȱA…X >%Š‘W…n¥Aiª¥BiHŠH¥n`­ …`7 Q ݽL c Lº½ÉÐ,¥«Ð½…«½…C½…D©`¥CÝÐ¥DÝÐ`ŠiªÐÍ` ‚¥§¤¨ Ö  ›¼  ¥e‘©…n` ð¢ LOè蚥«É9ÉaÐì¥C¤D Ö º½…\Ši  g¸ºŠi   [¼¦C¤D &(08LJ½…\ ±Ce\‘C ÏÝ LJ°$\0`$\0ûhh©ÿ…\LJ „WÉÐ>&…W½…\±C}‘CȱCe\‘C¥WÐ Ï ±CÈÝ Ð0±Cý LJp¿ 8±Cý Ð ˆ±CÝ ð° pLH0pø8LH±Cý ©ÿð$\(°(° (º½H½H`ºŠiªš¥BH¥AH`…B ¥E ºÿ ¥B ” š ¥n¢  ½ÿLÀÿȱAðȱA…WȱA…X„E ±W•È±W•¤E`ȱA•È±A•` ­H­ ® ¬( ç Ž ŒhLlN>'…B ±A…WȱA…X ±W…§È±W…¨`¥¨8©å§…§©å¨…¨©-,©  L®…B ±A…©È±A…ª`…W ¥WHªÐL}8­O é¬P °ˆ…W„XŠIÿ8eW°ˆÌN ÐÍM ° h …WL1O …ŒP „ ¥©‘WÈ¥ª‘Wh…¶` ¥¶‘©È­O ‘©È­P ‘©`…B ±Að …¨ ±A…§ Ð6 ±A…§È±A…¨ ±A…m)ð  ±§ªÈ±§…¨†§ ¥m)ð ¥;¦<…©†ª Lç±A…©È±A…ª?„« ±§…eȱ§…aȱ§…b`  ܤ«ˆˆL…« îÏ¥«)ð-  ù«¥ð¥)ð ©Ï©LQ¥«)ð­ðØ©Ï­Ï ¥ÐÊ E«L h…Ah ­Ð­ÏÉÐÎÏLª¥«)Ð÷®Ï © )ÏŠð"É,ð4É:ð¥ð Lf« ­¢ ã¥BH¥AHL©ûÏ¥«)ð “ ¤EL¥Ð륫)ðå¢ü ¬ ãLª…B ±Að…¨ ±A…§ ±A…?iȱA…jÈLA ±A…§È±A…¨È±A…iȱA…j ±A…m)ð  ±§ªÈ±§†§…¨¥m)ð  ±iªÈ±i†i…j ¥m)ð ¥;¦<…©†ª LJ±A…©È±A…ª„«LùL7¤¦§¤¨© ¦i¤j©ÿL¤«Lª…  áL…B ±A…WȱA…X ±W…§È±W…¨ ±A…©È±A…ª`8¥ªå¨Ð¥©Å§° p¢ÿÐ0pø¢Láea…W¥bi…X˜ð ˆ±W‘ˆùÀÿÐõ Ü Ld¦§¤¨©L?8¥¨åªÐ¥§Å©° p¢ÿÐ0pø¢LᤪðY¦©ÌZ RÐìY KÌ\ ÐDì[ °? ±©ð9…[ ±©ªÈ±©ÍN *ÐìM #ìQ íR ° ¥[q©…Yȱ©i…Z ¥[‘Y©È‘Y`…B ±A…WȱA…X ±W…§È±W…¨ ±A…WȱA…X ±W…©È±W…ª` Ð¥eÅf¥f…W ÿÈÄWð±aÑcðõ`¥eÅf`H Rh ‘©…nLd…« ¥™ð ÏÿLÒ äÿ© h…Ah? ¢ ©ÿ )¥«ð “ ¤EL Œ+Œ, Ð­+e©+­,eª,N,n+f¨f§ˆ0ñ°Þ` Ly  ¥e‘©ˆ¥d‘©ˆ¥c‘©¥f %bˆ‘©ˆ¥a‘©`©…W¥§É¥¨é€°Lx8©å§…§©å¨…¨¥WIÿ…W¥©É¥ªé€°L˜8©å©…©©åª…ª¥WIÿ…W ·¥WÐL¯8©å§…§©å¨…¨Lç­Ò…W­Ó…X ±WÔȱWÐȱWÑ`…"„# ±"…?eˆ±"…dˆ±"…cˆ±"…f €…bˆ±"…a„p`…"„# ±"…mˆ±"…lˆ±"…kˆ±"…nEf…o¥n €…jˆ±"…i¥a` ¼†"„#  ¥e‘"ˆ¥d‘"ˆ¥c‘"ˆ¥f %b‘"ˆ¥a‘"„p`…B ±AªÈ±A¨Š ÖL ¢½ð ÒÿèLh¥šÉЩ ÒÿL…B ±A…§È±A…¨È±A…©È±A…ª`¤eÀQ Q„nˆ±a™ˆø`©©…W¢08¥§ùHˆ¥¨ù …¨h…§èÈÐèhŠŒ†X¦W?É0ð æWLø¬ð¦WæW¦X¬ˆº¥§ 0¦Wè©`êêê dè'…^­Q …Y…[­R …Z…\­O Å[­P å\LÏ8¥[é…[°Æ\ ±[…Wȱ[…XÐLÁ8¥Yé…Y°ÆZ ±[‘Yˆ±[‘Y ±W…]¦\8¥[å]…[°Æ\ÈÑWð¥[e]…9†:¢LOÈ¥\ÑWÐë8¥Yå]…Y°ÆZ¤]ð܈±[‘YˆùÀÿÐõ ¥Y‘WÈ¥Z‘WL+8¥[åW…[°Æ\L+¥YO ¥ZP 8­?O å^ª­P 騊骘éÍN Ð ìM °¢LO ù¥^`…B ±Aª)…GŠ)ð¦;¥¢½6H:Ê÷­¶\­¶\ g ¶\ q ¶\!6¶\ ~ ¶\&6¶\­ »\­»\ g »\ ‹ ¶\»\¶\ q ¶\+6M: ˜ M:06NÐL™¥ºM:­M: g M: © M:56¶\ ¼ M::6»\­¶\ »\ÐLÁ¢½?6M:Ê÷ Ï " º½»¢¢vëçáòðçà? “òççòðûö÷“õúÿöà“õáüþ ü Ï ÷üäýÿüò÷ö÷“öþòúÿà ü Ï $¢¢zõ“êüæ“äòýç“çü“ðûòýôö“çûö“÷öõòæÿçž ü Ï $åòÿæöà“õüá“çûö“áöò÷ž“üá“äáúçöž÷öåúðö ü Ï 'çûöý“ÿüò÷“çûúà“ãáüôáòþŸ“ÿúàç“ú矓ðûòýôö ü Ï úý“çûö“qòàúðžÿúýö ü Ï %‚Š‹‹“àêàƒ‹†“‰áöþ“ñòàúðžñüààƒ‹ƒŠ ü Ï %çûö? “õúáàç“ýæþñöá“ñöûúý÷“çûö“õüæá“÷üçà ü Ï !çü“çûö“áöò÷ž÷öåúðöžýæþñöá“òý÷“çûö ü Ï "àöðüý÷“ýæþñöá“çü“çûö“äáúçöž÷öåúðöž ü Ï 'ýæþñöá“còê“òççöýçúüý“çü“ýüç“ðûòýôö“çûö ü Ï ÿöýôçû“üõ“çûúà“ÿúýö“gûöý“ãáöàà ü Ï #aöçæáý“òý÷“àòåö“çûö“õúÿö“çü“÷úàø ü Ï ¢¢aöò÷? úýô“õáüþ  H: Ï äáúçúýô“çü  M: Ï ü Ï "¢cáöàà“õ‚“çü“ðûòýôö“÷öåúðöžýæþñöáà ü ©>¨Z©©Z©?°Z©±Z¢½D6|\Ê÷  u|\I6 q |\N6¶\ ¸ ¶\¶\ ¸ |\»\­¶\ ª­»\RZ­¼\SZ É ¢½S6|\Ê÷  u|\X6 ‹ |\]6¶\ ¸ ¶\¶\ ¸ |\»\­¶\ ª­»\RZ­¼\SZ É ¢½b6|\Ê÷  u|\g6 ‹ |\? l6¶\ ¸ ¶\¶\ ¸ |\»\­¶\ ª­»\RZ­¼\SZ É ©€ÌZ©ÍZ©\©‚\© Ö á H:»\ ®»\© í © Ö á M:»\ ®»\© q6 á H:»\ ®»\© †6 á H:N   ´ÿ©`   –ÿ  ¥ÿ  ¥ÿ Ï ¢¢vþòúÿ“õúÿöýòþö“Œ ü Ï ¢ ü ©…Æ©w  ¥ÿ  ¥ÿ  ¥ÿ­ ƒ\©„\  ¥ÿ¥¶\©Í¶\LÓ!?© Ö Lc" Ï .­ »\©¼\­»\¼\©»\­»\mƒ\¶\­¼\m„\·\ & ¶\  ¥ÿ­ »\­»\ 3 ¶\ O ¶\¥¶\©Í¶\L6"© Ö Lc"­ ¶\©Í¶\åƶ\©Í¶\L]" ü © Ö Lc" ü L™!­w¶\­¶\É…ðL0# Ï ¢¢aöò÷ž÷öåúðöžýæþñöá“  H: Ï " ü Ï ®®®®®®®®®®®®®®®®®® r H: © H:6¶\ ¼ H:’6»\­¶?\ »\Ф Ï ¢¢dáúçöž÷öåúðöžýæþñöá“  M: Ï " ü Ï ®®®®®®®®®®®®®®®®®®® r M: © M:—6¶\ ¼ M:œ6»\­¶\ »\ТL! Ï ¢¢vþòúÿ“õúÿöýòþö ü Ï ““““ r …\ á H:»\ w …\¡6À\ ®»\© Å À\© Ñ ˆ\ Ù \ ¼ ˆ\¨6NÐL¨# Ï ¢¢  ˆ\ O \ ü © Ö L5!©… á H:N   ´ÿ©b   –ÿ? ü ü ü ©\©‘\  ¥ÿ­ ’\©“\­’\”\­“\•\ Þ ”\`NÐL$8­”\é ”\­•\é•\¥¶\©Í¶\°L\5­”\ 3 ¶\ O ¶\ Þ \ÿÿNðLQ$­’\É Ð­“\Éð‚LÚ# Þ \NðLÝ$­’\É Ð­“\ÉðL²$ Ï .¢¢¢”püýçöýçžgêãö”“ýüç“õüæý÷“Ž“}ü“þæÿçúãòá碢¢ ü © Ö è ©Lê­’\ÉCЭ“\ÉðLÐ$©?\©‘\LÚ#©ÿ\©ÿ‘\LÚ# Þ \NðL6% ®\ ó ­6¶\ , ¶\¶\©·\­”\Ͷ\Э•\Í·\нî\Ðî‘\ E \ NðLÚ#©\©‘\LÚ# Þ \NðL& Þ \NðLŽ%­’\É Ð­“\ÉðLp%©\©‘\LÚ#­’\ÉbЭ“\ÉðL‹%©\©‘\LÚ#­\ÉЭ‘\ÉÐL½%­’\É Ð­“\ÉðLp$©\©‘\LÚ#­’\É Ð?­“\ÉЩð©ÿ¶\­’\ÉЭ“\ÉЩð©ÿ»\­¶\-»\ðLp$©\©‘\LÚ#­\É(Э‘\ÉÐL¦& Þ ’\`NÐL3&8­’\é ’\­“\é“\8­\é¶\­‘\é·\ ®¶\ ó »6¶\ , ¶\¶\©·\­’\Ͷ\Э“\Í·\ÐL|&©\©‘\LÐ$î\Ðî‘\ E \NðLÚ# O Æ6–\©(\©‘\LÚ#­’\É"Э“\ÉÐLÚ#­’\É Ð­“\?ÉÐLÜ&­’\ 3 ¶\ w –\¶\–\LÚ# Ï ¢¢qüæý÷òáê“õüæý÷“úý“{öò÷öቢ¢ ü g –\»\8­»\é»\®»\ | –\¶\ O ¶\ ü ©\©‘\  ¥ÿ­ ’\©“\­’\”\­“\•\ Þ ”\`NÐLh'8­”\é ”\­•\é•\¥¶\©Í¶\°L\5 Þ \ÿÿNðL¡'­’\É Ð­“\ÉðLž' Ï L"'L,' Þ \NðLâ'­’\É-Э“\ÉðLÕ?'©\©‘\ ü Ï žL,'©ÿ\©ÿ‘\L,'­’\”\­“\•\ Þ ”\`NÐL (8­”\é ”\­•\é•\­”\ 3 ¶\ O ¶\ Þ \ÿNðL“(­\i¶\­‘\i·\ ®¶\ ó –\¶\ , ¶\¶\©·\­’\Ͷ\Э“\Í·\ðLÕ'î\Ðî‘\ g –\¶\©·\ œ \¶\NðL,'©\©‘\L,' Þ \NðLÝ(­’\É-Э“\ÉðL¿(©,\©‘\L?,'­’\É Ð­“\ÉðLÕ'©\©‘\L,' E \,NðL)­’\É-Э“\ÉðL) ü Ï ¢¢uüæý÷“öý÷ ü © Ö Lœ5­’\É Ð­“\ÉðLÕ' Ï &¢¢¢¢qüæý÷òáê“õüæý÷“ž“ýöä“ãòáç“õüæý÷¢¢¢ ü O Ë6™\ O Î6…\©\©‘\  ¥ÿ­ ’\©“\­’\”\­“\•\ Þ ”\`NÐL«)8­”\é ”\­•\é•\¥¶\©Í¶\°L\5­?”\ 3 ¶\ O ¶\ Þ \ÿÿNðLæ)­’\É Ð­“\Éð‚Lo) Þ \NðL0*­’\É Ð­“\ÉÐLµ,­’\ÉCЭ“\ÉðL#*©\©‘\Lo)©ÿ\©ÿ‘\Lo) Þ \NðL‰* ®\ ó Ñ6¶\ , ¶\¶\©·\­”\Ͷ\Э•\Í·\нî\Ðî‘\ E \ NðLo)©\©‘\Lo) Þ \NðLÖ*­”\ÉYЭ•\ÉðLµ*©(\©‘\Lo)­”\É?RЭ•\ÉðLÓ*©P\©‘\Lo)L#* Þ \ONðLC+8­\é'¶\­‘\é·\ ®¶\ ó Ü6¶\ , ¶\¶\©·\­”\Ͷ\Э•\Í·\ðL#*î\Ðî‘\ E \*NðLo)©d\©‘\Lo) Þ \cNðL°+8­\éO¶\­‘\é·\ ®¶\ ó á6¶\ , ¶\¶\©·\­”\Ͷ\Э•\Í·\ðL#*î\Ðî‘\ E \`NðLo)©È\©‘\Lo) Þ \w?NðL;,­’\É Ð­“\ÉÐL#*8­\éc¶\­‘\é·\ ®¶\ ó ô6¶\ , ¶\¶\©·\­”\Ͷ\Э•\Í·\ÐL,©d\©‘\Lo)î\Ðî‘\ E \iNðLo)©x\©‘\Lo) Þ \ÇNðL,­’\É Ð­“\ÉÐL#*­’\É"Э“\ÉÐLo)­”\ 3 ¶\ w ™\¶\™\Lo)­’\É Ð­“\ÉÐL#*­’\É"Э“\ÉÐLo)­”\ 3 ¶\ w …\¶\…\Lo)?¢ ¦ …\¶\ à ¶\ü6NÐLã, g …\¶\ζ\®¶\ | …\…\Lµ, Ï ¢¢}òþö‰“ O ™\ ü Ï ¢výðü÷úýô‰“ O …\ ü  ¥ÿ¥¶\©Í¶\°L\5­ ¶\­¶\É ÐÞ  «ÿ Ï ¢¢`òåö“çûúà“ãòá猓›êœýš ü Õ œ\ à œ\7NÐL†- á H:N   ´ÿ©b   –ÿL"' Ú œ\7NÐà O 7Ÿ\¢ | ™\¶\ à ¶\ 7NÐLÉ- g ™?\¶\8­¶\é¶\®¶\ ¦ ™\™\¢ | ™\¶\ à ¶\7NÐL. O 7Ÿ\ g ™\¶\8­¶\é¶\®¶\ ¦ ™\™\ g ™\¶\©Ͷ\L.¢ ¦ ™\™\ Ï ¢¢¢“““““““ O ™\ Ï " ü O 7œ\ Ï }òþö“ r œ\ à œ\!7NÐÄ¢ ¦ œ\œ\ Ï ¢“““““““““““ O Ÿ\ Ï " ü Ï uúÿöçêãö“ r ¢\ Ú ¢\$7¶\ Ú ¢\(7»\­¶\-»\¶\ Ú ¢\,?7»\­¶\-»\ÐÁ ‹ ¥\07¥\ ¸ ¥\¶\ ì 1¶\ Yœ\ ˜ ¥\57NÐL / Ï ¢¢¢güü“þòýê“òççòðûöþöýçà ü Lœ5 l¥\œ\ g œ\¶\ζ\®¶\ | œ\œ\ © ¥\:7NÐL=/ w ?7œ\œ\ w C7œ\™\ Ï ¢¢¢ O ™\ ü vH:M:NÐLy/© ‡ Ï à‰ O ™\ ü “ á M:»\ w ™\T7Å\ w Å\¢\Å\ w Å\X7À\ ®»\© Å À\ á H:N?   ´ÿ©b   –ÿ à …\]7NðLƒ2©\©‘\©ª\©«\  ¥ÿ¥¶\©Í¶\°L\5 Þ \NðLp0­ ¶\­¶\É-ðL,0©\©‘\ ü Ï žLä/­ª\ ª­«\*¨ŠiR…;˜i:…<­ …N©…O ¥N‘;È¥O‘;îª\Ðî«\ œ ª\\NðLä/ Ä8LÚ/­ ”\©•\ Þ ”\`NÐLš08­”\é ”\­•\é•\­”\ 3 ¶\ O ¶\ Þ \ÿ?NðL1­ ¶\­\i»\­‘\i¼\ ®»\ ó –\»\ , »\»\­¶\Í»\ðLX1î\Ðî‘\ g –\¶\©·\­\Ͷ\Э‘\Í·\ðL1©\©‘\Lä/­ ¶\­¶\É ðL;1©\©‘\L$2­ ¶\­¶\É-ðLX1©,\©‘\L$2¢½f7|\Ê÷­ª\ ª­«\*¨ŠiR…;˜i:…< á |\¶\ ®¶\ ó –\¶\ , ¶\N©…O ¥N‘;È¥O‘;îª\Ðî«\ ‹ ?|\k7|\ œ ª\\NðLä1­ ¬\­¬\ g ¬\ Ä8 á ¬\N ©ª\©«\  \¶\ ¹|\¶\¶\ g –\»\­»\ g »\ ¹|\»\»\­¶\-»\ðLc1©\©‘\Lù/ Ä8  «ÿ© Ö © Ñ ˆ\ Ù \  ˆ\ O \ ü ¼ ˆ\p7NÐLa2 r œ\©… á H:N   ´ÿ©b   –ÿL,'©\©‘\©ª\©«\  ¥ÿ­ ’\©“\¥?¶\©Í¶\°L\5­’\É Ð­“\ÉðLÐ2 Ï L—2­’\É Ð­“\Éð¹­’\É Ð­“\Éð«­’\É-Э“\ÉðL 3©\©‘\L05­’\ ª½RZ…N½SZ…O­\ ª¥Nt\¥Ou\­\i¶\­‘\i·\­¶\)\­·\)‘\ Þ \NðL—2­ª\ ª­«\*¨ŠiR…;˜i:…<­t\¶\­u\·\¶\.·\¶\.·\ Ìv\»\­»\»\­¼\¼\­¶\m»\…N­·\m¼\? …O ¥N‘;È¥O‘;îª\Ðî«\­ª\Í\Э«\Í‚\ðLÒ3 Ä8 Þ x\cNÐLí3©ÿ\©ÿ‘\L05­ª\ ª­«\*¨ŠiR…;˜i:…<­v\¶\­w\·\¶\.·\¶\.·\¶\.·\¶\.·\­¶\)ÿ¶\­·\)·\ Ìx\»\­»\»\­¼\¼\­¶\m»\…N­·\m¼\…O ¥N‘;È¥O‘;îª\Ðî«\­ª\Í\Э«\Í‚\ðL„4 Ä8 Þ z\cNÐLŸ4©ÿ\©ÿ‘\L05­ª\ ª­?!«\*¨ŠiR…;˜i:…<­x\¶\­y\·\¶\.·\¶\.·\¶\.·\¶\.·\¶\.·\¶\.·\­¶\)ÿ¶\­·\)·\­¶\mz\…N­·\m{\…O ¥N‘;È¥O‘;îª\Ðî«\­ª\Í\Э«\Í‚\ðL-5 Ä8L—2 Ä8  «ÿ© Ö á H:N   ´ÿ©b   –ÿL,' Ï ¢¢¢¢“““““aöò÷“öááüᢢ¢¢ ü Lœ5 Ï ¢¢¢¢“““““dáúçö“öááüᢢ¢¢ ü © Ö ©?" Ö ˜ ¥\u7NðL²8¢½z7|\Ê÷  u|\¥\ l|\œ\ g œ\¶\ζ\®¶\ | œ\œ\ © ¥\7NÐLˆ7 w „7œ\œ\Lˆ7†@„ †@„…p„†@„ †@„…p„†P†tƒ…H‡…P†L‡t6S:EMAIL64TMPFILE**‰6$*=S„…p„…p?#¤6,S,R °6ONTENT-TYPE¾6OUNDARY=É6--Î6Ñ6Ô6ONTENT-Tß6PEä6ANSFER-ENCODING:÷6NAME=ÿ6 7N7Y 7P7.PRG7.SEQ7S!7$7'7P+7S/7U‡H„ B70F7EMAIL64TMPFILEW7,[7,W`7BASE64„ ‡70 w :œ\™\ Ï ¢¢¢aöýòþö‰?$ ¸ |\»\ ì !»\»\ O »\ Ï Ž O ™\ Ï ¢¢ ü © ‡ Ï በ¸ |\»\ ì !»\»\ w »\(:»\ w »\™\¶\ O ¶\ ü “© Ñ ˆ\ Ù \  ˆ\ O \ ü ˜ ˆ\,:NðL¯8 vˆ\1:NÐLZ8 Ï “““’’’““vááüá“’’’ r œ\L¯8 Ï ¢¢¢uúÿöýòþö‰““ ¸ |\»\ ì !»\»\ O »\ Ï " ü Ï uúÿöýòþö‰ ¸ |?%\¶\ ì 1¶\ r LÉ5 É © Ö © Ö è ©Lê ü Ï ¢¢¢`òåúýô Ì\¶\ & ¶\ Ï øq“ž“ãÿöòàö“äòú碢¢ ü ­ª\ÉЭ«\ÉÐLÄ9  «ÿ á M:N   ±ÿ©c   “ÿ¢½6:±\Ê÷  ª\»\ q »\;:¶\  u±\¶\ ¸ ±\¶\­¶\ ª­·\*¨ŠiR…W˜i:…X ±W¶\ȱW·\­¶\   ¨ÿ É  ®ÿ¥¶\©Í¶\°®L}5 á H:N   ´ÿ©b   –ÿ©ª\©«\`­’\É Ð­“\ÉðL@: Ï *¢¢¢”ñüæý÷òáꔓýüç“õüæý÷“Ž“}ü“þæÿçúãòá碢¢ ü © Ö è ©LêL@::EMAIL64TMPFILE+:=†| è ©Lêá“’’’ r œ\L¯8 Ï ¢¢¢uúÿöýòþö‰““ ¸ |\»\ ì !»\»\ O »\ Ï " ü Ï uúÿöýòþö‰ ¸ |?'Æž2065 [3]© Ð!Щ†©“ Òÿ¢'½ËÊ÷x¢]½mÊ÷©……¬…­©Y…®©X…¯¢µ¬ÐÖ­Ö¬ÊÊô ±®‘¬¥®ÉôÐ楯ÉÐàL©…®©…¯¢ ±¬Èɞб¬Èª±¬È„Æ ÐÔæ ‘®ÈÊÐú˜e®…®©e¯…¯¥e¬…¬©e­…­Ð¿¥®…-¥¯….©7…©X q¨L®§   -       žž20@61žžê© Ð¥º ±ÿ©ÿ “ÿ¢½  ¨ÿèàÐõ ­ ¨ÿÈî/î£À Ðï ®ÿ­/Ð΢ ` `¢·½ 3ÊÐ÷êL®êꥺ ±ÿ©ÿ “ÿ½€èÉÿÐL®ÿ ¨ÿLjžM-W ©+…w©K…xLKëÿM-EÿžM-W ž¢†© ±ÿ¥0©ÿ “ÿ¥0 ®ÿ© ML³ž1x©z© ¢€ÊÐýŽ „o °0 …p °‘oÈÐøL)…p °…olo a©@ „­)÷¢w½JëÿÊÐ÷©`w Lçë©,ðû¢Ž,Ðû¢Ž©,ðû,Ðû`Œ®¢  ° ŒÌðû  ° ŒÌðûÊÐߎ `¢­)ðù­J&!­)Ðù­J&!ÊÐã¥!` Õ©ÿÐ Ü©þm)…K­)üK  ¢ÊÐýˆÐú`ªž`DISËFILÅDRIVÅINSERÔERROÒATTENTION¡MENÕLOAD SAVE DIRECTOR@ÙKWIK-DOS¡SCRATCH RENAME  €CREATE EDIT OPTIONÓPRINT FORMAÔF1-MAIN †NUMBEÒPAGÅ †UÐDOWÎPARALLEÌRS-23²´µMERGE SERIAL £ž2ýýžxy{žžžþžÀžžžÀžþžžxðøü>>žyžxüøððø|>žž@žþžÀžžÀžžxžþžðxxžððžþžAžÿžçÿÿçÿž™žÿ™™™™™ÿçÁŸÃùƒçÿ™óçÏ™¹ÿÙÃǘ™ÀÿùóçžÿóçžÏçóÿÏçžóçÏÿÿ™ÃÙžÿççççžÿççÏžÿž ÿççÿÿüùóçÏŸÿÙ‘‰™™ÃÿççÇžçÿÙùóÏŸÿÙùãù™ÃÿùñᙀùùÿŸƒùù™ÃÿÙŸƒ™™Ãÿ™óžçÿٙÙ™ÃÿÙ™Áù™ÃžÿçÿÿçžÿçÿÿççÏñç@ÏŸÏçñžÿÿžÿçóùóçÿÙùóçÿçÿÙ‘‘Ÿ™ÃÿçÙž™ÿƒ™™ƒ™™ƒÿÙžŸ™Ãÿ‡“ž™“‡ÿŸŸ‡ŸŸÿŸŸ‡žŸÿÙŸ‘™™Ãÿž™ž™ÿÞçÃÿážó“Çÿ™“‡‡“™ÿžŸÿœˆ€”žœÿ™‰‘™™ÿÞ™Ãÿƒ™™ƒžŸÿÞ™Ãñÿƒ™™ƒ‡“™ÿÙŸÃù™Ãÿžçÿž™Ãÿž™Ãçÿžœ”€ˆœÿ™™ÃçÙ™ÿž™ÃžçÿùóçÏŸÿÞÏÃÿóíσÏÿÞóÃÿÿçÞ@çÿïÏ€€ÏïÿÙ‘‘Ÿ™ÃžÿÃùÁ™ÁÿÿŸŸƒ™™ƒžÿÞŸÃÿÿùùÁ™™ÁžÿÙŸÃÿÿñçÁžçžÿÁ™™ÁùƒÿŸŸƒž™ÿÿçÿÇççÃÿÿùÿžùÃÿŸŸ“‡“™ÿÿÇžçÞÿ™€€”œžÿƒž™žÿޙÞÿƒ™™ƒŸŸÿÿÁ™™Áùùÿÿƒ™žŸžÿÁŸÃùƒÿÿçžçñžÿž™Ážÿž™Ãçžÿœ”€ÁÉžÿ™ÃçÙžÿž™Áó‡ÿÿóçÏÿÞÏÃÿóíσÏÿÞóÃÿÿçÞçÿïÏ€€@Ïïÿ?ìABCDEFGHIJKLMNOPQRSTUVWXYZžFìABCDEFGHIJKLMNOPQRSTUVWXYZž%ìL³L»LÙLL{L©L{LuLL LL°L LWLSLeLúLFL~@L»LcDL‚!L"L"Lp"LqCLl5L-L?-LÖ-L\,L +L¼L!$Lâ$L=%L%L&L7'LÒ*L§.LÌ.L“.LàLàLà(Px Èð@h¸à0X€¨Ðø Hp˜ÀžžžžžNÿžR0:ž%žžžžžB© L NG¢ÿš G©6…©/…©ö© ª< ¢   Ùà PUBLIC DOMAINž ÿ¢ Ûž( ÿ¢ Ûž ¢ Í¢  ÙL-Ç C@ -ÎÿS-È E-ÏÿD-É O-ÐÿK-Ê P-Ñ¢ sLkŽŽ ¢ ¾çSELECTè ð,¢½Áð%èÅeÐöŠ ªhh½ÙH½ØH¬Îð¢ Ùžá`©ÎðÎLSDKCEOPƒSRFVABCDEFG* £#€&+#ü5.6òv¤".)n)Ü)b#p — § ° À Ý ð !º¥bÅbðü` cDÉ…ÐL» `­ÝMÝêꢎ ÐŽ!Р ¤EÆE©…E¹H¹ˆ¢  Wèèh@ Wèè©…B Ù€„…ˆ‰€í„…Œˆ‰‘”•éÿ‚ƒ†‡Š‹‚ƒî†‡ŽŠ‹’“–—êÿ`  ¢   ÙF3-CHANGE  NUMBERL·¢   ¢ ÙÓ`ɆÐ¥HI…H`½D…C½5ö½&H½H½H¼½ùªh Sh¨hª ÙÀ` ž ž ž  žžžÆÅÇÈÉÉÊËÌÍÎÖÑÑÝ ž„A†$…&…'©…@ @©…B¢ ±¢ ±Æ@Æ&Ð𢠱¢ ±æA¢ ±¢ ±æAÆ$Ð𢠱¢ ±æ@¢ ±¢ ±Æ'Ðð¤AŒÎL~©'8å@…@Š ¢ÊÐýˆÐúL{HŠH˜Hlæb ½D­ÐÐh¨hªh@©ÿ`xHæ©H©ðHlÆh@GþH­ÜH©Ü­ÜÍÜÐø) Ð¥#Щ…#hÜh@ÈŒ3½Š…0½£…1 '©‘0ˆûèàÐè©ЩÈЩÐ` Ž­¹Šk¯¸¹@ £lžž°¹½ÿÿÉÿÐÆD0`­ÿIÿÿ©…D`¶ Œ£ .£ .£ .£¢©ÿÿÿ ¹ÿÿ™øˆ÷0Ê¢½ÿÿÉÿЩÿÿ`ŒÎÆD ~­ƒI`ƒ  „A†@Ž Lå„A†@Ž ©ƒh…,h…-æ,Ðæ- ±,ð Lë¥-H¥,H¦@¤A`ÉÿÐ © …@¥AÉ°æA`ÉÐ¥C…B`$0!Éà°ÉÀ) UÉ °¨¥$H˜ U¨h…$˜,iɠЩ {æ@`…$¢@ ÿ Ä$ð è½4öÈÐó†$æ$¦$½40 5Ðò)` ˜É É°© 8é ‘0¥1IÜ…1¥B‘0`¦A¼Š„0¼£„1¤@`… G¥_žJ 0.¥_) 0/©6…©Ð  °¢ Í  „A© …B¢¥ð …&è½ ÐúÆ&Ðö½ …@½ ð Žÿ ¢èÐð úÐûL»READ ÄWRITE ÄFORMAT ÄDOS Ä ## DEVICE NOT READY PRINTER Ä DATABAS@E Ä INCLUDE Ä¢ ÙÁ? ©Ð¢0 :Т  [ŽÈŒÌ…'©…& žž¦@¤A F ðôÉ Ð© L{ÉÐ¥&ðã žžÆ&Æ@L‹¤&Ä'°ÓÉ=ðÏÉ:ðËÉ,ðÇÉ ÃÉ[°¿™¼ æ&²¥H 8ó­ƒH¢ Ùà À IN  8hƒ` ¢ ¾çPRESS RETURNè É Ð"¬Î¢ Ùžᩃ ~©` ¢ ¾çYES/NOè ÉYðÉ ðÉNÐ@ß ¥eÉY`„A¢†@© ¥@É õ` S8ÐL»­ô­õ  °¢ Í¢  ÙSTARTING Õ Ô? © u „GÈ„F¥&ð ¼¢  ©† ©† „ ¢  ÙENDING Õ Ô? © u©'…G©…F¥&ð ¼¢  ©† ©†„ä ˜å °L»©…¢   ÙPREVIEW DOCUMENT? <Т  ÙYÆL„¢   ÙÔ OF COPIES? © u @„GÈ„F¥&ð ¼¢  ©‚ ©ÐL»†  °¢ Í¢   ÙTO START PRINTINGž. úÐûÆLH Ùh¦F¤G pC¤G¦F` „F„GÄ&`¦G¥FF&GF&GeF…FŠeG…GF&G¹¼È)eF…FÔæGL  °¢ Í¢  Ù D ‹ © Ì ð  C àÿ*-UPDATE CONFIGURATION FILE¢ sL< àA-EDITOR COLUMNS@..¦ ©„ pC m©ÿL¥@É%`© Lm¢ Ù m©…@` àB-Á TYPEž.¬  ­,Le àC-CURSOR MODEž.¥iØ Le àD-PRINTER PORTž.­iÙ Le àE-SECONDARY ADDR..® ©„ pCLe àF-PRINTER DRIVER.. àVIC-1525ž ÿ` àG-CHARACTER SETž. àSTAN@DARDž ÿ`  |© u¥&ð ¼¥GÐ¥FÉ( É…°… ÝLT:ÉÐ © …e¦Ðåð ±É ð¦ÐÎV7¥e y7ª¼Àìð ðH å9h b9ÐA ”7 å7¦<ðÊ É> ¿=hhLN6ÉAÉÛ°É[ÉÁ …$¥)€E$`¢ŽU6Ê  ÙOUT OF MEMORY!ž `©5… ‡æ`¢,¢,¢þ ‹5LÇ5©,©€…`¥…2¥…3©€,©…4`©ÐÎë7` Â=¢  Ùž ¢†@© u¥&ðä ¼¥GÐÝ å7¥F b9ÐÓL”7 ?8 ±ÉAÉÛ° É[ÉÁI€‘L:8¥EÐ ¥E Ц?š`8¥EÐ ¥EЦ?š` AR8¥…5¥…6¥…7¥…8 n=¦5†¤6„¥7…¥8…` ?8¥…7¥…8¥…5¥…6 Œ=¥7…¥8…¥5…¥6…` R8©8å<ð…&¥ÅÐ¥Åð Â<Æ&Ðí¥8å…9¥å…:Le8¥>¤<ð©Ã<¹‡…¹… Ç>¥<Å>`­œ8å…9­²å…:LŒ8 ±É ð É ð :L9 : ±É ðõÉ ðñ`¥Iÿ…LD¥=Ð`…9©…:Le8¤<¹qå=Ð`…9©…:LŒ8ª¥A8å…$¥åé$𠊢æÐæ` å7 À`ȱ b9ðL…9L”7î†9¬†9‘`©†9¤<¹q8å=ð …& ê9Æ&ÐùLå7©†9 R8¥ÅÐ ¥ÅÐ Â<¥ÐÆÆ ± ˜9Lå7©†9 ?8 ± ˜9æÐæLå7 R8¥ÅÐ ¥ÅÐ Â< „:È„9Le8 „:È„9LŒ8¥<Ð¥ÅÐ¥ÅÐ` Â< Ç>©…:¤<¥=Ùp¹p¥=i…9Le8¥<Å>Ð`É B=A Ç>©…:¤<¥=Ùr¹qå=yr…9LŒ8¥8å…9¥å…:9Ð`Le8¥8å…9¥å…: e8†„©Ã<`¥8å…9¥ å…:LŒ8¥4Ð` å7¢ŽU6  ÙBUSYž.ž ©Ö;…,…-¥8å2…$¥å3…%°¥…,¥…-¥28å…$¥3å…% UCŠeª˜e¨Š8å!ª˜å"¨ŠÅ$˜å%°†$„%ÎÖ;¥…5¥…6¥8å…9¥å…:¥!e$…7…¥"e%…8…¥e9…¥e:…A¥78å5…0¥8å6…1¥:9ð  T=L‹; Œ=¥e0…¥e1…©Ã<¥2e0…2¥3e1…3¥-Ð¥2…,¥3…-¥,…5¥-…6¥!…7¥"…8¥$…9¥%…:9ð Œ=©Ð`¢ŽU6Ê  ÙBLOCK TOO LARGE!ž `¥4ð% À:¥Å2¥å3¦2¤3°Šeª˜e¨Š8å…˜å…`†„ŠÅ˜å°ó†„LÝ<¥4ð À:¥!…5¥"…6¥…7¥…8¥8å!…9¥å"…: UCŠÅ9˜å:°†9„:A Ú;¥99Ð`¥e9…¥e:…LT=­«<Ð`©«<º†?¥8é…9¥é…:9Ð`Le8©ð`Ϋ<º†?¥™<¥Ÿ©,©ÿŒ>¥28å…9¥3å…:©°¥4E>©G>©H>©…)¤)Ä>Щ ¹q0>¹‡<>¹=>¢ÿÄ<Ц=Ž4>¢ÿ¥:Ð¥9Í0>°8å*ª°¢Ž8>¤*¢Àÿ°4Àÿðàÿð!¹ÿÿB>­ ÿÿÿÈèà(à°,­E>E4E>L7>­E>E4E>L;>­GA>v>­H>w>©ÿÿèà(ø­G>i(G>îH>©Ð ¤<Ä)Ц; I¬8>ÈÀ)­E>E4E>¥98í0>…9°Æ:æ)¥)É°Lë=©ë `¢†)¤±‘ˆÀÿÐ÷„<„>Šð ½‡¼Lê>¥¤…,„- Í?¤)¥+™q¥,™‡e+…,¥-™i…-¥,8åðc…$¥-åÐ[„<¥+8å$…=¤*8å*ÉÉ ¥8é(¨¥=iÅ°8é(¨LR? ¥=8騄*¥=8å*…;¥,e…,¥-e…A -¥,8å…,¥-å…-¥,ð#¥-Å ¤)„>ÈÀ`©™q¹†™‡¹œ™çæ)¥)É°Lî>¥<0` B= ¹r™q¹ˆ™‡¹žž™ÈÀéÆ)Lî>¥ï?…+¥,á?¥-â? ¹ÿÿÈÉ ð É Ð„+Àî`„+`­ÒAÐLA©Ã<¥4Ð ¥…2¥…3L6@ å7¢ŽU6  ÙREPLACINGž.ž ¥8å2…9¥å3…:9ð ¥…2¥…3 e8¥2eª¥3e¨Š8å…2˜å…3A ¥….¥…/ §AÐA ¹ÒAð æÐæÈÐò ¹ùAÐ ¥Å2¥å3° Ð b9Ð ”7¦ä¥å°†¥…LÝ<ÈÐÑ¥Å2¥å3°à ±‘æÐææÐæД­ÒAð8 6A¥i….¥i…/¥.Å¥/å ° §Að æ.Ðæ/Lë@¥.8å…9¥/å…:LŒ8¢ŽU6Ê  ÙPHRASE NOT FOUND!ž `¢ŽU6  ÙSEARCHINGž.ž `­ÒAð¶ 6A¥8é….¥é…/¥.ÅA ¥/åœ §Að ¥.ÐÆ/Æ.LmA¥8å.…9¥å/…: e8ŠÅ˜å°†„ Ý<` ¹ÒAИe.…$©e/…%¥Å$¥ å%©`É*ðÑ.Ð÷ÈÐמN Â=¢   ¢ ÙENTER SEARCH PHRASE:ÿ¢Ò AL}B Â=¢   ¢ ÙENTER REPLACE PHRASE:ÿ¢ù AL}B†,„-©…& C¦@¤A F ðô y7É€ðÉ Ð¤&©ð¹¼‘,ˆø ½5LÇ5ɵð2ÉÐA ¥&ðÉ CÆ&Æ@L…B¤&À&°¹ÉЩ ™¼ª¼Àìð¨ Cæ&æ@Ðœ¢   „@ˆŒùB ±,™¼Ð„&LˆB Cæ@îùBÐè© ˜ª½L‹¥……¥……¥…¥ … ¹EC™Dˆ÷©…*«[@<»*]“=^?!_" 󑂧žŽŒ‰Š‹‘ã·¡º‘²‚¦´¸¹§¢¨µ¶©ª­«¯®°¬ž¼“žáⱑ‚§ž    žLG©` G© AG¢îï.î/î/î//îF/ÊÐî ˜™_IˆÐùŒÐŒ ÐŒ!ЩÝ ©`™GÈÐú ˜™€™™‚ÈÐ󠘙²ˆÐù —G ”˜™–GˆÐù +H ,˜™*HˆÐù ¢¹nI™àÈÐ÷î„Gî‡GÊÐîLWHx©Ü d™ ˆÐú ™¡DˆÐú©2…¹Ý™ Iÿ™¹Ô™ Iÿ™ ¹Ü™Iÿ™ ÈÐÜ©6…ŒÐŒ×-Œ.Œ  Šÿ©Î©©ß(©)­ô­õ©âúÿ©ûÿ©ÆAþÿ©ÿÿ Œ ÜÈŒÝÈŒÐX`©…!…©G…"…©…©Ï… C © ‘Œ†9ŒùAŒÒAˆ„LÒ7 I˜™MGˆÐù©(… „Œ ŒÈŒÈŒ ŒÈŒ ¹r!™¼ˆ÷© !$ ¥_ÉbÐCL I©ä…7©…8©@…9©…: â$°+ ¹ä™0 ¹ô™^ ™¼À°¹ ™ˆä© !$ ¥_Ébð3L©©…7…9©…8©…: â$°ê ¹Iÿ™ ¹ Iÿ™ ¹ Iÿ™ÈÐå ¶˜™VHAˆÐù ¹0 ™¼ˆ÷© !$ ¥_Ébð?L©©…7…9©€…8©@…: â$°ê¥7gI©¨¦7ÐÆ8Æ7$8Q7LLIª S™ IˆÐúàÐL€`LáLáLcðLíLƒíL‡íLÄíL¸íL‚íLíL€í LÇäLÏäL|æLûåLSçL*èLYâLgâLâLŸãLÒêL‹áLÝíL©íLŒéL™çLâLIêLîíLcêLñëìõìöì÷ìøëëëXëëbëcëëuëëìë4ìëëNìgìëÝì÷ì.íjíëyíëëëëëAëëëž[©ÿ,©ªà©©à­ªàÐ ? ‹á¥8é…†¥ é…‡©…è *è­Ààð5­©à0 ¥Ð­ÛàÐ'­ÚàÐ"¢   TO CONTINUE PRINTING 0ÐûîÄàÐîÅà­´à𥭩à0¥Й­ªàÐ HL©¢YªàÊÐú¢ •oÊÐû¢7•¿ÊÐû¥ðÆ© ÁàÂà©„Ãà©Äà©ÿÐàÓàÒࢽôáïàÊ÷©…p…r…„ ü„qÈ„sÈ„…¥…z¥…{­ªàð`L à EÿAž…©…€©…}…~¥}e…}¥~e€…~ÊÐð`H†Š„‹ <É…Ð ­ªàÐ HL¬ØàÐhHÉAÉÛ°É[ÉÁ Oâ¥)€Iÿ B¤‹¦Šh` g⬵àðδàLŸã ¹ÿà™Ãˆ÷Œ»àŒÐàÈŒÏà¥Ã ੨ à¥Ð8åÊ…Ê¥ÑåË…Ë©…Ì…Í¥ÇðÉðFËfÊ¥Ê…Ì¥Ë…Í àLøâ¥Æð@©…È…É¥ÊËð4­ºàð/­¶à µà ¼àÐ$¥Ê…¥Ë…€æÈÐæÉ¥8íºà…¥€é…€¥€ÐAä© °à­«à­à©«à¥À®!à üá¥}…Ì¥~…Í à ÿ¥Å à ûå ÒꬹàÐUÉ ð „ĤÇÐC¤Æð?É Ð;¬±àÀ ð4¥Ê8åÈ…Ê¥ËåÉ…Ë°¥ÌeÊ…Ì¥ÍeË…Í©…Ê…Ë¥ÌeÈ…Ì¥ÍeÉ…Í à© Œé ⬭àÌ«àИ© Í°àð Œé â­Öàð…Ã`© Í°àð­¼àÐ ûåÉ ðÉ ðõΫࠌ­à¬«àî«à̬ఠ±„¬­àî­à‘„L¾ã­­à¬à©«à`©ÿ¸à¥tð*­ÁàÉ#© Aà© 'ä©8í½à à¥uð ­ÁàÉ©€ 'ä­Áà8í½à ੸à`Hep…ˆ¥qi…‰hР¹ßà™Àˆ÷ Häæà`­¬àH©ÿ¬à Ïä gâ© àh¬à¥Ç`©ÿ·à¥vð(©…¥wðææ­Ãà8åí½à à© ¦ä¥wð©€ ¦ä­Ãà8í½à à©·à`Her…ˆ¥si…‰hÐ  ¹çà™Àˆ÷ Häîà`¥„…ˆ¥……‰©»à³àÖà¥Äð©¸à·à ¹Ã™ÿàˆ÷ A¹ÿà™Ãˆ÷¥Á8åÀð° © …À©E…ÁÐíi®!à üá¥}…Ð¥~…Ñ© °à ŒºàŒ¶àŒ«àŒ­à„ʄ˄΄όÏàˆŒÐੵà¼à û嬵àðLæ嬼àÐø¬¶àÐó Òꬲàð¬³àÌ«à° ¬«àŒ³àLñ䬹àÐ3É ð „ÄL¡å¬±àÀ ðîºà¬«àˆŒ­à¤Ê„Î¤Ë„Ï àðåeÊ…ÊæË¥ËÅÑŒÐ/¥ÊÅЄÐ'­°àÉ ð û嬶àÐÉ ð$¬­àðŒ«à¤Î„ʤτËκà`¬­àÐì¥Ê8éA…Ê°ÆËΫà`­ÐàÍÏà°¨îÐà­°à±à¹Æà°à`­¬àÍ«àЬ«àÉÿð |欬àî¬à‘ˆ¬«àî«à­°à±à±ˆ°àÉ Ðζà¬Üàð`ÉЬ¸àЬ·àð ­±à°à IêLûåÉЬ·àÐ ¬¸àРÿŒ¼à©`¬ÒàÌÑà°¹ì÷¯àÈŒÒàÌÑà Œµà` SçÉ Ð ¿ëL|æÉÐ ‘ëL|æÉðEÉðAÉð`¬ÞàÌÝà°1¹ìõÌà¹ìöÍàîÞà c꤃ðŒÑàˆ¹Æà™ì÷ˆ÷­µà”æ©AµàÒàL|æ<ç­©à©ÒàÑà8ç­µà”æ lL°ëÀ𠌩àÎ8çÉ ð¬ÑàÀÿ°™ì÷îÑà©ðשÉЩÑà­Ñàð©µàL|æ­µàÐ;­ÙàР±z¨æzÐæ{¥zÅ¥{åεà˜L•ç iLâëÀ𠌵ࠌÙàÎùë,©¯à`†éŽ¸ç¢†}†~†ŒÊŽÜà û嬵àÐ<Ϋà¦éàÿÐ É ð/É°ÆŒÐ'É0#É:°¥}…¥~…€¢ â ûå)e}…}æ~ÆéÐA¼¢ŽÜà`­Ãà8íÂàí½à`­ªàð`¢   FORMATTING PAGE.©®Äà¬Åà8LK©½à×àÛàÚà­ªàØà­´àðLUé ¹ïà™Àˆ÷ Çä­µàð­«àÐδà­×àðLUé­ªàÐ`L­¼àð­½àÍÁàÐ ŸãL>è­¿àÐοà¥Äð­¶àð Ÿã ¹À™ïàˆ÷L>è­¸à ·àð ¹÷à™ïàˆ÷­ýà…έþà…Ï­¸àðL¯é©…x­×àÐG­ÄàÅÐ ­ÅàÅÐÎÛà­ÄàÅ A­Åàå °ÎØàÎÚà¥ÍÄà¥íÅà° ÎÛàδàÎÚàLpé ÿçÎ×à âãL>è­·àðLê©…y ôçÉ°Lhé Yâ­¶àð©ÿ…Ä ¹À™ïàˆ÷ ôçÅ¥ ୴àðÎÛà­´à ¼àÐL>詼à cä­ªàÐ`­ÚàÐLîí¢ÿš­ÛàÐLjáLwáH­ªàð¤Èć°hHÉ Ðæè ‘†¥†ÐƇƆh`¥xÐ  ¹ïà™ßàˆ÷¥xep…}¥qi…~©…u ÿ¥xð„u„tI€…x îé¸à­µàðÎA´àL>è ±„‘}ÈÌ«àÐö© ‘} Ÿã­¶à µàÐ ÇäLþé©`¥yÐ  ¹ïà™çàˆ÷¥yer…}¥si…~©…w ÿ¥yð„w„vI€…y îé·àLãé©Ðà­ÄàÌà­ÅàÍà cꥃÏà`©…ƒÔà  €ê  €ê  €ê  €ê ©/Îà­Ìà8ùÈêÌà­ÍàùÉêÍàîÎà°è­ÌàyÈêÌà­ÍàyÉêÍà­Îà¬ÔàÐÉ0Ð`îÔः惙Æà` dè' Œ¹àŒ²àÉ ð#É °H ¨­±AàH¹iàöê¹jà÷ê ÿÿιàh±àh``¢ ™ç}&~$Œ ÉÐ#î«à¢ ™ç¥~ЭÃà8íÁà å} é¥}Âà`É Ð©ðÉЩРÉÐë¥ÇÉðIî«àLZ멬»àÐ…Ç``­»àÐ(­¸à ·àРηàЭ»àЭ¸à ·àÐθà ¹À™÷àˆ÷` ñë°­©à µàЩ c° WΩ੅`­ªàÐ H©…L ñë°© c° W­ÙàÐ ÎÙà­µà†ç©µà`­ªàAÐ H©…L¢Žùë†|© µàÐ Sç¦|É ðà°êÉÁÉÛ°)¼èÐÚLo¢ ™ç¥~ »àÐ¥}É°…Æ`¢ ™ç¥~Ð¥}ð8éÅÀðβà…À`¢ ™ç¥~ ªà ØàÐð­»àðë¥}LE¢ ™ç$Œ0­¸à ·àÐ ¥}Äà¥~Åà ÿç`ÉÐî«à­»àð¬Ýà­Äà™ìõ­Åà™ìöÈðŒÝà`É Ð0î«à¢ ™ç}&~$Œ ÉÐî«à¢ ™ç¥~ЭÁà8mÂàÅ}°¥}Ãà`¢ ™ç¥A~Ð¥}ð8éÅÁðβà…Á`¢ ™ç}&~$Œ ÉÐî«à¢ ™ç¥~Ð¥}Щ…Â`ÉÐûî«à¢ ™ç¥}Lࢠ™ç}&~$Œ ÉÐ*î«à¢ ™ç¥~ЭÃà8íÂàå}é ¥}ÍÁàðβàÁà`¥ÅIÿ…Ŭ»àÐ`Là©ÿÀàž`­!à`© àÕà¥ÍÐ¥ÌÍÕà°` ©í© Œé âLí¥Ì8íÕà…Ì¥Íé…Í`î½àî½à8é°` ÝíJ…|Ð`© âî½àî½àÆ|LÊíHJð …|A © ŒéÆ|Ð÷h` N¢  L:ž C:¢  F7-PREVIEW NEXT PAGEž Ó¥†…}¥‡…~¢ © ‘}¥}ÐÆ~Æ}ÊÐñ¥†…楇…ç¥8é…Ú…ä¥ é…Û…å „Ö„á„àŒ¾à„ÕÈ„Ô© ‘ä ½ï¦à¤á 3 <…×ðò 6 ‡îLmî¥×¢É…ÐLɈÐLûîÉ ÐLRïɡЩ¢ɦЩ¢É·Ð©‘¢ɸЩ‚¢É´Ð©‘¢ÿɢЩ‚¢ÿ…×†Ö ÜîÆÖÐù`¥×É‘ÐLïÉA!‚ÐLYïÉÐLïÉÐL£ï`¢  FORMATTINGž.ž L~é¥áðÆá`¥ÕÐ¥ÔÉð$æÚÐæÛ æÚÐæÛ±ÚÉ Ðô¥ÚÐÆÛÆÚ¥ÔÐÆÕÆÔ`©…à¾à¥ÔeáÅè°¥áÉðæá`¥æ8åÚ¥çåÛ° ±Ú¦ÚÐÆÛÆÚÉ ÐòæÔÐæÕ`¥àÉ° ­¾àÐ¥àðÆà`ξà`¥àÉ ­¾àÉ\ ¥àÉ'°æà`î¾à`¢  ¥Ôe᪥Õi¨©„ K¢$  ¥à8m¾àª ©„A" K¥Ú…}¥Û…~©…Þ ðæÞ¥ÞÉÐõ`­¾à…âi(…ã¤Þ¹Š8í¾à…ع£é…Ù ¢¡}É ðÄâ Äã°ª½‘Ø¥}ÐÆ~Æ}ÈÀÀ°ÛÄâ°¤â©Äã°‘ØÈLPð¥}ÐÆ~Æ}` Ûõ¢   EDITOR COMMAND CHART A ¢ ïE CURSOR UPÿïC CURSOR DOWNÿïS CURSOR LEFTÿïD CURSOR RIGHTÿÿïA START OF LINEÿïG WORD RIGHTÿïFA# END OF LINEÿÿïT TOP OF FILEÿïB BOTTOM OF FILEÿÿïW SCREEN UPÿïX SCREEN DOWNÿ ¢ ïQ SEARCH UPÿïZ SEARCH DOWNÿïR REPLACE TEXTÿÿïO ASCII I/O MODEÿïU RESTORE TEXTÿÿï1 BORDER COLORÿï2 BACKROUND COLORÿï3 TEXT COLORÿÿž \ LOWER CASEÿðñò\ UPPER CASEÿ ï\ TOGA$GLE CASEÿ ›õ Ûõ¢   EDITOR COMMAND CHART B ¢ ž F1 EXIT TO MAIN MENUÿðñòF2 MERGE DISK FILEÿž F3 DEFINE SEARCH PHRASEÿðñòF4 DEFINE REPLACE PHRASEÿž F5 SET TEXT POINTERÿðñòF6 COPY HIGHLIGHTED TEXTÿž F7 PASTE TEXT IN BUFFERÿðñòF8 CUT HIGHLIGHTED A%TEXTÿÿž DEL DELETE CHAR LEFTÿ ïDEL DELETE CHAR RIGHTÿðñòCLR DELETE LINEÿ HOME TOP/LEFT CORNERÿðñòINS TOGGLE INSERT MODEÿ ›õ¢  ¢  ­ '¢  PRINTER CONTROL CODE CHARTÆ ¢ žn BOTTOM MARGINÿÂÌž BLOCK LEFTÿÂÒž BLOCK RIGHTÿÂÔž BLOCK TOGA&GLEÿÞ CENTER TEXTÿÄfile DATABASE FILEÿÅž EJECT PAGEÿÆtext DEFINE FOOTERÿÈtext DEFINE HEADERÿÉfile INCLUDE FILEÿÊnž JUSTIFY TEXTÿÌžn LEFT MARGINÿÍž MERGE DB LINEÿÏžn OUTPUT CODEÿ ¢ Оn PAGE NUMBERÿÐÌžn PAGE LENGTHÿÐÓž PAGE STOREÿÑž PAGE ûRECALLÿÒžn RIGHT MARGINÿÓnž LINE SPACINGÿÓÆnž SET FONTÿÔžn TOP MARGINÿÕž UNDERLINEÿמ PAGE WAITÿØž SKIP DB LINEÿÿ USE CTRL KEY TOÿ GENERATE CODES.æ ›õLcð  ¢ 9PRESS RETURN TO EDIT,ÿ OR SPACE FOR MORE ðÇÉ Ðhh`¢  ¢  ­L'ž¦ TOGB Êž2059¢xæ½j3ðèÐ÷LNå2±¸ølW¿2®N©ÿ?¢ºüù0úµ[û †*™'žW†„p©ú™ÈÀ #¹ê éÐÊà5õ0-)𓽼ƒ¹ø• fk>Š8j† x³Ž a6 ã`Ùd  Œ!ÐöÔǤ*ˆv.+*¢ˆ"+½,Ðå¢ ½†%%)Ø>üÕ¦ã²íÚVvÞ©½£w½P $@®/©Ek‹wV^FW¿êöÒT¢¨¥J d_„ªÍg®S6ŽÍ6\Á±5YAÕ´ øãÆÔî£à$ìB?øè¸"êoû5]'eåi÷è-ZÝ´Š° „ äæ×…«èRĬ†Ô%Eí'QDŠ½+­„[³5Ù"Åd®ípݹ]£Gú-…!­„ÕÙ.ð¢C%8u¬÷¥øûØ×Ö>‡4ßæ¬îjWDD"f…#¹u.¨±S €-à[±)hp]w´mÿ·t £Ï mLª ù,u#Xa|`]¶i¥eÊ `×…ƒ¢ 4†ˆ¸‡PHöˆWc*ŸoPQ‘[fÌM•©VÌg8‡ ðÎ ªèå ʽ„ÌH`‡Î1bg»H#¶ÇîBrB­U)ÉÐxaðéLŠìX)ã"ù¦mYÐ4xygy ý=åX©¬º¶íç]À.Ý'­H¯ž2’©:ê²³`êR[t¤¸IÈB;2!Ðs1o1ÐîŽd¶þ]CYÍL N)fBH­‰—eY,4Âô1O tÐø e#.¬n *ª%œöèL NÍí²Y+-BÓq…‘fgî„îÉSÙ¢1 0Å?œ Že®„0Œ5}ÜÉ p 1¢/åÉ“^¢8ùÙ 6î.pŠÀ©$ÍÃ7¢rä¹Ý L$Håõ­ÝXlP UðÉS†N aAi Ñq¢B)GQÃH Õ"LÙè,‡Óêœ/“ æ]îT©:¢Nk¿}säá;ëÉð ©C{Ü,lªú˜EãeÍ.øðIó5rÐöÙ'Þ+òͱ¸»Yqà°©ZñL¹ c?˜(ã%Í<Ëw‰\I²Í2\GæŒÕ–¸oä©žbNÉ…¢Øj½ÿaèÐFq®@®BÕ\¦ºÊÐiûi˜Nføh@?ÎÛ›¾L€ ïL…·©O ‰À3 £‘ªÅH¨à7> 3ð&À4­ðfÐDԩ둤W?Yé à=À0ÄòêöâÐ+EœçeD®(6Á¥ð+•´`B,§6ž,b>Iù5Ew©%R…³S­ñ˜yìšÍC ÷=n—›HÇ€|t?7uû…ðv´LH7%¡;í²xÌñâõƵ“ {M(Lš-®…ÆD¸ðì u(®/­/Ëw­?;Ü‘½ØÅG¸)3_ÁÍb™ÏŠ’‘¼L3j)ÇðN6ã\OrÁK%ã\B Ó&\Ü\ÉÚp?½¡±QT‡:CQ Ø>²¨á –$ðYsÁ()3;Êæ 7ð?¹²¹04º¾À­i­sÈei‘Ù?Ú­Éì°Ì©„¬SLN1×Ì­1[÷8ߺ‡ty‚à…Ë‚›Å DB¥‘0EŽ'Xå­Ô2ØÇʆ‘®g…g)j?hÍHo Ð  çËJDjÆk›­$L`E×°¦àBâ|„ËO ×'j‚{µ¨ Š¦n/'®-Ž8Y†¦m ¢ÝéMGB¢ÝÚèÝ ð5øÇ’(4@н2qðNìh/;к¿ÊðqÀ¬^JPð+ÌKxL=¬fÀNY~ºÞô¸vnyE—ÖŽ™îÙW¢…¦ðI8b¨ã¥  g#uÌÿ"Ç¢'¹!‘Û© ÀÝòQq>!Ž»@®r^àÃ3£QµÞ ÒzËjd¢B©ß·W-YDqô܆ø‰éHê™È[ ¢7œa×–­DŽn•LÚ©— ª¥‘þHŠáÒh…Ç•M!G’FÐ îãB­p ®hBЬÍå´î!&½Bð\…ðè*ÄïOLWò±CÐEãçððîf!æp~OiÃçd")[­‰i)ð ¯$TÃm¸1qîX„YZcâðÑòLMÿ½"Kœ¬>Œò›XÐe¯Æê𧾆/ÊŽnÀŽÁ[ɈÐKï¦òĬ+PÁW®Ð°–ŠE¬³ÈŒÅZ%¦Lh?š°ˆŒ‚'„_B‹8íáP¹J­`ÖÂL¥·-*8¯& "¬¬)"³ΰ­OGžΔáâR+n2-ƒZ&03é!Lè­Å£¦ "³·2`¡-Ðþ$2 § ÑîpTL³¹#Í%íÍ00&ç P$©8Ðêî¢o¢ ì¤#ðÑóÞQc ¹&z¹Ñ0¹  °øÇŸ„ ü™u¹Ã`­VÌíÒ±5Éüfõ?³W¢0 4)Í¡Ž'Â"žr(üÃLyY)ù˜¹)ÉÃ5±Ü.åHßh¿pÔYA¿p'¡¾#âÍ.‚á$rÜBN0ÙÉ:°ÌÃa ð”Lü˜ðQ¯Ón2ä°ï æ%ÈÐ¥ð£Š/ é%© ê ‡–„i’1Œ—Dà ňLúy,šRâ¨XI$)Ϫ©0¢Ž..2”׸ŽœàÐÍ´~ð®ÄEŽühŒK¬LÛŠð@r‘³©ù ](º ª±„?he*ðž÷t·+¨PŒ,«ËÉ6 ™ELõɉáËÒè>±ü†Æ¥ÅfåúÉ?§cèÊ&& J)¢½·À1™Ûr:`…›æ%ÐÔüzz°âÇÏq ¶ÜØ2r.笵­ØÛ›|6-õE1…ÆNB 1ZkÁ®K›æŽ¶ÐJk ŽdAW%ªn°º•Ïä¥ÉCŽFÆ¢ã¥ÆŠ7 ô6$ 'ðŠ*¿?K®$j6ÎHð° ®ö Ð­fÉNôž§¢ÅŽ]lîA®UˆìT‡Dº­VÐzÌyÀõœn‡ƒ<°´s©ÜÈ){ƒ¦&[Ê^r L3œTæ&†úÓéjsèU­¢‰œÊ!úØÖ>èHBƒB{Ã&r4LķǪ˜…b†c¢8µ/I¼ ßpÁÃâÉÿôE™m$¥§ZÄ›©[¸’‡@råîõ!7Ì3Dn Æÿº‰¸™h9´ÐùB Ö…¯¶JHô´9Ðû.áÈî´ðQLN¥/OÆÅKð ÓFD½K”©€…úЬq¾ƒr1£ ™­©KÁ Då±OLµ Ð3Ó2"­/A¾<©á÷⢲þ°; 0TŠ,f¢<›ÙÏL颠$æ^:0®3•ÏdÈÐà °¸~‘ Ͷ΋$B‹E9³±cPDxES\£±"NŠóX(C¢½¢ãàcÍ©¢éŒ!´Ø„T¤BôÙˆD!”ä⢲\2™îڹϸ.EEö­0ü¢°ö@ŽõÚè àf­$БJ3 ã…B ™09L{|dµÆšèÐó©p¢mø èŽ'‡N©]XOõâ"“ͧ©k(cÛ±+ !{„Ë@…k«»p}Å©sÁw Bï,?!ßÄ/‚Ï‚_“¨­¢ ©@ ‘^’œÊðü.x,©PoÄäi˜N­fåÊ_â^Œ"qPà áÿ…Ô¥^¤_YO% ‚’ÒÔ±^ðºÛ¢ÈÜÅ…^EA_YAÍùOÉÐÆý7&rŽKØ\c¬ ²©¶ÅŠ¬¾H¢cëY4vÅh™dTbY’ÄÙ ÉÐ0x"ž×®aÚDö80´¢:Š–瘓°B ˜ÑïæÍ¥ÒÍçL²ɅРɇ©N1L$þ €„x”‹ÏaQÀ…zxÐd Ž¢½ê¹ð·þ¦­;Mx[›ð&É Ð>8¯qŒ Ú0–›œ©,­˜#hŒ?æ7(L ¬GÈÌXb\ îÄiÉŽ|²aîl©(e¶¼`]L Í‘ð"ÎY\­ D®¾Œ‰ÎZê¥3df\MÃ]ëcƒ1!#(©Qa3>(¢¬ Ð ³¿`œ} ½87­ ÷L' ÄÆ€ÉÈ̶ͧØ{Ìr¾@_–ïk¹ÈÀèÐöÕÀbB o¹¢ ŽírÉ4ÿ"!íÉ8“ # ä¦ÿ\R-Ð8”„ðÖL… rÌЙ<‘ ì‚eèÉPÐ6õŠË9WH©)¢# —ÊJŽ ëÅ1÷øCA*wL™¥#ÉжL/ P82447Y80Ñ“ Q C ãVÈlØÔƒGYÁŒ-$1RNALÔ5816×ñq}dð3=†mçˆ.ÉÑè 1-=NÛLø5ÚäF7»3æô>céOFætCSR‰181åëHA'PwITTKEYS:P¾ µ,®Ó#d’]Î [Ç9jæ]îqBŽø ‘ùq!Ž'õðsÔqšïæˆ-w¤.ÓólŽ8f„BGÓ½'£ØISÖIl:â@,_sÄùboŽ˜ÃÍÈ1.=u§Y4L*£#–i ” /A] ¤#ŽâÚÁ¼)à6ŠsV£ mç. =žÎ ÎG, ̉‡Ž=8¿CG<5SK-m/áK%i•˜©çˆˆ/ksÄe´:T ~ DrV¤€L{%}OP?òAXBU”ˆ 15̤*sŽxö=©æš£üÊM'€SNG IDI‘ECð RY=OP¡APü;?!-œ°ùÛEyBCÎ9bV•µÉÎQOÈ-Ç8-q ý@{(64) |À‡˜_Ã{ï ¬ÿN}»S‘“”œ´Ì0(@ÀNOÕ¿q-LIáncã:ê3rÛ5x!-È+pŸNA @A`¥ÁÏÕñÐES„”Ž™šá@ú_§äöüÄÖܺþHD©ºÞß@»¼½ÛÜݾ{|}[\]~“óT!YUTEXJ:I°RUN˜THISàNOBRÑGÒIN,ဃASE.%3W]KSHÜ%2˜„GéT‘p-f8NDƒö8GLB .ÍOUSDREAMSyÒ#¾8uÔ€½ (TOYAH)® ðõ/¡Ð¢ ¸§¬î"­„ÒÛð Uk¤?ˆ‡Ãáp8=©©¢ 8üŽ9ÂŒ:C Âð` Pá? ’Œ;Êê»® hà$”)¿'Lú †‹¡Ô:…·®>AIÿ¬*Ùúº£ÐÀ˜"fqY¥ ¯& ¢@õ©·8zÐ# ðüˆ¢ö‚ØóæãQÊ{Ð`C»ŽHÂŒ‘p¬ØÀ$ðG¢ø 3¤ :þ©Þâ*r°‚u‡• 9ílÐfÄñ­üêéTÀð6*B°qýl˜Ùðe f Ð^ð_¬cÀBðåOZQ½„› Ý”M“èHÎÝœ0'Þ‘`ÄÝÆÔÒ`º¬b Ý™ÆK‚¬Ý)¼Kp¿0¢½l8ÈÇàá4î]£½tLÁÀkÅ®ýò¬þ´_àÿa,Ôþ)ûU êrýõ Ý)ðùÈGWH† 3±í[ÆVHĦ¥ð Á ,ÃÐL_î›Ð9²Pð½3,@r]q¢t> áÿð-ÚK±VÊßÀ$g…òg+ È̶“Ðå˜eÒ…qSr p(ÊÐÎî‰ï}61›œ˜¹«Ë´©%U…h°`î,B#ñ‹Ej"‰O¤˜ðxæˆ)"X #i©‘$Y‹7ÎaXy(˜V«(fâÀÌÖ…=Æù% þ$ÉÒðp—‚"¥#¥äå(äz°Æ%LÒøÃÂû å©  ÎËè¥"¤#7þÚ% $!³^ÐáøhÚË©*Ì„]!ð‹Xõè@ìYcêuW 2&4ôU“Щ¨r!¬”ȈŒ`ã##ÜprÃ1Å!§'7ä˜d$(rÊ!Lä”äΘ¥!œ…¼ë$—+Ûnü¦#ìîí¤%˜boŒ_hòìL 8A•ÇIUß° ÎÞ…p*ß`xË«î¦B ¢}¾©“Jƒ-•Yð­= Òhª:a§Ñ!n›*#ÓTð)­å…¬&.­SŒ=´$¬„#d' ^}P”""ø%©• &ј@K!¬:…J%H ’P¦r §&„"R#x©0 ®±"‘Š#îhÁ#æ%ÍN£Ðî¥# þ¢`eX &îõOà-û5Îcî\ “­(8éJ³:BØ&Ù„ÚÛèÐñ~a ¢øÙ(`6  L 墽îgÐõŽ?4žþJ4èàeø`HbƒÉáù­Ðôh`À/)¹6©Q¢½AŽø`OLjž§ðBU8Eœ&ñjÁáwŽú;z1*ȱ†L$çÔ-L[- c{Mš©_¶éÎ"ÂëË& äÿ¹û¤pn,õ:ñ‡Éá"pé8Vïˆé¨œ”­‡“Á¹À ð¨Hàx•°hÙˆç «¨ðEÈ®POq\$Ø=Ê·Äá>}à e$97…cŠˆÀÐî4£Eˆ „©ÉNÒÿÈÀÓãR çît#DAúŒ ×Lþ#¥ÉÆ°æÃñQ„ ÛÑü™ÄÐÌ „«Xü¹Øä™ÙÀB'™ˆÄÐçðÉá)!¹ €™û‘~ëc(ÇJWu9ö‰B‹’c )cVÞÐÕ¹(é•8Iÿi!4zEä&^ «L©%üAp8[a‡{Á ÀPðÉÛô‚© ãP€I `#ÍÇ®eà‹ÇÏ` ÌæˆCç 9© ð"LÃÿÛrÿ~ˆ‚G9§_,`=£¦C‰'|`^„„‡…Q¬GÐ0­ ÜXL1ê¢úHý¿ '-4ÍÚ|É+x¢©¾ @)Æ ðõ“Ôl½Ë#JÒ’/˨òLêpz ¢^q"½& €ø3ÒÇð0ÕÆ ! „ ŽР™üø)kš ñAi‘¹ Y©Ñ!*5ABú0Àò Íø …ú£¹ ¿p'}\·ô5¡ Ø 2bü ±2)XÂ÷ ,¢¬V)¥üHiÔ‚#Š‘"q`¼h… ŸÑ#`¢%© ™Êú`æ¯Rß—é„\„ (# …˜¼“‰Žü¦|†Œ6ˆ ¸¯ehÄ… ƒ•«’ºŠ>  Àÿ1ó˜ÆI]oa†R­“•’E>…8–²®·Â‚™ —‰Œƒ˜Àª]MK0ür:Aa$0:*=îî+GâßìÏ & (g,`‚rÄo(GùñÅc’uÞ( áB €<…B¯ã7ye•#üÚÊQøŸð´G¼½ÊQ ~^vHÈ&¨¿1ó:uI^ñ”#®‚rÔ‹=\[~?­‰]110 .98]ü“øq „¿½Oûïú'õéç@Ýò‰9Â?&Kÿ¤~ÕÊQ×Á÷(45,F)Å ùHÓEb:µ+G\¡W“9n . ½—eòÿ¸‡ © Éu^ÊQ_'¯Ø/ð‡~$ÀýueTé>æˆ]䨿HŽú˜  !]¾a±*\³h ~”е’€@JI醷iUK¾§öÒ /û©êB‚çñŸšØuÍ`?º»¼ ¾§¤ÿ5ŒBœF‡B8!p’@ÿ¥RÀ~Þ‰HAòh£ ü } ¤k:þ<üTó1>—3(°÷ƒ ›Pó6ˆ*=D9 ?!6„€Ùs0˜ÁÊ$ÌÙîØïoBm™€lϺJ·Q‹„x³„¶`x<~h |Dª¼bˆ ¼` ·p°8ðà>v> øÏÒó‚þ@fÌ@™ÐÓwü`Æÿ0ãÿ˜ñÿÌøÿfüÿ3þÿ€ÿÀŒÿ?`Æÿ0ãÿ˜ñÿÌøÿfüÿ3þÿ€ÿÀŒBÿ?`Æÿ0ãÿ˜ñÿÌøÿfüÿ3þÿ€ÿ€‚ÿ?þ½WHl•ð§ÍÔj° ‡ß;ˆh˜C©’Ý ñbx7@Næ$L%"U&D\'SòO”© !Ð`Xê@ šÉˆeLÕñhÅ… Š˜¥×áju¨¨ÉXJª)`ðŠ_æ HLeÇÒâíV‡ÍÇØ` +'¥‡g à”ðÆØL°Hàˆÿ¥ÔðÐC@ €šAL32`Š8éà=MÙJ’½ÚH/]l.pŽYžC^d(éVx§E+•M倫2Õ>Ú…êCïaôB )Ì/ù²üI×À‡£}³dÕášpŸ8¤4®³¸eÍ2Ò€Sà‘„¾ŸØ…Ô ¶O h“ i¹7™æbÁW枀Xd|ÉÇüÅOÐux½JHÇ·];™Çƒ¥ó꘤ÃãVŽTGæ"Á±PЪãI¢ª 0µ1 LjIrSeýÐ<ÄÏ4N#•¢Ld-ÌÇVO—Y1ÖùLšIÃU ¦2‘ÑËð›ö;uœòS(÷ÿ9Ó•W  ©ˆ‘ÝÐû` Oì_Ï(Æâ@2ŤÓÌ:Oðˆà±ÑÉð`Luú4Ö¨ )æG & C`  !B0&…!ÆÓ Ï…q šO…Ó`„©LØJ`â ¢P„¶ „–¨¸¸ý‘ó½þJ#ÇX…ôã([xBKÈdÉ™h\¸ +9*X*¨1ø%¤HD”˜€’† Qþ}ûEÝ^i¤Ó€Ý&µ©¡e0…ÞûÖ ª˜f@ŽÑ½gKi@…Ò`üPcˆð@à0€„ Óp Àð` °pPa 2@Nƒ`u0 €|°"‡ëÁCÛ(—?k÷ÛNø÷ ÆꃃŒkÿTüƒ]ÿ‚ÆÐø+Mã)ýïÉÿ¿•~H)ࢩNÝdLðÊø¢h)BjìOàÀ Š…J`@-†×h”ÝL`mt‘Ñ9„É ÿŒö€¬d0ºŸ£©ê…pòß&à /KúÍœIËð  žeHž±ßMóç1(‘ÝŠìRJ×Ìï`8™Ð <ÓÊ€…ƒ¡É ֥ՅȆ hMLsñý5Æ…Ì&úx¥\ðø˜Ï©$‡œç ´åɃТ x†Æ½æìvÊ}ÿ¢ðÎÉ pÇ O„‚ŸdˆÐ÷aŠÈ Ó„Ô¥x0¦ÖäÉÐ¥ÊÁvÅÈ °+xŠÔrÐð˜ü)?L$×N€â¦ÔÐp B @À>„æÄÈ'' …ÐU™T¦šàÂt©” …×qªh¨LÌN`ÐKÆ!Ð|°ì¥Ì:*ÆXÐ&©…ÍðOFÏ®cPJ°æυΓ¿J¨o ®¥ÎI€ „N­ï˜>)Ía"ð;¥I©-¯ '±Ù€´‘óˆôÆÖë­ø#E†«­ào)ð ôOzÖA¨oL·M r‹­Ð)ÍÃð=õO飄)H;šI¤Ó±ÑÉzð ¨N¡ÓOÐ¥ÖÉð ÚILP ý ËÏfÓ&TKØŠax pÅ2ãƒ*JRð yL(`ñƒÄ¥×ÉÞЯ©ÿ`‡h…B!Ö ëJL:NøçMü€ñÐpÿdÌÜàþßØþ?ûjÿ È€ê<5ÿpüÿêŒÿÿCµ¿c•\à åû>,ý6ðNµž?ÆÂ1 ¾)=]OÞ´é^ˆ·K~0h½1ùezþƶŽEçÿf™žQß@ùé—þ2ùCeßaˆï&ÿwÎ ñ‡üÿoî–‰ <ªâÿïhçÉ~¨èÇá[/ì}¦Nüécd‡ôkçe<=Á~Èþ‰»L5oº©Äû¸4¶1“ä!ù1vHþàŸÚ#ûD‡Ä‹GìýŠí HPäÞÕÇöõ?d›ÇØés}‹Ÿó8ø“ä7B"¦¹øV§æ%æ•Ž°ox@ÿüÌ›‘þ3ËñÛ_!ð@qF¶}Ù™œ?Aú_rÈøùCvä Ä?êýf÷¿Å§1…ôczŒŠü´ÿøͽò>~ä}TÐásâ3¿@Ø8xO‘á Aòfj3zÔ&§$ƒÜûPêÅ/Í°?5zbüw_.?q®Ã¸ Ÿê'> \êƒã¨#ÿòaŽ~tÁúƒÁªHPÀ)Pÿf÷Ã3pŒw¦Rú­C3=ºôw­#9êU@kB™Dwöû8pˆD è"@êª 3™ÌfGÁ¿†ß­ç¾©> àM'øêB#ªUwÀÌ™3f8 ó蓾‰YØ°6xÑð î3{ôBxÿøÇ4 舠ÿô#ðŒhÄÿg`ªDðJþÁ"PÌ3`Æÿ0ãÿ˜ñÿÌøÿfüÿ3þÿ€ÿÀŒÿ?`Æÿ0ãÿ˜ñÿÌøÿfüÿ3þÿ€ÿÀŒÿ?`Æÿ0ãÿ˜ñÿÌøÿfüÿ3þÿ€ÿÀŒÿ?`Æÿ0ãÿ˜ñÿÌøÿfüÿ3þÿ€ÿÀŒÿ?`Æÿ0ãÿ˜ñÿÌøÿfüÿ3þÿ€ÿÀŒÿÿC|û_+ûmÜÿW‹ÁÍË4-d80B$š›V ŽÈ-SÔÜ«i-¢‚}4x‡îv8'°T#sZš|Äró\ ï3[&þ7fÛ.Å©Ùa=œG@×åVCuoýÐù÷NñÝ-þEW©-¾e Ö: ¢ -ñA¶,µQ-eï Æã«</\ÆdYDRIV fù¯Ãû:ÿMø]4=w¤1<›}Àgiý¹—8-16: D~s /RAMê 8uŽ?“(DA"[TE)+ßÊë§EñA Ë‹h ñHš‹:Í:í±Ÿì6ŒV2¹)‹1Z1QšZ§Êå2÷­œø9íØ̨B%2ëa›ÊûÄÏÆâJ -Dè,…ƒ0wdSëe ˜ù Öÿ¡Ê½ƒ-”‰(… ¢¤¬’•À硲½…Ž•ý¡v1ªù¿FeTYPí~ÍÿÉõ­ùQmUSP,0{CJ›N3oÆ*Vm'©Õñ=Éò_L¥qW†³TvOL-†½(ACŽ’ÿFß_M|Þä=W VÙ$m÷JAÖóf©dvOUT:ç·Y¸a¿c„~'ðCN'·ŠJB&KG¸%ªœïpNŒ`Êp† Kx[?…L^ƒåASC/B„aDúSÅkîO[OW`EMPTYW>jí!Ê>mç­ãÓVý¼å×^8ŃæþGNOcE6ªywFéWOBYžgžQ×OS 8÷È fÑ7̲̾£õ¨ñ2·‡jþCHARSET¯?O)vž|Vå`Æ°'úÓ°|FÃMì&·bOSÏó•}Ÿ˜Ïe«[Ån/'%¤jѾaD”áB':.ä—‘¨¥ÁjÄ3;Ø zãPÏÙ=T!›ø_#¿ÑûoãXT4,5Í¿ !PA3%`q A©‹SECON¿^Y±ŠDRE1Èö½+ÿMçA <ˆŒ{ ,%-M¾é뚉/ŸMWN¥Ã½IR ô¥©ðö6 Š-¶ù¿¤AX¶gIC#,NGTH™?,`FILEØð}ø2h¾O=Šþ/²ƒ¯ +‰gÊíh`Æÿ¡®Ÿ3{¨ö¿?ö¿–T`WORDSëþFü€¼cF64+S?~4ENNQCBM-|!w1”·.l ñ"C#VvdÇFãIŠ-+R‹Žc;´ëFí1 ”HÕÜ47#PG‘a|~èæRG-u!ãÚûM ñ27 û$%o•lB6×)!QW gÅOíREUìF ÃÃã8/S-CPUè Ó2/ hîF(4+/80)ðôÚl+&#ÛÆ zK¸aÕðÆð-35åÇ ÈI¨XbÌ.ÿÁKŸÂä3§;ô@ ¦é3PŸ%QHb±k"ºO+\7z’Fиє( Íçlö-"1‘Î#o¸7PL„<ëAiCRáÂCMÄsø B,Cv=ÀF° pB ,I?Â.S :ëìýT:0C|b:4~P ¹-²o‚aNSÆL8 Qî —80-CðU Á´â‹…™?º ­“ƒ…ê’¯“”õ!¬§“Pð/40ÿ Ìøÿfüÿ3þÿ€ÿÀŒÿ?`Æÿ0ãÿ˜ñÿÌøÿfüÿ3þÿ€ÿÀŒÿ?`Æÿ0ãÿ˜ñÿŒŸ½ DåN0Ô†{ø©™i0½CáoŸÂà’ö¿¡\ Êô,¹Ðî=ÃèØ(nŽIìˆ#ð¢Š|èà÷ÊŠÝßüà`\,¨ŽX Âð¤Ð ­èñ®æB¬çA`¢½‡ ƒ‚ðèÐõ©< 8`Œ~CA= ÓUPáCÄÇFOUND!ü ( £r×ATÄIA%L@ÉàUSE?à1#ÒÅ>µ ÆLASH8/Ó-ÃÐÕ2 ÁNSWE€/(1¢OR 2):À ,4`¥úÐÆûÆú­j2`è ¥þÐÆÿÆþ`èèè©…£…¤ðÐ ñ*…ð&£&¤ÊÐ北` È ДúÀ0ð¾ð y,ÆŒ Ðæ¨`©7…XL ½j2èÐ÷ & ñ ýˆÐ÷ &…ª  )HˆÐ (ˆð è ˜e£¨¾\ yiª¥¤yvÀР à>ð稊8eþ…Øeÿ…Ähª ±ÃÆĈ ý±ÃÊÐ÷ƪЫð˜?à1#ÒÅ>µ ÆLASH8/Ó-ÃÐÕ2 ÁNSWE€/(1¢OR 2):À ,4LjùèÐó©¢ÁŽ©º¢ÀúÿŽûÿ©˜, Ý Ý`, Ý`xlC ‰‰‰ŠH‰›‰», Ý,H©Ý© ݘH¬ ÝØ¥ûå÷ð¹Ç ‘÷æ÷ðîÈh¨h@¥üåø°iÐäL>Á¤øÈÀîРà„øL>Á, Ý H©Ý Ýh@®ÜàÿðŒ¼Á¢ŽÜ ê®܌ܠàýÐ`x,ÝPÛª½ÇJ, Ü Ü©ÿj ÜîÈ®ÝÊ¢ ©ìÝð, ÜðöìÝð, ÜðöC `îÈƨ04ð¦¨Ê𠪩…´*…µLM &´ &´ &´µLLÂ…µ©8fµjFµjFµj´LL¢†¨…´©8f´jµ L ܥ´ª©, ÜЭÝ8øéØ)l­ Ü)ЭÝÉÿÐò,Ýp¥¨ÉЭÜÉýð©ÿ ÜÐ̽Ç`ÃÒÂŽÃŽÑÂŒ9ÃÊŠIÿ¨ðÎÃÎÒ©Ü,Ýp­ÜÉýÐô©?, Ü ÜîÈ©…´¢¹ÿÿ0 É}°É °H©}ʆ¨ &´ &´ &´ ª½Ç ÜîÈC ¦¨Ð3hL'ùÿÿ0$É}°É °,€ÉðÉÐ&é} ûÁ Ü©ÿI ûÁ ÜÈÐÎîíÃÉÿÐÄ©~ ûÁ Ü©À¦¨ðÊЩð´ÐÊÐ ©üµ L ܄¨ M MÂŒÜ`©Ý­ÝøiØ)ÍÝÐû©Íð®ÝÊ¢ ÍðìÝÐö©Ý©, Ý©@Á©Ý¢Ž ÝŽ Ý¢ŽÝŽÝ¢Ž Ý Ý`© Ý Ý©,Á©˜, Ý Ý©Ý­¦É©B©@Ü© Ü`©Ý`¢ŽÝŽÜŽÝ­Ü)€ Ü©•¢B¬¦ð©%¢@ÜŽÜ­Ý Ý­Ý Ý© Ý Ý Ü Ü© Ü©G¢þŽ`ˆÿ˜‰ÿ~ÿþ™‰ ˆˆ‰›‰ˆ™™ˆ˜˜É¿ß˜™™™ßÿ@@@HHÈÈÈÊH@QÈ@ÚÈþÿÿÃŽÑÂŒ9ÃÊŠIÿ¨ðÎÃÎÒ©Ü,Ýp­ÜÉýÐô©?, Ü ÜîÈ©…´¢¹ÿÿ0 É}°É °H©}ʆ¨ &´ &´ &´ ª½Ç ÜîÈC ÀLÀLÂÁL’ÂL¶ÀLlÃLåÃLËÃLùÃLÿÃx¢Ž ÝŽ Ý©Ý­Ý)ûÝ©€¬¦Ð ÝŽ ÜŽ ܬâBÀ¢@ŽÜ©‚ Ü©Ü©Ý­MÜ­NÜ©A €Ü©ÿ Ü­KÝ­LÝ©Ý¢ ŠJ>LjùèÐó©¢ÁŽ©º¢ÀúÿŽûÿ©˜, Ý Ý`, Ý`xlC, Ý,H©Ý© ݘH¬ ÝØ¥ûå÷ð¹Ç ‘÷æ÷ðîÈh¨h@¥üåø°iÐäL>Á¤øÈÀîРà„øL>Á, Ý H©Ý Ýh@®ÜàÿðŒ¼Á¢ŽÜ ê®܌ܠàýÐ`x,ÝpÛª½ÇJ, Ü Ü©ÿj ÜîÈ®ÝÊ¢ ©ìÝð, ÜðöìÝð, ÜðöC`îÈƨ04ð¦¨Ê𠪩…´*…µLM &´ &´ &´µLLÂ…µ©8fµjFµjFµj´LL¢†¨…´©8f´jµ L ܥ´ª©, ÜЭÝ8øéØ)l­ Ü)ЭÝÉÿÐò,ÝP¥¨ÉЭÜÉýð©ÿ ÜÐ̽Ç`ÃÒÂŽÃŽÑÂŒ9ÃÊŠIÿ¨ðÎÃÎÒ©Ü,ÝP­ÜÉýÐô©?, Ü ÜîÈ©…´¢¹ÿÿ0 É}°É °H©}ʆ¨ &´ &´ &´ ª½Ç ÜîÈC¦¨Ð3hL'ùÿÿ0$É}°É °,€ÉðÉÐ&é} ûÁ Ü©ÿI ûÁ ÜÈÐÎîíÃÉÿÐÄ©~ ûÁ Ü©À¦¨ðÊЩð´ÐÊÐ ©üµ L ܄¨ M MÂŒÜ`©Ý­ÝøiØ)ÍÝÐû©Íð®ÝÊ¢ ÍðìÝÐö©Ý©, Ý©@Á©Ý¢Ž ÝŽ Ý¢ŽÝŽÝ¢Ž Ý Ý`© Ý Ý©,Á©˜, Ý Ý©Ý­¦É©B©@Ü©`Ü`©Ý`¢ŽÝŽÜŽÝ­Ü)€ Ü©•¢B¬¦ð©%¢@ÜŽÜ­Ý Ý­Ý Ý© Ý Ý Ü Ü© Ü©G¢þŽ`éØ)l­ Ü)ЭÝÉÿÐò,ÝP¥¨ÉЭÜÉýð©ÿ ÜÐ̽Ç`ÃÒÂŽÃŽÑÂŒ9ÃÊŠIÿ¨ðÎÃÎÒ©Ü,ÝP­ÜÉýÐô©?, Ü ÜîÈ©…´¢¹ÿÿ0 É}°É °H©}ʆ¨ &´ &´ &´ ª½Ç ÜîÈCÀLÀL¹ÀLîÀLžÁLÒÀ`L–ÁL¨ÁL®ÁxÞ­I0Þ ¢ŽÞ)Þ©Y¢ÀŽ©X¢ÀúÿŽûÿ©€­¦Ð ØÀ© Þ`xH­Þ)ð˜H Ø¥ûå÷ð­Þ‘÷æ÷ðîÈh¨h@¥üåø°iÐæ­ÞLvÀ¤øÈÀîРà„øLvÀ­Ü¢ÊÐýÉÿð©Ü¢©ýÍÜŽÜÐ`¨©,ÞðÚ,ÞðÕ¢ÊÐýŒÞîÈ`¢ŽÞ©ÝÊŽÝŽÝ¢Ž Ý Ý`ÁŽÁŒuÁÊŠIÿ¨ÁðÎÁ¢ŽÜÊ©,ÞÐ ­ÜÉýð{ÐðŽÞîȾÿÿ03à}°à °+, €àðàÐ,ÞÐ ­ÜÉýðM©Ðð©}ÞîÈŠI ª©,ÞÐ ­ÜÉýð/©ÐðŽÞîÈÈЯîÁ®ÁàÿÐ¥¢~,ÞÐ ­ÜÉýð ©ÐðŽÞîÈ©Ü`© Ý, Ý©ÀH©RHLXÀ©Þ`Þ©G¢þŽ`‚A'FILE-SURVEY 2.7E- SURVEY-DOCU.ENG "CÀLÀLÏÀLÁLÉÁLäÀ`LÁÁLÓÁLÙÁx­Þ)ú Þ©€ Þ­IÞ­J Þ© Þ­K Þ©m¢ÀŽ©l¢ÀúÿŽûÿ©€­¦Ð îÀ© Þ© Þ`xH˜HØ Œ Þ©- Þð îÈ¥ûå÷ð­Þ‘÷æ÷Ðææø¥øÉîß©à…øÐØÈŒ Þh¨h@¥üåø°iÐ×­ÞLvÀ­ÜÉÿð©Ü¢©ýÍÜŽÜÐ`¨© , ÞðßJ,ÞðÙŒÞîÈ`¢Ž ÞÊŽ Þ©ÝŽÝŽÝ¢Ž óÝ Ý`:ÁŽ9ÁŒšÁÊŠIÿ¨ðÎ:Á¢ŽÜÊ© , ÞðJ,ÞÐ ­ÜÉýÐìð4ŽÞîȾÿÿ07à}°à °/, €àðàÐ"© , ÞðJ,ÞÐ ­ÜÉýÐìðS©}ÞîÈŠI ª© , ÞðJ,ÞÐ ­ÜÉýÐìð1ŽÞîÈÈÐ¥î:Á®:ÁàÿЛ¢~© , ÞðJ,ÞÐ ­ÜÉýÐìðŽÞîÈ©Ü`© Ý, Ý©ÀH©aHLlÀ© Þ`© Þ© Þ©G¢þŽ` "CLLÑL}’Lµ’L!“L4“L|“Lã“ 6„© Ãÿ©® Π ºÿ© ½ÿ Àÿ ·ÿðLÊ¢ € è¢0Ž,€Ž-€©:/€Š¬ Îðèà:Ðî-€ì-€Ðî,€-€ªˆÐéŽ.€¢.­ ÎÉ ÊÉdÊŽ©’Ê©$€ŽõŠIPªe“Iÿ8él§’éó©R€è½°€è÷¢4Ž0€Ž‘€èŽ€€©=€¢½ú–?€ÊÐ÷Šx 5„ª` 6„¢½ÿ–1€Ê÷© Ãÿ©® ΠŒÓ“ ºÿ©ÿ¢ÿ € ½ÿ CÀÿ©/ H™ˆÐúŒ¡‘ÈŒ!’ ·ÿТ Æÿ ÿŒÓ“L[’ ·ÿÐó  Ïÿ ·ÿÐéˆÐõ Ïÿª ·ÿÐÝŠÐô  ÏÿŽë–Žk‘ì–p‘ª ·ÿÐÈèk‘.p‘©*x‘8©éÿ­ë–éÿë–­ì–éÿì– Ïÿª ·ÿðÉ@ÐÍL’à"Ðì Ïÿª ·ÿнà4Ðvî¡‘©É °e ¼‘Ü‘ ó‘¢­ì–ì–þ¬ë–8­ë–ýí–ë–­ì–ýò–°åŒë–èàÐÚ ¢8¹iÉ:©0™ʈî  Ïÿª ·CÿКŠÉ"ð™@ÈÐìL5‘Ρ‘©>È©0¢AÈ9ÈÊ÷©Í¡‘Ð ¨¢½AÈ)yÉ:©0AȈÊëî!’Ðש FÈ>È©GÈ?È©H Ìÿ© Ãÿx 5„®¡‘Š 0Èhð |“®¡‘¨` 6„ ª ½N™1€Êˆö© Ãÿ ŒÓ“©® Π ºÿ©¢ÿ € ½ÿ ÀÿL|“¢6†©°ä’¢ Éÿ° Ìÿ¢ Æÿ ¢©ÿÓ“Ð. ·ÿÐò¢ Ïÿ°èÐ îä’­ä’ÉÀ° ·ÿðèÉC@ð ÐÒ ·ÿðÉ@ÐÉŽ“H Ìÿx¢5†¢ÿ¬ä’hðÉ@Ð^I` 6„© Ãÿ |“¢ŽÓ“ª` 6„¢ŽÓ“ ª ½N™€™’€Êˆó¢ Éÿ©ÿÓ“Ð ·ÿÐô¢ÿ½€ Òÿ ·ÿÐçèà¡ð ÌÿL*“ 6„© O€¢ Éÿ©ÿÓ“Ð) Ìÿ¢ Æÿ  Ïÿ™P€É ð ÈÀ(° ·ÿð숩™P€ÈÀ)ø Ìÿx 5„­P€I0ЭQ€I0Щ𠢽—P€Ê÷Š` 6„© Ãÿx 5„` 6„C© Ãÿ©® Π ºÿ© ½ÿ Àÿ ·ÿÐr¢   è¢0Ž €Ž €©:€Š¬ Îðèà:Ðî €ì €Ðî € €ªˆÐ鎀¢­ ÎÉ ÊÉdÊŽº•©$ʀʀŽª”ŠIÿ8éݸ•é¨”©1€¢½ö–€ÊÐ÷Šx 5„ª` 6„© Ãÿ­Ì–”•©® ΠŒÌ– ºÿ©ÿ¢ÿ € ½ÿ Àÿ©/ ™IȈú ·ÿТ Æÿ ÿŒÌ–Lj• ·ÿÐó  Ïÿ ·ÿÐéˆÐõ Ïÿª ·ÿÐÝŠÐô  ÏÿCŽë–Ž•ì–•ª ·ÿÐÈè•.•©*&•8©éÿ­ë–éÿë–­ì–éÿì–¢­ì–ì–þIȬë–8­ë–ýí–ë–­ì–ýò–°åŒë–èàÐÚ ¢½IÈéÉ0°©0IÈ° Êí©0¢IÈÊú© NÈ©OȘH Ìÿ© Ãÿx 5„hð u– ÿŒÌ–ª` 6„© Ãÿ ŒÌ– Œâ•©® Π ºÿ©¢ÿ € ½ÿ Àÿ u–ðJ 6„© Ãÿ­P€I6Ð4­Q€I3Ð-¢àÿÐÎâ•©-€©1€Cй½€É9ðþ€Ð­©0€ÊÙŠÌ–x 5„ª`?–Ž>–ŒR–ÊŠIÿðÎ?–¨¢6†¢ Éÿ©ÿÌ–Ð ·ÿÐô¹ÿÿ Òÿ ·ÿÐéÈÐòî?–­?–IÿÐèH Ìÿx 5„hÐ` 6„© Ãÿ u–¢ŽÌ–ª` 6„© O€¢ Éÿ©ÿÌ–Ð) Ìÿ¢ Æÿ  Ïÿ™P€É ð ÈÀ(° ·ÿð숩™P€ÈÀ)ø Ìÿx 5„­P€I0ЭQ€I0Щ𠢽—P€Ê÷Š` 6„© Ãÿx 5„`@ C(œ,S,W,S,R*=S99,DEVICE NOT PRESENT ERRORCCC C!C"C#C$C%9Lò“L‹”Lš•L–Lb–Lu–LÜ–°C'àh<|f 0f<0p~~ppDh<|ÿf 0fÿ<ÿÿ0ÿpÿ~~ÿDppÿ