Sayfa 43

İŞTE PROGRAM LİSTEMİZ: ** AMIGA DÜNYASI AMIGA ASSEMBLER KURSU ** ** INTUITION LIBRARY - WINDOW EXAMPLE 15 ** *************************************************************** START:

movem.l d0-d7/a0-a6,-(sp) move.l 4,a6 lea INTNAME,a1 clr.l d0 jsr -408(a6) beq.L EXIT1 move.l d0,INTBASE lea GFXNAME,a1 clr.l d0 jsr -408(a6) beq.L EXIT2 move.l d0,GFXBASE move.l INTBASE,a6 lea NEWSCREEN.a0 jsr -198(a6) beq.L CLOSE1 move.l d0,SCREENPTR move.l d0,MAINSCREENPTR move.l SCREENPTR,a0 add.l #$54,a0 move.l a0,RASTPORT move.l INTBASE,a6 lea NEWWINDOW,a0 jsr -204(a6)

beq.L CLOSE2 move.l d0,WINDOWPTR EVENTWAIT:

move.l a6,DEPO move.l WINDOWPTR,a0 bsr.L EVENT move.l DEPO,a6 cmpi.l #$200,d4 beq.L GERCEKMI bra.s EVENTWAIT ENDALL:move.l INTBASE,a6

move.l WINDOWPTR,a0 jsr -72(a6) CLOSE2:move.l INTBASE,a6

move.l SCREENPTR,a0 jsr -66(a6) CLOSE1:move.l 4,a6

move.l GFXBASE.a1 jsr -414(a6) EXIT2: move.l INTBASE.a1

jsr -414(a6) EXIT1: movem.l(a7)+,d0-d7/a0-a6

rts GERCEKMI:

move.l INTBASE,a6 lea REALLYWINDOW.aO jsr -204(a6) beq.s REALLYEND move.l d0,REALLYWINDOWPTR move.l GFXBASE,a6 move.l REALLYWINDOWPTR,a0 move.l 50(a0),a1 move.l #35,d0 move.l #20,d1 jsr -240(a6) move.l REALLYWINDOWPTR,a0 move.l 50(a0),a1 lea REALLYMESSY,a0 move.l #[REALLYMESSYEND-REALLYMESSY- 1],d0 jsr -60(a6) WAITREALLY:

move.l REALLYWINDOWPTR,a0 bsr.s EVENT cmpi.l #$80000,d4 beq.s CLOSEREALLYWINDOW cmpi.l #$40,d4 bne.s WAITREALLY move.w $26(a4),d0 cmp.w #1,d0 beq.s REALLYEND cmp.w #2,d0 beq.s CLOSEREALLYWINDOW bne.s WAITREALLY REALLYEND:

move.l INTBASE,a6 move.l REALLYWINDOWPTR,a0 jsr -72(a6) bra.L ENDALL CLOSEREALLYWINDOW:

move.l INTBASE,a6

move.l REALLYWINDOWPTR,a0 jsr -72(a6) bra.L EVENTWAIT EVENT: move.l 4,a6

move.l 86(a0).a0 move.l a0,MSGPORTADRESI move.b 15(a0),d1 moveq #0,d0 bset d1,d0 jsr -318(a6) move.l MSGPORTADRESI,a0 jsr -372(a6) move.l d0,a1 move.l $14(a1),d4 move.w$18(a1),d5 move.l S1c(a1),a4 move.l a4,GADGETADRESI jsr -378(a6) rts MSGPORTADRESI: dc.l 0 INTNAME: dc.b intuition.library ,0 GFXNAME: dc.b graphics.library',0 even INTBASE: dc.l 0 GFXBASE: dc.l 0 RASTPORT:dc.l 0 REALLYMESSY:

dc.b "PROGRAMDAN ÇIKACAK MISINIZ ? ".0 REALLYMESSYEND:

dc.b 0,0 NEWSCREEN: dew 0,0,640,256,1

dc.b 0,1 dc.w $8000,1 dc.l 0,0,0,0 WINDOWPTR: dc.l 0 NEWWINDOW: dc.w 0,0,640,256

dc.b 0,1 dc.l $200,$1008,0,0,WINDOWTITLE SCREENPTR: dc.l 0,0

dc.w 640,256,640,256,15 WINDOWnTLE:

dc.b 'AMIGA DÜNYASI SAYI15 ASSEMBLER' dc.b ' KURSU ÖRNEK PROGRAMI15.1',0 REALLYWINDOWPTR:dc.l 0 REALLYWINDOW: dc.w 90,50,420,60

dc.b 1,1 dc.l $80040,$1000,REALLYGADGETS,0,0 MAINSCREENPTR: dc.l 0,0

dc.w 340,60,340,60,15 REALLYGADGETS: REALLYGADGET1:

dc.l REALLYGADGET2 dc.w 21,35,68,17,0,$201,1 dc.l REALLYGADGET1 IMAGE,0,REALLYTTEXT1,0,0 dc.w 1 dc.l 0 REALLYITEXT1:

dc.b 3,0,1,0 dc w 10 5 dc.l 0,REALLYlTEXTTEXT1,0 REALLYITEXTTEXT1:

dc.b 'Lutfen ',0 REALLYGADGET1 IMAGE:

dc.w -2,-1 dc.b 3,0,1,5 dc.l REALLYGADGET1 BORDERVECTORS,0 REALLYGADGET1BORDERVECTORS:

dc.w 1,0,70,0,70,18,1,18,1,0 REALLYGADGET2:

dc.l 0 dc.w 330,35,68,17,0,$201,1 dc.l REALLYGADGET2IMAGE,0,REALLYTTEXT2,0,0 dc.w 2 dc.l 0 REALLYITEXT2:

dc.b 3,0,1,0 dc.w 125 dc.l 0,REALLYITEXTTEXT2,0 REALLYITEXTTEXT2:

dc.b Asia! .0,0 REALLYGADGET2IMAGE:

dc.w -2,-1 dc.b 3,0,1,5 dc.l REALLYGADGET2BORDERVECTORS,0 REALLYGADGET2BORDERVECTORS:

dc.w 1,0,70,0,70,18,1,18,1,0 DEPO: dc.l 0 GADGETADRESI:

dc.l 0