Sayfa 27

jsr -48(a6) ;els (ekranı temizler) Tts ;rutine geri dön seroll: — move.l gfxbase,a6 ;gfx library adresi lea rastport,al — ;rastport adresi move.l #2,d0 cir.l di cir. d2 ;minx cir.l d3 ;miny move.l #360,d4 ;maxx move.l 40,d5 ;maxy İsr -396(a6) ;scroll raster lea timer,a2 ;zamanlayıcı adda.l ;bir artır cmpi.l #4 (a2) :4 oldu mu? bne out ;hayır çıkışa git cir.l (a2) şevet zamanlayıcıyı sil move.l #rastport,al — ;rastport adresi move.w #324,d0 ;x (324. pixele bas) move.w #10,d1 ;y (10. pixele bas) İsr -240(a6) ;move cursor (İocate) move.l ;rastport adresi move.l txtbase,a0 — ;harfin adresi move.w #1,d0 ;1 adet harf jsr -60(a6) ;printext (harfi bas) lea — adresi adda.l #1, (a4) ;bir sonraki texte gel move.l (a4),a3 şesas text adresi tst.b (a3) ;text sona geldi mi? bne out ;hayir cikisa git move.l #scrolltxt,txtbase — scroll'u başa al

newcop:

de.w $008e,$2c81,$0090,$2cc1,$0092,$0038,$0094,$00d0 de.w $0102,$0000,$0104,$0000,$0120,$0000,$0122,$0000 de.w $0108,$0006 ;modulo — 6 $0100,$1200 ;scroll tek bitplane (2 renk) de.w $00e0,$0006,$00e2,$0000 — ;bitplane points ($60000 adres) de.w $0180,$0000 ;— SCROLL FONTUNUN İÇİNDEKİ RENKLER -—- dec.w $0180,$0000,$2f07,$fffe de.w $0182,$0321,$3007,$fffe de.w $0182,$0432,$3107,$fffe de.w $0182,$0543,$3207,$fffe dc.w $0182,$0654,$3307,$fffe de.w $0182,$0765,$3407,$fffe dc.w $0182,$0876,$3507,$fffe $0182,$0987,$3607,$fffe de.w $0182,$0a98,$3707,$fffe de.w $0182,$0ba9,$3807,$fffe dc.w $0182,$0cba,$3907,$fffe dc.w $0182,$0dcb,$3a07,$fffe de.w $0182,$0000,$3f07,$fffe de.w $0108,$0000,$010a,$0000 — ;grafik modulosu ;— renk çubukları | --- de.w $0180,$0000,$4007,$fffe de.w $0180,$0111,$4107,$fffe de.w $0180,$0222,$4207,$fffe de.w $0180,$0333,$4307,$fffe de.w $0180,$0444,$4407,$fffe de.w $0180,$0555,$4507,$fffe de.w $0180,$0666,$4607,$fffe de.w $0180,$0777,$4707,$fffe de.w $0180,$0888,$4807,$fffe