Computer music¢Raster/c.p.u. 1990¢---------------------------------------¢¢Z nejhlub③ ch hlubin arch vu m⑦ vlastn produkce jsem pro dne③ek vylovil hudebn demonstra⇨n progr⇧mek "Computer music". Letopo⇨et jeho v⑨roby je 1990, z ⇨ehoə si kaəd⑨ zdatn❎j③ po⇨t⇧② m
əe spo⇨ tat, əe od jeho vzniku uplynulo jiə neuv❎②iteln⑨ch 17 let.¢¢Neə se d⇧te do poslechu t⑦to nefal③ovan⑦ basicov⑦ "old school" hudby, r⇧d bych v⇧s je③t❎ obezn⇧mil s jednou zaj mavou okolnost ohledn❎ v⑨roby tohoto programu.¢¢Po⇨⇧tky m⑦ hudebn tvorby v Basicu byly spjaty s objevem basicov⑦ho hudebn ho programu "Axel-F". Byl jsem naprosto udiven, əe se v Basicu d⇧ n❎co takhle ⑤əasn⑦ho stvo②it. Zkoumal jsem zdrojov⑨ kd a okoukal, jak se d⇧ v Basicu ud❎lat p②ehr⇧v⇧n v cestop⑦ hudby se slem, basovou a bic linkou. N⇧sledn❎ jsem produkoval spoustu v ce ⇨i m⑦n❎ zda②il⑨ch basicov⑨ch hudeb. Kdyə uə jsem jich m❎l slu③nou hrom⇧dku, rozhodl jsem se vytvo②it hudebn demo obsahuj c v⑨b❎r n❎kter⑨ch z nich.¢¢Nastala nelehk⇧ pr⇧ce s postupn⑨m na⇨ t⇧n m jednotliv⑨ch skladeb, p②e⇨ slov⇧v⇧n m ②⇧dk
, exporty p②es LIST"T:" (T2000 kilov⑦ bloky). Nakonec pak kompletace ENTER"T:" v③eho do jednoho velk⑦ho celku - a v⑨znamn⑨ nep② jemn⑨ objev: ⑥ m je basicov⑨ program del③ , t m je pomalej③ ! P②esn❎ji jde o to, əe u skok
a smy⇨ek se mus naj t c lov⑦ ⇨ slo ②⇧dku, coə Atari Basic d❎l⇧ prohled⇧v⇧n m cel⑦ho (tokenizovan⑦ho) kdu od za⇨⇧tku. Prvn hudba tedy b❎əela spr⇧vn❎ rychle, druh⇧ se tro③ku zpomalila, t②et uə v⑨razn❎ atd. aə k posledn , kter⇧ se sotva vlekla.¢¢L⇧mal jsem si hlavu, jak to vy②e③it. Na③t❎st jsem v t⑦ dob❎ uə pracoval i se strojov⑨m kdem a pouəil rutinu, kter⇧ se vyuə vala pro spou③t❎n Basic program
(inicializace v③ech syst⑦mov⑨ch vektor
pro Basic a odstartov⇧n ). Vytvo②il jsem si tedy strojov⑨ podprogram, kter⑨ hl dal stla⇨en kl⇧ves 1-8 a podle toho vədy nainicializoval syst⑦mov⑦ vektory a spustil jeden z 8mi samostatn⑨ch Basic program
, um st❎n⑨ch v pam❎ti postupn❎ za sebou - kaəd⑨ m❎l posunut⑨ LOMEM (adresa za⇨⇧tku pam❎ti pro Basic) kousek za konec p②edchoz ho, samoz②ejm❎ v⇨etn❎ mez rky pro runtime stack pro GOSUB a FOR-NEXT n⇧vratov⑦ adresy.¢¢Uprost②ed hlavn smy⇨ky kaəd⑦ho z t❎ch 8mi samostatn⑨ch basicov⑨ch program
, p②ehr⇧vaj c ch jednu jedinou hudbu, byl tedy odskok A=USR(...). V p② pad❎, əe nebyla stla⇨ena ə⇧dn⇧ kl⇧vesa, vr⇧til se b❎h poslu③n❎ ze strojov⑦ho podprogramu a p② slu③n⑨ Basic program pokra⇨oval, zat mco v p② pad❎ kl⇧ves 1-8 se nainicializoval a spustil jin⑨.¢¢B❎hem testov⇧n tohoto zp
sobu jsem pak radostn❎ pozoroval, əe rychlost jednotliv⑨ch Basic
byla spr⇧vn❎ zachov⇧na. Kr⇧sn❎ efektn❎ tak⑦ vypadala skute⇨nost, əe jsem vədy RUNem spustil n❎jak⑨ program, stisknul ⇨ slo jin⑦ skladby, pak kl⇧vesu BREAK, a po povelu LIST se vypsal pokaəd⑦ jin⑨ listing. :-)