Amiga Dunyasi - Sayi 19 (Aralik 1991).pdf - Retro Dergi
Amiga Dunyasi - Sayi 19 (Aralik 1991).pdf - Retro Dergi
Amiga Dunyasi - Sayi 19 (Aralik 1991).pdf - Retro Dergi
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
DİLLER<br />
bsr.L INITBITMAPS<br />
bsr.L PRINTTEXT<br />
EVENTWAIT:<br />
bsr.L PUTGFX<br />
move.l WINDOWPTR,a0<br />
bsr.L EVENT<br />
cmpi.l #$200,d4<br />
beq.s ENDALL<br />
bra.s EVENTWAIT<br />
ENDALL: move.l INTBASE,a6<br />
move.l WINDOWPTR,a0<br />
CLOSE2:<br />
jsr -72(a6)<br />
move.l INTBASE,a6<br />
move.l SCREENPTR,a0<br />
CLOSE 1:<br />
jsr -66(a6)<br />
move.l 4,a6<br />
move.l GFXBASE,a1<br />
jsr -414(a6)<br />
EXIT2: move.l INTBASE,a1<br />
jsr -414(a6)<br />
EXIT1: movem.l (a7)+,d0-d7/a0-a6<br />
rts<br />
INITLIBS: move.l 4,a6<br />
lea INTNAME,a1<br />
clr.l dO<br />
jsr -408(a6)<br />
beq.s EXIT1<br />
move.l d0,INTBASE<br />
lea GFXNAME,a1<br />
clr.l d0<br />
jsr -408(a6)<br />
beq.s EXIT2<br />
move.l d0,GFXBASE<br />
rts<br />
INITSCREEN: move.l INTBASE,a6<br />
lea NEWSCREEN.a0<br />
jsr -<strong>19</strong>8(a6)<br />
beq.s CLOSE 1<br />
move.l d0,SCREENPTR<br />
move.l d0,MAINSCREENPTR<br />
move.l ' SCREENPTR,a0<br />
add. I #$54,a0<br />
move.l a0,RASTPORT<br />
move.l INTBASE,a6<br />
lea NEWWINDOW,a0<br />
jsr -204(a6)<br />
beq.L CLOSE2<br />
move.l d0,WINDOWPTR<br />
rts<br />
EVENT: move.l 4,a6<br />
move.l 86(a0),a0<br />
move.l a0,MSGPORTADRESI<br />
move.b 15(a0),d1<br />
moveq #0,d0<br />
bset dl,d0<br />
jsr -318(a6)<br />
move.l MSGPORTADRESI.a0<br />
jsr -372(a6)<br />
move.l d0,al<br />
move.l $14(a1),d4<br />
jsr<br />
rts<br />
*378(a6)<br />
PRINTTEXT: clr.l d0<br />
clr.l d1<br />
move.l<br />
move.l<br />
GFXBASE,a6<br />
RASTPORT,a1<br />
move.l #140,d0<br />
move.l #220,dl<br />
jsr -240(a6)<br />
move.l RASTPORT.a1<br />
move.l #TEXT,a0<br />
move.l #[TEXTEND-TEXT-1 |,d0<br />
jsr<br />
rts<br />
-60(a6)<br />
PUTGFX: move.l GFXBASE,a6<br />
lea SBITMAP,a0<br />
lea<br />
move.l<br />
DBITMAP,al<br />
#5,d0<br />
move.l #20,d1<br />
move.l #5,d2<br />
move.l<br />
move.l<br />
#20,d3<br />
#630,d4<br />
move.l<br />
move.l<br />
#100,d5<br />
#$c0,d6<br />
move.l #255,d7<br />
move.l #0,a2<br />
jsr<br />
rts<br />
-30(a6)<br />
INITBITMAPS: move.l GFXBASE,a6<br />
lea SBITMAP,a0<br />
move.w #l,d0<br />
move.w #640,d1<br />
move.w #255,d2<br />
jsr -390(a6)<br />
lea SRAST,a1<br />
jsr<br />
move.l<br />
-<strong>19</strong>8(a6)<br />
#SBITMAP,SRAST+4<br />
lea<br />
move.l<br />
SBITMAP,a1<br />
#PIC,8(a1)<br />
lea DBITMAP,a1<br />
move.w #1,d0<br />
move.w #640,d1<br />
move.w #255,d2<br />
jsr -390(a6)<br />
lea<br />
jsr<br />
DRASTal<br />
-<strong>19</strong>8(a6)<br />
move.l #DBITMAP,DRAST+4<br />
lea DBITMAP,a3<br />
move.l RASTPORT,a0<br />
move.l 4(a0),a1<br />
move.l 8(al),8(a3)<br />
rts<br />
MSGPORTADRESI: dc.l 0<br />
INTNAME: dc.b 'intuition.library',0<br />
GFXNAME: dc.b 'graphics.library',0<br />
even<br />
INTBASE: dc.l 0<br />
GFXBASE:<br />
RASTPORT:<br />
dc.l<br />
dc.l<br />
0<br />
0<br />
NEWSCREEN: dc.w 0,0,640,256,1<br />
dc.b 0,1<br />
dc.w $8000,1<br />
dc.l<br />
WINDOWPTR: dc.l<br />
0,0,0,0<br />
0<br />
NEWWINDOW: dc.w 0,0,640,256<br />
dc.b<br />
dc.l<br />
0,1<br />
$200,$1008,0,0,WINDOWTITLE<br />
SCREENPTR: dc.l 0,0<br />
dc.w 640,256,640,256,15<br />
WINDOWTITLE: dc.b 'AMIGA DÜNYASI ASSEMBLER'<br />
dc.b ' KURSU ÖRNEK <strong>19</strong>.1 ',0<br />
MAINSCREENPTR: dc.l 0,0<br />
DEPO:<br />
dc.w<br />
dc.l<br />
340,60,340,60,15<br />
0<br />
SBITMAP: blk.b 50,0<br />
SRAST: blk.b 100,0<br />
DBITMAP: blk.b 50,0<br />
DRAST: blk.b 100,0<br />
TEXT: dc.b "Window içine tek bitplane resim kopyalama...",0<br />
TEXTEND: d dc.l 0<br />
PIC:<br />
incbin "RESIM.bm"<br />
AMIGA DÜNYASI 36
Change language