Püf Noktası

Commodore sayı 7, Eylül 1986 · sayfa 63, 64 

55 000
OPEN ENİ“
B$t
VA

Bİ Aİ

Başlangıç Adresini

Bulmak:

CHE$003 PRINT BASLANGIÇ BARESİ :

Aşağıdaki yordam herhangi bir programın başlangıç adresini bulmada kullanılır. Bu genellikle makine dilindeki bir programın SYS kodunu bulmak için çok kullanışlıdır.

55000 INPUT
55001
8,A3,B3:CLOSE8
- 55002 A-ASC(AŞ 4
B- ASC(B34
55003 PRINT “BAŞLANGIÇ
ADRESİ: ”; A*2564B

PRINT PEEK(43)+256*PEEK(44) ile BASIC programınızın hangi adresten başladığını öğrenebilirsiniz.

PRINT 4 size değişkenlerin saklanmaya başlandığı ilk adresi verecektir.

PRINT CHR$(PEEK(69)AND 127); CHR$(PEEK(70)AND 127) verdiğinizde, bilgisayarın en son kullandığı değişkenin adını öğrenirsiniz.

PRINT PEEK(55)+256*PEEK(56) ile, BASIC programı ve değişkenler için ayrılan boş içbellek kısmından sonra gelen ilk byte'ın adresini öğrenirsiniz.

Metinlere yazı düzeni vermek: Çoğu zaman metinleri ortalamak veya sağa dayalı yazmak konusunda sorunlarla karşılaşırız. Aşağıdaki kısa BASIC satırları bu sorunu halletmekte size yardımcı olacak: Ortalama: FOR I=1 TO (40-LEN(A$))/2:PRINT " ";:NEXT:PRINT A$ Sağa dayalı yazma: FOR I=1 TO 40-LEN(A$):PRINT " ";:NEXT:PRINT A$

A$ değişkeni, her defasında yazı düzeni verilecek satırı içermelidir.

Başlangıç adresini bulmanın diğer bir yolu ise şu:

10 A$- “program adı”
20 OPEN 1,8,0,A$4 “,P,R”
30 GET 1,B$:CLOSE |
40 PRINT ASC(AŞ 4 CHR$(0)) 4 4
Eğer bitiş adresini merak ederseniz, LOAD “prog-
ram adı”, 8,1 ile yükleyin ve PRINT PEEK(176) *
256*PEEK(177) ile programın son byte'ından sonra
gelen adresi öğrenin.

Eğer bir READ komutunun hemen arkasına PRINT PEEK(63)+256*PEEK(64) yazarsanız, en son okunan verinin okunduğu DATA satırının numarasını görürsünüz.

Eğer herhangi bir BASIC programı satırında PRINT PEEK(57)+256*PEEK(58) olursa, o satırın numarasını ekranda görürsünüz.

POKE 775,200 yaptıktan sonra programınızı LIST edemezsiniz. POKE 775,167 ile tekrar normale dönülür.

ELEKTRONİK ALET-EDEVAT

Aynı Kasette Daha Çok Program:

C commodore

Bazı disklerdeki 2D (Double Density) özelliğinin kullanıcıya sağladığı olanağı herhalde biliyorsunuz. Bu özellik aynı diskete daha fazla programın kaydedilmesine olanak veriyor. Şimdi aynı olanağı Datasette'lerde sağlayan bir sistem üretildi: Sistem 2D. Sistem 2D, kaseti normaldekinin iki katı verimli hale getiriyor. Bunu, Datasette'in üzerine yerleştirilen iki switch sağlıyor. Açıklayıcı bir örnek verelim: Diyelim ki, A isimli programınız kasetinizin 0 ile 20 numaraları arasında yer alıyor. B isimli program ise diğer bir kasetin 0 ila 25 numaraları arasında. Sistem 2D, A programını silmeden, aynı yere B programını kaydedebilmenizi sağlıyor.

Böylece aynı kasetin aynı yüzünde 0 ile 20 arasında A programını, 0 ila 25 arasında B programını kullanabiliyorsunuz. Eğer program dolu 20 kasetiniz varsa, Sistem 2D, bu programların tümü için yalnızca 10 kaset kullanmanızı, dolayısıyla kaset harcamanızı yarıya indirebilmenizi sağlıyor. Ayrıca bu sistemin kullanılması sizi ileri geri sarma zahmetinden de büyük ölçüde kurtarıyor. Özellikle kasette dosyalama yapan Commodore'cular, bu sistemden çok yarar sağlayabilecekler. Farklı kafa ayarlarıyla kaydedilmiş programlar olabileceğinden, kristal kafa ayar aleti takılmış Datasette'lerde bu sistem daha verimli olabilmekte. Sistem 2D, 5000 TL. karşılığında. ÖZTEKNİK Ltd. Şirketi Aksaray Küçük Londra Cad. No: 23 Akşahin Pasajı Kat 5/9'dan temin edilebilir (Tel: 521 83 40). Kristal kafa ayarı aleti de eklendiği takdirde fiyat 7500 TL.