PENCERE

İSMİ :PENCERE * YAZAN :TST 'de BEYAZ « BİLGİSAYAR * KICKSTART 1.3 « DİLİ :SEKA ASSEMBLER V2.0 *

1 a6 library'yi kullan
graphics.libre i Al eal
1 ©
552(a6) igraphics.libr 'yi ac
move.l ;graphics.library'nin adresini sakla
len intismi,al intuition.Library'yi Al'e al
#O,de ;version ©
jsr 52(a6) intuition. 1ihrar
dü,intadres adresir akla
yeniekran,a0 yeni ekrani A0'a al
1 intadres kullan
jar 198(a6) ekrani ac
iyeni ekran adresini sakl
dO, kendiekranim
lea
jisr
move. 1
bekle:
btst
bne
movi
movi
move.l
jsr
move. 1
jsr
move.1
move.l
jar
move.1
Jar
rta
even
gfxadres:
intadres:
ekran:
pencereadres:
even
intismi:
isim:
even
yeniekran
de.w
do. w
ao. w.
de.l
de. l
do. 1
de. 1
pencere:
de.w
de.w
de.w
de.w
dc.b
de.b
de.l
de.l
de.l
dc. l
de. 1
-204 (a6)
dö,pencereadres
#86,
bekle
intadres, a6
pencereadre:
şpencere deşiskenlerini al
ac
şpencerenin adresini sakla

3801 mouse tuşuna basılı mı? Kullan pencere adresini al

turu temizle —
pı
-72(a6) şpencereyi kapat
ekran, ad şekran adresini al
kapat
4,86 sexec.library'yi kullan
intadres,al adresini a
şintuition.library'yi kapat
adresini al
-414(a6) kapat
cik
desi o
dc.l
de.1 ©
de.1
de.b “graphics.library
dc.b “intuition. Library
de.b "TST tel:558 12 S4
©
o
640
200
2
©
1
sof
o
o
©
kendiekranim:
de.1 ©
160
s0 de.1 ©
de.w 640
1 de.w 200
© de.w ser
$210117
o
©
isim