; Lezione9h4.s Sparizione tramite scorrimento verso destra di un immagine ; tramite shift + maschera BLTALWM. ; Tasto destro per eseguire la blittata, sinistro per uscire. SECTION CiriCop,CODE ; Include "DaWorkBench.s" ; togliere il ; prima di salvare con "WO" ***************************************************************************** include "startup1.s" ; Salva Copperlist Etc. ***************************************************************************** ;5432109876543210 DMASET EQU %1000001111000000 ; copper,bitplane,blitter DMA START: MOVE.L #BITPLANE,d0 ; dove puntare LEA BPLPOINTERS,A1 ; puntatori COP MOVEQ #3-1,D1 ; numero di bitplanes (qua sono 3) POINTBP: move.w d0,6(a1) swap d0 move.w d0,2(a1) swap d0 ADD.L #40*256,d0 ; + LUNGHEZZA DI UNA PLANE !!!!! addq.w #8,a1 dbra d1,POINTBP lea $dff000,a5 ; CUSTOM REGISTER in a5 MOVE.W #DMASET,$96(a5) ; DMACON - abilita bitplane, copper move.l #COPPERLIST,$80(a5) ; Puntiamo la nostra COP move.w d0,$88(a5) ; Facciamo partire la COP move.w #0,$1fc(a5) ; Disattiva l'AGA move.w #$c00,$106(a5) ; Disattiva l'AGA move.w #$11,$10c(a5) ; Disattiva l'AGA mouse1: btst #2,$dff016 ; tasto destro del mouse premuto? bne.s mouse1 ; se no, aspetta bsr.s Scorri ; esegui la routine di scorrimento mouse2: btst #6,$bfe001 ; tasto sinistro del mouse premuto? bne.s mouse2 ; se no, torna a mouse2: rts ;****************************************************************************** ; Questa routine fa scomparire progressivamente un immagine ; facendola scorrere verso destra ;****************************************************************************** ; .----------. ; ¦ ¦ ; | | ; | | ; | ¯¯¯ --- | ; _l___ ___|_ ; / _¬\ / _ ¬\ ; _/ ( °/--\° ) \_ ; /¬\_____/¯¯¯¯\_____/¬\ ; \ ____(_,____,_)____ / ; \_\ `----------' /_/ ; \\___ ___// ; \__`------'__/ ; | ¯¯¯¯ | xCz ; `--------' Scorri: move.w #160-1,d7 ; Il loop va eseguito una volta per ogni pixel ; l'immagine e` larga 160 pixel (10 words) ; In questo esempio copiamo un'immagine su se stessa, ma shiftandola ; continuamente di un pixel, in modo da farla scorrere. ; Pertanto gli indirizzi sorgente e destinazione sono uguali ScorriLoop: ; Aspetta il vblank in modo da far scorrere l'immagine di un pixel ad ogni ; fotogramma. WaitWblank: CMP.b #$ff,$dff006 ; vhposr - aspetta la linea 255 bne.s WaitWblank Aspetta: CMP.b #$ff,$dff006 ; vhposr - ancora linea 255 ? beq.s Aspetta move.l #bitplane+((20*50)+64/16)*2,d0 ; ind. sorgente e ; destinazione moveq #3-1,d5 ; ripeti per ogni plane PlaneLoop: btst #6,2(a5) ; dmaconr - aspetta che il blitter finisca waitblit: btst #6,2(a5) bne.s waitblit move.l #$19f00000,$40(a5) ; BLTCON0 e BLTCON1 - copia da A a D ; con shift di un pixel move.l #$fffffffe,$44(a5) ; BLTAFWM e BLTALWM ; BLTAFWM = $ffff - passa tutto ; BLTALWM = $fffe = %1111111111111110 ; cancella l'ultimo bit ; carica i puntatori move.l d0,$50(a5) ; bltapt - sorgente move.l d0,$54(a5) ; bltdpt - destinazione ; il modulo e` calcolato come al solito move.l #$00140014,$64(a5) ; bltamod e bltdmod move.w #(20*64)+160/16,$58(a5) ; bltsize ; altezza 20 linee ; largo 160 pixel (= 10 words) add.l #40*256,d0 ; punta al prossimo plane dbra d5,PlaneLoop dbra d7,ScorriLoop ; ripeti per ogni pixel btst #6,$02(a5) ; dmaconr - aspetta che il blitter finisca waitblit2: btst #6,$02(a5) bne.s waitblit2 rts ;**************************************************************************** SECTION GRAPHIC,DATA_C COPPERLIST: dc.w $8E,$2c81 ; DiwStrt dc.w $90,$2cc1 ; DiwStop dc.w $92,$38 ; DdfStart dc.w $94,$d0 ; DdfStop dc.w $102,0 ; BplCon1 dc.w $104,0 ; BplCon2 dc.w $108,0 ; VALORE MODULO = 0 dc.w $10a,0 ; ENTRAMBI I MODULI ALLO STESSO VALORE. dc.w $100,$3200 ; bplcon0 - 3 bitplanes lowres BPLPOINTERS: dc.w $e0,$0000,$e2,$0000 ;primo bitplane dc.w $e4,$0000,$e6,$0000 dc.w $e8,$0000,$ea,$0000 dc.w $0180,$000 ; color0 dc.w $0182,$475 ; color1 dc.w $0184,$fff ; color2 dc.w $0186,$ccc ; color3 dc.w $0188,$999 ; color4 dc.w $018a,$232 ; color5 dc.w $018c,$777 ; color6 dc.w $018e,$444 ; color7 dc.w $FFFF,$FFFE ; Fine della copperlist ;**************************************************************************** BITPLANE: incbin "assembler2:sorgenti6/amiga.raw" ; qua carichiamo la figura in ; formato RAWBLIT (o interleaved), ; convertita col KEFCON. end ;**************************************************************************** In questo esempio vediamo un nuovo effetto. Faremo sparire un'immagine dallo schermo facendola scorrere verso destra e cancellando i pixel che arrivano ad una certa posizione orizzontale. Questo effetto e` ottenuto mediante il blitter combinando insieme shifting e masking. Lo scorrimento verso destra e` ottenuto naturalmente mediante lo shift. L'immagine viene letta dallo schermo (non e` memorizzata in un altro buffer) attraverso il canale A, viene shiftata di un pixel e riscritta nello schermo nella stessa posizione. La sorgente e la destinazione coincidono perfettamente. La maschera della prima word fa passare tutti i bit. La maschera dell'ultima word, invece, assume il valore %1111111111111110 e quindi cancella il bit piu` a destra. Se non usassimo questo accorgimento i pixel che escono dalla word piu` a destra rientrerebbero nella word piu` a sinistra una riga piu` in basso (ne abbiamo parlato durante la spiegazine dello shift). Poiche` stiamo usando uno schermo interleaved, la riga piu` in basso appartiene ad un diverso plane, e se i pixel si spostano da un plane all'altro succede un macello. Provate a rendervene conto mettendo BLTALWM al valore $ffff. Grazie alla maschera questo non avviene, perche` la maschera e` applicata al dato letto PRIMA di fare lo shift. Quindi il bit che dovrebbe uscire da destra viene azzerato dalla mask. Una blittata fatta in questo modo fa scorrere la figura a destra di un pixel. Ripetendo la blittata tante volte quanti sono i pixel che compongono l'immagine in larghezza (nel nostro caso 160) otteniamo una sparizione completa dell'immagine. E` possibile far scorrere l'immagine piu` velocemente utilizzando un valore di shift maggiore di 1. In questo caso pero` si deve modificare anche la maschera in modo che cancelli tutti i pixel che lo shift farebbe uscire. Per esempio usando uno shift di 4 pixel, la maschera deve cancellare i 4 pixel piu` a destra, perche` altrimenti uscirebbero fuori. Inoltre poiche` l'immagine scorre piu` velocemente, e` necessario ripetere meno volte la routine per farla scomparire tutta. Nel caso di uno shift di 4 pixel, sono necessarie 160/4=40 iterazioni della routine. Provate voi a modificare la velocita`, provando altri valori di shift, per esempio 2,8 o 3.