Zx Spectrum Kodlama Örnekleri sayfasının kaynağını görüntüle

== Sıkça Sorulan Sorular ==

'''Soru 1 (HADES):'''
Yazdığım kodlarda IM 2'yi kullanıyorum ama Basic ekranına geri dönüş yapmayıp normal rutinde JR ile döngü yapıyorum.
Hem Irq kullanıp hem Basic nasıl kullanılır? Aklıma IM 1 kullanmak geliyor ama nasıl olacak?

'''Cevap 1 (REF):'''
Anladığım kadarıyla bir basic programı çalışırken, diğer taraftan asm ile müzik çaldırmak istiyorsun.

Spectrumda bir tek IM2'yi kullanabiliyoruz. IM1 ROM'a göre zıplıyor, dolayısı ile yapacak bişey yok.

IM2'yi kurması da gıcık aslında. Çünkü şöyle bir durum var. IM2 işaretçi adresinin hesaplanacağı adres şu şekilde hesaplanıyor (evet suyunun suyu şeklinde):

Adresin üst byte'ı I yazmacında tutuluyor. Fakat alt byte'ı takılı olan aygıt belirliyor. Eğer bir aygıt takılı değil ise, floating bus sebebi ile bu alt byte random olabiliyor. Dolayısı ile IM2 kurmak için 257 byte'lık bir alanı *aynı* byte'lar ile doldurmak gerekiyor ki, adres nereye düşerse düşsün pointer değişmesin.

Örnek. Diyelim ki I'yı 254 yaptınız. Bu şekilde IM2 pointer'ının okunacağı adres (yüksek byte'a göre) 65024 oldu. Fakat IM2 düşük byte 0-255 arasında rast gele bir değer. Dolayısı ile eğer düşük byte 0 olursa sizin kesme rutininizin bulunacağı adres 65024 ve 65025 byte'larından hesaplanacak. Eğer bu adreslerin ilkinin değeri "1", ikincisinin değer i"0" olursa, interrupt olduğunda, 255 adresine zıplanır.  Fakat IM2 düşük byte başka bir rakam olsa, zıplanacak adres başka bir lokasyondan hesaplanacağı için, IM2 başka bir yere zıplar. 

Ben asmp multicolor aracını kodlarken şöyle bir yöntem izledim. 65024'den itibaren 257 byte boyunca #FD ile doldurdum. I'ya 254 yükleyince her durumda IM2 vektörü #FDFD oluyor, yani 65021'e zıplanıyor. Bu adrese istediğin şekilde dallanabilirsin, ben timing için yaptığım için buraya RET girdim, böylece halt ile durduktan sonra IM2 olduğu gibi program senkronize olarak devam ediyor.

Dikkat, Interrupt rutini asla 32768'den aşağıda olmamalı!

Senin durumunda ise basic çalışsın istiyorsun, fakat IM1 servis rutinide çalışsın istiyorsun. Bu durumda servis rutininin yaptığı işi senin yapman gerek. 

Neyse benim kodu asmp'den copy-paste ediyorum:
Önce IM2'yi kuralım
di  ;interrupt'ı kapatalım

ld hl,65021

ld (hl),#C3 ;jump kodunu yerleştirelim, dikkat bu şekilde yapmak mecburi değil
inc hl         ;vektör tablosunu 253'le değil başka bir rakamla doldurursanız
ld hl, #c0   ;istediğiniz yere zıplatırsınız zaten
inc hl
ld hl, #c7  ; yani #C3 #C0C7 (JP 47040)
                 

ld   hl,65024  ;şimdi aralığı FD ile dolduracağız.
ld   de,65025
ld   (hl),253
ld   b,e
ld   c,e
ldir

ld   a,254  ;Artık IM2'yi kurabiliriz.
ld   i,a
im   2 ;im2'ye geçtik

ei  ;interruptlar açık
Bu da basic'i çalışır durumda tutmanın bir yöntemi:
org #C0C7  ;yukarıdaki örneğe göre kod 47040'dan başlamalı.

di  ;alışkanlık
ld (stackpointer),sp ;mecbur değilsen sp'yi yazmayabilirsin
ld sp,stackpointer   ;garanti olsun diye yerini de değiştiriyorum (18 byte'lık bir yer lazım)

Push HL   ;basic'in kullandığı yazmaçları saklayalım
Push BC
Push DE
Push AF  

exx         ;söylentiye göre basic için alternatif yazmaçları saklamaya gerek yok
Push HL   ;ama yine de koyalım bir kenara
Push BC
Push DE

CALL muzik  ;müziğimizi çalalım

rst 56 ;ROM'daki servis rutini, klavyeyi okur, sayacı ilerletir

LD sp,stackpointer-14 ;basic'e dönmeden önce herşeyi geri yerleştirelim
Pop DE
Pop BC
Pop HL

exx
pop af
pop de
pop bc 
pop hl

ld sp,(stackpointer) ;herşeyi geri aldık
;IM1 ;Bu noktada IM1 işletsek, basic'e olduğu gibi geri dönülmüş olur.
ei  ;interrupt'ı çalıştır.
ret  ;geri dön, dilerseniz RETI de kullanabilirsiniz.

stackpointer:
defb 0
----------------------
Bu koda göre IX/IY registerini kullanamazsınız, basic kullanıyor, istiyorsanız onları da kaydetmelisiniz.

Bu efektif yöntem mi bilmiyorum ama benim kullandığım yöntem bu. Özetlersek (değerler decimal):

1. IM2 için 257 byte uzunluğunda vektör tablosu oluştur. (tablo 220'lerden oluşursa adres 220*256+220= 56540 olacak)
2. I'yı bu tablonun başına point et.
3. vektör tablosundaki adrese rutinini koy 
4. rutin başladığında basic değişkenlerini sakla (PUSH <hepsi>)
5. işini yap: (CALL x)
6. basic servis rutinini çağır (rst 56)
7. basic değişkenlerini geri çağır (POP <hepsi>)
8. geri dön (reti/ret)


'''Soru 2 (İLKER):'''
Örnek kodlardan biri ekrandaki resmi dikey olarak ters çeviriyor (Vertical Flip). Ancak ben bunu denemek için ekranda bir oyundan resim olsun istiyorum bunu yapabilir miyim?

'''Cevap 2 (MEMRAH):'''
Soyledigini yapmanin bir suru yolu var. En basitlerinden bahsedeyim. ZX Spin kullandigini varsayarak, herhangi bir SCR dosyasini Spin'in emulasyon penceresine cekersen zaten icerigini spectrum'da 16384'ten itibaren ekran bellegine yukler. Elimizde bir tane SCR dosyası olsun. SCR dosyasini bir kenara (ornegin masa ustune) alıyoruz. Uzerinde calistigin kodu assemble et. Daha sonra eger 128 modunda isen EDIT menusunden SCREEN moduna gecmeni tavsiye ederim ki editor surekli ekrani silmeye kalkmasin. Daha sonra SCR dosyasini SPIN'in ana penceresi uzerine surukle ve birak... Resim ekranda... Daha sonra RANDOMIZE USR XXXXX ile kodu calistirabilirsin.. 

Diger yollar, oyunlarin TAP dosyasinin icine tape browser ile girip SCREEN$ dosyasini 16384 ile 16384+6912 arasina yuklemek, vs.

(istedigin oyunun TAP dosyasini indir, Spin'de Tape Browser'da ac, uzunlugu 6912 olan dosya ekran dosyasidir, bunu bul, LOAD "" CODE 16384,6912 yaz ve TAPE' i baslat)

== Açıklamalı Örnek Kodlar ==
<font color="red">'''HADES ÖRNEK 01 - HAFIZADA 4K'LIK BİR BÖLGEYİ TEMİZLEYEN BİR RUTİN:'''</font>

LD HL,$8000 <br>
LD DE,$8001 <br>
LD BC,$1000 <br>
LD (HL),0 <br>
LDIR <br>
RET <br>

$8000-$9000 arasını "0" ile dolduruyoruz.

'''Açıklaması:''' <br>

<font color="red">'''LDIR komutu''': </font> <br>
Bellekteki herhangi bir alani baska bir alana kopyalamak icin kullanilan dongusel komutlardan birisidir. (Bir digeri icin bkz. LDDR)  <br>
 
'''Calisma sekli:'''  <br>
LDIR komutu yurutulmeden once 3 yazmac gerekli parametreler ile yuklenir. 

HL ciftine, kopyalanmak istenen (kaynak) alanin baslangic adresi,  <br>
DE ciftine hedef alanin baslangic adresi,  <br>
BC ciftine ise baslangic adresinden itibaren kac byte kopyalanacagi yuklenir.  <br>

Ardindan LDIR komutu verilerek kopyalama gerceklestirilir. Gercekte LDIR komutu bir islemler dongusunu baslatir. Adim adim incelersek, LDIR komutu verildiginde, ilk olarak;  <br>

LD (DE),(HL) islemi ile DE'nin isaret ettigi adrese HL'nin isaret ettigi adresteki deger yuklenir.  <br>

Ardindan DE ve HL 'nin degerleri 1 arttirilir ve BC 'nin degerinden ise 1 eksiltilir. Dongu kontrol degiskeni olarak BC yazmaci kullanilir ve dongu BC'nin degeri 0 oluncaya kadar tekrar eder. Komutun calisma suresi kopyalanacak byte miktarina bagli olarak degisir.  <br>

Hades'in verdigi ornekte, hedef alan, kopyalanacak kaynak alanin sadece 1 byte ilerisinde oldugu icin, kaynak alanin ilk byte'inda tutulan deger (Hades'in orneginde 0) hemen bir ilerisindeki adrese yazilacak.  Ardindan da HL ve DE yazmaclari birer arttirilacagi icin bir bu defa bir onceki adimda hedef alanda olan adres bu kez kaynak alana girecek, ve icerisinde tutulan deger (0) yine kendisinden sonraki adrese kopyalanacak. Bu da BC'deki deger yani $1000 (dec.4096) sifirlanana kadar, yani 4096 kere tekrarlanarak, 4K'lik bir RAM alanini 0'larla dolduracaktir.  <br>

Bu tarz bir kullanim ornegin ekran bellegi bolgesini (ZX Spectrum'da 16384 ten baslayan 6912 byte) sifirlamak sureti ile ekrani silmek amaci ile kullanilabilir. Tabi kullanim alani bununla sınırlı degildir.  <br>

LDIR genel olarak son derece kullanisli bir komuttur.  <br>

<font color="red"> '''DJNZ (Decrease and Jump if Not Zero):''' </font> <br>
255 defa'ya kadar tekrarlanmasi istenen islemleri bir donguye sokmak icin kullanilabilir.  Dongu kontrol degiskeni olarak B yazmaci kullanilir. B yazmacindaki sayi 0'dan buyuk oldugu surece, DJNZ komutu isletildiginde, komutun isaret ettigi adrese atlanir.  <br>

B yazmacindaki deger her DJNZ komutu calistirildiginda bir eksiltilir ve 0'a ulastiginda, DJNZ komutunun isaret ettigi adrese atlama yapilmaz. Onun yerine DJNZ komutundan bir sonraki komuta atlanir.

Ornegin asagidaki rutin NOP komutunu 128 kere calistirir:  <br>

LD B,128  <br>
islemyok: <br>
NOP <br>
DJNZ islemyok <br>
RET <br>




<table width="650" border="0">
  <tr>
    <td><font color="red">'''HADES ÖRNEK 02 - VERTICAL MIRROR CHAR SET:'''</font></td>
  </tr>
</table>

<table width="400" border="0">
  <tr><td>-------------------------------;</td></tr>
  <tr><td>SPECTRUM FONT - 01</td></tr>
  <tr><td>20-01-2014</td></tr>
  <tr><td>Vertical mirror char set</td></tr>
  <tr><td>-------------------------------;</td></tr>
</table>

<table width="649" border="1" bgcolor="#FFFFCC">
  <tr>
    <td>&nbsp;</td>
    <td width="210">org     $8000</td>
    <td width="423">;Program $8000(32768)den başlıyor</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       ix,$3d00</td>
    <td>;Romdaki karakter seti başlangıç adresi</td>
  </tr>
  <tr>
  <td>&nbsp;</td>
    <td>ld       iy,  newchar  </td>
    <td>;Yeni karakter setinin başlangıç adresi</td>
  </tr>
  <tr>
  <td>&nbsp;</td>
    <td>ld       de,768</td>
    <td>;Karakter setinin byte sayacı</td>
  </tr>
  <tr>
    <td>loop01</td>
    <td>ld       b,8</td>
    <td>;Okunan byte için işlem sayacı</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       a,(ix+0)</td>
    <td>;Romdaki setten bir bayt oku&nbsp;</td>
  </tr>
  <tr>
    <td>loop00</td>
    <td>rl        a                  </td>
    <td>;7. biti &quot;elde&quot;  bitine yükle</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>;diğer bitler sola kayıyor</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>djnz   loop00 </td>
    <td>;İşlem 8 kez yapılıncaya kadar tekrarla</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       (iy+0),c</td>
    <td>;Okunan değeri yeni set için ram'e yaz.</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>inc      ix</td>
    <td>;Rom adresini 1 arttır</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>inc      iy</td>
    <td>;Ram adresini 1 arttır</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     de</td>
    <td>;Bayt sayacını 1 azalt</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       a,d</td>
    <td>&nbsp;</td>
  </tr>
 <tr>
    <td>&nbsp;</td>
    <td>or       e</td>
    <td>&nbsp;</td>
  </tr>
 <tr>
    <td>&nbsp;</td>
    <td>jr        nz,loop01</td>
    <td>;Sıfır olmadıysa işlemleri tekrarla</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       hl,newchar</td>
    <td>;yeni karakter setinin başlangıç</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     h</td>
    <td>;adresinin 256 eksiğini</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       (23606),hl</td>
    <td>;sistem değişkenine yükle</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ret</td>
    <td>;bitir</td>
  </tr>
 <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>org     $8100</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>newchar</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>end     $8000</td>
    <td>&nbsp;</td>
  </tr>
</table>



<table width="650" border="0">
  <tr>
    <td><font color="red">'''HADES ÖRNEK 03 - HORIZONTAL MIRROR CHAR SET:'''</font></td>
  </tr>
</table>

<table width="400" border="0">
  <tr><td>-------------------------------;</td></tr>
  <tr>
  <td>SPECTRUM FONT - 02</td></tr>
  <tr><td>20-01-2014</td></tr>
  <tr>
  <td>Horizontal mirror char set ( Program 35 byte )</td></tr>
  <tr><td>-------------------------------;</td></tr>
</table>

<table width="698" border="1" bgcolor="#FFFFCC">
  <tr>
    <td width="67">&nbsp;</td>
    <td width="190">org     $8000</td>
    <td width="419">;Program $8000(32768)den başlıyor</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       ix,$3d00</td>
    <td>;Romdaki karakter seti başlangıç adresi</td>
  </tr>
  <tr>
  <td>&nbsp;</td>
    <td>ld       hl,newchar+7</td>
    <td>;Yeni karakter setinin başlangıç adresi</td>
  </tr>
  <tr>
  <td>&nbsp;</td>
    <td>ld       de,16</td>
    <td>;Yeni ram adresi için eklenecek değer</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       c,96              </td>
    <td>;Toplam karakter sayısı</td>
  </tr>
  <tr>
    <td>loop01</td>
    <td>ld       b,8</td>
    <td>;Karakter byte sayacı</td>
  </tr>
  <tr>
    <td>loop00</td>
    <td>ld       a,(ix+0)</td>
    <td>;Romdan karakter datasını oku</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       (hl),a  </td>
    <td>;Ram'e yaz</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>inc      ix</td>
    <td>;Rom adresini 1 arttır</td>
  </tr>
 <tr>
    <td>&nbsp;</td>
    <td>dec     hl</td>
    <td>;Ram adresini 1 azalt</td>
  </tr>
 <tr>
    <td>&nbsp;</td>
    <td>djnz    loop00</td>
    <td>;byte sayacını 1 azalt. Sıfır değilse işlemleri  tekrarla</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>add     hl,de</td>
    <td>;Yeni Ram adresini elde et</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     c</td>
    <td>;Karakter sayacını 1 azalt&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        nz,loop01</td>
    <td>;Sıfır değilse işlemleri tekrarla</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       hl,newchar</td>
    <td>;Yeni karakter setinin başlangıç</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     h</td>
    <td>;adresinin 256 eksiğini</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       (23606),hl</td>
    <td>;sistem değişkenine yükle</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ret</td>
    <td>;bitir</td>
  </tr>
 <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>org     $8100</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>newchar</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>end     $8000</td>
    <td>&nbsp;</td>
  </tr>
</table>



<table width="650" border="0">
  <tr>
    <td><font color="red">'''HADES ÖRNEK 04 - SPECTRUM KARAKTER SETİNİ 90 DERECE SOLA YATIR:'''</font></td>
  </tr>
</table>

<table width="400" border="0">
  <tr><td>-------------------------------;</td></tr>
  <tr>
  <td>SPECTRUM FONT - 03</td></tr>
  <tr><td>20-01-2014</td></tr>
  <tr>
  <td>Program 35 byte</td></tr>
  <tr><td>-------------------------------;</td></tr>
</table>

<table width="698" border="1" bgcolor="#FFFFCC">
  <tr>
    <td width="67">&nbsp;</td>
    <td width="190">org     $8000</td>
    <td width="419">;Program $8000(32768)den başlıyor</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       ix,$3d00</td>
    <td>;Romdaki karakter seti başlangıç adresi</td>
  </tr>
  <tr>
  <td>&nbsp;</td>
    <td>ld       iy,newchar+7</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
  <td>&nbsp;</td>
    <td>ld       de,8</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       h,96</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>loop02</td>
    <td>ld       c,8</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>loop01</td>
    <td>ld       b,8</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>push   iy</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       a,(ix+0)</td>
    <td>&nbsp;</td>
  </tr>
 <tr>
    <td>&nbsp;</td>
    <td>ccf</td>
    <td>&nbsp;</td>
  </tr>
 <tr>
    <td>loop00</td>
    <td>rl        a</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>rl        (iy+0)</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     iy</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>djnz    loop00</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>inc      ix</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>pop     iy</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     c</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        nz,loop01</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>add     iy,de</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     h</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        nz,loop02</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       hl,newchar</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     h</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       (23606),hl</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ret</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>org     $8100</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>newchar</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>end     $8000</td>
    <td>&nbsp;</td>
  </tr>
</table>



<table width="650" border="0">
  <tr>
    <td><font color="red">'''HADES ÖRNEK 05 - EKRANI BİR PIXEL SOLA KAYDIRMAK:'''</font></td>
  </tr>
</table>

<table width="400" border="0">
  <tr><td>-------------------------------;</td></tr>
  <tr>
  <td>BIR PIXEL SOLA KAYDIRMA</td></tr>
  <tr><td>   </td></tr>
  <tr>
  <td>    </td></tr>
  <tr><td>-------------------------------;</td></tr>
</table>

<table width="698" border="1" bgcolor="#FFFFCC">
  <tr>
    <td width="67">&nbsp;</td>
    <td width="190">org     $8000</td>
    <td width="419">;Program $8000(32768)den başlıyor</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       hl,22527</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
  <td>&nbsp;</td>
    <td>ld       c,192</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
  <td>nextline</td>
    <td>ld       b,32</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>or       a</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>nextbyte</td>
    <td>rl        (hl)</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     hl</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>djnz    nextbyte</td>
    <td>&nbsp;</td>
  </tr>
 <tr>
    <td>&nbsp;</td>
    <td>dec     c</td>
    <td>&nbsp;</td>
  </tr>
 <tr>
    <td>&nbsp;</td>
    <td>jr        nz,nextline</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ret</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>end     $8000</td>
    <td>&nbsp;</td>
  </tr>
</table>



<table width="650" border="0">
  <tr>
    <td><font color="red">'''HADES ÖRNEK 06 - EKRANI BİR PIXEL SAĞA KAYDIRMAK:'''</font></td>
  </tr>
</table>

<table width="400" border="0">
  <tr><td>-------------------------------;</td></tr>
  <tr>
  <td>BIR PIXEL SAĞA KAYDIRMA</td></tr>
  <tr><td>   </td></tr>
  <tr>
  <td>    </td></tr>
  <tr><td>-------------------------------;</td></tr>
</table>

<table width="698" border="1" bgcolor="#FFFFCC">
  <tr>
    <td width="67">&nbsp;</td>
    <td width="190">org     $8000</td>
    <td width="419">;Program $8000(32768)den başlıyor</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       hl,16384</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
  <td>&nbsp;</td>
    <td>ld       c,192</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
  <td>nextline</td>
    <td>ld       b,32</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>or       a</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>nextbyte</td>
    <td>rr        (hl)</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>inc     hl</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>djnz    nextbyte</td>
    <td>&nbsp;</td>
  </tr>
 <tr>
    <td>&nbsp;</td>
    <td>dec     c</td>
    <td>&nbsp;</td>
  </tr>
 <tr>
    <td>&nbsp;</td>
    <td>jr        nz,nextline</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ret</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>end     $8000</td>
    <td>&nbsp;</td>
  </tr>
</table>



<table width="650" border="0">
  <tr>
    <td><font color="red">'''HADES ÖRNEK 07 - HORIZONTAL FLIP SCREEN:'''</font></td>
  </tr>
</table>

<table width="400" border="0">
  <tr><td>-------------------------------;</td></tr>
  <tr>
  <td>HORIZONTAL FLIP SCREEN</td></tr>
  <tr><td>10-01-2009 hades/ret</td></tr>
  <tr>
  <td>    </td></tr>
  <tr><td>-------------------------------;</td></tr>
</table>

<table width="760" border="1" bgcolor="#FFFFCC">
  <tr>
    <td width="66">&nbsp;</td>
    <td width="171">org     $8000</td>
    <td width="501">;Program $8000(32768)den başlıyor</td>
  </tr>
  <tr>
    <td>main</td>
    <td>ld       de,$4000</td>
    <td>;ekran belleği başlangıç adresi</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       hl,$57e0</td>
    <td>;ekran belleği sol alt posizyon adresi</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       c,$60</td>
    <td>;24 karakter*8pixel=192 pixel satırının yarısı 96</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     loop1</td>
    <td>;alt rutine git</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       de,$5800</td>
    <td>;renk belleği başlangıç adresi</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       hl,$5ae0</td>
    <td>;renk belleği sol alt pozisyon adresi</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       c,$0c</td>
    <td>;24 karakter satırının yarısı</td>
  </tr>
  <tr>
    <td>loop1</td>
    <td>ld       b,$20</td>
    <td>;Bir satırdaki karakter sayıcısı (32)</td>
  </tr>
  <tr>
    <td>loop0</td>
    <td>ld       a,(de)</td>
    <td>;DE registerinin gösterdiği adresteki değeri oku</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>push   af</td>
    <td>;Aküyü yığına at</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       a,(hl)</td>
    <td>;HL registerinin gösterdiği adresteki değeri oku</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       (de),a</td>
    <td>;Aküdeki değeri DE'deki adrese yaz</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>pop     af</td>
    <td>;Akünün önceki değerini yığından al</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       (hl),a</td>
    <td>;AKüdeki degeri      HL'deki  adrese yaz</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>inc      de</td>
    <td>;DE'yi 1 arttır</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>inc      hl</td>
    <td>;HL'yi 1 arttır</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>djnz    loop0</td>
    <td>;Karakter sayıcısını 1 azalt, 0 olmadıysa işlemleri  tekrarla</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>push   de</td>
    <td>;DE'yi yığına at</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       de,$40</td>
    <td>;DE'ye 40h (64) değerini ver</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>sbc     hl,de</td>
    <td>;HL'deki değerden DE'deki değeri çıkart ve sonucu  HL'ye yaz</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>pop     de</td>
    <td>;DE'nin önceki değerini yığından al</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     c</td>
    <td>;sayacı 1 azalt</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        nz,loop1</td>
    <td>;sayaç 0  olmadıysa işlemleri tekrarla</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ret</td>
    <td>;geri dön</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>end $8000</td>
    <td>&nbsp;</td>
  </tr>
</table>




<table width="650" border="0">
  <tr>
    <td><font color="red">'''HADES ÖRNEK 08 - VERTICAL FLIP SCREEN:'''</font></td>
  </tr>
</table>

<table width="400" border="0">
  <tr><td>-------------------------------;</td></tr>
  <tr>
  <td>VERTICAL  FLIP SCREEN</td></tr>
  <tr><td>10-01-2009 hades/ret</td></tr>
  <tr>
  <td>    </td></tr>
  <tr><td>-------------------------------;</td></tr>
</table>

<table width="760" border="1" bgcolor="#FFFFCC">
  <tr>
    <td width="66">&nbsp;</td>
    <td width="171">org     $8000</td>
    <td width="501">;Program $8000(32768)den başlıyor</td>
  </tr>
  <tr>
    <td>main</td>
    <td>ld       hl,$4000</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       de,$401f</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       c,$c0</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>loop1</td>
    <td>ld       b,$10</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>loop0</td>
    <td>push   bc</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>push   hl</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       a,(hl)</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     rotate</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       (tempa),a</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       a,(de)</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     rotate</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>pop     hl</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       a,(tempb)</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       (hl),a</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       a,(tempa)</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       (de),a</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>inc      hl</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     de</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>pop     bc</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>djnz    loop0</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     newadr</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        nz,loop1</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>color</td>
    <td>ld       hl,$5800</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       de,$581f</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       c,$18</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>loop5</td>
    <td>ld       b,$10</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>loop4</td>
    <td>ld       a,(hl)</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>push   af</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       a,(de)</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       (hl),a</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>pop     af</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       (de),a</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>inc      hl</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     de</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>djnz    loop4</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     newadr</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        nz,loop5</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ret</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>rotate</td>
    <td>ld       b,8</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       hl,tempb</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>loop2</td>
    <td>rr        a</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>rl        (hl)</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>djnz    loop2</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       a,(hl)</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ret</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>newadr</td>
    <td>push   bc</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       bc,$30</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ex       de,hl</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>add     hl,bc</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ex       de,hl</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       bc,$10</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>add     hl,bc</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>pop     bc</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     c</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ret</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>tempa</td>
    <td>defb    0</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>tempb</td>
    <td>defb    0</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>end     $8000</td>
    <td>&nbsp;</td>
  </tr>
</table>



<table width="650" border="0">
  <tr>
    <td><font color="red">'''HADES ÖRNEK 09 – SCREEN STRECHER:'''</font></td>
  </tr>
</table>

<table width="400" border="0">
  <tr><td>-------------------------------;</td></tr>
  <tr>
  <td>SCREEN&nbsp; STRECHER</td></tr>
  <tr>
    <td>23-02-2014 / HADES / 255 byte code + text</td></tr>
  <tr>
  <td>    </td></tr>
  <tr><td>-------------------------------;</td></tr>
</table>

<table width="760" border="1" bgcolor="#FFFFCC">
  <tr>
    <td width="66">&nbsp;</td>
    <td width="171">org     $8000</td>
    <td width="501">;Program $8000(32768)den başlıyor</td>
  </tr>
  <tr>
    <td>main</td>
    <td>call     $0d6b</td>
    <td>;CLS command</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       a,2</td>
    <td>;(Screen) kanalını</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     $1601</td>
    <td>;açıyoruz</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       b,endmsg-msg</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       hl,msg</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>loop0</td>
    <td>ld       a,(hl)</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>rst      $10</td>
    <td>;PRINT command</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>inc      hl</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>djnz    loop0</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       b,60</td>
    <td>;efekt başlangıç gecikmesi</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     delay01</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>line7</td>
    <td>call     la47004020</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>line6</td>
    <td>call     la46004700</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     la40204120</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>line5</td>
    <td>call     la45004600</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     la47004020</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     la41204220</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>line4</td>
    <td>call     la44004500</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     la46004700</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     la40204120</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     la42204320</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>line3</td>
    <td>call     la43004400</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     la45004600</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     la47004020</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     la41204220</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     la43204420</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>line2</td>
    <td>call     la42004300</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     la44004500</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     la46004700</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     la40204120</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     la42204320</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     la44204520</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>line1</td>
    <td>call     la41004200</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     la43004400</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     la45004600</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     la47004020</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     la41204220</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     la43204420</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     la45204620</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>line0</td>
    <td>call     la42004300</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     la44004500</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     la46004700</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     la40204120</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     la42204320</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     la44204520</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     la46204720</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       b,80</td>
    <td>;efekt bitiş gecikmesi</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     delay01</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>xx</td>
    <td>jp       main</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>la41004200   </td>
    <td>ld       hl,$4100</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       de,$4200</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        transfer</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>la42004300</td>
    <td>ld       hl,$4200</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       de,$4300</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        transfer</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>la43004400</td>
    <td>ld       hl,$4300</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       de,$4400</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        transfer</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>la44004500</td>
    <td>ld       hl,$4400</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       de,$4500</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        transfer</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>la45004600</td>
    <td>ld       hl,$4500</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       de,$4600</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        transfer</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>la46004700</td>
    <td>ld       hl,$4600</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       de,$4700</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        transfer</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>la47004020</td>
    <td>ld       hl,$4700</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       de,$4020</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        transfer</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>la40204120</td>
    <td>ld       hl,$4020</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       de,$4120</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        transfer</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>la41204220</td>
    <td>ld       hl,$4120</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       de,$4220</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        transfer</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>la42204320</td>
    <td>ld       hl,$4220</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       de,$4320</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        transfer</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>la43204420</td>
    <td>ld       hl,$4320</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       de,$4420</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        transfer</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>la44204520</td>
    <td>ld       hl,$4420</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       de,$4520</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        transfer</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>la45204620</td>
    <td>ld       hl,$4520</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       de,$4620</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        transfer</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>la46204720</td>
    <td>ld       hl,$4620</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       de,$4720</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>transfer</td>
    <td>ld       bc,$20</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ldir</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>delay</td>
    <td>ld       b,1</td>
    <td>;efekt gecikmesi</td>
  </tr>
  <tr>
    <td>delay01</td>
    <td>halt</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>djnz    delay01</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ret</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>msg</td>
    <td>defb    22,0,0</td>
    <td>;AT 0,0</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>defb    16,2</td>
    <td>;INK 2</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>defm &quot;Scr HADES&quot;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>end     $8000</td>
    <td>&nbsp;</td>
  </tr>
</table>



<table width="650" border="0">
  <tr>
    <td><font color="red">'''HADES ÖRNEK 10 – SCREEN EFFECT:'''</font></td>
  </tr>
</table>

<table width="400" border="0">
  <tr><td>-------------------------------;</td></tr>
  <tr>
  <td>SCREEN&nbsp; EFFECT</td></tr>
  <tr>
    <td>09-03-2014 / HADES / CODE + TEXT 155 BYTE</td></tr>
  <tr>
  <td>    </td></tr>
  <tr><td><strong>İlk ekran satırında bir efekt</strong></td></tr>
  <tr>
    <td>-------------------------------;</td>
  </tr>
</table>

<table width="760" border="1" bgcolor="#FFFFCC">
  <tr>
    <td width="66">&nbsp;</td>
    <td width="249">org     $8000</td>
    <td width="423">;Program $8000(32768)den başlıyor</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>main</td>
    <td>xor     a</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>out     (254),a</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     $0d6b</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       a,2</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     $1601</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       hl,$5800</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       de,$5801</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       bc,767</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       (hl),%00000111</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ldir</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>text</td>
    <td>ld       b,endmsg-msg</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       hl,msg</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>loop00</td>
    <td>ld       a,(hl)</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>rst      $10</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>inc      hl</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>djnz    loop00</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       b,80</td>
    <td>;efekt başlangıç</td>
  </tr>
  <tr>
    <td>delay00</td>
    <td>halt</td>
    <td>;gecikmesi</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>djnz    delay00</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       d,0</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>loop01</td>
    <td>ld       hl,$471f</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       b,8</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     scroll</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     h</td>
    <td>;$461f</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       b,7</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     scroll</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     h</td>
    <td>;$451f</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       b,6</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     scroll</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     h</td>
    <td>;$441f</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       b,5</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     scroll</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     h</td>
    <td>;$431f</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       b,4</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     scroll</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     h</td>
    <td>;$421f</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       b,3</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     scroll</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     h</td>
    <td>;$411f</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       b,2</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     scroll</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     h</td>
    <td>;$401f</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       b,1</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     scroll</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     d</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        nz,loop01</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        text</td>
    <td>;başa dön</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>scroll</td>
    <td>push   hl</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       c,32</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>or       a</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>newbyte</td>
    <td>rl        (hl)</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     hl</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       e,3</td>
    <td>;efekt gecikmesi</td>
  </tr>
  <tr>
    <td>delay01</td>
    <td>dec     e</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        nz,delay01</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     c</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        nz,newbyte</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>pop     hl</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>djnz    scroll</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ret</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>msg</td>
    <td>defb    22,0,0</td>
    <td>;AT 0,0</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>defm   &quot;09.03.2014- HADES&quot;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>endmsg</td>
    <td>end     $8000</td>
    <td>&nbsp;</td>
  </tr>
</table>



<table width="650" border="0">
  <tr>
    <td><font color="red">'''HADES ÖRNEK 11 – 8x8 TEXT:'''</font></td>
  </tr>
</table>

<table width="400" border="0">
  <tr><td>-------------------------------;</td></tr>
  <tr>
  <td>8x8 TEXT</td></tr>
  <tr>
    <td>04-07-2014 / HADES</td></tr>
  <tr>
  <td>    </td></tr>
  <tr><td>CODE + TEXT 104 BYTE</td></tr>
  <tr>
    <td>-------------------------------;</td>
  </tr>
</table>

<table width="760" border="1" bgcolor="#FFFFCC">
  <tr>
    <td width="66">&nbsp;</td>
    <td width="249">org     $8000</td>
    <td width="423">;Program $8000(32768)den başlıyor</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>main</td>
    <td>ld       hl,$4000</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       de,$4001</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       bc,6143</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       (hl),255</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ldir</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       b,textend-text</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       hl,$5800</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       ix,text</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       c,4</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>nextchar</td>
    <td>push   bc</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>push   ix</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       a,(ix+0)</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       ix,(23606)</td>
    <td>;charset base</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       de,0</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       c,a</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>loop1</td>
    <td>ld       b,8</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>loop0</td>
    <td>inc      de</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>djnz    loop00</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     c</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        nz,loop01</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>add     ix,de</td>
    <td>;karakter data adresi</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       c,8</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>nextbyte</td>
    <td>ld       b,8</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       a,(ix+0)</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>nextbit</td>
    <td>rla</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        nc,nocolor</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       (hl),6</td>
    <td>;renk</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        cont</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>nocolor</td>
    <td>ld       (hl),0</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>cont</td>
    <td>inc      hl</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>djnz    nextbit</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>inc      ix</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       de,24</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>add     hl,de</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     c</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        nz,nextbyte</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       de,$f8</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>sbc     hl,de</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>pop     ix</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>inc      ix</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>pop     bc</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     c</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        nz,next</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       c,4</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       hl,$5900</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>next</td>
    <td>djnz    nextchar</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ret</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>text</td>
    <td>defm   &quot;rEtRoJeN&quot;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>textend</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>end     $8000</td>
    <td>&nbsp;</td>
  </tr>
</table>



<table width="650" border="0">
  <tr>
    <td><font color="red">'''HADES ÖRNEK 12 – 8x8 SCROLL:'''</font></td>
  </tr>
</table>

<table width="400" border="0">
  <tr><td>-------------------------------;</td></tr>
  <tr>
  <td>8x8 SCROLL</td></tr>
  <tr>
    <td>10-07-2014 / HADES</td></tr>
  <tr>
  <td>    </td></tr>
  <tr>
  <td>CODE + TEXT 153 BYTE</td></tr>
  <tr>
    <td>-------------------------------;</td>
  </tr>
</table>

<table width="760" border="1" bgcolor="#FFFFCC">
  <tr>
    <td width="66">&nbsp;</td>
    <td width="249">org     $8000</td>
    <td width="423">;Program $8000(32768)den başlıyor</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>main</td>
    <td>call     $0d6b</td>
    <td>;CLS command</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       a,2</td>
    <td>;Screen kanalını </td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     $1601</td>
    <td>açıyoruz</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       a,17</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>rst      $10</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>xor     a</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>out     (254),a</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>rst      $10</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       hl,22528</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       de,22529</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       bc,767</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       (hl),%00000101</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ldir</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>again</td>
    <td>ld       b,textend-text</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       ix,text</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>loop03</td>
    <td>push   bc</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>push   ix</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       a,(ix+0)</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       ix,(23606)</td>
    <td>;charset base</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       de,0</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       c,a</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>loop01</td>
    <td>ld       b,8</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>loop00</td>
    <td>inc      de</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>djnz    loop00</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     c</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        nz,loop01</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>add     ix,de</td>
    <td>;karakter data adresi</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       b,8</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       de,temp</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>loop02</td>
    <td>ld       a,(ix+0)</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       (de),a</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>inc      ix</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>inc      de</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>djnz    loop02</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       c,8</td>
    <td>;7       ;karakter  data bit sayacı</td>
  </tr>
  <tr>
    <td>nextbit</td>
    <td>ld       b,8</td>
    <td>;karakter satır yüksekliği</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       de,temp</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>nextpos</td>
    <td>ld       a,22</td>
    <td>;AT komutu</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>rst      $10</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       hl,(pos)</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       a,h</td>
    <td>;satır numarası (0)</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>rst      $10</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       a,l</td>
    <td>;sütun numarası (31)</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>rst      $10</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>inc      h</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       (pos),hl</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       a,(de)</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>rla</td>
    <td>;karakterin 7.biti</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       (de),a</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        nc,space</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       a,$2e</td>
    <td>;ekrana nokta basıyoruz</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        cont</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>space</td>
    <td>ld       a,$20</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>cont</td>
    <td>rst      $10</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>inc      de</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>djnz    nextpos</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     scroll</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       hl,31</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       (pos),hl</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     c</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        nz,nextbit</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>nextchar</td>
    <td>pop     ix</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>pop     bc</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>inc      ix</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>djnz    loop03</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        again</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>scroll</td>
    <td>push   bc</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       d,8</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>repeat</td>
    <td>ld       hl,18431</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       c,64</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>nextline</td>
    <td>ld       b,32</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>or       a</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>nextbyte</td>
    <td>rl        (hl)</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     hl</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>djnz    nextbyte</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     c</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        nz,nextline</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>halt</td>
    <td>;scroll delay</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>halt</td>
    <td>;delay</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     d</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        nz,repeat</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>pop     bc</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ret</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>pos</td>
    <td>defw   31</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>temp</td>
    <td>defb    0,0,0,0,0,0,0,0</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td height="26">text</td>
    <td>defm   &quot;8x8  text scroll&quot;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>defm   &quot;10-07-2014  &quot;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>textend</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>end     $8000</td>
    <td>&nbsp;</td>
  </tr>
</table>



<table width="650" border="0">
  <tr>
    <td><font color="red">'''HADES ÖRNEK 13 – EKRAN GENİŞLETİCİ:'''</font></td>
  </tr>
</table>

<table width="400" border="0">
  <tr><td>-------------------------------;</td></tr>
  <tr>
  <td>EKRAN GENİŞLETİCİ</td></tr>
  <tr>
    <td>03-08-2014 / HADES</td></tr>
  <tr>
  <td>    </td></tr>
  <tr>
  <td>123 bytes code</td></tr>
  <tr>
    <td>-------------------------------;</td>
  </tr>
</table>

<table width="760" border="1" bgcolor="#FFFFCC">
  <tr>
    <td width="66">&nbsp;</td>
    <td width="249">org     $8000</td>
    <td width="423">;Program $8000(32768)den başlıyor</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       hl,ekran</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       de,$4000</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       bc,6144</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ldir</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>setup</td>
    <td>ld       hl,$400f</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       (source),hl</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       l,$1f</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       (target),hl     ;hl=$401f</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>wait</td>
    <td>ld       b,h</td>
    <td>;efekt başlangıç gecikme sayacı ($40)</td>
  </tr>
  <tr>
    <td>delay</td>
    <td>halt</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>djnz    delay</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       c,3</td>
    <td>;ekran blok sayacı</td>
  </tr>
  <tr>
    <td>loop04</td>
    <td>ld       b,8</td>
    <td>;blok satır sayacı</td>
  </tr>
  <tr>
    <td>loop03</td>
    <td>push   bc</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       c,16</td>
    <td>;satır karakter sayacı</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       hl,(source)</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       ix,(target)</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>loop02</td>
    <td>push   hl</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>push   ix</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       d,8</td>
    <td>;karakterin dikey pixel sayacı</td>
  </tr>
  <tr>
    <td>loop01</td>
    <td>call     expand</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     ix</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>call     expand</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>inc      ix</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>inc      h</td>
    <td>;hl=hl+256</td>
  </tr>
  <tr>
    <td>illegalcommand</td>
    <td>inc      ixh</td>
    <td>;ix=ix+256</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     d</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        nz,loop01</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>pop     ix</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>pop     hl</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     ix</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     ix</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     hl</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     c</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        nz,loop02</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       de,$20</td>
    <td>;bir alttaki pixel satırının</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       hl,(source)</td>
    <td>;adresini hesapla</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>add     hl,de</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       (source),hl</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       hl,(target)</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>add     hl,de</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       (target),hl</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>pop     bc</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>djnz    loop03</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       de,$0700</td>
    <td>;sonraki blok adres hesapla</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       hl,(source)</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>add     hl,de</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       (source),hl</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       l,$1f</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       (target),hl</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>dec     c</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>jr        nz,loop04</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ret</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>expand</td>
    <td>ld       b,4</td>
    <td>;karakter bit sayacı</td>
  </tr>
  <tr>
    <td>loop00</td>
    <td>ld       a,(hl)</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>rr        (hl)</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>rr        e</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       (hl),a</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>rr        (hl)</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>rr        e</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>djnz    loop00</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ld       (ix+0),e</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>ret</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>source</td>
    <td>defw   0</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>target</td>
    <td>defw   0</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>;ekran </td>
    <td>incbin &quot;aticatac_ekran.bin&quot;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>end     $8000</td>
    <td>&nbsp;</td>
  </tr>
</table>



== Ayrıca Bakınız ==

[[:Kategori:Z80 İşlemci Komutları]] | [[Z80 Bayrakları]] | [[:category:Z80 İşlemcisi Özellikleri]]

== Kaynakça ==

Bu başlık İlker Görkem tarafından derlenmiştir.

[[Hades|Hades]] | [[Ref|Ref]] | [[ilkerg]]

* [http://retrojen.org/pano/index.php?topic=539.msg4184#msg4184 Retrojen Forum: "Z80 Makine diline meraklı olan?" başlığı Hades'in açtığı başlık]