150 Strojni jezik za procesor 280

ZADET

ZVOK

PUSH BC
PUSH HL
LD B, 8
PUSH BC

-LD DE, 40001

LD HL, %OO6A
CALL  4O3B5

POP BC

DJNZ ZVOK

LD MHL, (TOCKE)
LD DE, 50

ADD HL, DE

LD  <TOCKE), HL
LD HL, KLJUC

INC  (HL)
POP — RE
POP BC
RET

sShrani vrednosti v parih BC in HL.

;sPripravi števec...

zin ga shrani. Podrobnosti te zanke
zniso pomembne. Pripravljena je
sbila s poskušanjem, ker smo želeli
zdobit kovinski zvok trka ob ključ.

sDaj v HL že dosežene točke, v
;DE pa vrednost enega ključa.
3;Povečaj število točk in...
5e..Ja Shrani.

sPovečaj število pobranih ključev,
;Poberi vrednosti s sklada

sin se vrni.

Sledi podprogram za zaključek v primeru trka med Krpanom in

metul jem.

Najprej bomo povzročili utripanje zaslona, nato eks-

plozijo ter se nato vrnili v basic.

KONEC

KROZI
MALAZN
PAVZA

LD HL, %220A
LD DE, 22528 »
LD BC, 704

LDIR

OLD DE, 31488

PUSH DE
LD B, E

DJNZ PAVZA
LD A, BC)
OUT (254), A
ib €

DEC D

JR NZ, MALAZN
POP DE

INC E.

DEC D

JR NZ, KROZI

sTu bi lahko uporabili katerokoli
;vrednost, nižjo dod  4000H. V DE
snaslov začetka zlogov s prilastki,
sv BC število zlogov, nato pa...
H » »»premakni vrednosti. To bo
spovzročilo utripanje na zaslonu.
ss: LD DD, 123 / LDE, O (vendar
sprihranimo en zlog).

s Tudi tu se ne bomo ukvarjali s
;podrobnostmi zanke. Povejmo le,
sda s spreminjanjem vrednosti v
zregistru D (mi smo uporabili 123)
zspreminjamo trajanje eksplozije.
zZanko lahko uporabite za šum v
zsvojih programih. Če ne želite
zprog na robu, dodajte za ukazom
sLD A, (BC) ukaz OR 7.

zČCe zanka še ni končana,

sskoči nazaj.

Kar se Janezek nauči... 151

če

LD BC, (TOCKE) sNaloži v. BC dosežene točke,
LD SP, (STKPT) sin se vrni
RET sv basic.

In končno še zadnji podprogram. Če igralec pobere vse klju-
pred iztekom časa, se mu število točk za pobrane ključe

pomnoži z vrednostjo preostalega časa (višino stolpca). Koordi-

nate stolpca smo imeli spravljene na naslovu VISURE. Naj bo VIS

naslov visokega zloga (v katerem je dejansko spravljena višina;

nizki zlog ima namreč vrednost 0).

OBRAC LD HL, <TOCKE)

sNaloži v HL dosežene točke.

LD A, (VIS) zsPrenesi višino stolpca ure s

LD E, A ;pomočjo registra A v register E.
ED D,-O

CALL  430A9 sKliči HLEHL«DE.

PUSH HL sPrenesi zmnožek v registrski

POP BC spar BC, nato pa poberi s sklada še
POP —HL snaslov za povratek v glavno zanko
RET sin se vrni naravnost v basic.

Naš program v zbirnem jeziku je končan! Na vrsti je prvi

preskus, vendar zanj potrebujemo tudi del programa v basicu.
Takšen je:

s
10
15
20
25
30
35
40

45
so

55
60
65
70
90

LET aso: CLS : FOR xsi TO Z: BORDER (31x): CLS

PRINT 4i;"Zživljenj ";(4—-x);" Točk ";a: PAUSE 20

FOR izi TO 7

LET kxzifINT (RND%31): LET kyzINT (RNDY21)

IF kx<5 AND ky>i18 THEN GO TO 20

IF (kx214 AND kx<17) AND (ky>7 AND ky<i2) THEN GO TO 20
PRINT AT ky,kx5;"$": NEXT i

FOR izO TO 21: PRINT AT i,0; INK 2;"%": NEXT is:

LET asatUSR 31600

CLS : NEXT x: PAUSE 10: BORDER 7: CLS

PRINT AT 8,5; "DOSEGEL SI ";za;" TOČK.": IF a>hi THEN
PRINT AT 10,7; BRIGHT 1;"TO JE NOV REKORD '": LET hisa
PRINT AT 21,3; "ZELIS sE ENO IGRO ? (D/N)": PAUSE O

IF INKEY$<"" THEN GO TO 60

IF INKEY$""D" OR INKEY$:"d" THEN CLS z GO TO 1

GO TO 9999

LOAD "igra"CODE : LOAD "znaki "CODE z: LET hismOs GO TO 1