Bu sayfadaki yazılar
Sayfanın metni
Sayfa 19
INPUT" FORP -32768T0348 15: POKEP IFAS< >”G"THENGOTO 185 INPUT"LARNORMAL KARAKTER SETİ MİCEZH)":B$
DATA DATA DATA DATA DATA DATA DATA DATA DATA DATA DATA DATA DATA DATA DATA
LDA STA STA SET LDA AND STA LDK LDA STA INK BNE INC INC LDA CMP BCC LDA ORA STA CLI
LDA ORA STA LDA AND ORA STA LDA STA LDA STA LDA STA LDA STA RTS
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 18
$C080'e dönüp, aynı byte'ın bir sonraki bitini dene.
$C094: $882B'ye $28 ekle, yani ekranda bir satır (40 hane) ileri.
$C0A2: Tüm işlemi 8 kez tekrarla.
$C0A7: Ekrandaki başlangıç konumunu ilk baştaki duruma getir.
Üçüncü alt-program ($C0B2)
Ekrandaki kutuda bizim oluşturduğumuz şekli tarayıp 8'er bitli 8 byte oluşturan bu rutin, bir-iki küçük farkla, bir öncekinin tam tersi.
$C0B5: $FB-FC'ya konan karakter tanım adresinin $0400 fazlasını $F9-FA'ya koy. Bu adrese, yeni tanımladığımız karakterin 'reverse'ini (negatifini) koyacağız.
$C0BF: $FF adresini sıfırla. Burada, ekrandaki şekilden bit-bit yeni karakter tanımlarımızı hesaplayacağız.
$C0C3: Yukarıdakinin aksine, bu kez hesabımızı sol uçtan değil, sağ uçtaki bitten başlayarak yapıyoruz. Keyif meselesi.
$C0C9: Ekrandaki kutunun başından 7 sonraki haneyi oku.
$C0CC: Boşsa geç.
$C0D0: Değilse, şu anda kaçıncı bitteysek, $FF'teki sayının o bitini 1 yap.
$C0D6: X'i azalt; $FE'deki tek bitli rakamı bir sola kaydır. İşlemi 8 kez tekrarla.
$C0DB: $FF'te oluşmuş olan rakamı $FB-FC'de yazılı karakter adresine, tersini de $F9-FA'daki reverse karakter adresine koy.
$C0E3: Alt satıra geç; 8 kez yukarıdaki işlemleri tekrarla.