–€€L}ˬð6­…C­…D­¬® l0¬±C)HÈCð±C¨ WhL/©ÀÐh ¨`¥Cm…C¥Di…D` Œ ©R @©P €Œ©1 Œ©ÿ© €Êð©  Œ Îÿ0¢@©RÍð ©!Í𢀎L¢®­`ª ¾ Ë ¦ …D­ Ö­ …C­ …D­  ¢Ž  ° ©)1ð6 ©‘C莠ЭÍ>ðLYäL˜® ¥C)¥D1 pˆð pʲ¬ ¢©ˆ˜˜0 ¥C9¥DI pèàÐâ¥Cç¥DèL~¥Ci€…C¥Di…D` ª ¾ Ë ¦ …D­ Ö­ …C­ …D­  ¢Ž  ° ©)1ð6 ©‘C莠ЭÍ>ðLYäL˜® ¥C)¥D1 pˆð pʲ¬ ¢©ˆ}˜˜0 ¥C9¥DI pèàÐâ¥Cç¥DèL~¥Ci€…C¥Di…D` ©™ˆÐú ¹ð ÉDðÈÈÈÀÐð©D™©Ë™©™` È ž½J‚)ðL­ !½‚}ÉðÉðDÉ ð É ðL¿(°(° ¬ ® LðL»(°ú¬¹)ð ¬ ¿ Ž½‹L| L·(° S ¬LH ­0p n­­ ¿¬¢ © ™È}Êù® ¬™½‹™©C™©™™¢½YÉ?ð™Èèà ð® q • â©€… ›ÐL L𠽩…­ ©‡` • ¬¹)„¹}‹¹Œ `½A…! d¬¹Éß°©…"½‚)ð-¼‡˜Ý† ”°"   °±$þ‡­‘G©@……LðL¿Lô½‚I ð)j¥")ð ® °­  } ±G‘$ÈÌøÐö(`8`­ø‡ ±$‘GÈÌøÐö ”¥$}†…$¥%i…%8¥(ý†…(¥)é…)¥)Я`H8¥(ý†…(¥)éê…) ® ¡¥G…$¥H…%¼ˆˆ Ð`­þÉÐ¥(0ó }¥)Ðï8` d½‚)ðL¹ ½‡݆  ðLô¨±GȘ‡¼‹Ð¼ŒР݆©LÓLð d ž !° ¬ LðL» d½‚)ðN>…Q « € ½H½H½‚) }ð ® û½‹½ŽŒ ³¬hy™hy™©B™ q •©‚Lê>…ó øLm ½JJ ›  › Ln© *ˆÐù` ȽBÉþð%É' }°8é  ¨¹Å H¹Æ H` Ø 1 Ò { ‚ ¹ L¿L žŒ  !L» ¬ ›Ð ¬  ´ ›Ð¬¹H¹¨h S¢¬½YÉ?ð™Èèà ð® q ž 1¸L }ê ž !°? S ›Ð  q 1í •Lê ¿¬ ¬ ©€™ ® Ll ° ÅLg  ©ÿ‘E`L»© Щ ž !L»¬¹)ß ™ q 1êLê¬}¹) Ð`LÁ½…0A½M݊нL݉ð½…ð ø©…½MŒ½L‹ ° ½N݆ðLÇLðL¹½‡N½‰L½ŠMLð¥H¥G©!©@}®þ©1¬F †ÀР±GÉÿÐȱGÉÿðLµLÓ©¨‘EÈû ©‘EȩÑEÈÈ‘E©ˆ‘EÈÈ‘E  ©ÿ‘EÈÀdÐù©  ‘E 7©‘EÈ©‘E •©¨™Èú© qÎø} Lê© !,°0,0S¬±GîɛРÀ°©€Lð© 1° !Lð ‹ ±EHˆ±E¨h W ¢ ½‘GÈÊ÷ g©LêLôSROTCES EERF  ©} ‘G®½) ð©*‘GÈ© ‘GȽ‘GèÈÀ õ© ‘GÈŒ®¼½¢d q¢ q˜  ©›‘G Œ`Ž¢ÿ Œ è8­ í¨­ é°êŠ 0¬‘Gî­ ¬ `½D}…C½E…D ±Cˆ0XÉ:Ð÷È¢ © YÊú¢Ž ȱCÉ*Ð ©? ùð0.É.Ð , 0%¢n ÞÉ?ðÉAÉ[ àðÉ0 É:° Lî`LÅà ðà `, 0`Y}è`©ÿ©pî­iî©ÍðH n©¨¹ð0)ÐÕ¢½YÉ?ðÙÐÇèÈà Ðî­­­­¹0¢8®`½…0 } … ø0$L ½‡¬û‘G½Œ¬ø‘GȽ‹‘G ø­©‚­LÓþÐþ ©‹Œ‡­ø†`8½Š¼‰L÷½‹‰½ŒŠ`½…ðL”½}‹ŒÐ8`  ù05¬ø±G)üÝÐ,±G)ŒȱG‹ȱGH½„Ðh0©})Hh†©‡` å½BÉ!ð Ç8`8©©­ii¨©iL« ±Eð`} ©‘E8¥F¥E h©(®þ l0`ɃðLåLÉ ‹L•½‰Šð8© ^Š~‰jˆÐö jˆÐü¨©8jˆüH½‰i ¨hE‘E ±Ei‘EȱEi‘E`  ÈÀ€°T±Eð÷Œ} H8 ±Eé‘EȱEé‘EÈ©ÿ‘Eh ÿÈ üŒ Jˆü¬ ‘E8­ é  Œ  . ÈÀ÷m ‹­ iŒ`LË©Ÿ…IŽºè莮¤!Œˆ¹)…E¹1…F¹ðRþ¨¹ø}ø¹ûû¼ˆˆ1 ¹ðÈÀöLÍ­þJ°ÈÀ°ò¹Ð舩€™©€™˜ˆþˆ¹9…G¹I…H`Lϼˆðˆ©ˆ™­þJ°J™`H¥G¥Hh®þ l`¼‰}½Š S gLð©©©©  î ¢8 r­i€­i­ ÍÐÞ`Œ­þ¬øŒд­…C­…D ±C‘GÈÌøö˜‡ WÍ  }Ð¥CÍ Ð ”Lq`  ¹X٨ЈÐõ`DOS SYS æIæIæIæIæIæIæIæIæIæIæIæIæIæI¥I®C®š®¨­`­0é® Þ©Ðß©ˆ0Û}}ýÿñ}ied €„€ÿþýüûúùø÷ö! €€€€OS ""##$$"#DOSDOS SYS €}}€}}CDOS SYS}}Ù©©©1©@ © `©>© L@©… ©… ­œêÉÐ © ©  à©D!¥ð` Ø©T©² }S  æ0 c  æ0 c  æ ( æ0 cÎÙ©Ø`©°!©… LD:STARTUP.EXC›D:DOSXL.SYS›D:AUTORUN.SYS›D:MENU.COM›¢¹³7"ÈèÉ!}›Ðñ¢© Ü (`¥;ÐLê˜HL³êLLZLLÁ›D1:D:STARTUP.EXC›ÿÿÿÿàá*.*.COM›››››››››››››››››0R*.*›.OBJ›ECTORS›› NOTES›óéï"}î ²®³°›ÿ©… ©ÿ¢ @©Eß©:à ©¢ŽK© ü©¦ u Ë ÿýl‰ÿlú¿làlâl,©µh¶h·rÿÿ'­¼Iÿ¼Í¼ðlú#}¿©¯ \LAlàlâlS©ÜhÝhÞLZ©ÿ…©Ü $©¦ \LA¢ ©E7©:8 ‰¢ŽK© Ü` «­Üð©Ü­ÞH­ÝH` ó ¹UÉ0É:É Ð$}ÈÐîÉ@ÐLÉ*Ð ýLAŒ  Á®Z­[Ö ¹: ª]0ð8ʈðÎÖæ08ÉaÉ{°)ß(`­Ö ª½]H½\H`­Ù…­Øð©Ø…!©ÿÙLß` ¹7 %}QðÈÐõ©:Ù6ð¢½,™7ÈÊö c¢ ­ÛÐ ýLA©DÍ7Ð ©1¬8À:ð˜LAMOC.REMCARENDSCRNOSRENPROUNPSAVLOARUNERADIRTYP) @Ä15=&}Œw{ Y œ©#Щ$Щ! é \LA Á ù¢© áL… Á½6É:Ð ©*79©.8©¢ ÜL…©Ú B¹UÉ›ð© Ú Á©¢ ÜL…'} ëûLA¢ Ÿ© "0 ®Ú Ÿ© "` Á©L¶ BÉ›ð SŒT ýLA Á¢© Ü0' 7Œ8 9Œ: l© " 7© "0LA \LA Á c(}LA©Û©á¢© Ü06©ÿØ l ¶­7S­8T ³ûÉ…ð ɈТ ­áð©ÛL÷ \LA` ‚©ã© "0ð­8ÉÿÐ Í7Э97­:8 )} •© 9 L¶ 7© "H ÷h`­ãÐ`©ÛLúÈŒ  ÁŠH½7"Ê÷hª ¹×"èˆö­!)@ !LA©ðö­!)¿L,­! @Ðç© "¢ ©J© "0*}a­!)ð ­!)Ï!Т  ¹2Lèˆö¢ ©% "¢ H¢ ©& "¢  ½L™2èˆö¢ h0,!p ¢ Ÿ© "`©!Ló­!) Ð \ ­!Œ!)@ðLûL+}›CXE.J©H ‰hL"H Áh¢Lá­! 0¢  •©  © "­!LE¢ Ÿ©L"© B Vä½CÉ€ð¨` \LA¬5ÈÐ'¬6ÈÐ!¬7­8 8­9í7,}¨­:í8ÈÐiL—©« \LA©ÿ56¢  • 5©L¢  • 7©E˜D`©I˜H` U©  €L•©Ö­Ö ª ÎÖÐð`¢©›7Êú B¢-}¹UÉ›ð ©:ÙVðÙWð ½7èàÐõ¹U7 QðèÈÐñŒ `©Ö× B8¹Ué0$É éÉ É°¢Ö.×ÊÐ÷ ÖÖÈÐÔŒ ­Ö¬×`¬ ¹U UÐ.}ÈÐõ`É›ðûÉ,ð÷É `ɦð¢Ž!ÉЩ¨É °i,É°©¤) ª½ ¼¡¢  ÿ •© L"DRIVE NUMBER ERROR›NO BUFFERS›DISK FULL›I/O ERROR›SYSTEM E/}RROR›INVALID FILE NAME›OSS DOS XL - ATARI version 2.30cs Copyright (C) 1983 OSS,Inc.›FILE PROTECTED›WRITE PROTECTED›D0}IRECTORY FULL›FILE NOT FOUND›ADR RANGE ERROR›BREAK KEY ABORT›INVALID DEVICE›NO CARTRIDGE›£®¸ÂÏá'6FUdt„“1}}Ž¤!Œ¹ðÌ>ð©S Sä ­ê) Ј˜¬™®Ld¬?î­É!ÐL¿­ ® …C†D ]­ )?i@…3©…2­…C­…D , ±C‘2ˆÐùð±22}‘CˆÐù­Ó ÐÓ¤ŒÔ „BXÈŒ` „BŒÔx©FD*FD*C*C*¨­Ó)#€Ó`ÌÈÄÀLHD@Œˆ„€ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3}ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ}INTRO.COM›%dit ÿÿ03 2©…ÑÔ¢/†Ð©ÿ©0©¢0©21 ¹N1™Äˆ÷©ÀÔ©…Ò D1¥ÒÔæÑ¥ÑÉÆÒ©…ѦÐÊ &1©¨2ÆÐ¥ÐÐÙ¢@ D1Êú©ï0©21©…Ð…Ñ…Ò6} D1¥ÒÔæÑ¥ÑÉæÒ©…Ñ­ö28é(ö2°Î÷2¦Ð©ø2è 51æÐ¥ÐÉ-ɪ©ù2©_ú2 D1©Ô©©1©>0Ô©31Ô©€Ç©ÀÔ ŒÔ¢ D1Êúˆ7}ò­ÐÉðùLtäH­È ÔЩЩ!Ôh@H© ÔЭÈÐh@ ¹K1¨2èÈÀô` ¹K1ø2èÈÀô`¥Åðü`NP2fuerden#omputer:uha8}us-uelheim'neisenaustr4el€€€€€€óïæô÷áò倀€€€€€€âéâïáóóåíìåò€ôïïìó€&ilesbittemit9}dem!ssemblerladen©…ЅѦнE2Ð`)¨æÐæнF2¦Ñ¢2èˆù†ÑL 2¨è½E2†Ð¦Ñ¢2è†Ñ¦ÐˆíæÐL 2…p®NP€pbS1pppp bs1b“1A¢2…pNà^N(P:}­€`bS1pppp bs1b“1Aï2…pNØW®„pg³1pppgÈ1pp€pBÜ1A>3ppppppNP€pbS1pppp bs1;}b“1A¢2ppppppNà^N(P€pbS1pppp bs1b“1Aï2ppppppNØW<}pppppg³1pppgÈ1pp€pbÜ1A>3Pÿ_*ªªªªªªªªªªªªªªªªªªª #ÿÿÿÿÿÿÿÿÿÿÿÿÿÀƒ=}Œªªªªªªªªªªªªªªªªªªªª‚ ?ÿÿÿÿÿÿÿÿÿÿÿÿÿ𪪪ªªªªªªªªªªªªªªªªª‚0ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ𪪪ª>}ªªªªªªªªªªªªªªªª0ÿÿÿÿÿÿÿÿÿÿÿÿÿÿüªªªªªªªªªªªªªªªªªªªªÃÿÿÿÿÿÿÿÿÿÿÿÿÿÿü ªªªªªªªªªªªªªªªªªªª¨ Ãÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ¨*€ª€?}ª *ª(#ð?ÿü?Àÿ* *ª**¨ ƒ ð?ÿðÀÿÀ* *ª*€ ¨ Œ<ð?ÿðÀÿÀª€(( @}€  ‚ 0ð?ÿÀÀ?ðª€((   ‚0ðð?ÿÀÀ?ðª€((  € 0ðð?ÿÀÀ?𪀪ª¨ ª ( €¨ ª€¨€ A}Ãð?ÿÿð?ÿÀÿÿÀÿð?𪀪ª¨ ª ( €¨ ª€¨( Ãð?ÿÿð?ÿÀÿÿÀÿð?𪀪ª¨ ª ( €¨ ª€ª(#ð?ÿÿð?ÿÀÿÿÀÿð?𪀪ª¨ ª ( €¨ ª ƒð?ÿB}ÿð?ÿÀÿÿÀÿð?𪀪ª¨ ª ( €¨ ª€ Œ?ð?ÿÿð?ÿÀÿÿÀ?𪀪ª¨ ª ( €¨ ª€‚ ?ððÀÿÿÀ?𪀪ª¨ ª ( €¨ ª ‚0ÿððC}ÀÿÿÀÿ𪀪ª¨ ª ( €¨ ª  0ÿððÀÿÿÀÿ𪀪ª¨ ª ( €¨ ª€ ÃÿüðÀÿÿÀÿ𪀪ª¨ ª ( €¨ ªªª€( ÃÿüðÀÿÿÀD}ÿÿÿ𪀪ª¨ ª ( €¨ ªªª(#ÿÿðÀÿÿÀÿÿÿ𪀪ª¨ ª ( €¨ ªªª ƒÿÿÿÿÀð?ÿÀÿÿÀÿÿÿ𪀪ª¨ ª ( €¨ ªª¨ Œ?ÿÿÿÿÀð?ÿÀÿÿÀÿÿÿðE}ª€ªª¨ ª ( €¨ ªª¨‚ ?ÿÿÿÿÀð?ÿÀÿÿÀÿÿÿ𪀪ª¨ ª ( €¨ ªª ‚0ÿÿÿÿÿÀð?ÿÀÿÿÀÿÿÿ𪀪ª¨ ª ( €¨ ªª  0ÿÿÿÿÿÀð?ÿÀÿÿÀÿÿÿ𪀪ª¨F} ª ( €¨ ªª€ ÃÿÿÿÿÿÀð?ÿÀÿÿÀÿÿÿðª€(( €¨ ªª€( Ãÿÿðð?ÿÀÀÿÿÿðª€(( €¨ ªª(#ÿÿðð?ÿÀÀÿÿÿðª€(( G}€¨ ªª ƒÿÿðð?ÿÀÀÿÿÿð* *¨ €¨ ª¨ Œ?ÿÿðð?ÿðÀÿÿÿÀ* *¨ €¨ ª¨‚ ?ÿÿðð?ÿðÀÿÿÿÀ ¨*€¨ €¨ ªH} ‚0ÿÿÿðð?ÿü?Àÿÿÿ ªªªªªªªªªªªªªª  0ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿªªªªªªªªªªªªªª€ Ãÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿüªªªªªªªªªªªªªª€( ÃÿI}ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿüªªªªªªªªªªªªªª(#ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ𪪪ªªªªªªªªªªª ƒÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðŒJ} *ªªªªªªªªªªªªªª‚0?ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀK}L}*ªªªªªªªªªªªªªªªªªªª #ÿÿÿÿÿÿÿÿM}ÿÿÿÿÿÀƒŒªªªªªªªªªªªªªªªªªªªª‚ ?ÿÿÿÿÿÿÿÿÿÿÿÿÿN}𪪪ªªªªªªªªªªªªªªªªª‚0ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ𪪪ªªªªªªªªªªªªªªªªª0ÿÿÿÿÿÿÿÿÿÿÿÿÿÿüªªªªªªªªªªªªªªªªªªªªÃÿÿÿÿÿÿÿÿÿÿÿÿÿÿü ªO}ªªªªªªªªªªªªªªªªªª¨ Ãÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ €*€  ª ªªªª¨#ÿðÀ*€ € ¨ªªªª ƒ üðÀÀ*€ €P} ¨ªªªª Œ<üðÀÀª€€  ªªªª‚ 0ððÀ𪀀  ªªªª‚0ðððÀ𪀀 Q} ªªªª0ðððÀ𪀪ªª€ª *ª€ *ª€ªªªªÃð?ÿÿð?ÿÀð?ÿÿÿð?ÿ𪀪ªª€ª *ª€ *ª€ªªª¨ Ãð?ÿÿð?ÿÀð?ÿÿÿð?ÿ𪀪ªª€ª *ª€ *ª€ªR}ªª¨#ð?ÿÿð?ÿÀð?ÿÿÿð?ÿ𪀪ªª€ª *ª€ *ª€ªªª ƒð?ÿÿð?ÿÀð?ÿÿÿð?ÿ𪀪ªª€ª *ª€ *ª€ªªª Œ?ð?ÿÿð?ÿÀð?ÿÿÿð?ÿ𪀠ª€ª  *ª€ *‚ ?S}ðð?ÿÀðÿÿð?ÿ𪀠ª€ª  *ª€ *‚0ÿðð?ÿÀðÿÿð?ÿðª€*ª€ª   *ª€ *0ÿðð?ÿÀðÿÿð?ÿðª€*ª€ª   *ª€ *ÃÿüðT}?ÿÀðÿÿð?ÿ𪀠ª€ª  *ª€ ( Ãÿüð?ÿÀðÿÿð?ÿ𪀠ª€ª  *ª€ (#ÿÿð?ÿÀðÿÿð?ÿ𪀪ªª€ª *ª€ *ª€ªª ƒÿÿÿÿÀð?ÿÀð?U}ÿÿÿð?ÿ𪀪ªª€ª *ª€ *ª€ªª Œ?ÿÿÿÿÀð?ÿÀð?ÿÿÿð?ÿ𪀪ªª€ª *ª€ *ª€ªª‚ ?ÿÿÿÿÀð?ÿÀð?ÿÿÿð?ÿ𪀪ªª€ª *ª€ *ª€ªª‚0ÿÿÿÿÿÀð?ÿÀð?ÿÿÿð?V}ÿ𪀪ªª€ª *ª€ *ª€ªª0ÿÿÿÿÿÀð?ÿÀð?ÿÿÿð?ÿ𪀪ªª€ª *ª€ *ª€ªªÃÿÿÿÿÿÀð?ÿÀð?ÿÿÿð?ÿ𪀀  ª¨ Ãÿÿððð?ÿÿÿð?ÿðª€W}€  ª¨#ÿÿððð?ÿÿÿð?ÿ𪀀  ª ƒÿÿððð?ÿÿÿð?ÿð*€ € ¨ª Œ?ÿÿðüð?ÿÿÿð?ÿÀ*€ €X} ¨ ª‚ ?ÿÿðüð?ÿÿÿð?ÿÀ €*€  ª ª‚0ÿÿÿðÿð?ÿÿÿð?ÿ ªªªªªªªªªªªªªªªª0ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿªªªªªªªªªªªY}ªªªªªÃÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿüªªªªªªªªªªªªªªª¨ Ãÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿüªªªªªªªªªªªªªªª¨#ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ𪪪ªªªªªªªªªªªª Z}ƒÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðŒ *ªªªªªªªªªªªªªª‚0?ÿÿÿ[}ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ\}]}àá0ERÉ™œ - *‚ZEICHENVONDERTASTATUR‚**‚LESEN.ZEICHENSTEHTIMƒ*(*‚REGISTERŽ*2*‚,ZERSTOERT.ˆ*<- _}F*"PGETKEYƒLDA$E425ƒADRESS-VECTORZ‰PHA‰AUSROM-TABELLEHOLEN%d‰LDA$E424ƒUNDALSRETURNADRESSEn‰PHA‰AUFSSTACK `}LEGENx‰RTS‰JUMPINROM-ROUTINE‚*Œ-"–*ZEICHENAUFDENBILDSCHIRM*" *AUSGEBEN.DASAUSZUGEBENDE* ª*‚ZEICHEN a}STEHTIMRE-‚*"´*GISTER.,ZERSTOERT.*¾-È*ÒPUTCHAR‚TAX‰ZEICHENRETTEN܉LDA$E407ƒVECTORAUFæ‰PHA b}‰STACKLEGENð‰LDA$E406ƒ(SIEHEOBEN)ú‰PHA‰TXA‰ZEICHENNACH‰RTS‰JUMPINSROM*"-07ƒVECTORAUFæ‰PHA hERÚ”œ ‰.LIOFF-*œ*!(*FLOTINGPOINT‚BERECHNUNGEN*2*œ*<-F*P*Z*d**nLBUFF„.EQ$580„WIRDVOMROMd}FESTGELEGTx*$‚INBUFFƒ.EQ$F3…POINTERAUFLBUFF(ŒCIX†.EQ$F2…INDEXREGISTER.NORMAL=0–FR0†.EQ$D4 FR1†.EQ$E0&ªe}FPPNTRƒ.EQ$FC…POINTERAUFFPZAHL´*¾-,ÈAFP†.EQ$D800ƒASCII=>FLOATINGPOINT(FP)%ÒFASC….EQ$D8E6ƒFP=>ASCIIINLBUFf}F(ÜIFP†.EQ$D9AAƒINTEGERFR0($D4)=>FP*æFPI†.EQ$D9D2ƒFP=>INTEGERINFR0($D4) ðFSUB….EQ$DA60ƒFR0<=FR0-FR1 úFADD….g}EQ$DA66ƒFR0<=FR0+FR1 FMUL….EQ$DADBƒFR0<=FR0*FR1 FDIV….EQ$DB28ƒFR0<=FR0/FR1-%"FLD0R„.EQ$DD89ƒLADEFR0MITZh}AHL&,*AUFDIEDIEREGISTERUND6*ZEIGEN.=MSB,=LSB%@FLD0P„.EQ$DD8DƒLADEFR0MITZAHL J*AUFDIEDERi}POINTERFPPNTR T*ZEIGT.*^FLD1R„.EQ$DD98ƒWIEFLD0RDOCHMITFR1*hFLD1P„.EQ$DD9CƒWIEFLD0PDICHMITFR1,rFSTOR„.EQj}$DDA7ƒWIEFLD0RNURINANDERER|*RICHTUNG(SPEICHERN)'†FSTOP„.EQ$DDABƒWIEFSTORNURDURCH*FPPNTRADRESSIERT.šFMk}OVE„.EQ$DDB6ƒFR0=>FR1¤*®-¸INITFPƒLDA#0ˆFP-ROUTINEN‰STACIX‡INITIALISIEREN̉LDA#LBUFFÖ‰STAINBUFFà‰LDl}A/LBUFFê‰STAINBUFF+1ô‰RTSþ-*-'PRINTFR0JSRINITFP…INITIALISIERUNG&‰JSRFASC‡FP=>ASCIIWANDELN 0‰LDm}Y#0:.1‡STYWERT‡ZEICHENAUS D‰LDA(INBUFF),YPUFFERHOLEN)N‰BMIENDE‡INVERS?JA:LETZTESZEICHENX‰JSRPUTCHAR„AUSGn}EBENb‰LDYWERT‡NAECHSTESZEICHENl‰INYv‰BNE.1‰HIEREINJUMP&€ENDE…AND#$7F‡INVERSESZEICHENALS'Š‰JMPPUTCHAR„NOo}RMALZEICHENAUSGEBEN”* žWERT….HX00‰ZWISCHENSPEICHER¨*²-¼*Æ-ÐPUTCHAR‚TAXŒVECTORÚ‰LDA$E407†JUMPä‰PHp}AŒUEBERî‰LDA$E406†ROMø‰PHA‰TXA ‰RTSŒJMP* -*CLRFR0ƒLDY#5‡FR04‰LDA#0‡LOESCHEN>.1‡STAFR0,YH‰q}DEY R‰BPL.1\‰RTSf-pCLRFR1ƒLDY#5‡FR1z‰LDA#0‡LOESCHEN„.1‡STAFR1,YŽ‰DEY ˜‰BPL.1¢‰RTS¬-0,YH‰uERF—Þš - *Textausgeberoutineueberƒ**Stack.Routinemussmit„*"(*JSRaufgerufenwerden.Der* 2*Textfolgtds}irektimAn-ƒ*!<*schlussandasJSR-State-‚*F*ment.DerTextmussmit„* P*einerEnde-Kennung(hierƒ* Z*das@-Zeit}chenenden.Dasƒ*!d*ProgrammwirdabTextende‚*n*fortgefuehrt.x-‚*Œ*–PRINT„PLA‰ReturnAdresse ‰STA$D0…u}vomStackª‰PLA‰holenundals´‰STA$D1…pointerspeichern¾*ÈINCP…INC$D0…PointerÒ‰BNE.1†Hochzaeh-܉INC$D1…lv}enæ.1‡LDX#0†Zeichenausð‰LDA($D0,X)Ramlesenú‰CMP#'@…Ende?‰BEQENDPRƒja==>!‰JSRPUTCHARZeichenausgebenw}!‰JMPINCP„zurueckinschleife"*,ENDPR„LDA$D1…Pointerals6‰PHA‰neueReturn@‰LDA$D0…AdresseaufsJ‰PHA‰Stackx}legenT‰RTS‰Programmhinter^*ŒTextfortfuehren!h-rPUTCHAR‚TAX‰Druck|‰LDA$E407ƒZeichen †‰PHA‰mit‰LDA$E4y}06ƒStackš‰PHA‰Methode¤‰TXA ®‰RTS‰JUMP¸-n!h-rPUTCHAR‚TAX‰Druck|‰LDA$E407ƒZeichen †‰PHA‰mit‰LDA$E43ER³‘œ ‰.LIOFF;OLDX….EQ$D5(OLDY….EQ$D42TOX†.EQ$DB<TOY†.EQ$DAFADX†.EQ$E0PADX2….EQ$E1ZADY†.E{}Q$E2dADY2….EQ$E3nDX‡.EQ$E4xDY‡.EQ$E5‚SL‡.EQ$E6ŒCOUNT„.EQ$E8–COLOR„.EQ$E9 HOLD….EQ$EAª*´PNT|}†.EQ$D0¾;ÈSETTABLELDA$58‡TabelleÒ‰STA$00‡der܉LDA$59‡Anfangs-æ‰STA$01‡addresseð‰LDY#0ˆderúSET†LDA}}$0ˆBild-‰STATABLO,Yƒschirm-‰LDA$1ˆzeilen‰STATABHI,Yƒerzeugen"‰CLC‹(192Zeilen) ,‰LDA$06‰ADC#40‡UNBE~}DINGT@‰STA$0ˆNACHDEMJ‰BCCSS1‡GRAPHICAUFRUFT‰INC$1ˆUNDVORDER^SS1†INY‹BENUTZUNG!h‰CPY#192†DERGRAPHICROUTI}NENr‰BNESET‡AUFRUFEN.|‰RTS†;;šDRAWLINELDX#0ˆRichtungen¤‰STXADX2†vorbezetzen ®‰STXADY ¸‰STXSL+1€}‰INX̉STXCOUNT Ö‰STXADY2 à‰STXADXê;ô‰LDATOX‡Punktabstandþ‰SEC‹berechnen ‰SBCOLDX‰BCSDSKIP1}‰DECADX‡gegebenenfalls&‰DECADX‡Richtung0‰LDAOLDX†aendern:‰SEC D‰SBCTOXNDSKIP1ƒSTADXˆDeltaXX*b‰LDA‚}TOY‡Dasgleichel‰SEC‹fuerdiev‰SBCOLDY†Y-Koor-€‰BCSDSKIP2„dinate Š‰DECADY2 ”‰DECADY2 ž‰LDAOLDY¨‰SEC ²ƒ}‰SBCTOY¼DSKIP2ƒSTADYƉLDADXˆIstЉCMPDYˆdy>dx,Ú‰BCSDSKIP3ä‰LDXDXˆdannî‰LDADYˆdxunddyø‰STADXˆve„}rtauschen ‰STADX ‰TXA ‰STADY ‰LDAADX‡auchRichtungen*‰STAADX2†fuerXundY4‰LDAADY2†Koordinaten>‰ST…}AADY‡vertauschen H‰LDA#0 R‰STAADX \‰STAADY2fDSKIP3ƒLDADXˆDX/2p‰LSR‹fuerFehler-z‰STASLˆgroessesetzen„†}‰LDADXˆmehralsŽ‰BEQRETURN„1Punktsetzen?˜‰JSRPLOT†Punktsetzen¢;¬MAIN…LDAOLDX†Richtungen¶‰CLC‹zuKoor-‡}À‰ADCADX‡dinatenʉSTAOLDX†rechnen Ô‰LDAOLDYÞ‰CLC è‰ADCADY ò‰STAOLDYü‰INCCOUNT*‰LDASLˆFehler-ˆ}‰CLC‹groesse$‰ADCDYˆSL+DY .‰STASL 8‰BCC.1 B‰INCSL+1L*V.1‡LDASL+1†SL>DX?`* j‰BNESUB t‰LDADX ~‰}‰CMPSLˆ‰BCSDPLOT’*œSUB†LDASLˆSL=SL-DX¦‰SEC °‰SBCDX º‰STASL ĉBCS.1 ΉDECSL+1Ø*â.1‡LDAOLDX†Š}Schrittinì‰CLC‹2.Richtungö‰ADCADX2†machen ‰STAOLDX ‰LDAOLDY‰CLC ‰ADCADY2 (‰STAOLDY2*<DPLOT„‹}LDADXˆLetzterPunktF‰CMPCOUNT…erreichtP‰BCCRETURN„Ja! Z‰JSRPLOT†SonstPunktsetzend‰JMPMAIN†Wiederholenn;Œ}xRETURNƒLDATOY‡OLD-Koor.‚‰STAOLDY†=TO-Koor. Œ‰LDATOX –‰STAOLDX ‰JMPPLOT†Punktsetzen.ª*%´OPENS„STA$2B‡}Graphicstufesetzen¾‰LDA#0ˆOhneTextfenster ȉSTA$2AÒ‰LDA#$70†SourceCode܉STA$6A‡sichernæ‰JSROPEN†OS-OPENŽ} ð‰JMPSETTABLE‚Tabellesetzenú*OPEN…LDA$E411…ROM-Jump‰PHA‹ueber‰LDA$E410…Stack"‰PHA,‰RTS6-@TA}BLO„.BL192‡PlatzfuerJTABHI„.BL192‡Tabellen$E411…ROM-Jump‰PHA‹ueber‰LDA$E410…Stack"‰PHA,‰RTS6-@TA1ERõŽœ ‰.LIOFF$*RECHENROUTINENFUERGANZZAHLEN(*2*<*F*P*Z*dMLPCNDƒ.EQ$D0nMLPLERƒ.EQ$D1xPR‘}OD….EQ$D2‚*ŒDVDND„.EQ$D4–DVSOR„.EQ$D6 RMNDR„.EQ$D8ª*´RADCNDƒ.EQ$DA¾ROOT….EQ$DCÈTEMP….EQ$DEÒ’}SIGN….EQ$DFÜ*æ*ð*ú***"SQUAREƒLDAMLPCND„Multiplikant"‰BPLPOSITIVƒ=|MLPCND|,‰SEC‹Multiplikato“}r 6‰LDA#$0@‰SBCMLPCNDJ‰STAMLPCNDTPOSITIV‚STAMLPLER^*hMULT…LDA#0r‰LDX#8ˆ8Bits$|MLOOP„LSRMLPLER„M”}ultiplikator/2†‰BCCNOADD…Bit=0‰CLC‹addiereš‰ADCMLPCND„Multiplikanten¤NOADD„ROR‹schiebeBits!®‰RORPROD†ins•}Produktregister¸‰DEX‹Naechstes‰BNEMLOOP…Bit̉STAPROD+1„MSBProduktÖ‰RTSà-êMULTV„LDAMLPCND„Vorzeichenô–}‰EORMLPLER„desProduktesþ‰AND#$80†bestimmen ‰STASIGN‰LDX#MLPCNDƒBerechnung‰JSRABS8†von"&‰LDX#MLPLERƒ|M—}LPLER|*|MLPCND| 0‰JSRABS8 :‰JSRMULTD‰LDASIGN†ErgebnisN‰BPL.1ˆpositiv?X‰LDX#PROD…Vorzeichendes b‰JSRCHS˜}16…Produktesaendern l.1‡RTSv-.€ABS8…LDA$0,X†Absolutwerteiner8BitZahlŠ‰BPLAOˆZahlPositiv"”CHS8…LDA#0ˆVor™}zeichenaendernž‰SEC ¨‰SBC$0,X ²‰STA$0,X ¼AO‡RTSÆ*3ÐABS16„LDA$1,X†WieABS8Jedochfuer16BitZahl Ú‰BPLAš}OäCHS16„JSRCHS8†WieCHS8 î‰LDA#0 ø‰SBC$1,X ‰STA$1,X ‰RTS-& DIVIDEV‚LDADVDND+1ƒVorzeichendes*‰EOR›}DVSOR+1ƒQuotienten4‰AND#$80†bestimmen >‰STASIGNH‰LDX#DVDND„BerechnungR‰JSRABS16…desQuotienten#\‰LDX#DVSOR„œ}aus|DVDND|/|DVSOR|f‰JSRABS16p‰JSRDIVIDE!z‰BCS.1ˆDivisiondurchNull?„‰LDASIGN†VorzeichenŽ‰BPL.1ˆaendern}wenn˜‰LDX#DVDND„Ergebnis ¢‰JSRCHS16…negativseinmuss¬‰CLC ¶.1‡RTSÀ-ÊDIVIDEƒLDADVSOR…Divisor=0Ô‰ORADVSž}OR+1ƒdannErrorÞ‰BNEDIVOKè‰SECò‰RTSü*$DIVOK„LDA#$00†Wertevorbesetzen‰STARMNDR‰STARMNDR+1$*.Ÿ}‰LDX#$10†16Bit&8DLOOP„ROLDVDND…BitvonDVDNDnachB‰ROLDVDND+1L‰ROLRMNDR…RMNDRV‰ROLRMNDR+1ƒschieben`‰SEC" }j‰LDARMNDR…WennRMNDR-DVSOR>=0t‰SBCDVSOR…dann~‰TAY‹RMNDR=ˆ‰LDARMNDR+1ƒRMNDR-DVSOR’‰SBCDVSOR+1œ‰BCCDECCNT¡}¦‰STYRMNDR°‰STARMNDR+1ºDECCNTƒDEX‹NaechstesBitĉBNEDLOOPÅ*ΉROLDVDND…Anschaetzung؉ROLDVDND+1ƒfuer¢}â‰ASLRMNDR…Rundungì‰ROLRMNDR+1ö‰BCSROUND‰SEC ‰LDADVSOR‰SBCRMNDR‰LDADVSOR+1(‰SBCRMNDR+12‰£}BCSNOCHNG<ROUND„INCDVDND…ErgebnisF‰BNENOCHNG„stehtinP‰INCDVDND+1ƒDVDNDZNOCHNGƒCLC‹NoErrord‰RTSn*x-¤}‚*ŒSQRT…LDX#$8‡Berechnung–‰LDA#0ˆderQudrat- ‰STAROOT†wurzeleinerª‰STAROOT+1„16BitZahl´‰STATEMP†Nac¥}hdem¾‰STATEMP+1„Newton-ÈSQRT1„ASLROOT†VerfahrenÒ‰ROLROOT+1 ܉INCROOTæ‰BNENEXT1ð‰INCROOT+1úNEXT1„AS¦}LRADCND‰ROLRADCND+1 ‰ROLTEMP‰ROLTEMP+1"‰ASLRADCND,‰ROLRADCND+1 6‰ROLTEMP@‰ROLTEMP+1J‰SEC T§}‰LDATEMP ^‰SBCROOTh‰TAYr‰LDATEMP+1|‰SBCROOT+1†‰BCCRESTOR‰STATEMP+1 š‰STYTEMP ¤‰INCROOT®‰BNE¨}NEXT2¸‰INCROOT+1 ÂNEXT2„DEX̉BNESQRT1Ö‰JMPFINISàRESTORƒSEC ê‰LDAROOT ô‰SBC#1 þ‰STAROOT‰BCSNEXT©}3‰DECROOT+1 NEXT3„DEX&‰BNESQRT10FINIS„RORROOT+1 :‰RORROOTD‰RTSN*!XWURZELƒLDARADCND+1‚Einsprungbª}‰BMIWERR†inWurzel-c‰JSRSQRT†Routine l‰JSRSQRT v‰CLC‹wenn€‰RTS‹RadikantpositivŠWERR…SEC‹sonstError”‰RTS«}‰BMIWERR†inWurzel-c‰JSRSQRT†Routine l‰JSRSQRT v‰CLC‹wenn€‰RTS‹RadikantpositivŠWERR…SEC‹sonstError”‰RTSERŠ™œ PLOT…LDYOLDY†Zeilen-‰LDATABLO,Yƒaddresse‰STAPNT‡als(‰LDATABHI,YƒPointer2‰STAPNT+1…setzen <‰LDA ­}OLDXF‰PHA‹XMOD2P‰AND#1ˆnachZ‰TAXd‰LDACOLOR…Farben‰AND#$F‡MOD16x‰TAY‹nach ‚‰LDACOLFILL,YFa ®}rbyteholenŒ‰ANDEMASK,XƒunnoetigeBits–‰STAHOLD†ausmaskieren  ‰PLA‹X/2=ª‰LSR‹Byteoffset´‰TAY‹inZeile" ¯}¾‰LDA(PNT),YƒGraphicbyteHolen(ȉANDCMASK,XƒaltenWertausmaskieren&Ò‰ORAHOLD†unddurchneuenersetzen܉STA(PNT), °}Yƒspeichernæ‰RTSð;ú-*œ*"*FarbwerteundLoeschmasken**œ*"-0,COLFILL‚.HX00112233445566778899AABBCCD ±}DEEFF6EMASK„.HXF00F@CMASK„.HX0FF0FarbwerteundLoeschmasken**œ*"-0,COLFILL‚.HX00112233445566778899AABBCCD *ER”™œ PLOT…LDYOLDY†Zeilen-‰LDATABLO,Yƒaddresse‰STAPNT‡als(‰LDATABHI,YƒPointer2‰STAPNT+1…setzen <‰LDA$³}OLDXF‰PHA‹XMOD4P‰AND#3ˆnachZ‰TAXd‰LDACOLOR…Farben‰AND#3ˆMOD4x‰TAY‹nach ‚‰LDACOLFILL,YFarb$´}yteholenŒ‰ANDEMASK,XƒunnoetigeBits–‰STAHOLD†ausmaskieren  ‰PLA‹X/4=ª‰LSR‹Byteoffset´‰LSR¾‰TAY‹inZeile$µ}"ȉLDA(PNT),YƒGraphicbyteHolen(Ò‰ANDCMASK,XƒaltenWertausmaskieren&܉ORAHOLD†unddurchneuenersetzenæ‰STA$¶}(PNT),Yƒspeichernð‰RTSú;-*œ*"*FarbwerteundLoeschmasken*"*œ*,-6COLFILL‚.HX0055AAFF@EMASK„.HX$·}C0300C03JCMASK„.HX3FCFF3FC-*œ*"*FarbwerteundLoeschmasken*"*œ*,-6COLFILL‚.HX0055AAFF@EMASK„.HX$ ER€™œ PLOT…LDYOLDY†Zeilen-‰LDATABLO,Yƒaddresse‰STAPNT‡als(‰LDATABHI,YƒPointer2‰STAPNT+1…setzen <‰LDA(¹}OLDXF‰PHA‹XMOD8P‰AND#7ˆnachZ‰TAXd‰LDACOLOR…Farben‰AND#1ˆMOD2x‰TAY‹nach ‚‰LDACOLFILL,YFarb(º}yteholenŒ‰ANDEMASK,XƒunnoetigeBits–‰STAHOLD†ausmaskieren  ‰PLA‹X/8=ª‰LSR‹Byteoffset´‰LSR¾‰LSRȉTAY‹in(»}Zeile"Ò‰LDA(PNT),YƒGraphicbyteHolen(܉ANDCMASK,XƒaltenWertausmaskieren&æ‰ORAHOLD†unddurchneuenersetzen(¼}ð‰STA(PNT),Yƒspeichernú‰RTS;-*œ*""*FarbwerteundLoeschmasken*,*œ*6-@COLFILL‚.HX00FFJEMASK(½}„.HX8040201008040201TCMASK„.HX7FBFDFEFF7FBFDFE"*FarbwerteundLoeschmasken*,*œ*6-@COLFILL‚.HX00FFJEMASK(4ERþ‚œ XO‡.EQ$D0YO‡.EQ$D2XT‡.EQ$D3(YT‡.EQ$D52AX‡.EQ$D6<AX2†.EQ$D8FAY‡.EQ$DAPAY2†.EQ$DBZDX,¿}‡.EQ$DCdDY‡.EQ$DEnSL‡.EQ$DF xCˆ.EQ$E1‚*ŒOFF1….EQ$E3–OFF2….EQ$E4 BIT1….EQ$E5ªBIT2….EQ$E6´*,À}¾PNT†.EQ$E7È*ÒBX1†.EQ$E9ÜBY1†.EQ$EBæBX2†.EQ$ECðBY2†.EQ$EEú*SAVMSCƒ.EQ$58**"*,*6,Á}*@*J*TOPENGR8‚LDA#0ˆGraphic^‰STA$2A‡8Bild-h‰LDA#8ˆschirmr‰STA$2B‡oeffen |‰LDA#$70 †‰STA$6A‰J,Â}SRSOPENš*¤‰LDASAVMSC ®‰STAPNT¸‰LDASAVMSC+1‰STAPNT+1 ̉LDY#0Ö*à.1‡LDAPNT‡Zeilen-ê‰STALOTAB,Y,Ã}ƒaddressenô‰LDAPNT+1…tabelleþ‰STAHITAB,Yƒerzeugen‰CLC ‰LDAPNT ‰ADC#40 &‰STAPNT 0‰BCC.2:‰INCPNT+,Ä}1 D.2‡INY N‰CPY#192 X‰BCC.1b*l‰LDX#0ˆTabellev.3‡TXA‹mit€‰LSR‹Offset/8Š‰LSR”‰LSR‹erzeugenž‰STAR,Å}SH8,X¨‰INX ²‰BNE.3¼‰RTSÆ-ÐSOPEN„LDA$E411…Rom Ú‰PHA‹jumpä‰LDA$E410…fuer î‰PHA‹OPENø‰RTS- PLO,Æ}T…LDXYOˆZeilenaddresse‰LDALOTAB,Xƒnach ‰STAPNT‡pointer*‰LDAHITAB,X4‰STAPNT+1>*H‰LDYXO+1†Byte-R‰LD,Ç}XXOˆoffset\‰LDAHI,Y†ausX-f‰ORARSH8,X„Koordinatep‰TAY‹berechnenz*„‰TXA‹BitinnerhalbŽ‰AND#7ˆByte˜*&,È}¢MO‡ORA#0ˆ+0oder+8jenachModus¬‰TAX¶‰LDA(PNT),YƒByteladenÀCM‡ORAMASK,X„ManipulierenʉSTA(PNT),YƒSpeiche,É}rnÔ‰RTSÞ*-èMASK….HX80402010080402017FBFDFEFF7FBFDFEòHI‡.HX0020ü*-CMD†.HX1D3D5D‚OpcodesfuerORA,AND,EOR,Ê}OFF†.HX000800‚Maskenoffset-$SETMODE‚LDACMD,XƒOpcode.‰STACM†setzen 8‰STACM1/B‰AND#$F3„aufindiziertY-,Ë}Opcodeumrechnen L‰STACM2V‰LDAOFF,XƒMaskenoffset`‰STAMO+1„setzenj‰STAMO1+1t‰RTS~-ˆHLINE„LDXXO+1„Byte,Ì}und’‰LDAHI,X„BitPos-œ‰LDXXO†itionen¦‰ORARSH8,X‚derStart°‰STAOFF1„X-Koor-º‰TXA‰dinateĉAND#7†berechn,Í}en ΉSTABIT1Ø*â‰LDXXT+1„Dasselbeì‰STXXO+1„mitderö‰LDAHI,X„Ziel‰LDXXT†X-Koor- ‰STXXO†dinate‰O,Î}RARSH8,X‚und‰STAOFF2„Start=Ziel(‰TXA‰Koordinate 2‰AND#7 <‰STABIT2F*P‰LDAOFF1„SubtraktionZ‰SEC‰derBy,Ï}tepositionend‰SBCOFF2„WennErgebnis n‰STADX†>=0dannvertauschenx‰BCSEXOFF‚*ŒHOTHERƒLDAOFF2„Absulutwert–,Ð}‰SEC‰derBytepositionen  ‰SBCOFF1 ª‰STADX´‰JMPHSETRD‚weiter¾*ÈEXOFF„LDXOFF2„ByteundÒ‰LDAOFF1„BitPosi-,Ñ}܉STAOFF2„tionenæ‰STXOFF1„vertau-ð‰LDXBIT1„schen ú‰LDABIT2 ‰STABIT1 ‰STXBIT2*"HSETRDƒLDXYO†Add,Ò}resse,‰LDALOTAB,XdesZei-6‰STAPNT…lenanfangs@‰LDAHITAB,XinPointerJ‰STAPNT+1ƒRegisterT*%^‰LDADX†Start,Ó}undZielKoordinate'h‰BNEHLINE2‚imselbenByte?Neinr*|‰LDXBIT1„Balkenwert†‰LDYBIT2„berechnen‰LDAHMASK,Ô}1,Yš‰ANDHMASK2,X¤‰STASETBY+1undein-®‰LDYOFF1„setzen¸‰JMPSETBYÂ*.ÌHLINE2ƒCMP#2†StartundZielKoordina,Õ}tein5Ö‰BCCSETBORD2nebeneinanderliegendenByte?Jaà*ê‰LDYOFF1„Byteszwischenô‰LDA#$FF„OFF1+1undþ‰STAS,Ö}ETBY+1OFF2-1‰INY‰mit#$FFHLL1…JSRSETBYƒfuellen‰INY &‰CPYOFF2 0‰BCCHLL1:*DSETBORD‚LDYOFF1†WerteN,×}‰LDXBIT1†fuerX‰LDAHMASK1,X‚Randbytesb‰STASETBY+1ƒeinsetzenl‰JSRSETBY v‰LDYOFF2 €‰LDXBIT2Š‰LDAHMASK2,X,Ø}”‰STASETBY+1ž*¨SETBY„LDA#$FF²CM2†ORA(PNT),Y¼‰STA(PNT),YƉRTSÐ*ÚHMASK1ƒ.HXFF7F3F1F0F070301äHMAS,Ù}K2ƒ.HX80C0E0F0F8FCFEFFî-øVLINE„LDXXO+1†Byteposition‰LDAHI,X†bestimmen ‰LDXXO‰ORARSH8,X ‰TAY**4,Ú}‰LDAYOˆAnzahl >‰SEC‹derH‰SBCYTˆZeilenR‰BCCOTHER…bestimmen\‰LDXYTˆhaeltf‰STADYˆdiekleinerep‰JMPVSE,Û}TRD„derbeidenz*–Y-Koordinaten„OTHER„LDAYTŽ‰SEC ˜‰SBCYO ¢‰STADY ¬‰LDXYO¶*ÀVSETRDƒINCDYʉLDALOTA,Ü}B,XƒZeilenaddresseÔ‰STAPNT‡holenÞ‰LDAHITAB,Xè‰STAPNT+1ò‰LDAXOˆBitpositionü‰AND#7ˆbestimmen MO1†ORA#0ˆ,Ý}+Modusoffset ‰TAX% VLL†LDA(PNT),YƒBytemanipulieren$ CM1†ORAMASK,X. ‰STA(PNT),Y8 ‰CLC‹PointerB ‰LDAPNT‡+40,Þ}L ‰ADC#40‡FuerV ‰STAPNT‡naechste` ‰BCCVLSK†Bildzeilej ‰INCPNT+1t VLSK…DECDYˆWiederholen ~ ‰BNEVLLˆ ‰LDAYTˆ,ß}Koordinaten-’ ‰STAYOˆanpassungœ ‰RTS¦ *° DRAWLINELDX#0ˆErklaerungº ‰STXC‰sieheÄ ‰STXC+1‡imÎ ‰STXAX2‡DRAW.,à}INCØ ‰STXAX2+1…File â ‰STXAY ì ‰STXSL+1 ö ‰STXAX+1 ‰INX ‰STXAX  ‰STXAY2  ‰LDAXO ( ‰EORXT 2 ‰BNETST2,á} < ‰EORXO+1 F ‰EORXT+1 P ‰BNETST2Z ‰JMPVLINEd *n TST2…LDAYO x ‰EORYT‚ ‰BNENORMDRAWŒ ‰JMPHLINE– *  N,â}ORMDRAWJSRPLOTª *´ ‰SEC ¾ ‰LDAXT È ‰SBCXO Ò ‰STADX Ü ‰LDAXT+1 æ ‰SBCXO+1 ð ‰BPLD1OKú *  ‰LDA#$FF  ‰S,ã}TAAX  ‰STAAX+1" ‰SEC , ‰LDAXO 6 ‰SBCXT @ ‰STADX J ‰LDAXO+1 T ‰SBCXT+1^ *h D1OK…STADX+1r ‰SEC | ‰LDAY,ä}T † ‰SBCYO ‰BCSD2OKš * ¤ ‰LDA#$FF ® ‰STAAY2¸ ‰SEC  ‰LDAYO Ì ‰SBCYTÖ *à D2OK…STADYê * ô ‰LDADX+1,å}þ ‰BNEMAIN1  ‰LDADY  ‰CMPDX ‰BEQSWITCH& ‰BCCMAIN10 *: SWITCHƒLDADXD ‰PHA N ‰LDADY X ‰STADXb ‰PLA ,æ}l ‰STADY v ‰LDAAX € ‰STAAX2 Š ‰LDAAX+1” ‰STAAX2+1 ž ‰LDAAY2 ¨ ‰STAAY ² ‰LDA#0 ¼ ‰STAAX Æ ‰STAAX+1 Ð ‰STA,ç}AY2Ú *ä MAIN1„LDADX+1î ‰LSR ø ‰LDADX ‰ROR ‰STASL  ‰LDADX ‰ORADX+1* ‰BNEDRAWM 4 ‰JMPPLOT> *H ,è}DRAWM„LDAXOR ‰CLC \ ‰ADCAX f ‰STAXO p ‰LDAXO+1 z ‰ADCAX+1 „ ‰STAXO+1Ž ‰CLC ˜ ‰LDAYO ¢ ‰ADCAY ¬ ‰STAYO ¶,é} ‰INCC À ‰BNEDS1 Ê ‰INCC+1Ô *Þ DS1†LDASLè ‰CLC ò ‰ADCDY ü ‰STASL ‰BCCDS2 ‰INCSL+1*$DS2†LDADX+,ê}1 .‰CMPSL+1 8‰BEQTST B‰BCSOUTP L‰BCCADDJVTST†LDADX `‰CMPSL j‰BEQADDJ t‰BCSOUTP~* ˆADDJ…CLC ’‰,ë}LDAXO œ‰ADCAX2 ¦‰STAXO °‰LDAXO+1º‰ADCAX2+1 ĉSTAXO+1Î* ؉LDAYOâ‰CLC ì‰ADCAY2 ö‰STAYO* ,ì}‰SEC ‰LDASL ‰SBCDX (‰STASL 2‰LDASL+1 <‰SBCDX+1 F‰STASL+1P*ZOUTP…LDADX+1 d‰CMPC+1n‰BNEOUTP1,í} x‰LDADX ‚‰CMPCŒ‰BNEOUTP1 –‰JMPPLOT *ªOUTP1„JSRPLOT´‰JMPDRAWM¾-ÈLOTAB„.BL192ÒHITAB„.BL192,î}ÜRSH8….BL256æ-ð*úBOX†LDABX1‰STAXOˆZeichnet‰LDABX1+1…einen‰STAXO+1†Rahmen"‰LDABY1‡mit,‰STAY,ï}Oˆden6‰STAYTˆbeiden@‰LDABX2‡gegen-J‰STAXTˆueber-T‰LDABX2+1…liegen-^‰STAXT+1†denEck-h‰JSRDRAWLINE‚Pun,ð}ktko-r‰LDABY2‡ordi-|‰STAYTˆnaten†‰JSRDRAWLINE‚aus‰LDABX1‡BX1,BY1š‰STAXTˆund¤‰LDABX1+1…BX2,BY2 ®‰ST,ñ}AXT+1¸‰JSRDRAWLINE ‰LDABY1 ̉STAYTÖ‰JMPDRAWLINE‰LDABX1‡BX1,BY1š‰STAXTˆund¤‰LDABX1+1…BX2,BY2 ®‰ST,@ER¥˜œ -*…Block-Fill-Routine…**œ*(*Registerinhalte:‹*2*Fill-ByteŽ*<*AnzahlderPages‡*F*0ó}StartPage*P*œ*Z-d*nFILL…STY$1ˆPointerundx‰LDY#0ˆIndexSetzen ‚‰STY$0…*Œ.1‡STA($0),Y„Bytesetze0ô}n–‰INY‹Indexhochzaehlen' ‰BNE.1ˆwiederholenbisUeberschlag#ª‰INC$1ˆPointerMSBhochzaehlen´‰DEX‹NochPages¾‰0õ}BNE.1ˆUebrig?Ja==>ȉRTSÒ-Ü*æ*ð*ú-*„Block-Move-Routine†**œ**Registerinhalte:‹*"*œ*,*<0ö}A>SourcePageŒ*6*AnzahlderPages‡*@*DestinationPage‡*J*œ*T-^*hMOVE…STA$1ˆPointerr‰STY$FF‡0÷}setzen|‰LDY#0ˆIndex†‰STY$0ˆloeschen ‰STY$FFš*¤.1‡LDA($0),Y„Move®‰STA($FE),Y¸‰INY‹Indexhochzaehlen0ø}'‰BNE.1ˆwiederholenbisUeberschlag̉INC$1ˆPointerMSBÖ‰INC$FF‡hochzaehlenà‰DEX‹Anzahlrunterzaehlenê‰BNE.10ù}ˆWiederholenô‰RTSnbisUeberschlag̉INC$1ˆPointerMSBÖ‰INC$FF‡hochzaehlenà‰DEX‹Anzahlrunterzaehlenê‰BNE.10ERA’œ ‰.LIOFF**(*2*<*F*P- Z*DEZ0:#d*Ausgabeeiner16-BitZahlmitn*fuehrendenNullen.x4û}* ‚*DEZSP:Œ*Ausgabeeiner16-BitZahl–*OhnefuehrendeNullen. *$ª*Register:LO-BytederZahl$´*R4ü}egister:HI-BytederZahl¾*È-Ò*Ü*æDEZ0…STAWERT†Zahlinð‰STXWERT+1„Hilfregisterú‰LDA#0ˆ"Null"-Flag4ý}‰STAFLAG†setzen‰JMPNUM‡Ausgabe*"DEZSP„STAWERT†Zahlin,‰STXWERT+1„Hilfsregister6‰LDA#$80†keineNullen @4þ}‰STAFLAGJ*TNUM†LDX#8ˆ5Stellen^.1‡LDA#0ˆZiffer=0h‰STADIGITr.2‡LDAWERT†Zahl-|‰SEC‹entsprechender†‰S4ÿ}BCNTAB,X„Zehner-‰TAY‹potenzš‰LDAWERT+1-¤‰SBCNTAB+1,X‚istSubtraktionerfolgreich®‰BCC.3ˆNein¸‰STAWERT+5}1„Differenz‰STYWERT†speichern!̉INCDIGIT…ZifferhochzaehlenÖ‰JMP.2ˆNocheinVersuchà*ê.3‡LDADIGIT…IstZiff5}er ô‰BNE.4ˆungleichNull,Ja þ‰CPX#0ˆEinerstelleerreicht‰BEQ.4ˆJa,dannAusgabe‰BITFLAG†"Null"-Flag6‰B5}MI.5ˆtesten.Negativ,dannNullnichtausgeben.0&.4‡ASLFLAG†"Null"-FlagausAusgabeschieben0‰ORA#$30†+ASCII"0":‰5}STXHOLD†retten D‰JSRCHAROUTƒZifferausgebenN‰LDXHOLD†holenX.5‡DEX‹naechsteb‰DEX‹Ziffer l‰BPL.1v‰R5}TS€* ŠNTAB….DA1,10,100,1000,10000”*ž-¨* ²*HEX16:"¼*Ausgabeeiner16-BitZahlinÆ*hexadezimalerForm.5}Ð* Ú*HEX8:!ä*Ausgabeeiner8-BitZahlinî*hexadezimalerForm.ø*$*Register:LO-BytederZahl$ *5}Register:HI-BytederZahl* -**4HEX16„PHA‹LO-Byteretten >‰TXA‹HI-Bytezuerstausgeben H‰JSRHEX8R‰PLA‹da5}nnLO-Byte\*fHEX8…PHA‹Wertrettenp‰LSR‹erstHI-Nibblez‰LSR„‰LSRŽ‰LSR˜‰JSRHEX‡ausgeben ¢‰PLA‹dann¬‰5}AND#$F‡LO-Nibble¶*ÀHEX†CMP#10‡Zahl>=10ʉBCC.1ˆNeinÔ‰CLC‹+7fuer"A"-"F" Þ‰ADC#7è.1‡ADC#$30†+ASCII"05 }"ò‰JMPCHAROUTƒAusgebeü*-* *BIN:!$*GibtdieZahlimRegis-.*terindualer(binaerer)8*Forma5 }us.B-L*VBIN†STAWERT†Wertretten`‰LDA#8ˆ8Bits j‰STAHOLDt*&~.1‡ASLWERT†BitinsCarryschiebenˆ‰LDA#5 }$18†=ASCII"0"/2(’‰ROL‹CarryinsRegisterschiebenœ‰JSRCHAROUTƒundausgeben¦‰DECHOLD†naechstes°‰LDAHOLD5 }†Bitº‰BNE.1ˆwiederholenĉRTSÎ*Ø-â*ì*ZEICHENAUSGABEROUTINEö*- *CHAROUT‚TAX‰LDA$E407(5 }‰PHA2‰LDA$E406<‰PHAF‰TXAP‰RTSZ*d-n*x*Arbeitsregister‚*Œ-–* WERT….HX0000ªHOLD….HX005}´FLAG….HX00¾DIGIT„.HX00XAP‰RTSZ*d-n*x*Arbeitsregister‚*Œ-–* WERT….HX0000ªHOLD….HX004 ER˜“œ ‰.LIOFF**(IOCOM„=ƒ$3422IOBUFFƒ=ƒ$344<IOLEN„=ƒ$348FIOAUX1ƒ=ƒ$34APIOAUX2ƒ=ƒ$34BZ*dCIO†=ƒ9}$E456n*x*‚CLOSEFƒ=ƒ12 ŒOPENF„=ƒ3 –GETB…=ƒ7  PUTB…=ƒ11ªFORMATF‚=ƒ254´*¾*È*Ò-Ü*RoutinenzumS9}chliessen,æ*Oeffnen,LesenvonBytes,ð*SchreibenvonBytesund!ú*FormattierenvonDatenfiles*bzwDisketten9}-*"*,*6- @*CLOSE:J*Datenkanalnummer*16imT*Register.^*h-r*|CLOSE„LDA#CLOSEF†‰ST9}A$342,X ‰JSRCIO š‰BPL.1¤‰JMPERROR ®.1‡RTS¸*Â-Ì* Ö*OPEN:"à*Register:Datenkanal*16+ê*OPEN9}spezifikationô*4:Lesenþ*6:Directory*8:Schreiben*9:Append*Ž12:Update&*0*Register:LO-Byt9}edes:*FilenamepointersD*N*Register:HI-BytedesX*Filenamepointersb*l-v* €OPEN…PHAŠ‰TXA”‰9}PHA ž‰AND#$70¨‰TAX²‰PLA ¼‰AND#$FƉSTAIOAUX1,X ЉLDA#0Ú‰STAIOAUX2,Xä‰PLAî‰STAIOBUFF,Xø‰TYA9}‰STAIOBUFF+1,X ‰LDA#OPENF‰STAIOCOM,X ‰JSRCIO *‰BPL.14‰JMPERROR >.1‡RTSH*R-\*f*GETBYTES:9}$p*Register:PagedesBuffers!z*Register:Datenkanal*16$„*Register:LaengederBytesŽ-˜*¢GETBYTE9}SSTAIOBUFF+1,X¬‰LDA#GETB¶‰STAIOCOM,XÀ‰TYAʉSTAIOLEN,X Ô‰LDA#0Þ‰STAIOBUFF,Xè‰STAIOLEN+1,X ò‰JMP9}CIO ü‰BPL.1‰JMPERROR .1‡RTS*$-.*8*PUTBYTES:$B*Register:PagedesBuffers!L*Register:D9}atenkanal*16$V*Register:LaengederBytes`-j*tPUTBYTESSTAIOBUFF+1,X~‰LDA#PUTBˆ‰STAIOCOM,X’‰TYA9}œ‰STAIOLEN,X ¦‰LDA#0°‰STAIOBUFF,Xº‰STAIOLEN+1,X ĉJMPCIO ΉBPL.1؉JMPERROR â.1‡RTSì*ö-* 9}*FORMAT:#*Register:LO-BytederDe-*viceaddresse#(*Register:HI-BytederDe-2*viceaddresse!<*9}Register:Datenkanal*16F*P-Z*dFORMATƒSTAIOBUFF,Xn‰TYAx‰STAIOBUFF+1,X‚‰LDA#FORMATFŒ‰STAIOCOM,X –9}‰JSRCIO  ‰BPL.1ª‰JMPERROR ´.1‡RTS¾*È-Ò* ÜERROR„TYAæ‰RTSð*"ú*HiersollteeineeigeneFeh-*9 }lerroutinestehen. *RegisterhaeltFehler- *nummer.RROR„TYAæ‰RTSð*"ú*HiersollteeineeigeneFeh-*8@ER4“œ ‰.LIOFF**(-2*Eingaberoutinenfuer‡*<*Dezimalzahlen,*F*Hexadezimalzahlenund†*P*Binaerza="}hlen*"Z*OhneKorrekturmoeglichkeit*d*œ*"n*ACHTUNG:Routinenbenoeti-*x*ŠgendieEin-und‚*‚*ŠAusgaberoutine=#}nƒ*Œ*ŠausdemFile†*–*ŠINOUT.INC‰* *ŠSolltendiese…*ª*Šnichtschonanan-*´*ŠdererStelle†*¾*Šstehenmuesse=$}nSie*È*Šsiehiermitein-*Ò*Šbinden.‹*Ü-æ*ð*ú***GETDEZƒLDA#0ˆWert"‰STAWERT†loeschen,‰=%}STAWERT+16.1‡JSRGETKEY„Tasteholen@‰CMP#$9B†NurRETURNJ‰BEQOUT‡undT‰CMP#'0‡Ziffern^‰BCC.1ˆvon0-9h‰CM=&}P#'9+1…zulassen r‰BCS.1|‰PHA†‰JSRPUTCHARƒausgeben‰PLAš‰AND#$F‡Nuruntere ¤‰PHA‹4Bitswerdengebraucht='}®*¸‰LDAWERT†Wert‰STAHOLD†wird̉LDAWERT+1„mit10Ö‰STAHOLD+1„multi-à‰ASLHOLD†pliziertê‰ROLHOLD+1„plus=(}ô‰ASLHOLD†Ziffernþ‰ROLHOLD+1„wert‰CLC ‰LDAHOLD ‰ADCWERT &‰STAWERT0‰LDAHOLD+1:‰ADCWERT+1D‰ST=)}AWERT+1 N‰ASLWERTX‰ROLWERT+1b‰CLCl‰PLA v‰ADCWERT €‰STAWERT Š‰BCC.2”‰INCWERT+1!ž.2‡JMP.1ˆZurueck=*}inSchleife¨*'²OUT†JMPPUTCHARƒAusstiegmitRETURN¼*ÆWERT….HX0000†HilfsregisterÐHOLD….HX0000Ú*ä-îGE=+}THEXƒLDA#0ˆWertø‰STAWERT†loeschen‰STAWERT+1 ‰LDA#3ˆNur4‰STAHOLD†Zeichen **.1‡JSRGETKEY„Tasteholen=,}4‰CMP#$9B†Nur>‰BEQOUT‡RETURNH‰CMP#'0‡sowie R‰BCC.1\‰CMP#'G‡0-9f‰BCS.1ˆundp‰CMP#'9+1…A-F z‰BCC.2=-}„‰CMP#'A‡zulassen Ž‰BCC.1˜*¢‰PHA¬‰JSRPUTCHARƒAusgeben¶‰PLAÀ.2‡CMP#'9+1…WertʉBCC.3ˆauf0-15Ô‰S=.}EC‹umrechnen Þ‰SBC#7 è.3‡SEC ò‰SBC#$30ü‰LDX#3ˆZahl*16.4‡ASLWERT‰ROLWERT+1‰DEX $‰BPL.4.‰ORAWE=/}RT†Wert+Zahl8‰STAWERT†ZahlB‰DECHOLD†naechtesL‰BPL.1ˆZeichenVOUT2…LDA#$9B†Ausstiegmit`‰JMPOUT‡Returnj=0}*t-~*ˆGETBINƒLDA#0ˆZahl’‰STAWERT†loeschenœ‰STAWERT+1¦‰LDA#7ˆ8Zeichen °‰STAHOLDº*Ä.1‡JSRGETKE=1}Y„TasteholenΉCMP#$9B†Nur؉BEQOUT2†RETURNâ‰CMP#'0‡undì‰BCC.1ˆZiffernö‰CMP#'2‡0und1‰BCS.1ˆzulassen=2} ‰PHA‰JSRPUTCHARƒAusgeben‰PLA(‰AND#1ˆNurein2‰LSR‹Bitwird<‰ROLWERT†gebrauchtF‰DECHOLD†naechtesZe=3}ichen P‰BPL.1Z‰JMPOUT2†AusstiegLA(‰AND#1ˆNurein2‰LSR‹Bitwird<‰ROLWERT†gebrauchtF‰DECHOLD†naechtesZe<'ERŽœ ‰.LIOFF*PPOINTƒ.EQ$D0(*2SAVMSCƒ.EQ$58<*F*P*Z*d*nKOALA„LDX#$10†Kanal1x‰JSRCLA5}OSE…schliessen‚‰LDX#$14†Kalal1Œ‰LDA#FN‡zumlesen–‰LDY/FN‡oeffnenmit ‰JSROPEN†FilenameinFNª‰LDX#$10†27A6}Bytes´‰LDY#27‡vonKanal1¾‰LDA#$06†nachpage6lesenȉJSRGETBYTESÒ‰LDA$0607…Formatbyte ܉JSRSETADD„holenA7}undsetzen&æ‰JSRINITREGI‚Registervorbesetzenð‰LDY#2ˆFarbenúGCOLP1ƒLDA$060D,YƒinSoft-‰STA$2C4,Y„warere-‰A8}DEY‹gister‰BPLGCOLP1„kopieren"‰LDA$060D+4,‰STA$2C86-"@PLOOP0ƒJSRGETLEN„LaengeholenJ‰LDAFFLAG…FuelleA9}nT‰BEQFFILL…ja^PLOOP1ƒJSRGETB1…Byteholenh‰LDYYCˆinBildr‰STA(PPOINT),Ysetzen!|‰JSRADDS†PointerhochzaA:}ehlen†‰LDAPLEN†Laenge‰BNE.1ˆerniedriegenš‰DECPLEN+1¤.1‡DECPLEN®‰LDAPLEN+1.¸‰BPLPLOOP1„WiederholenwenA;}nungleichNull‰JMPPLOOP0„WeitermachenÌ-ÖFFILL„JSRGETB1…Byteholenà‰STAHREG†abspeichern!êPLOOP2ƒLDYYCˆinBA<}ildspeicherô‰LDAHREG†kopierenþ‰STA(PPOINT),Y ‰STAHREG*‰JSRADDS†naechsteBildpositionsetzen‰LDAPLEN†LaenA=}ge&‰BNE.1ˆrunterzaehlen0‰DECPLEN+1:.1‡DECPLEND‰LDAPLEN+1(N‰BPLPLOOP2„WiederholenbisLaenge=0X‰JMPPLOOA>}P0„Hauptschleifeb-lGETB1„LDA#0ˆEinBytev‰TAY‹holen€‰LDX#$10†Wertsteht!Š‰JMPGETBYTES‚imRegister”-,žA?}INITREGILDASAVMSC+1‚Bildschirmaddresse$¨‰STAPPOINT+1‚inPointerregister²‰LDA#0ˆX-Zaehler¼‰STAXCˆY-ZaehlerƉSA@}TAYCˆZeilenzaehlerЉSTALINEC…loeschenÚ‰LDASAVMSCä‰STAPPOINTî‰RTSø-HADDS…JMP$FFFF…HierwirdSprungzurAA}AddierungsroutinejenachFormat -SETADDƒASL‹Addresse ‰TAY‹der#*‰LDAADDT-2,Y‚Addierungsroutine4‰STAADDS+1„obAB}enbei>‰LDAADDT-1,Y‚ADDSH‰STAADDS+2„einsetzenR‰RTS\*fADDT….DAKAF1†Addressender p‰.DAKAF2†AddierungsroutAC}inenz-„GETLENƒJSRGETB1…Byteholen#Ž‰STAPLEN†AlsLO-Bytespeichern˜‰LDA#0ˆFillflag¢‰STAFFLAG…undHI-Byte¬AD}‰STAPLEN+1„loeschen¶‰LDAPLEN†LaengenegativÀ‰BPLSETF†Nein&ʉINCFFLAG…FlagauffuellensetzenÔ‰AND#$7F†LaenAE}ge-128 Þ‰STAPLEN&èSETF…BNEAJL‡IstLaenge=0?Neinò‰JSRGETB1…16-Bitü‰STAPLEN+1„Laenge‰JSRGETB1…holen‰AF}STAPLEN†LaengeAJL†BNE.1ˆerniedriegen$‰DECPLEN+1..1‡DECPLEN 8GLOK…RTSB-LKAF1…LDAPPOINT„Pointer+80V‰CAG}LC‹(2Zeilen) `‰ADC#80j‰STAPPOINTt‰LDAPPOINT+1 ~‰ADC#0ˆ‰STAPPOINT+1’‰INCXCˆXC=XC+1 œ‰LDAXC¦‰CMP#AH}$60†=96°‰BNEKAF1OK„Neinº‰LDASAVMSC+1‚BildadresseĉSTAPPOINT+1‚inPointerΉLDASAVMSC؉STAPPOINTâ‰LDAAI}#0ˆXCloeschen ì‰STAXCö‰INCLINEC…Zeilenzaehler+1‰LDALINEC ‰CMP#2ˆ=2‰BEQTESTYC„Ja‰LDAPPOINT„PoinAJ}ter+40(‰CLC‹(Eine2‰ADC#40‡Zeile<‰STAPPOINT„versetzen)F‰LDAPPOINT+1 P‰ADC#0Z‰STAPPOINT+1d‰BNEKAF1OK„AK}bedingunslosnTESTYCƒLDA#0ˆLINECx‰STALINEC…loeschen‚‰INCYCˆNaechsteŒ‰LDAYCˆSpalte–‰CMP#40‡Spalte40 ‰BEAL}QKAF1R…erreicht?Ja!ªKAF1OKƒRTS‹zurueckzumAufruf ´KAF1R„PLA‹Rucksprungaddresse¾‰PLA‹Leschen,daBildȉRTS‹ferAM}tig.Ò-ÜKAF2…INCYCˆNaechsteæ‰LDAYCˆSpalteð‰CMP#40‡Spalte40!ú‰BNEKAF2OK„erreicht.Nein‰INCXCˆNaechstAN}e‰LDAXCˆZeile‰CMP#192†192.erreicht!"‰BEQKAF1R…Ja,BildFertig,‰LDAPPOINT„Pointer 6‰CLC‹+40@‰ADC#40AO}‡NaechsteJ‰STAPPOINT„Zeile T‰BCC.1^‰INCPPOINT+1h.1‡LDA#0ˆSpalter‰STAYCˆloeschen|KAF2OKƒRTS‹zurueck†-AP}HREG….HX00ˆPlatzšYC‡.HX00ˆfuer¤XC‡.HX00ˆHilfs-®PLEN….HX0000†register¸FFLAG„.HX00ÂLINEC„.HX00ck†-@vER›œ ‰.LIOFF‰.OR$4000*(*2*<*F*P*!ZMEMO…JSRGETKEY„ZEICHENLESENd‰CMP#'‡WENNESCAPEn‰BNER}EZOUT†RUECKKEHRZUMx‰RTS‹ASSEMBLER‚*#ŒZOUT…JSRPUTCHARƒSONSTAUSGEBEN –‰JMPMEMO†ENDLOSWIEDERHOLEN -ª‰.IN"ES}D:INOUT.INC"EHRZUMx‰RTS‹ASSEMBLER‚*#ŒZOUT…JSRPUTCHARƒSONSTAUSGEBEN –‰JMPMEMO†ENDLOSWIEDERHOLEN -ª‰.IN"D ERw˜œ ‰.LIOFF‰.OR$4000*(*2*<*F*P*ZSTART„LDA#$90†SourceCoded‰STA$6A‡sichernn*x‰LDAIU}#$0‡Graphic9‚‰STA$2A‡aufrufen Œ‰LDA#$9 –‰STA$2B  ‰JSROPENª*´‰LDA#79‡Werteund¾‰STAX‰CursorȉSTA$IV}56‡vorbereiten Ò‰STA$56 ܉STA$5Cæ*ðLOOP…LDAX‰Punktú‰STA$55‡(X,0)in‰AND#$F‡Farbe‰STACOL‡XMOD16IW}‰LDA#0ˆsetzen "‰STA$54 ,‰LDX#6 6‰JSRPLOT @‰DEC$55J‰LDA#79‡Verbindungs-T‰SEC‹linienach^‰SBCX‰(79-x,IX}191)h‰STA$5B‡ziehen r‰LDA#191 |‰STA$5A †‰LDX#$A ‰JSRDRAWš‰DECX‰X=X+1¤‰LDAX‰BisXnegativ ®‰BPLLOOIY}P¸-ÂWAIT…JMPWAIT†endlosÌ- ÖXˆ.HX00 àYˆ.HX00êCOL†.HX00ô-þ-OPEN…LDA$E411…Screen ‰PHA‹OPENIZ}‰LDA$E410…ueber&‰PHA‹Stack0‰RTS:-DDRAW…LDA#17‡DrawkommandoN‰STA$22‡setzenXPLOT…LDA$E411,XƒScreenPUTbI[}‰PHA‹ueberl‰LDA$E410,XƒStack v‰PHA‹Jump €‰LDACOLŠ‰RTSmandoN‰STA$22‡setzenXPLOT…LDA$E411,XƒScreenPUTbHCER˜œ ‰.LIOFF‰.OR$4000*(*2*DASFOLGENDEPROGRAMM!<*ENTSPRICHTDERBASIC-ZEILE:F*"P*FORI=0TO25M]}5:?I,I*I:NEXTIZ*d*n*x*‚*Œ*–* *ª*´START„JMPDEMO¾-È*Ò‰.IN"D:FPOINT.INC"Ü*æ-&ðM^}DEMO…JSRCLRFR0„FR0UNDSCHLEIFEN-ú‰STADWERT…WERTLOESCHEN‰STADWERT*(DLOOP„JSRIFP‡INTEGER=>FPUMRECHNEN"M_}‰JSRPRINTFR0‚ZAHLAUSGEBEN,‰LDA#'‡TAB6‰JSRPUTCHARƒAUSGEBEN%@‰JSRFMOVE…ZAHLNACHFR1SCHIEBEN(J‰JSRFMUL†UNDMIM`}TFR0MULTIPLIZIEREN6T‰BCSERROR…ISTDASCAARYGESETZTSOLAGFEHLERVOR^‰JSRPRINTFR0‚ZAHLAUSGEBENh‰LDA#$9B†CRAUSMa}GEBENr‰JSRPUTCHAR|‰INCDWERT…INTEGERWERT†‰LDADWERT…HOCHZAEHLEN‰STAFR0‡NACHFR0&š‰BEQERROR…BEIUEBERSCHLAGMb}=>ENDE¤‰LDA#0ˆMSBLOESCHEN®‰STAFR0+1%¸.1‡JMPDLOOP…SCHLEIFEFORTFUEHREN ÂERROR„RTSÌ*ÖDWERT„.HX00RSCHLAGLuER—œ ‰.LIOFF‰.OR$4000*(SˆLDA#$90†HiMem2‰STA$6A‡runtersetzen<*F‰LDA#$0‡Graphic9P‰STA$2A‡aufrQd}ufen Z‰LDA#$9 d‰STA$2B n‰JSROPENx*‚‰LDA#0ˆCursor-Œ‰STAX‰sitionen–‰STA$56‡setzen  ‰STA$5Cª*´LQe}OOP…LDAX‰Von-Ko-¾‰STA$55‡ordinateȉEOR#$F‡undFarbeÒ‰STACOL‡setzen ܉LDA#0 æ‰STA$54ð*ú‰LDX#6ˆPunktQf}‰JSRPLOT†setzen* ‰DEC$55"*,‰LDA#79‡Linie6‰STA$5B‡nach@‰LDA#191†79,191J‰STA$5A‡ziehen T‰LDX#Qg}$A ^‰JSRDRAWh*r‰LDA#0ˆPunkt|‰STA$54‡0,0†‰STA$55‡setzen ‰LDX#6 š‰JSRPLOT ¤‰DEC$55®*¸‰LDA#79Qq}áÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB0DOS SYSB4STARTUP EXCB)5INTRO COMB^INOUT INCBcFPOINT INCBrPRINTS INCBzDRAW INCBINTMATH INCB¬PLOT16C INCB²PLOT4C INCB¸PLOT2C INCB4¾GR8PACK INCBòBLOCK INCBúINTOUT INCBIOPACK INCB!GETNUM INCB4KOALA INCBQMEMO DEMBTDRAWOS DEMB\FPDEMO DEMB cDRAWOS2 DEMBvDIR DEMB ˆDRAW1 DEMB •GR8PACK2DEMBžINIDSK DEMB°INTOUT DEMB¶KOALA DEMB¼INCDEC16INCBÀCODE PRGBÆBREAK PRGB ÉMATHE PRGBÒCIO PRGBØMOVE PRGB ßSIO PRGB&éLOADMAK BASB ATARI PIC‡undmit‰SEC‹Punkt̉SBCX‰79-X,191Ö‰STA$5B‡durchà‰LDA#191†Linieê‰STA$5A‡verbinden ô‰LDX#$A þ‰JSRDRAWQr}*‰INCX‰X=X+1‰LDAX‰Wiederholen&‰CMP#80‡bisX=80 0‰BNELOOP:-DWAIT…JMPWAIT†EndlosN- XXˆ.HX00 Qs}bYˆ.HX00lCOL†.HX00v-€-ŠOPEN…LDA$E411…Screen ”‰PHA‹OPENž‰LDA$E410…ueber¨‰PHA‹Stack ²‰RTS‹Jump¼-Qt}ÆDRAW…LDA#17‡Draw-KommandoЉSTA$22‡setzenÚPLOT…LDA$E411,XƒPoint-PUTä‰PHA‹Vectorî‰LDA$E410,XƒaufStackø‰PQu}HA‹legen‰LDACOL‡Farbenach ‰RTS‹JumpÚPLOT…LDA$E411,XƒPoint-PUTä‰PHA‹Vectorî‰LDA$E410,XƒaufStackø‰PP1ER¿“œ ‰.LIOFF‰.OR$4000*(*2COL1….EQ$2C5<COL2….EQ$2C6FCOL4….EQ$2C8PCURINHƒ.EQ$2F0Z*dIOBCCUw}MD‚.EQ$342nIOBCBFL‚.EQ$344xIOBCBFH‚.EQ$345‚IOBCLNL‚.EQ$348ŒIOBCLNH‚.EQ$349–IOBCAB1‚.EQ$34A IOBCAB2‚.EUx}Q$34Bª*´CIO†.EQ$E456¾*ÈROW†.EQ$54ÒCOLUMNƒ.EQ$55Ü*æ*ðOPEN….EQ3 úGET†.EQ7CLOSE„.EQ12*Uy}*"*,*6SˆJSREOPEN…Editor@‰LDA#0ˆoeffnenJ‰STACOL2†FarbenT‰STACOL4†setzen^‰LDA#$C‡Cursorh‰STACOUz}L1†ausschalr‰STACURINH„ten.|‰JSRPRINT.†‰.AS"}Demoprogramm auf der BIBOASSEMBLER" ‰.HX9B-š‰.AS"Tool Box DiskU{}ette................." ¤‰.HX9B&®‰.AS" Directory Drive 1@"!¸‰JSROPEND…Datenkanaloeffnen‰BMIEOF‡Fehler,U|}ja==>ÌLOOP…JSRPRINT…Positio-Ö‰.HX9Bˆnierenà‰.AS" @"#êLOOP2„JSRGETBYTEƒZeichenholenô‰CPY#1ˆWennfehleU}}rþ‰BNEEOF‡dannEndOfFile‰CMP#$9B†ZeichenCR ‰BEQLOOP†Ja,NaechsteZeile ‰JSRPUTCHARƒZeichendrucken&‰JMU~}PLOOP2…weitermachen0*(:EOF†JSRCLOSED„DatenkanalschliessenD‰JSRTASTE…WartenN‰JMPS‰WiederholenX*b-*lOPU}END„JSRCLOSED„Datenkanalschliessenv‰LDX#$10†Kanal1€‰LDA#OPEN…OpenŠ‰STAIOBCCMD,X”‰LDA#NAME…Filenamež‰STAU€}IOBCBFL,X„Addresse¨‰LDA/NAME…inIOBC²‰STAIOBCBFH,X¼‰LDA#6ˆDirectoryƉSTAIOBCAB1,X ЉLDA#0Ú‰STAIOBCAB2U},X ä‰JMPCIOî-øGETBYTE‚LDX#$10‰LDA#GET†GetByte ‰STAIOBCCMD,X ‰LDA#0 ‰STAIOBCLNL,X„Len=0*‰STAIOU‚}BCLNH,X 4‰JMPCIO>-HCLOSEDƒLDX#$10R‰LDA#CLOSE„Close\‰STAIOBCCMD,X f‰JMPCIOp-zTASTE„LDAROW‡CursorUƒ}„‰PHA‹merkenŽ‰LDACOLUMN˜‰PHA¢‰LDA#23‡Neue¬‰STAROW‡Position¶‰LDA#3ˆPOS.3,23À‰STACOLUMNʉJSRPRINT…TU„}extausgabe/Ô‰.DA"™Äéóëåôôå åéîìåçåÔáóôå äòõåãëåî@"Þ‰JSRGETKEY„AufTastewartenè‰PLA‹Altenò‰STACOLUMN‡CursorU…}ü‰PLA‹restau-‰STAROW‡rieren‰RTS-$GETKEYƒLDA$E425…Siehe.‰PHA‹INOUT.INC8‰LDA$E424B‰PHAL‰RTSVU†}-`EOPEN„LDA$E401…Editorj‰PHA‹oeffnent‰LDA$E400…JUMP~‰PHA‹ueberˆ‰RTS‹Stack’-œNAME….DA"D1:*.*",#$9B¦U‡}*°‰.IN"D:PRINTS.INC"orj‰PHA‹oeffnent‰LDA$E400…JUMP~‰PHA‹ueberˆ‰RTS‹Stack’-œNAME….DA"D1:*.*",#$9B¦TER!–œ ‰.LIOFF‰.OR$4000*(*2SˆJMPDEMO<*F*P-Z‰.IN"D:DRAW.INC"d‰.IN"D:PLOT16C.INC"n* xXY‰}ˆ.HX00‚-Œ*–* *ª-´DEMO…JSRINIT†GraphicInit¾.1‡LDA#0ˆLinieȉSTAOLDY†vonÒ‰LDA#191†(X,0)-(79-X,1YŠ}91)܉STATOY‡inFarbe æ‰LDAX‰Xð‰STAOLDX†ziehen ú‰LDA#79‰SEC ‰SBCX ‰STATOX "‰LDAX,‰STACOLOR6Y‹}‰JSRDRAWLINE@‰DECX‰X=X-1J‰BPL.1ˆBisXnegativT* ^‰JSRGETKEY„AufTastewartenh*r‰JSRINIT†Graphicinit|YŒ}.2‡LDA#0ˆLinie†‰STAOLDX†(0,0)-(X,191)‰STAOLDY†mitFarbeš‰LDAX‰Xziehen¤‰STACOLOR ®‰STATOX ¸‰LDA#191Y} ‰STATOỶJSRDRAWLINEÖ*à‰LDA#79‡Linieê‰STAOLDX†(79,191)-(79-X,0)ô‰SEC‹mitFarbeþ‰SBCX‰Xzeichnen YŽ}‰STATOX ‰LDA#0 ‰STATOY&‰JSRDRAWLINE0‰DECX‰X=X-1:‰BPL.2ˆBisnegativD* N‰JSRGETKEY„AufTastewartenY}X*b‰JSRINIT†Initl.3‡LDA#79v‰SEC‹Boxmit€‰SBCX‰EckkoordinatenŠ‰STATOX‡(X,X)-(79-X,X) ”‰LDAX ž‰STAOLY}DX ¨‰STAOLDY ²‰STATOY ¼‰LDAXƉSTACOLORЉJSRDRAWLINE#Ú‰LDA#191†(79-X,X)-(79-X,191-X)ä‰SEC î‰SBCX øY‘}‰STATOY‰JSRDRAWLINE! ‰LDAX‰(79-X,191-X)-(X,191-X) ‰STATOX ‰JSRDRAWLINE*‰LDAX‰(X,191-X)-(X,X) 4‰STATOYY’}>‰JSRDRAWLINEH‰DECX‰X=X-1R‰BPL.3ˆBisX<0 \‰JSRGETKEY„AufTastewartenf‰JMPDEMO†Vonvornep*z-„INITY“}…LDA#9ˆOpenŽ‰JSROPENS…Graphic9˜‰LDA#79‡X=79 ¢‰STAX¬‰RTS¶-ÀGETKEYƒLDA$E425…LeseʉPHA‹ZeichenÔ‰LDAY”}$E424…vonderÞ‰PHA‹Tastaturè‰RTS‰LDA#79‡X=79 ¢‰STAX¬‰RTS¶-ÀGETKEYƒLDA$E425…LeseʉPHA‹ZeichenÔ‰LDAX(ER˜œ ‰.LIOFF‰.OR$4000*(*2*<*F*P*Z*d*n-x‰.IN"D:GR8PACK.INC"‚-Œ*–DEMO…JSROP]–}ENGR8  ‰LDX#2ª‰JSRSETMODE ´‰LDA#0 ¾‰STAWERTÈ*ÒLL1†LDA#191܉SEC æ‰SBCWERTð‰STAWERT2 ú‰STAYO ]—}‰LDA#0 ‰STA$2C6 ‰STAXO "‰STAXO+1 ,‰LDA#319 6‰STAXT @‰LDA/319 J‰STAXT+1 T‰LDAWERT ^‰STAYTh‰]˜}JSRDRAWLINE r‰LDAWERT |‰STAYO †‰LDA#0 ‰STAXO š‰STAXO+1¤‰LDAWERT2 ®‰STAYT¸‰JSRDRAWLINE ‰LDAWER]™}T̉CLC Ö‰ADC#7 à‰CMP#192 ê‰BCC.1ô‰SEC þ‰SBC#192.1‡STAWERT ‰LDA#$FF ‰CMP764 &‰BEQLL1 0‰STA]š}764:‰JSROPENGR8D*NDM2†LDAWERT X‰STABX1 b‰STABY1 l‰LDA#0v‰STABX1+1 €‰LDA#191Š‰SEC ”‰SBCWERT]›} ž‰STABY2 ¨‰LDA#319 ²‰LDX/319¼‰SEC ƉSBCWERT ЉSTABX2 Ú‰BCS.1ä‰DEXî.1‡STXBX2+1 ø‰JSRBOX ‰LDA]œ}WERT ‰CLC ‰ADC#115 ‰CMP#192 *‰BCC.24‰SEC >‰SBC#192H.2‡STAWERT R‰LDA#$FF \‰CMP764 f‰BEQDM2 ]}p‰STA764 z‰JMPDEMO„*ŽWERT….HX00˜WERT2„.HX00>‰SBC#192H.2‡STAWERT R‰LDA#$FF \‰CMP764 f‰BEQDM2 \-H*"ROP2†JSRWRITEDaª}OS‚DOSschreiben\‰JMPREADY…nachREADYf*p-z*"„OP3†JSRFDSK†DiskformattierenŽ‰JMPREADY˜*¢-¬*#¶OPa«}4†LDA#'}‡BildschirmloeschenÀ‰JMPPUTCHARƒzurueckÊ*Ô-Þ**èFDSK…LDX#$10†Datenkanale1schliessenò‰JSRCLOSEa¬}ü‰LDA#FN‡Formattierungs-‰LDY/FN‡routineauf-‰JMPFORMAT„rufen*$-.*-8WRITEDOSLDX#$10†Datenkanal1sca­}hliessenB‰JSRCLOSEL‰LDX#$18†FileDOS.SYS"V‰LDA#FN‡zumschreibenoeffnen`‰LDY/FN‡undschliessen j‰JSROPEN†(da®}enResterledigtt‰JMPCLOSE…dasDOSselber)~*ˆFN‡.DA"D:DOS.SYS",#$9B’*œ-¦*°POSCURƒSTXCURX„Cursorº‰Sa¯}TYCURY„positionierenĉRTSÎ*Ø-â*ì‰.IN"D:PRINTS.INC"ö‰.IN"D:IOPACK.INC"*°POSCURƒSTXCURX„Cursorº‰S`[ER¢™œ ‰.LIOFF**(*2*<*F*P*Z*dSˆLDA#0ˆWertn‰STAW‰loeschen x‰STAW+1‚*Œ.1‡LDAW‰Aue±}sgabe–‰LDXW+1‡dezimal ‰JSRDEZ0†mitNullen ª‰LDA#'´‰JSRCHAROUT¾*ȉLDAW‰AusgabeÒ‰LDXW+1‡dezimal܉e²}JSRDEZSP…ohneNullen æ‰LDA#'ð‰JSRCHAROUTú*‰LDAW‰Ausgabe‰LDXW+1‡hexa-‰JSRHEX16…dezimal "‰LDA#'e³},‰JSRCHAROUT6*@‰LDAW‰AusgabeJ‰JSRBIN‡LO-ByteT‰LDA#$9B†binaer^‰JSRCHAROUTh*r‰INCW‰Wert|‰BNE.2e´}ˆhoch-†‰INCW+1‡zaehlen.2‡LDAW‰bisš‰ORAW+1‡zum¤‰BNE.1ˆUeberlauf®‰RTS‹zurueck¸-‰.IN"D:INTOUT.INC"eµ}Ì*ÖWˆ.HX0000‡zaehlen.2‡LDAW‰bisš‰ORAW+1‡zum¤‰BNE.1ˆUeberlauf®‰RTS‹zurueck¸-‰.IN"D:INTOUT.INC"dER~™œ ‰.LIOFF‰.OR$3000*(*2*<*F*P*Z*)dSˆJSROPENS…GraphicbildschirmOeffnenn‰JSRKOALA…Bili·}deinladen x‰JSRGETKEY„AufTasteWarten‚*Œ‰LDA$E401…Editor–‰PHA‹oeffnen ‰LDA$E400…undzumª‰PHA‹Assembleri¸}´‰RTS‹zurueckkehren¾-ÈOPENS„LDA#$80Ò‰STA$6A‡Graphic܉LDA#$F‡15ohneæ‰STA$2B‡Text-ð‰LDA#0ˆfensterúi¹}‰STA$2A‡oeffnen‰LDA$E411…(Source ‰PHA‹code‰LDA$E410…sichern)"‰PHA,‰RTS6-@GETKEYƒLDA$E425…AufTasteiº}J‰PHA‹WartenT‰LDA$E424^‰PHAh‰RTSr-|*!†*NamedeszuladendenBildes*š-¤FN‡.DA"D:*.PIC",#$9Bi»}®-¸*‰.IN"D:IOPACK.INC"̉.IN"D:KOALA.INC"*!†*NamedeszuladendenBildes*š-¤FN‡.DA"D:*.PIC",#$9Bh6ER–šœ -!*16-BYTE‚INCREMENTROUTINE*-(-'2INC16BƒINCLSB…NIEDERWAERTIGESBYTE<‰BNE.1†UEBERZAEHLT*F‰INCMm½}SB…JA,DANNHOEHERWAERTIGESBYTEP.1‡RTS‰WEITERIMPROGRAMMZ-d*n*x-!‚*16-BYTE‚DECREMENTROUTINE*Œ-–-m¾}' DEC16BƒLDALSB…NIEDERWAERTIGESBYTEª‰BNE.1†UNGLEICHNULL'´‰DECMSB…NEIN,HOEHERWAERTIGESBYTE¾.1‡DECLSBȉRTS‰m¿}WEITERIMPROGRAMMÒ-WAERTIGESBYTEª‰BNE.1†UNGLEICHNULL'´‰DECMSB…NEIN,HOEHERWAERTIGESBYTE¾.1‡DECLSBȉRTS‰lER[™œ ‰.LIOFF*****************(*Ž*2*CODE-Routine*<*Ž*F****************P*Z*d*nSC‡.EQ$CDqÁ}xBYTES„.EQ$CF‚WERT….EQ$D1Œ*–* *ª*´*$¾START„PLA‹AnzahlParameterholenÈ*Ò‰PLA‹Start܉STASC+qÂ}1addresseæ‰PLA‹holen ð‰STASCú*‰PLA‹Laenge‰STABYTES+1ƒholen‰PLA"‰STABYTES,*6‰PLA‹Code- @‰PLqÃ}A‹wertJ‰STAWERT†holenT-^CODE…LDY#0h.3‡LDA(SC),Y„Wertr‰EORWERT†codieren|‰STA(SC),Y†*‰INCSCˆPoinqÄ}terš‰BNE.1ˆhoch-¤‰INCSC+1†zaehlen®*¸.1‡LDABYTES…Byte-‰BNE.2ˆzahl̉DECBYTES+1ƒernie-Ö.2‡DECBYTES…dqÅ}rigenà*ê‰LDABYTES+1ƒEndeô‰ORABYTES…erreichtþ‰BNE.3ˆnein‰RTS‹zureckDECBYTES+1ƒernie-Ö.2‡DECBYTES…dpYER𚜠‰.LIOFF**************************(*—*2*BREAK-Disable-Routine*<*—*F**************************uÇ}P*Z*d*nPOPMSKƒ.EQ$10xIRQEN„.EQ$D20E‚*Œ*–* START„PLA‰KeineParameterª*´‰LDAPOPMSK¾‰AND#uÈ}$7F„BreakIRQȉSTAPOPMSK‚sperrenÒ‰STAIRQEN܉RTS*–* START„PLA‰KeineParameterª*´‰LDAPOPMSK¾‰AND#t;ER*˜œ ‰.LIOFF*!*****************************(*›*!2*Algebr.AND,OR,EORu.NOT*<*›*!F*******************yÊ}**********P*Z*dWERT1„.EQ$CDnWERT2„.EQ$CExCOM†.EQ$CF‚*Œ*–* *ª*´*¾*È*ÒSTART„LDA#0yË}†Rueckgabe-܉STA$D4…registeræ‰STA$D5…loeschenð*ú‰PLA‰Parameterzahl*‰PLA‰Commando‰PLA‰holen "‰STAyÌ}COM,*6‰PLA‰Wertholen@‰PLAJ‰STAWERT1T*^‰LDACOM…NOTh‰CMP#'N…Funktionr‰BEQNOT…ja|*†‰PLA‰2.yÍ}Wert‰PLA‰holenš‰STAWERT2¤*®‰LDACOM…EOR¸‰CMP#'E…Funktion‰BEQEOR…jaÌ*Ö‰CMP#'O…ORFuntionà‰yÎ}BEQOR†jaê*ôAND†LDAWERT1ƒAndFuntionþ‰ANDWERT2‰CLC‰unbedingter‰BCCSTOREƒSprung-&OR‡LDAWERT1ƒOryÏ}Funktion0‰ORAWERT2 :‰CLC‰OhneD‰BCCSTOREƒBedingungN-XEOR†LDAWERT1ƒEorFunk-b‰EORWERT2ƒtionl‰CLCv‰ByÐ}CCSTOREƒs.o.€-ŠNOT†LDAWERT1ƒ2erKom-”‰EOR#$FF„plementž‰CLC‰bilden ¨‰ADC#1²-¼STORE„STA$D4…InUebergabyÑ}eƉRTS‰RegisterŠNOT†LDAWERT1ƒ2erKom-”‰EOR#$FF„plementž‰CLC‰bilden ¨‰ADC#1²-¼STORE„STA$D4…InUebergabxER9™œ ‰.LIOFF*****************(*Ž*2*CIO-Routinen*<*Ž*F****************P*Z*d*nCIOV….EQ$}Ó}E456x*‚ICCOM„.EQ$0342ŒICSTATƒ.EQ$0343–ICBALOƒ.EQ$0344 ICBLENƒ.EQ$0348ª*´COUNT„.EQ$CD¾*È*Ò*}Ô}Ü*æ*ð*!úSTART„PLA‹Parameterzahlholen*‰PLA‹Daten-‰PLA‹kanalnr."‰ASL‹holen ,‰ASL‹*16 6‰ASL‹als}Õ}@‰ASL‹IndexnachJ‰TAX‹nachT*^‰PLA‹Kommandoh‰PLA‹holenr‰STAICCOM,X|*†‰PLA‹Daten‰STAICBALO+1,X}Ö}š‰PLA‹addresse¤‰STAICBALO,X‚holen®*¸‰PLA‹Daten-‰STAICBLEN+1,X̉PLA‹laengeÖ‰STAICBLEN,X‚holenà*ê}×}EXEC…JSRCIOV†CIOaufrufenô*þ‰LDAICSTAT„Status‰STA$D4‡ins‰LDA#0ˆUeberga-‰STA$D5‡beregis- &‰RTS‹terê|{ERݘœ ‰.LIOFF*****************(*Ž*2*MOVE-Routine*<*Ž*F****************P*Z*d*nSCL†.EQ$CÙ}DxDESTL„.EQ$CF‚BYTES„.EQ$D1Œ*–* *ª*´*¾*!ÈSTART„PLA‹ParameterzahlholenÒ*܉PLA‹Start-æ‰STÚ}ASCL+1…addresseð‰PLA‹holen ú‰STASCL*‰PLA‹Ziel-‰STADESTL+1ƒaddresse"‰PLA‹holen,‰STADESTL6*@‰PÛ}LA‹AuchdieJ‰STABYTES+1ƒLaenge T‰PLA‹wird^‰STABYTES…gebrauchth-rMOVE…LDY#0|MOVEB„LDA(SCL),YƒByte†‰STAÜ}(DESTL),Yverschieben*š‰INCSCL‡Start-¤‰BNE.1ˆpointer®‰INCSCL+1…hochzaehlen¸*Â.1‡INCDESTL…DasgleicheÝ}̉BNE.2ˆmitZiel-Ö‰INCDESTL+1ƒPointerà*ê.2‡LDABYTES…Laengeô‰BNE.3ˆabzaeh-þ‰DECBYTES+1ƒlen.3‡DECBYTÞ}ES*‰LDABYTES…Ende&‰ORABYTES+1ƒerreicht0‰BNEMOVEB…Nein:‰RTS‹zurueck-þ‰DECBYTES+1ƒlen.3‡DECBYT€ZER¬—œ ‰.LIOFF**(*******************2*ƒSIO-Routineƒ*<*******************F*P*Z*dDRIVE„=ƒ$301…à}nCOM†=ƒ$302xSTAT…=ƒ$303‚BUFF…=ƒ$304ŒSECTORƒ=ƒ$30A–* *ªDSK†=ƒ$E453´*¾*È* ÒLEN†=ƒ$CB ÜREG†=ƒ$D4…á}æ*ð*ú***SˆPLA‹Parameterholen"*,‰PLA‹Laufwerks-6‰PLA‹Nummerholen@‰STADRIVEJ*T‰PLA‹Ko…â}mmandoholen^‰PLA‹'R=Read,'W=Write)h‰STACOM‡'S=Status,'P=Put,'!=Formatr*|‰PLA‹Buffer†‰STABUFF+1„addresse…ã}‰PLA‹holen š‰STABUFF¤*®‰PLA‹Sektor-¸‰STASECTOR+1‚holen‰PLẢSTASECTORÖ*à‰PLA‹Anzahlê‰STALEN+…ä}1…derô‰PLA‹Sektorenþ‰STALEN‡holen-LOOP…JSRDSK‡Sektorlesen‰LDASTAT†Statusholen"&‰BMIERROR…Error,wen…å}nnegativ0*:‰INCSECTOR„NaechsterD‰BNE.1ˆSektorN‰INCSECTOR+1X*b.1‡LDABUFF†Bufferl‰CLC‹+Sektor-v‰AD…æ}C#$80†laenge€‰STABUFF†($80Bytes)!Š‰BCC.2ˆbeiSingleundMedium”‰INCBUFF+1„Density)ž*¨.2‡LDALEN‡Laenge²…ç}‰BNE.3ˆrunterzaehlen¼‰DECLEN+1 ƉDECLENÐ*Ú‰LDALEN‡Schonalleä‰ORALEN+1…Sektorenî‰BNELOOP†geladen?Nein…è}ø‰RTS‹Zurueckn¼‰DECLEN+1 ƉDECLENÐ*Ú‰LDALEN‡Schonalleä‰ORALEN+1…Sektorenî‰BNELOOP†geladen?Nein„NOg ZÏF¤F1¤ËK±S±S²E±E²ÓÅÌZÎZÉREÔAXEL¤RÐAÐÔLSTEP8°ÒAH¨RH¨POKEY¤PO¤HX¨L¤ÉZÌCËAÄÈ×ÃL΀€‰ê} €‰ë}@@€€@€ !"‰ì}$$(C) 1986 BIBOSOFT / COMPY SHOP› ƒ#@@E:5A@GA@YA @k‰í}@‚ƒ;@ ,‚;@ ,ZZ(Q}        Äáôá­ õîä Óôòéîççåîåòáôïò    ‰î}   YY(P                                             ¨Ã© ±¹¸¶ ÂÉÂÏÓÏÆÔ ¯ ÃÏÍÐÙ ÓÈÏР    (00(( ‰ï} 2–-@%( Filename: 2@;6‚.D:†+7@<@,4D*+7@<@,4:‰ð})7@<@,4:,,Œ6‚.– @p<6‚7@,.Fg @P@5@@‚B)@ƒ‰ñ}O)@„]ƒ%„Ag @PP|-@N(3Soll ich ÄATA-Zeilen oder einen Ótring generieren?[@‰ò}e @€|6.7@<@,Z 4D AdN-@,(œœÓôòéîççåîåòáôïò6 AN•9A,‰ó}–9A,nZ-@M(2œœœWelchen Namen soll die Stringvariable haben? Z@x'7B:,,0$'67B:‰ô},%@,.$‚?-@-(Œ DIM (‹)7 A ?6Œ-Œ%Œ%6-6‘-% A–m’-@‰õ}‹@€+-@L(Œ (’)=>:@4,`”-@ym)@ƒ 4ƒ"@46•8‘,-’%”‰ö}&6ƒ-@246‘-‘%@ª4ƒ"AU6–8,-’%”&6ƒ-@246-%@´X(>:ƒ, ”)(@>:@4,3 A ‰÷}7 ’XP:‹'@€,"‹'@€A¾(>:@4, A È‘"APÍ‘"@A0Ò’6’-‰ø}P:+‘&@,'@,$@@H-@Q(Œ e”-@Ž((•8”%’,,•8”%’, )=CHR$(3‰ù}4):’ ’Ü (~ A  ’æ$$‘'@"P:‘'@,APðX-@N(Œ (•8‘&@,,•8‘&‰ú}@, )=CHR$(34)X A ú"Aÿ"@A€“6’-P:+&@,'@,$@@‰û}H-@Q(Œ e”-@((–8”%’,,–8”%’, )=CHR$(155):“ ’ (~ A  ’$‰ü}$'@"P:'@,A"Y-@O(Œ (–8&@,,–8&@, )=CHR$(155)Y A ,K‰ý}-@K(-œœœœœœœœœœœœZuletzt benutzte Zeile ist Zeile Œ&6u-@h(MWollen Sie weitere Maschiene‰þ}nsprache Files in das Programm einbinden? JAu@@/ A$6.7@<@,,4J/%J0,1,2,‰ÿ}4,5,6,7,8,9›T— #A0!‹-@@ *(}."ŸB’-@ X(Ÿ$A%’$@\ ’p(POKE842,12:CONT‚Š}-”AB@—&^P ‹(}$’-@ 8(A%’$@< ’F(AP(AUhLL( Š}POKE842,12:?>:@4,*}Sie koennen Ihr Programm nun abspeichernr*-'AB@*&4-Š}@*(œœÄáôáçåîåòáôïò4 Ašs-@s(Œ TR.Œ%K:DIM HX(22),L$(60):F.I=0TO22:HX(I)=0:N.I:F.I=0TO9Š}:HX(I)=I:N.I:F.I=10 TO 15:¤V( HX(7+I)=I:N.I A L(Œ ZL=Œ%@ $:CK=0:TRAP4E4:AD=‰V A ®rh(Œ/ LŠ}N=60:READ L$:IF LEN(L$)<>60 AND L$(LEN(L$))<>>:@4,@>:@4, THEN Œ%$@r A ¸5+(Œ! IF LEN(L$)<>Š}60 THEN LN=LEN(L$)-15 A Â`V(ŒL F.I=1TO LN STEP2:H=HX(ASC(L$(I))-48):L=HX(ASC(L$(I+1))-48):W=H*16+L:CK=CK+W` A Š}Ì>4(Œ*POKEAD,W:AD=AD+1:IF CK>999 THEN CK=CK-1000> A Ö8.(ŒN.I:READC:IF C<>CK THEN Œ%@$8 A à@6(Š}Œ ZL=ZL+:IF LEN(L$)=60 THEN Œ&@$@ A ê$(Œ RETURN:. Æåòôéç$ A ôOE(Œ ?>:@4,DatenŠ}fehler in Zeile >:@4,;ZL;:ENDO A þ¡ A`6-/’-@‹@0=(Œ DATA Q”-@)Š }^)@ƒo6Ÿ-P:ƒ'@,‡6‹-ƒ&Ÿ$@%@H“‹!@W¡6‹-‹%@+6Ÿ-Ÿ%@HŸ!@W+6Ÿ-Ÿ%@Š }2(>:Ÿ,>:‹,6-%ƒ$!A ™26-&A ”(, A  ’&*’-@B:=:,,%@&(~* ’0Š } (@, A : A g)@…)@†*)@‡7)@ˆG6‰-…%AV$†W6Š-‡%AV$ˆg6‹-Š }Š&‰%@*E A-@8(Startzeilennummer: E@Œ4F A -@6(ZeilenincŠ }rement: C@F$„>(POKE842,12:CONT)-@;AB@>&Ž+-@ (œœœœœ(6Œ-ŒŠ}%+$€D:*.BASF$„>(POKE842,12:CONT)-@;AB@>&Ž+-@ (œœœœœ(6Œ-Œˆÿ€ÉÇ(Àó 6››››¢!‚ ÀC €;À 0  9 ƒ@< €@0   „0Ž}/&‚À‚À ƒÀƒ„LÀ0 †ú꪿ªVU4‚ ƒÐLÀ‡Ž}>êªú«ªjU@0À†<ÌÑÜC0 „>ꪂþ«ªZU1Š 1 0 „úꪂꯪVU … Áp0À„:ê ª‚ú«Ž}ªjUÀ‚À€†30 À„>ú ª¿ªZU„ Ї>úª¨ ƒˆ‹ ª‚ꯪVU,ƒðÀ ‹:ꨠƒ ƒŽ‚ª‚þ«ªjU0Ž}‚Àƒ3Ô@•:ꨠ8»;ð_<°3€ £ˆ€ª¿ªZUÀÀÀ0À•>úª¨ƒ,.ýਣ€¨ª‚ú«ªVU)ƒ@À™>úè ƒ;Ž}ðßü€³ =7€¸üÿ¸ƒª‚þ«ªjU‚À •:ꨡ€,÷ àÂ?÷ì ÀÿƒÀ¨ª‚ꯪZU ‚0  ‚À‰:ê¨;Ü“€ 7ÿ€¸3ÀÏŽ}=»ðÿ?°ª‚ú«ªVU-”>úê ,îP|À?Ýìàσà.Àÿƒ. ª¿ªjUÀ …=õ•ªœ üó€ ô€3À =€»;ðpóˆ ðÿ?€ ¨ª‚ꯎ}ªZU 0„uÕª–PÌ.ðÜ àÏ?ìîüó3Àÿƒì‚‚þ«ªVU-ˆõU_sU¥ªŽÜó€ ß÷€¸ðÃÍ;‡Àßÿ ¸8Àÿƒƒ; ª¾ªjU Ž}€Õ ƒÀ€ˆ}ÕW|WUªœ*ðpÌ.0÷ìsÏ,.ÜßÿÀìðÿàŽª‚ú¯ªZU„õÕU… ?sU¥ª—|ð€‹?5€»À|ü€ƒ‹?5°;Àÿƒ8 ª‚Ž}þ«ªVU €@U@€ „}ÕU…ÕÌ.13†LDATSCR+8,YH‰JSRATAASCR‰STADATE-1,Y\‰DEY f‰BNE.13p;z.14†LDA#$5F„‰STATSCR+5’9}3 Ž‰LDA#$5E˜‰STATSCR+65¢‰LDA#TSCR+54 ¬‰STAIND¶‰LDA/TSCR+54À‰STAIND+1 ʉLDA#11Ô‰JSRINPUT Þ‰LDA’:}#0è‰STATSCR+53ò‰STATSCR+65 ü‰LDY#22.21†LDATSCR+53,Y ‰BNE.22‰DEY $‰BNE.21..22†LDA#$9B8‰STAY’;}EAR,Y B‰CPY#0L‰BEQINPANZV.23†LDATSCR+53,Y`‰JSRATAASCj‰STAYEAR-1,Yt‰DEY ~‰BNE.23ˆ;’INPANZƒLDY#’<}12 œ‰LDA#0¦.25†STATXTLIN+16,Y°‰DEY º‰BPL.25 ĉLDA#$5FΉSTATXTLIN+17 ؉LDA#$5Eâ‰STATXTLIN+21ì‰LD’=}A#TXTLIN+18 ö‰STAIND‰LDA/TXTLIN+18 ‰STAIND+1 ‰LDA#3‰JSRINPUT (‰LDA#02‰STATXTLIN+17<‰STATXTLI’>}N+21 F‰LDY#0 P‰STYWERTZ‰STYWERT+1d.50†LDATXTLIN+18,Y n‰CMP#$10 x‰BCC.80 ‚‰CMP#$1A Œ‰BCS.80–‰JSR’?}MUL10 ‰INY ª‰CPY#3 ´‰BCC.50¾.80†LDAWERTȉORAWERT+1Ò‰BEQINPANZ ܉LDY#7æ.81†LDADRTXT,Yð‰STATXTL’@}IN+23,Yú‰DEY ‰BPL.81;AAA†JSRCLOSEP"‰JSROPENP,‰LDX#DINIT6‰LDY/DINIT@;ˆJSRPSETJ;T.1‡LDAT’A}XTLIN+30 ^‰CMP#$19 h‰BCC.8 r‰LDA#$F|.2‡STATXTLIN+30†‰LDATXTLIN+29 ‰BNE.3 š‰LDA#$10¤‰STATXTLIN+29’B}®.3‡CMP#$19 ¸‰BCC.7‰LDATXTLIN+28 ̉BNE.4 Ö‰LDA#$10à‰STATXTLIN+28ê.4‡INCTXTLIN+28ô.7‡INCTXTLIN+29’C}þ.8‡INCTXTLIN+30; †LDA#10 †STA$21C&.99ƒLDA$21C 0†BNE.99:ˆ;JSRPRINTD‰LDX#FEEDN‰LDY/FEEDX’D};ˆJSRPSET b‰LDAWERT l‰BNE.9v‰DECWERT+1€.9‡DECWERT Š‰LDAWERT”‰ORAWERT+1 ž‰BNE.1¨‰JMPCLOSEP²-’E}¼INPUT„STALAENGE ƉLDA#0 ЉSTAXPOSÚ.1‡JSRINVPOSä.2‡JSRGETKEY î‰CMP#$9B ø‰BEQ.9 ‰AND#$7F ‰CMP#$7’F}E ‰BEQ.3 ‰CMP#$7F *‰BNE.24 4‰LDA#$7E>.24†LDYXPOSH‰CPYLAENGE R‰BCS.2\‰TAXf‰JSRINVPOSp‰TXA’G}z‰JSRASCATA„‰STA(IND),Y Ž‰INCXPOS ˜‰BNE.1¢.3‡LDYXPOS ¬‰BEQ.2¶‰JSRINVPOSÀ‰DEY ʉLDA#0Ô‰STA(IN’H}D),Y Þ‰DECXPOS è‰BPL.1ò.9‡JMPINVPOSü; LAENGEƒ.HX00 XPOS….HX00 -$ INVPOSƒLDYXPOS. ‰LDA(IND),Y 8’I} ‰EOR#$80B ‰STA(IND),YL ‰RTSV -` ASCATAƒCMP#$60 j ‰BCS.1 t ‰CMP#$20 ~ ‰BCC.2 ˆ ‰SBC#$20 ’ .1‡RTSœ .2‡AD’J}C#$40 ¦ ‰BNE.1° -º ATAASCƒCMP#$60 Ä ‰BCS.1 Î ‰CMP#$40 Ø ‰BCC.2 â ‰SBC#$40 ì .1‡RTSö .2‡ADC#$20 ‰BNE.1’K} - MUL10„AND#$F ‰PHA ( ‰LDAWERT 2 ‰STAHOLD< ‰LDAWERT+1F ‰STAHOLD+1 P ‰ASLHOLDZ ‰ROLHOLD+1 d ‰ASLHO’L}LDn ‰ROLHOLD+1x ‰CLC ‚ ‰LDAHOLD Œ ‰ADCWERT – ‰STAWERT  ‰LDAHOLD+1ª ‰ADCWERT+1´ ‰STAWERT+1 ¾ ‰ASLWERTÈ’M} ‰ROLWERT+1Ò ‰CLCÜ ‰PLA æ ‰ADCWERT ð ‰STAWERT ú ‰BCC.1 ‰INCWERT+1  .1‡RTS *" WERT….HX0000, HOLD….HX’N}00006 -@ PRINT„LDX#PINITJ ‰LDY/PINIT T ‰JSRPSET ^ ‰LDA#0 h ‰STALINEr ;| LOOP…LDX#GINIT† ‰LDY/GINIT ‰’O}JSRPSET š ‰LDA#$11¤ ‰STASPALTE® ;¸ GRAPH„JSRCOPGR  ‰LDA#0Ì ‰STABYTE1Ö ‰STABYTE2à ‰STABYTE3ê ; ô ‰LD’P}Y#8 þ ‰LDXLINE .0‡ROLGT,X ‰PHP ‰ROLBYTE3& ‰ROLBYTE20 ‰ROLBYTE1: ‰PLPD ‰ROLBYTE3N ‰ROLBYTE2X ‰RO’Q}LBYTE1b ‰DEY l ‰BNE.0v ; € ‰LDA#2 Š ‰STACNT” .2‡LDABYTE1 ž ‰JSRPOUT¨ ‰LDABYTE2 ² ‰JSRPOUT¼ ‰LDABYTE3’R} Æ ‰JSRPOUT Ð ‰DECCNT Ú ‰BNE.2ä ;î ‰INCSPALTEø ‰LDASPALTE  ‰CMP#$AF ‰BCCGRAPH ; ‰JSRPRET * ‰INCL’S}INE 4 ‰LDALINE > ‰CMP#7 H ‰BNELOOPR ;\ TEXT…LDX#TINITf ‰LDY/TINIT p ‰JSRPSETz ‰JSRALINE „ ‰LDY#21 Ž ‰LD’T}A#$20˜ .1‡STADBUF,Y¢ ‰DEY ¬ ‰BPL.1 ¶ ‰LDY#0À .2‡LDADATE,Y Ê ‰CMP#$9B Ô ‰BEQ.3Þ ‰INY è ‰BNE.2 ò .3‡TYA’U}ü ‰LSR‰PHP‰STABREIT ‰LDA#11$‰SEC.‰SBCBREIT 8‰STACNTB‰PLP L‰BCC.39 V‰DECCNT`‰LDX#PMOVEj’V}‰LDY/PMOVE t‰JSRPSET ~‰LDACNT ˆ‰BEQ.5’.39†LDY#0œ.4‡CPYCNT ¦‰BEQ.5 °‰LDA#$20 º‰JSRPOUTĉINY Ή’W}BNE.4Ø; â.5‡LDY#0ì.6‡LDADATE,Y ö‰CMP#$9B ‰BEQ.7 ‰JSRPOUT‰INY ‰BNE.6(.7‡JSRPRET2‰LDX#ZIN’X}IT<‰LDY/ZINIT F‰JSRPSETP;ZJAHR…LDX#JINITd‰LDY/JINIT n‰JSRPSET x‰LDY#24 ‚‰LDA#$20Œ.1‡STADBUF,Y’Y}–‰DEY  ‰BPL.1 ª‰LDY#0´.2‡LDAYEAR,Y ¾‰CMP#$9B ȉBEQ.3Ò‰INY ܉BNE.2 æ.3‡TYAð‰LSRú‰PHP‰STAB’Z}REIT ‰LDA#5‰SEC"‰SBCBREIT ,‰STACNT6‰PLP @‰BCS.39J‰LDX#PMOV2T‰LDY/PMOV2 ^‰JSRPSETh.39†LDY#’[}0r.4‡CPYCNT |‰BEQ.5 †‰LDA#$20 ‰JSRPOUTš‰INY ¤‰BNE.4 ®.5‡LDY#0¸.6‡LDAYEAR,Y ‰CMP#$9B ̉BEQ.7’\} Ö‰JSRPOUTà‰INY ê‰BNE.6ô.7‡JSRPRETþ‰JMPALINE;BREIT„.HX00-&ALINE„LDA#22 0‰STACNT:.1‡LD’]}A#205 D‰JSRPOUT N‰DECCNT X‰BNE.1 b‰JMPPRETl-vCOPGR„LDYSPALTE€‰LDAGRAFIK,Y Š‰STAGT”‰LDAGRAFIK+$’^}100,Y ž‰STAGT+1¨‰LDAGRAFIK+$200,Y ²‰STAGT+2¼‰LDAGRAFIK+$300,Y ƉSTAGT+3ЉLDAGRAFIK+$400,Y Ú‰STAGT+4’_}ä‰LDAGRAFIK+$500,Y î‰STAGT+5ø‰LDAGRAFIK+$600,Y ‰STAGT+6 ‰RTS* GT‡.HX00000000000000*-4DINIT„.HX’`}1B40FF>FEED….HX1B4A2CFFHPINIT„.HX1B3310FF RGINIT„.HX1B6C141B2A273C01FF\TINIT„.HX1B6C121B33121B45f‰.HX1B4A0’a}8FFpPMOVE„.HX1B5C0C00FFzPMOV2„.HX1B5C1400FF„ZINIT„.HX1B4A0AFFŽJINIT„.HX0EFF˜-¢DBUF….BL26,0¬-¶PSE’b}T…STX$E0 À‰STY$E1 ʉLDY#0 Ô‰STY$E2Þ.1‡LDY$E2è‰LDA($E0),Y ò‰CMP#$FF ü‰BEQ.2 ‰JSRPOUT ‰INC$E2 ’c}‰BNE.1 $.2‡RTS.-8PRET…LDA#$9BB;LPOUT…STY.1+1 V‰LDX#$10`‰PHA j‰LDA#$Bt‰STA$342,X ~‰LDA#0ˆ’d}‰STA$348,X’‰STA$349,Xœ‰PLA¦‰JSR$E456 °‰BMI.2 º.1‡LDY#0ĉRTS Î.2‡JMP.2Ø-âOPENP„LDX#$10 ì‰LDA’e}#3ö‰STA$342,X ‰LDA#PPP ‰STA$344,X ‰LDA/PPP‰STA$345,X (‰LDA#82‰STA$34A,X<‰JSR$E456 F‰BMI.1’f}P‰RTS Z.1‡JMP.1d-nCLOSEPƒLDX#$10 x‰LDA#$C‚‰STA$342,XŒ‰JMP$E456–- GETKEYƒLDA$D01F ª‰CMP#3 ´’g}‰BNE.1¾‰JMPSTARTÈ.1‡LDA$2FC Ò‰CMP#$FF܉BEQGETKEYæ‰LDA$E425ð‰PHAú‰LDA$E424‰PHA‰RTS-"’h}PPP†.AS"P:",-96TXTLINƒ.AT" Anzahl: "@DRTXT„.AT"Drk: 0"J-TGRAFIKƒ.DF"D8:GD’i}"^-hGLINE„.BL9,0r‰.BL22,$FF |‰.BL9,0†- ‰.ORFONTš‰.DF"D8:FONT"¤-®‰.ORSCREEN¸‰.DF"D8:PIC"’j}Â--hGLINE„.BL9,0r‰.BL22,$FF |‰.BL9,0†- ‰.ORFONTš‰.DF"D8:FONT"¤-®‰.ORSCREEN¸‰.DF"D8:PIC"