1 Mayıs 1986 Tarihli Commodore Gazetesi Sayfa 13

Artık bir program yazmanın zama- nıdır. Bir osilatörü kullanacak yeter- li bilgileri edindik. Aşağıdaki UFO se- si örneğini ele alalım. SID I programında önce SID regis- terlerini sıfırlıyoruz (son dördü dışın- dakiler çünkü onlar sadece okunabi- len tipte). Daha sonra VOLUME re- gisterlerini maksimuma ayarlıyoruz. Nedendir bilinmez hep bu maximuma ayarlanır. Bu işlemden sonra ATT, DEC, SUS ve REL değerlerini ayar- layarak sesimizin karakterini belirli- yoruz. Bunlar uzun ATTACK ve yük- sek seviyede SUSTAIN”e ayarlı DE- CAY ve RELEASE değerleri sıfırda. Ve Tanrı GATE 'i bir yaptı' pardon gate'i 1 yapıyoruz, üçgen dalgayı se- çiyoruz. Bu satırdaki 17 rakamını 33 (32 * 1) yaparak daha değişik efektler elde edebilirsiniz. Gate'e 33 verildiğin- de dalga testere dizi karakteri taşıya- caktır. Şimdi frekansı devamlı kaydı- racağımızdan onu döngü içinde değiş- tiriyoruz. Ve bu oyun böylece devam ediyor. İkinci olarak yine sadece bir tek osi- latörü kullanarak ama bu sefer maki- ne dilinde bir program vereceğim bu- nu yazıp joystiğinizi ikinci port'a ta- kın ileri ve geri oynatarak ilginç efek- tler elde edeceksiniz. Açıklamaları bir dahaki sayıda. PROGRAM ADI : SID 1 88818 REM 'LERİ YAZMAYIN DAHA IYİI CALİSIR <164> 68815 REM TIRNAK IİCİNDE <SHİFT/CLR-HOME) VE <RVS ON> <110> 69028 PRINT "<CLR><RYSONDU.F.O" <098> 68838 REM TUM REGİSTER'LERİ SIFİIRLA DOLDUR <041> 08048 SIDs54272:FOR Tz0 TO 24:POKE SID*T,BENEKXT T <234> 688650 POKE S10*424,15:1REM VOLUME MAKSIMUM <064> 08868 REM ATT-15,DEC-A ,SUS-s15,REL-Ü Ci 1a3> 888078 POKE SID*4*5,240:POKE S1D*4*6,240 <819> 68088 REM <UCGEN DALGA-16)4*<GATESİ)LSİZ7 <1728> 008690 POKE SİID*44,17 <156> ©8100 REM DEGİSKEN SESLER ICIN DONGÜU <168> 88116 FOl I-s1 TO 288:FOR T-z68 TO 80 <132> 86128 RĞM SADECE Hİ BYTE'IİNİ KULLANI YORUZ <89206> 6606130 POKE SIİD*1İ,T*I:NEXT TİiNEXT <217> 6861480 REM GİT BİR DAHA KAFA SİSİR <235> 08156 GOTO 118 <094> PROGRAM HDJ : SİD 2 080018 REM PROGRAM -MAHMUT C.GENCELİ 8 MART 1986 <â5ea> 608026 REM TIRNAK IİCİNDE ÖNCE SHİFT/CLR-HOME SÜONRA CONTROL/1 <8396> 00030 POKE 53286,21POKE 538881,2:PRINT "<CLR><CTRL-İ>LÜTFEN BEKLEYIİNIİZ" <812> 02050 HD'4SISEİTEMgBD <160> BA0868 EAD ASIF A<A THEN 88 <129> OfB7Aa PÜKE AD,A:CK-CKtASADSADA*1:GOTO 68 <1A7> 00880 IF CK<212166 THEN PRİNT "<CLR)DATALARDA YANLISLIK V AR"TEND <ı110> 60885 REM TIRNAK IİCİNDE ÖNCE SHİFT/”CLR-HOME SONRA 12 CRSR A SAGI, & CRSR SAGA <A75> 08890 PRIİNT "(CLR)(IGDÜNN)(GRIGHT)CIKMHK ICIN RUN-STOP/RESTO : <126> 66186 SYS TEM <125> 8110 DATA 120,169,003,141,005,212,169,P#0A3 <831> 06120 DATA 141,806,212,169,815,141,624,212 <a210> 68138 DATA 169,8865,133,251,169,032,133,252 <249> 861486 DATA 024 ,032,057,192,056,032,057,192 <214> 086150 DATA 173,000,220,133,253,641,6B1,208 <2048> 80168 DATA 085,236,251,676,024,192,165,253 <042> 68176 DATA 641,002,208,228,198,251,076,624 <0381> 086180 DATI 192,144,007,165,252,141,8001,212 <236> 086198 DATA 208,007,165,251,141,0961,212,163 <A097> 086200 DATA 017,141,804,212,162,A30,202,208 <2826> 8862186 DATA 253,1639,816,141,004,212,173,032 <247> 60220 DATA €08,073,001,141,032,208,141,033 <164> 00236 DATA 208,096,- <131> D a T —a GOÖNMNMOİOD"EC a: