Vidíte, že použití programů z ROM nemusí být zrovna to pravé ořechové, proto si ukážeme vlastní program na tisk znaků, který si můžete ještě nějak vylepšit. Výhoda je třeba v tom, že se nemusíme starat o otevírání správného kanálu nebo si můžeme definovat vlastní font a nemusíme být odkázání na font v ROM.
Vyzkoušejte tento základní prográmek a studujte rozdělení obrazovky:
cpu z80undoc
relaxed on
org 25000
ld hl,16384 ;nastav pozici
ld (POZICE),hl ;uloz ji do promenne
ld a,'A' ;znak A
call znak ;vytiskni
ld a,'B' ;znak B
call znak ;vytiskni
ret ;vrat se
ZNAK sub 32 ;odecti tak aby znak byl od nuly
ld l,a ;pismenko je nyní v HL
ld h,0 ;horni byte na nula
add hl,hl ;nasob 2x
add hl,hl ;nasob 4x
add hl,hl ;nasob 8x
ld de,FONT ;adresa fontu
add hl,de ;adresa predlohy pismenka = font + (8*(znak-32))
ld de,(POZICE) ;adresa pozice na obrazovce
push de ;musi byt presne v atributu
ld b,8 ;smycka s 8 pruchody
znak1 ld a,(hl) ;vezmi predlohu znaku
ld (de),a ;dej ji do obrazovky
inc hl ;pozun se na dalsi byte predlohy
inc d ;posun se o byte dolu
djnz znak1 ;opakuj 8x - vykresli cele pismenko
pop de ;vyzvedni adresu pozice
inc e ;posun ji o jeden znak vpravo
jr nz,znak2 ;pokud neni prekrocena tretina, tak je to OK
ld a,d ;vyssi bajt adresy do A
add a,8 ;pricti tretinu obrazovky
ld d,a ;a dej ji zpet
cp 88 ;pokud by presahla treti tretinu,
jr c,ZNAK2 ;nepresahne, skok
ld d,64 ;tady presahne, tak nastav prvni tretinu
ZNAK2 ld (POZICE),de ;uloz pozici na priste
ret ;navrat zpet
POZICE dw 16384 ;zde se uklada pozice
FONT equ 15616 ;zde je definovan font
Jesti tedy někdo touží po vlastním fontu, musí si jej nakreslit (třeba v Art studiu) a ve zdrojáku na něj odkázat třeba: FONT binclude font.bin nebo jej může mít definován jako blok čísel pomocí db, asi takto:FONT db 0,60,66,….
Zde se hodí vysvětlit, jak jsme došli k adrese, kde je uložena předloha toho konkrétního písmenka: Na adrese 15616 začíná předloha znaku “ “ (mezera). Tento znak má kód 32 (dekadicky). Každé písmenko má 8 bajtů dlouhou předlohu, tedy musíme od písmenka odečíst číslo 32 (aby se to vyrovnalo), vynásobit 8x a přičíst 15616.
Tento prográmek je možné ještě vylepšit. třeba výpočet adresy předlohy by šel zkrátit tak, že se nebude odečítat 32 a místo adresy FONT se zadá FONT-(32*8). Program tiskne tak, že to, co bylo na obrazovce jako podklad, se smaže a písmenko se vykreslí. Toto by se dalo taky velice snadno zařídit:
ld b,8 ;smycka s 8 pruchody
znak1 ld a,(de) ;vezmi byte z obrovky
or (hl) ;pridej k nemu predlohu
ld (de),a ;dej to vsechno do obrazovky
inc hl ;pozun se na dalsi byte predlohy
inc d ;posun se o byte dolu
djnz znak1 ;opakuj 8x - vykresli cele pismenko
Zkuste instrukci or (hl) nahradit xor (hl) nebo and (hl).
Taky vidíme, že zadání polohy na obrazovce není nic moc. Zadávat přímou adresu a navíc tak, aby byla vždy do atributu není zrovna to pravé. Takže zkusíme někde vyšťourat program, který nám adresu vypočte podle souřadnic (řádek,sloupec) zadaných v registrech b a c (b=řádek 0-23, c=sloupec 0-31):
ADRSET ld a,c ;sloupec
add a,a ;nasob 8x
add a,a
add a,a ;dostaneme pixelovou pozici
ld c,a
ld a,b ;radek
add a,a
add a,a
add a,a ;opet pixel
call $22B0 ;prepocet pixelovych souradnic na adresu v pameti
ld (POZICE),hl ;uloz do promenne
ret
Takze volani programu by mohlo vypadat asi takto:
START ld b,10 ;b=radek, c=sloupec
ld c,5 ;nebo kratsi zapis (ld bc,10*256+5)
call ADRSET ;nastav pozici
ld a,'A' ;znak k vytisteni
call ZNAK ;vytiskni
ret
Další vychytávkou by mohlo být nastavení barev. Musíme tedy adresu atributu na obrazovce vypočítat. Počítání je celkem jednoduché, dolní byte adresy se nemění, horní upravíme na číslo třetiny a k němu přičteme horní byte adresy začátku atributů ($5800).
ATTRIB ld hl,(pozice) ;precti adresu pozice
ld a,h
sub $40 ;posunuti pocatku adresy do nuly
rrca ;deleni 8
rrca
rrca
and 3 ;v A je nyni cislo tretiny
add a,$58 ;posun do attributu
ld h,a ;do vyssiho bajtu, nizsi je stejny
ld a,(COLOR) ;uloz do promenne
ld (hl),a
ret
COLOR db 0
Úprava programu je pak asi taková, že po vykreslení znaku (po instrukci djnz znak1 napíšte call ATTRIB a je to hotové.
Domácí úkol bude dnes o hodně složitější a budu trvat na tom, aby jej alepoň někdo, kdo měl zájem na tomto seriálu, splnil. Rutina ZNAK umí tiskat do attributových souřadnic. Navrhněte řešení, které by umělo tiskat písmenko s dvojitou výškou do libovolné polohy po ose y (po ose x ne, to by vyžadovalo mnohem více prostoru). Tedy tak, abych programu ADRSET zadal číslo řádku od 0 do 184 a číslo sloupce od 0 do 31 a on dokázal na tuto pozici znak vytisknout (bez atributů). A aby to nebylo zas tak složité, napíši sem rutinu, která posune registr de o bajt níže v obrazovce, nehledě na její rozložení třetin.
DOWNDE inc d ;posun v ramci textoveho radku
ld a,d ;je jednoduchy
and 7 ;neni-li prekrocen
ret nz ;vrat se zpet
ld a,e ;prechod mezi textovymi radky
add a,32 ;pokud pri pricitani dojde k preteceni
ld e,a ;je to signal, že doslo k prechodu
ld a,d ;mezi tretinami
jr c,DOWNDE2 ;hotovo a tedy odskok
sub 8 ;jeste zbyva uprava horniho bytu
ld d,a ;pri prechodu mezi tretinami
DOWNDE2 cp 88 ;test opusteni obrazovky
ret c ;nedoslo, navrat
ld d,64 ;doslo, uprav na zacatek
ret ;navrat
O splnění úkolu mě informujte mailem a poštete mi zdrojový kód řešení.
