Bu sayfadaki yazılar
Sayfanın metni
Sayfa 24
Bundan önceki yazımızda ele aldığımız turbo programı ilgi gördü. Monitör programı olanların rahatlıkla kullanabildiği programı BASIC ile girmeye çalışanlar biraz yoruldular. Ayrıca turboyu makina kodu olarak saklamaya yarayan adreslerden biri POKE 45,255 olacaktı, burada düzeltiyoruz. Monitör programıyla yapılan kayıt işleminde böyle bir sorun yok. “Turbo 40 kez hızlı” yazısını okuduğunuzda şaşırmışsınızdır. Çünkü turbo 10 kez hızlı, bu hatayı bir espri olarak değerlendireceğinizi umuyoruz. Önümüzdeki sayıdan sonra programların kasette ve diskette okuyucuya sunulması gibi bir düşüncemiz olduğundan bu tür sorunların da önüne geçileceğini umuyoruz. Derginin yayınlandığı tarihten bir hafta sonraya kadar kaset veya disketinizle Teleteknik'e gelseniz programın kopyasını verebiliriz. Bu arada program kopyacılarını da düşünerek “kaset header” programı veriyoruz. Bir önceki sayıda yer alan header oluşturma işlemini zahmetsizce yapabilirsiniz. Disket programınız için verdiğiniz otomatik “,8,1” yazıcı da ilginizi çeker sanırım.
KIRMIZI VE MAVİ
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 25
Program elinizdeki kaset programının başlangıç ve bitiş adreslerini vermekte, program kopyacıları için bir önceki sayıda sözü edilen öteleme işlemini kolayca yapmaktadır. Bu programın ve monitör programının yardımıyla turbo ve kilitli ların incelemesini yapabilirsiniz. Autorun yapan programlar vektörler üzerine data yüklemekte ve READY durumunda vektörlerde bulunan adreslere sıçramaktadır. Bu adreslerin $300 ile $033C arasında olduğunu belirtelim. Eğer programın gösterdiği adres bu aralıkta ise uygun ötelemeyle vektörlere yüklenen değerleri bulabilirsiniz. Ayırca turbo programların çoğunluğu “kaset buffer” denilen $0351-$03FB veya arasında olabilir. Bunun için uygun bir monitör programı bularak (kırk kez tekrarlamama rağmen bu program önemli) çalışmaya başlayın. Program dosya çevirisini de vermektedir. Eğer FİLE tipi 1 ise kayıt BA-SIC bölgesine yapılır.
Eğer diskette programınız varsa ve biraz da ustaysanız directory'yi aldıktan sonra cursor ile programın isminin yazılı olduğu satıra gidip "LOAD" yazıp arkasından isminin bittiği yerden ",8,1" yazıp (RETURN) ile programı yükleyiniz. Verdiğiniz bu program ile ",8,1" işlemi disketinize (isim uzunluğu 13 karakterden kısaysa) eklenecektir; böylece sadece "LOAD" yazarak programınızı yükleyebilirsiniz. Eğer ismin yanında yeteri kadar boşluk yoksa ",8,1" ekleneceğini belirtelim. Programı çalıştırdığınızda işlemin tüm disket için veya bazı programlar için yazılacağına ilişkin bir seçenek çıkar. İşlem uzunluğun yeterli olduğunu belirtir. Karşısında "*" işareti olmayan programlar için bu işlem yapılmaz. Bu işlem için disketten koruma bandını çıkarmayı unutmayın.
—A
5
6 PRİNT" DİRECTORY DÜZENLEYİCİ x1986k 7 PRİNT" Elm SEYFİ & 8 INPUT "1-BUTUN 10 OPENİ,8,15 13 15 ADLARI" 16 PRINT"----------- Ms 30 40 IF THEN CLOSEİ:CLOSE2:END 45 PRIİNTHİ,"Ul 2 SO 60 80 Ps2 90 IF P>255 THEN P-P-256:60T0 48 95 PRIİNTHL,"B-P 2";P 100 GETH2,AS:IF P-P4*32:60T0O 90 110 GETH2,AS:GETHE,AS 120 TO 16 130 148 IF ASCCAS)-160 THEN 168 1380 NEXT 160 PRINTB$: IF 1>13 THEN 98 GOSUB 1088 188 98 1986 END 1008 THEN S$-",8:"
1001 " ; :
1005 IF J$z"E" THEN 1819 1886 INPUT" <XEZH)";V$ 1807 18608 IF V$-"H" THEN 1838 1818 PRINTH1İ,"B-P 1020 PRINTH2,S$; 1025 PRINTHİ,"U2 2 A":D;E 1830 RETURN
1 REM OK OK ORK 2 REM * KASET HEADER * 3 REM ole Ole OK 108 20 30 PRİNT" KOYUP TUSUNA BASIN 40 48 50 5YS 63276 Sİ 532 FOR1-833 TO 833415:PRINT CHR$<PEEKC 68 PRINT:PRİNT "FİLE TİPİ-"PEEK(828) 70 PR. PR. FİLE" 73 908 80 PRIİINT:PRIİNT"BASLANGIC ADRESİ: SO 900 33 PRINT"BITIİS S"AS;"-";BIA 938 1F BRA<S28 THENPRİNT" PROGRAM 100 A-S: INPUT BLOK 110 120 138 INPUT "DEVAM 146 IF A$<>"E" THEN END 1506 SYS 62813 899 END 900 TO & STEP -iİ 920 930
940