14B Strojni jezik za procesor Z80

METST BIT. 2, (HL)
JR. Z, PI
LD A, 1
LD : (TESTI), A

Pi BIT 5, (HL) sče je "prižgan" bit 2 ali 5, to
JRO Z, P2 spomeni, da je metulj zadel junaka.
LD A, 1 ;V tem primeru daj zlogu TESTI
UD. (TESTI), A ;vrednost 1. če pa je "prižgan"

P2 BIT SZ, (L) sbit 3, je to znak, da je zadel
CALL NZ, MINUS sključ. V tem primeru kliči
RET ;podprogram MINUS ter se nato vrni.

če metulj "pobere" ključ, naj preostane igralcu za kazen

manj časa. Da pa bo igra tekla kot je prav, bomo ob tem poveča-
li vrednost zloga KLJUC, ki hrani število že pobranih ključev.

MINUS PUSH BC sShrani koordinate.
LD HL, KLJUC
INC  (HL) sPovečaj števec pobranih ključev.
LD B, sO ;Preostali čas naj se zmanjša za
VIBA PUSH BC 330. Pripravi zanko in spravi

zštevec v registru B na sklad.
LD BC, (VISURE)  sKoordinate stolpca ure.

CALL NASLOV z; Izračunaj naslov vrhnjega zloga
sure.

DEC B "z Zmanjšaj višino stolpca.

JR NZ, NAPR oče višina še ni O (tj. ura še ni

zpotekla), skoči na naslov NAPR.

Tu pa se srečamo s težavo. Kaj storiti, če se na tem mestu
izkaže, da je igralcu čas potekel? Takoj bi bilo potrebno kon-
čat igro in se vrnit v basic, a zdi se, da bi bil to precej
zapleten posel. Če se spomnite, smo iz glavne zanke klicali
podprogram METULJ (in tam zamenjali registrski niz), od tam
KAM, 1z podprograma KAM podprogram METST ter iz njega MINUS, v
katerem smo zdaj. Vendar je naše znanje kos na videz zelo
zapletenemu vozlu. Najprej bomo dali registrskemu paru zamen-
ljivega niza vrednost 10072, ki je potrebna za...

LD HL, 10072 3... nemoteno vrnitev v basic
EXX ster zamenjali registrski niz.
LD BC, <TOCKE) 5V par BC naloži dosežene točke.

Kar se Janezek nauči... 149

Ob klicih podprogramov so se na skladu nabirali naslovi za
povratke. Da bi prišli do pravega naslova za vrnitev v basic,
bi torej morali te naslove odstraniti. Lahko pa si pomagamo na
preprostejši način. Shranimo na začetku programa naslov, na
katerem je naslov za vrnitev v basic, v rezervirana zloga
STKPT! Ko se bomo želeli vrniti, bomo dali kazalcu sklada to
vrednost:

LD SP, (STKPT)
RET ster se brez težav vrnili.

Če pa ura še ni potekla, naj se program nadal juje na NAPR:

NAPR LD (VISURE), BC  3Shrani zmanjšano višino ter
Db VW, 12 szbriši zgornjo vrstico ure.
POP BC s Vzemi števec s sklada in če še ni
DJNZ VIBA snič, ponovi zanko.
XOR A sDaj uri začetno vrednost,
LD (23672), A
POP BC ;vzemi koordinate in V
RET zse vrni.

Zdaj pa smo že blizu konca. Manjka nam le še nekaj podpro-
gramov, ki smo jih že "uporabili", nimamo pa jih še zapisanih.
Prvi je podprogram ZADET, ki ga bomo klicali, kadar bo junak
pobral ključ. KONEC bomo klicali, kadar se bo Krpan zadel v
metulja ali obratno, OBRAC pa za obračun točk, kadar se bo igra
uspešno končala. Vendar se še prej za trenutek ustavimo pri
dveh programih iz  ROM-a, ki ju bomo uporabili. Pri obračunu
bomo klicali podprogram z  zgovornim naslovom "HLEHLSDE" na
naslovu 3OA9. Ta nam vrne v registrskem paru HL zmnožek vredno-
sti, ki ju pred klicem vsebujeta HL in DE. Seveda morata biti
števili takšni, da njun zmnožek ni večji od 65535. Če pa se
vseeno zgodi, da sta vrednosti preveliki, je ob povratku zasta-
vica prenosa dvignjena. "HLEHL»DE" spremeni vrednost v paru BC.
Drugi podprogram, ki ga kanimo klicat iz ROM-a, pa je BEEPER na
naslovu  OSB5. Ta nadzoruje zvočnik in daje zvok, ki ga oprede-
limo z vrednostima v parih DE in HL. V DE mora biti zmnožek
frekvence tin trajanja želenega tona, v HL pa število potrebnih
T stanj, deljeno s štiri (če vam ni povsem jasno, se ne vzne-
mirjajte: ni pomembno). '

Podprogram ZADET (igralec je pobral ključ):