! цомпилед йамес в. херманн ! 74576.711 ! 9/3/85 ! !****рам(0)**** ! !*0000 8502 он-цхип д-д регистер !*0001 8502 он-цхип и/о регистер !0002-0089 басиц зеро паге ! 0002-0009 темп. стораге банк;<пц; ! >пц;ст;а;ь;ы;п фром цпу ! ор цоде фор свитцх то 64 ! 002д-003ц басиц меморы жецторс ! 002д старт оф басиц пгм рам(0) ! 002ф старт оф жар.$0400 рам(1) ! 0031 старт оф арраыс рам(1) ! 0033 енд оф арраыс рам(1) ! 0035 боттом оф стрингс рам(1) ! 0037 ловест стринг жцтр рам(1) ! 0039 топ оф басиц $фф00 рам(0) ! 003б топ оф басиц $фф00 рам(1) ! 003д басиц инпут быте жецтор ! 007д ункновн жецтор 09фф ! 0090-00фф кернал зеро паге ! 0091 флаг: стоп кеы ! 0098 но. оф опен филес ! 0099 дефаулт инпут дежице(0) ! 009а дефаулт оутпут дежице(3) ! 00а0-00а2 йиффы цлоцк ! 00б2-00б3 тапе буффер жецтор ! 00б7 лен оф цуррент филенаме ! 00б8 цуррент филе но. ! 00б9 цуррент сец. аддр. ! 00ба цуррент дежице но. ! 00бб-00бц филенаме аддресс ! 0100-01фф цпу стацк ! 0100-010ф ф буффер ! 0110-0148 басиц дос усинг !0200-02а1 басиц анд мон инпут буф !02а2-02фб кернал рам цоде ! 02а2-02ае лда ($зп);ы фор мму=ь ! 02аа зеро-паге индирецт аддр ! 02аф-02бд ста ($зп);ы фор мму=ь ! 02б9 зеро-паге индирецт аддр ! 02бе-02цц цмп ($зп);ы фор мму=ь ! 02ц8 зеро-паге индирецт аддр ! 02цд-02цф йср $02е3 ! 02д0-02е2 сторе цпу рег. ин $02-09 ! 02е3-02фб рти басед он $02-09 !02фц-033б индирецт жецторс-ункновн ! 0300 принт басиц мессаге 4д3ф ! 0302 басиц варм старт 4дц6 ! 0304 токенизе басиц теьт 430д ! 0306 басиц теьт лист 5151 ! 0308 басиц цхар диспатцх 4аа2 ! 030а басиц токен ежал. 78да ! 030ц-0310 ункновн жецторс ! 0314 иря хардваре инт. фа65 ! 0316 брк интеррупт б003 ! 0318 нми нон-маск. инт. фа40 ! 031а опен ефбд ! 031ц цлосе ф188 ! 031е цхкин ф106 ! 0320 цхкоут ф14ц ! 0322 цлрцхн ф226 ! 0324 цхрин еф06 ! 0326 цхроут еф79 ! 0328 стоп ф66е ! 032а гетин еееб ! 032ц цлалл ф222 ! 032е усер-дефинед б006 ! 0330 лоад ф26ц ! 0332 саже ф54е ! 0334-0348 ункновн жецторс !033ц-037ф кернал таблес !0380-03фф басиц рам цоде ! 0380-039е басиц цхргет роутине ! 039ф-03д1 мисц. лда роутинес !0400-04фф жиц теьт сцреен (жм #1) !0800-09фф басиц рун-тиме стацк !0а00-0афф мон & кернал абс. жар. ! 0а00-0а01 басиц цолд старт 4000/3 ! 0а02 рам инит. иф =$а5 ! 0а04 басиц инит. иф бит 0 сет ! 0ац0 нумбер оф инт./еьт. ром'с ! 0ац1-0ац4 ацтиже ром флагс !0б00-0ббф цассетте буффер !0бц0-0бфф (диск боот паге) !0ц00-0цфф рс-232 инпут буффер !0д00-0дфф рс-232 оутпут буффер !0е00-0ффф сприте дефинитион ареа !1000-10фф фунцтион кеы буффер ! 1000-1009 # оф бытес пер кеы ! 100а- фунцтион кеы стрингс !1100-1107 цп/м ресет цоде !1108-11фф басиц дос/жсп жариаблес !1200-12фф басиц абсолуте жариаблес ! 117а-122а мисц. жецторс ! 1210 енд оф басиц програм !1300-13фф ? !1400-17фф ресж./фореигн ланг. сыс. !1800-1бфф ресж./фунцтион кеы мл !1ц00-фефф басиц програм ареа ор ! 1ц00-1ффф жиц бит-мап цолор (жм #2) ! 2000-3ффф жиц бит-мап сцреен ! 4000-фефф басиц програм ареа(цон'т) !*фф00 мму цонфиг. регистер !*фф01-фф04 мму регистерс !фф05-фф44 кернал диспатцх цоде !ффд0- цп/м анд кернал рам цоде !фффа-фффф нми;рст; анд иря жецторс ! !****рам(1)**** ! !0000-03фф саме ас рам(0) !0400-фефф басиц жариабле стораге !*фф00 мму цонфиг. регистер !*фф01-фф04 мму регистерс !фф05-фф44 кернал инт. диспатцх цоде !ффф5-ффф9 "цбм" анд рст аддр $е224 !фффа-фффф нми;рст; анд иря жецторс ! !****рам(2)**** иф пресент ! !*фф00 мму цонфиг. регистер !*фф01-фф04 мму регистерс !фф05-фф44 кернал инт. диспатцх цоде !фффа-фффф нми;рст; анд иря жецторс ! !****рам(3)**** иф пресент ! !*фф00 мму цонфиг. регистер !*фф01-фф04 мму регистерс !фф05-фф44 кернал инт. диспатцх цоде !фффа-фффф нми;рст; анд иря жецторс ! !****ром'с анд и/о**** свитцхабле ! !4000-7ффф басиц лов ром ор ! интернал лов ром ор ! еьтернал лов ром. ! 4000- басиц повер-уп ймп $4023 ! 4003- басиц ресет ймп $4009 ! 4023-4044 басиц повер-уп ! 4045-410ф инит. басиц регистерс ! 4112-4179 инит. басиц абс. жар. ! 417а-418ц инитализе д501-4 ! 419б-41ба принт ресет сцреен ! 41бб-4250 ресет сцреен хеадер цхар. ! 4251-4278 инит. 0300-11;02фц ! 4279-43дд басиц цхргет мл ! 430д- токенизе басиц теьт ! 4417-4515 басиц 2.0 кеывордс ! 4516-46ф8 басиц 7.0 кеывордс ! 484б-4а81 басиц еррор меассагес ! 4аа2- басиц цхар. диспатцх ! 4д3ф- принт басиц мессаге ! 4дц6- басиц варм старт ! 5151- басиц теьт лист ! 51д9-5261 инит. басиц пгм жецторс ! 6еб2-6еда инит. басиц абс. жар. ! 78да- басиц токен ежал. ! 7е82-7ффд бланк !8000-бффф басиц мид ром ор ! интернал ром ор ! еьтернал ром. ! 9251-9298 басиц то кернал ймп табле ! а845-а84ц то банк(15) ! аа6е-ае62 бланк ! афа8-аффф бланк ! б000-бффф монитер ром ! бооо- монитер рст цоде ! б003- брк ! бб72-бффд бланк !ц000-цффф едитор хигх ром ор ! интернал ром ор ! еьтернал ром. ! ц000- цинт -ймп $ц07б ! ц00ф- сцреен ! ц012- сцнкеы ! ц018- плот ! ц07б- цинт ! цеа8-цеф4 фунцтион кеы инит. жалуес ! цеф5-цффд бланк !д000-дффф и/о спаце ! д500-д50б мму и/о цхип(свитцхабле) ! д500 мму цонфиг. рег. ($фф00) ! д501-д504 мму регистерс ($фф01-4) ! д505 бит 7 - 40/80 свитцх 1=40 ! бит 6 - 128/64 моде 1=64 ! битс 4-5 -иф нот сет тхен ! рст гоес то 64 моде ! бит 1 -нот инпут =1 ! бит 2 -? ! бит 1 -нот инпут =1 ! бит 0 -8502/з80 цпу 0=з80 ! д50ц-д5фф бланк ! дц00-дцфф циа #1 (кеыбоард; етц.) ! дд00-ддфф циа #2 (сериал; етц.) !е000-фффф кернал хигх ром ! е000- кернал ром цоде ! е000-е048 рст цоде ! е04б-е055 $д500 инит. жалуес ! е056- ресторе ! е05б- жецтор ! е093- рамтас ! е0цд-е108 инит.$фф05- он рам(0-3) & ! кернал рам цоде он рам(0) ! е109-е1еф иоинит роутине ! е1ф0-е223 иф $ффф5-9 он рам(1)=цбм, ! тхен ймп ($ффф8);елсе... ! е224-е241 инит. $ффф5-9 он рам(1) ! е242-е2бф свитцх то 64 моде иф д505 ! битс 4-5 нот сет; цхецк ! инт./еьт. ром анд ймп ! е24б-е26а свитцх то 64 моде ! е33б- талк ! е33е- листен ! е43е- ацптр ! е4д2- сецонд ! е4е0- ткса ! е503- циоут ! е515- унтлк ! е526- унлсн ! ф23д-ф264 цлосе алл филес он деж=ац ! ф265- лоад ! ф53е- саже ! ф5ф8- удтим ! ф63д-ф65д цхецк фор цтрл р/с ор ц= ! ф65е- рдтим ! ф665- сеттим ! ф6б1-ф71д кернал мессагес ! ф731- сетнам ! ф738- сетлфс ! ф744- реадст ! ф75ц- сетмсг ! ф75ф- сеттмо ! ф763- мемтоп ! ф772- мембот ! ф781- иобасе ! ф7д0-ф7д9 цалл кернал рам цоде 02а2 ! то лда быте фром аддр;ы ! ат зеро-паге жецтор ин ! ацц фор банк(ь) ! ф7ец-ф7еф лда мму жалуе фор банк(ь) ! ф7ф0-ф7фф мму жалуес фор банк(0-15) ! ф800-ф859 кернал рам цоде $02а2-фб ! ф85а-ф866 кернал рам цоде $03ф0-фц ! ф867-ф90а цхецк фор ром нот усед он рст ; лоад цп/м боот паге анд еьецуте ! ф9д5-ф9фа лоад паге анд ста($ацц) ! фа00- едитор таблес ! фа40- нми ! фа65- иря ! фц3б-фц7ф бланк ! фц80-фефф фореигн ланг. сыс.-бланк !*фф00 мму цонфиг. регистер !*фф01-фф04 мму регистерс ! фф05-фф44 кернал инт. диспатцх цоде ! фф3д-фф44 рст цоде ймп $е000 ! фф47-фф80 кернал хардваре ймп табле ! фф81-ффф5 кернал усер йумп табле ! фффа-фффф нми;рст; анд иря жецторс ! !* тхесе аре и/о регистерс анд таке тхе ! плаце оф рам ор ром алваыс. ! !----мму цонфигуратион регистер $фф00 ! битс жалуес пурпосе ! 6-7 рам цонтрол- ! 00 рам(0) ! 01 рам(1) ! 10 рам(2) ! 11 рам( ! 4-5 ром цонтрол- ! 00 кернал анд едит ром ! 01 инт. мид/хигх ром ! 10 еьт. мид/хигх ром ! 11 ноне ! 2-3 ром цонтрол- ! 00 басиц & цхар ром ! 01 интернал ром ! 10 еьтернал ром ! 11 ноне ! 1 ункновн ! 0 и/о цонтрол- 1=ноне