¢JOYVBI , GREDIK.TBA¢Radek ③t%rba, RASTER¢¢Pro uk*zku pou(it) VBI jsem vyrobil assemblerovsk` program JOYVBI, kter` je driverem ╱ovlada'em$ joysticku.¢Po na'ten) do pam%ti a jeho spu&t%n) A=USR╱◆7000$ se v lev[m horn)m rohu obrazovky objev) &ipka. S touto &ipkou lze pohybovat joystickem. Proto(e tato rutina b%() ve VBI, m+(eme nez*visle na n) prov*d%t jin[ 'innosti ╱t@eba spustit BASICovsk` program$. Aby to v&echno m%lo v`znam, sledov*n)m n*sleduj)c)ch adres z)sk*me informace:¢¢◆6FFD .. x-ov* sou@adnice &ipky ╱0 a( 255, platn* oblast 48 a( 207$¢¢◆6FFE .. y-ov* sou@adnice &ipky ╱0 a( 255, platn* oblast 32 a( 223$¢¢◆6FFF .. tla')tko ╱0..pu&t%n[, 1..stla'en[$¢¢VBI rutina funguje tak, (e sleduje joystick a podle n%j m%n) p@)slu&n[ sou@adnice. Na tyto sou@adnice vykresluje &ipku ╱pou()v* PMG$. V okam(iku stla'en) tla')tka &ipka zm%n) barvu a je znemo(n%n jej) pohyb. To je kv+li BASICu, aby m%l 'as p@evz)t moment*ln) sou@adnice a prov[st (*danou akci. A( je BASIC hotov, vynulov*n)m adresy ◆6FFF op%t &ipku uvoln).¢Tyto adresy ale m+(ete t[( m%nit sami a t)m um)stit &ipku na po(adovan[ m)sto ╱POKE ◆6FFD,X a POKE ◆6FFE,Y$ nebo zak*zat jej) pohyb ╱POKE ◆6FFF,1$.¢¢Tak(e hlavn) '*st BASICu m+(e vypadat t@eba takto:¢¢100 POKE ◆6FFF,0¢110 IF NOT PEEK╱◆6FFF$ THEN 110¢120 X=PEEK╱◆6FFD$-48:Y=PEEK╱◆6FFE$-32¢130 IF X<0 OR X>159 OR Y<0 OR Y>159 THEN 100¢140 COLOR 1:PLOT X,Y¢150 GOTO 100¢¢Popis:¢¢100 Inicializace. Umo(n%n) pohybu &ipky.¢110 Program z+st*v* na tomto @*dku, dokud nen) stla'eno tla')tko.¢120 P@epo'et sou@adnic na obrazovkov[ sou@adnice.¢130 Jestli(e jsou mimo povolen` rozsah, skok zp%t, ╱na @.100$ povolen) pohybu &ipky, atd.¢140 Vlastn) akce pro bod X,Y.¢150 P@echod na @.100. Tam bude znovu povolen pohyb &ipky, atd.¢¢¢Pro uk*zku pou(it) rutiny JOYVBI.OBJ ╱t.j.p@elo(en` program JOYVBI.LM$, jsem vyrobil jednoduch` grafick` editorek ╱GREDIK.TBA$. M* jen p*r funkc), ale vyu(it) VBI pro kurzor ve tvaru &ipky ho d%l* zaj)mav%j&)m. Takt[( nezanedbateln`m faktorem je zna'n[ zjednodu&en) samotn[ho BASIC programu, kter` u( se nemus) o pohyb joysticku v+bec starat.¢¢Technick[ ]daje:¢Rutina JOYVBI.OBJ je um)st%na od adresy ◆7000 a pou()v* pam%④ od ◆6FFD a( do ◆74FF ╱v tom je zahrnut i PMG prostor$.¢Nezapomete, (e p@ed samotn`m vol*n)m A=USR╱◆7000$ mus)te rutinu nahr*t do pam%ti ╱BLOAD"D:JOYVBI.OBJ"$!!!¢
