Sayfa 30

bsr.L INITBITMAPS bsr.L PRINTTEXT bsr.L PUTGFX EVENTWAIT: move.l WINDOWPTR,a0

bsr.L EVENT cmpi.l #$200,d4 beq.s ENDALL 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) CLOSE 1: 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 INITLIBS: move.l 4,a6 lea INTNAME,a1 clr.l dO jsr -408(a6) beq.s EXIT1 move.l d0,INTBASE lea GFXNAME,a1 clr.l d0 jsr -408(a6) beq.s EXIT2 move.l d0,GFXBASE rts INITSCREEN: move.l INTBASE,a6

lea NEWSCREEN.a0 jsr -198(a6) beq.s CLOSE 1 move.l d0,SCREENPTR move.l d0,MAINSCREENPTR move.l ' SCREENPTR,a0 add. I #$54,a0 move.l a0,RASTPORT move.l INTBASE,a6 lea NEWWINDOW,a0 jsr -204(a6) beq.L CLOSE2 move.l d0,WINDOWPTR rts EVENT: move.l 4,a6 move.l 86(a0),a0 move.l a0,MSGPORTADRESI move.b 15(a0),d1 moveq #0,d0 bset dl,d0 jsr -318(a6) move.l MSGPORTADRESI.a0 jsr -372(a6) move.l d0,al move.l $14(a1),d4 jsr *378(a6) rts PRINTTEXT: clr.l d0 clr.l d1 move.l GFXBASE,a6 move.l RASTPORT,a1 move.l #140,d0 move.l #220,dl jsr -240(a6) move.l RASTPORT.a1 move.l #TEXT,a0

move.l #[TEXTEND-TEXT-1 |,d0 jsr -60(a6) rts PUTGFX: move.l GFXBASE,a6 lea SBITMAP,a0 lea DBITMAP,al move.l #5,d0 move.l #20,d1 move.l #5,d2 move.l #20,d3 move.l #630,d4 move.l #100,d5 move.l #$c0,d6 move.l #255,d7 move.l #0,a2 jsr -30(a6) rts INITBITMAPS: move.l GFXBASE,a6 lea SBITMAP,a0 move.w #l,d0 move.w #640,d1 move.w #255,d2 jsr -390(a6) lea SRAST,a1 jsr -198(a6) move.l #SBITMAP,SRAST+4 lea SBITMAP,a1 move.l #PIC,8(a1) lea DBITMAP,a1 move.w #1,d0 move.w #640,d1 move.w #255,d2 jsr -390(a6) lea DRASTal jsr -198(a6) move.l #DBITMAP,DRAST+4 lea DBITMAP,a3 move.l RASTPORT,a0 move.l 4(a0),a1 move.l 8(al),8(a3) 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 NEWSCREEN: dc.w 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 WINDOWTITLE: dc.b 'AMIGA DÜNYASI ASSEMBLER'

dc.b ' KURSU ÖRNEK 19.1 ',0 MAINSCREENPTR: dc.l 0,0

dc.w 340,60,340,60,15 DEPO: dc.l 0 SBITMAP: blk.b 50,0 SRAST: blk.b 100,0 DBITMAP: blk.b 50,0 DRAST: blk.b 100,0 TEXT: dc.b "Window içine tek bitplane resim kopyalama...",0 TEXTEND: d dc.l 0 PIC: incbin "RESIM.bm"