Sayfa 19

move.l RASTPORT,a1 jsr -240(a6)

move.w 4(a0),d0 move, w 6(a0),d1 move.l RASTPORT,a1 jsr -246(a6)

add.l #8,COORDSPTR

dbf d7,LP

rts PRINTTEXT:

clr.l d0 clr.l dl

move.l GFXBASE,a6 move.l RASTPORT,al move.l #97,d0 move.l #220,d1 jsr -240(a6)

move.l RASTPORT,a1 move.l #TEXT,a0 move.l #[TEXTEND-TEXT-l],d0 jsr -60(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 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 dc.l WINDOWTITLE: SCREENPTR:

dc.l 0,0 dc.w 640,256,640,256,15 WINDOWTITLE:

dc.b 'AMIGA DÜNYASI SAYI' dc.b '17 ASSEMBLER' dc.b ' KURSU ÖRNEK ' dc.b 'PROGRAMI 17.1 ',0 MAINSCREENPTR:

dc.l 0,0 dc.w 340,60,340,60,15 DEPO:

dc.l 0 TEXT:

dc.b "iste window içine kutu çizimi" dc.b " ve yazma birarada.",0 TEXTEND:

dc.l 0 COORDSPTR:

dc.l COORDS COORDS:

dc.w 200,75,400,75 dc.w 400,75,400,175 dc.w 400,175,200,175 dc.w 200,175,200,75

dc.w 100,50,200,50 dc.w 200,50,200,100 dc.w 200,100,100,100 dc.w 100,100,100,50

dc.w 400,50,500,50 dc.w 500,50,500,100 dc.w 500,100,400,100 dc.w 400,100,400,50

dc.w 100,150,200,150 dc.w 200,150,200,200 dc.w 200,200,1U0,2U0 dc.w 100,200,100,150

dc.w 400,150,500,150 dc.w 500,150,500,200 dc.w 500,200,400,200 dc.w 400,200,400,15a

LINES:

dc.l 0