Özet
1. Byte ve 2. Byte arasındaki bir arama işlemi gösterilmiştir. Bu arama işlemi, 1. byte'yi 2. byte'ye aktarmak için kullanılır.
Diğer Dergiler
Tam metin içeriği
1.Byte . By
——— (Byte - —— —, 2. Byte
g1 0 myom
Basıc ve Makine
Konu #-hayır
Konu Zeve Kodunda Özdeş
Konu 8-hayır Arama
Konu 4-evet
Konu 5-evet SYS (veya JSR) ile 'BEGİN' yordamını
> zi çağırma, bulunan kayıtın numarasını
Konu 6evet // i sicildeki (register) değer olarak geri
Konu 7-hayır ŞEKİL 3: Konular veya diğer evet (| O döndürecektir. Eğerbudeğersifir ise
hayır türü veriler ayrı bitler biçiminde bulunan başka kayıt yok demektir. İlk
KONU Ey kodlanabilir. kayıt bulunduktan sonra arama SYS
Konu 9-evet (veya JSR) ile “DECPT” yordamı çağ-
rılarak devam ettirilebilir.
"BEGIN" ANAHTAR'ı BUFFER'a yerleştir.
POINTER'ı (gösterge) BİR SONRAKİ BOŞ KAYIT No'ya ayarla.
"DECPT" POINTER'ı bir eksilt. Sıfır ise RETURN (geri dön).
Program 1
BASIC ile:
ig ADSPOINKER#LEN#OFFSET PROGRAM 2:
20 FOR 1-8 TO LEN-İ 0
30 K-PEEK (BUFFER * 1) İ EBASIC ve MAKINF KODUNDA 'içerik
| Arama' işlemi Prosram i'deki
yordama benhemektedir.
a8 IF KA THEN RETURN
58 IF PEEKCA0HI)<>K GOTO "DECRT" "“BEGİN" ANAHTAR'ı BUFFER'a
SA NEXT ISRETURN yerleştir.
POINTER'ı BİR SONRAKİ
MAKİNE KODU ile: BOŞ KAYIT hu'ya ayarla
"DECPT" FOINTER' bir eksilt.
ı
Sıf ise ll
POINTER#LEN'i REGISTER'â aktar. e
OFFSET'i REGISTER'a ekle BASIC ile:
LDY #e 19 ADSPGINTER#LENtOFFSET
"CONT"LDA KRELISTER),Y 20 FOR 8 TO LEN-İ
BER "END" sa » EEK(BUFFER#1)
CMP (BUFFER) ,Y 42 IF KPEEKKADMID)ANDKI<IK
BNE "DECPT" THEN RETURN
INY 59 NEKTISRETURN
EPY #LEN
BCC "CONT"
Neti LENS dizin sözcük uzunluğu.
ıfırıncı dizim sözcüğün i
e lele sşleşlelelelş-4-———
16
