Commodore sayı 4, sayfa 16
Sayfanın metni

Sayfa 16

— — 1

4115/0710)

9 1 0 1 Konu

Konu 2-evet Konu 3-hayır Konu Konu 5-evet Konu 6evet

2. Byte

Basıc ve Makine

Kodunda Özdeş Arama

SYS (veya JSR) ile 'BEGIN' yordamını çağırma, bulunan kaydın numarasını sicildeki (register) değer olarak geri

Konu 7-hayır” döndürecektir. Eğer bu değer sıfır ise bulunan başka kayıt yok demektir. İlk

ŞEKİL 3: Konular veya diğer evet-hayır türü veriler ayrı bitler biçiminde

kodlanabilir. kayıt bulunduktan sonra arama SYS Konu 9-evet (veya JSR) ile “DECPT” yordamı çağ- | rılarak devam ettirilebilir. "BEGİN" ANAHTAR'ı BUFFER'a yerleştir. POİNTER'ı (gösterge) BİR SONRAKİ BÜŞ KAYIT No'ya ayarla. "DECPT" POİNTER'ı bir eksilt. Sıfır ise RETURN dön). Program 1 BASIC ilet id TİNKER PROGRAM 8: 20 FOR TO LENM-İ 0000 * 1) | BASIC ve KODUNDA 'İçerik Arama Prograrm i'deki yordama benemektedir. IF THEN RETURM IF "DECPT" *BEGİN" ANAHTAR'ı BUFFER'a SA MEST yerleştir. BİR SONRAKİ MAKİNE KODU ile: BOŞ KAYIT na'ya ayarla "DECPT" FOİNTER'ı bir Sıfır ize R İRN POİNTER*LEN'i REGİSTER'a aktar. ÖFFSET'i REGIİSTER'a &kle BASIC ile! LOY #8 120 "CONT"LDA <(REİSTER),Y 20 FOR & TO LEN-İ BE "END" 30 CMP dü IF ENE "DECFT" THEN RETURN IRY SA CPY #LEN BCC Nez: dizin sözcük uzunluğu, dizin sözcüğün adrezi. 0d aaa

Klavyeyle gezinmek için ← ve → tuşları.