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.