************************************ * /\/\ * * / \ * * / /\/\ \ O R B_I D * * / / \ \ / / * * / / __\ \ / / * * ŻŻ \ \ŻŻ/ / I S I O N S * * \ \/ / * * \ / * * \/ * * Feel the DEATH inside! * ************************************ * Coded by: * * The Dark Coder / Morbid Visions * ************************************ ; commenti alla fine del sorgente SECTION DK,code incdir "/Include/" include MVstartup.s ; Codice di startup: prende il ; controllo del sistema e chiama ; la routine START: ponendo ; A5=$DFF000 ;5432109876543210 DMASET EQU %1000001010000000 ; copper,bitplane,blitter DMA START: move #DMASET,dmacon(a5) move.l #COPPERLIST,cop1lc(a5) move d0,copjmp1(a5) move.l #copperloop,cop2lc(a5) ; carica l'indirizzo del loop ; in COP2LC mouse: bsr CambiaCopper moveq #3-1,d7 WaitFrame ; notare il doppio controllo sulla sincronia ; necessario perche` la muovicopper richiede MENO di UNA rasterline su 68030 move.l #$1ff00,d1 ; bit per la selezione tramite AND move.l #$13000,d2 ; linea da aspettare = $130, ossia 304 .Waity1 move.l vposr(a5),d0 ; vposr e vhposr and.l d1,d0 ; seleziona solo i bit della pos. verticale cmp.l d2,d0 ; aspetta la linea $130 (304) bne.s .waity1 .Waity2 move.l vposr(a5),d0 and.l d1,d0 cmp.l d2,d0 beq.s .waity2 dbra d7,WaitFrame btst #6,$bfe001 ; tasto sinistro del mouse premuto? bne.s mouse ; se no, torna a mouse: rts **************************************************** * Questa routine muove la bandiera e cambia i colori CambiaCopper: move.b PosBandiera(pc),d0 tst.b PosFlag beq.s Basso subq.b #1,d0 cmp.b #$81,d0 bra.s Muovi ; le istruzioni Bcc non alterano i CC Basso addq.b #1,d0 cmp.b #$bf,d0 Muovi shs PosFlag ; testa limiti (entrambi! ;) move.b d0,PosBandiera lsl #8,d0 move.b #$07,d0 move d0,Inizio add #$4000,d0 move d0,Fine tst.b FadeFlag beq.s FadeIn FadeOut sub #$010,verde+2 ; aumenta luminosita` cmp #$080,verde+2 sne FadeFlag ; se siamo al minimo passa a FadeIn sub #$0100,rosso+2 ; aumenta luminosita` rts FadeIn add #$010,verde+2 ; aumenta luminosita` cmp #$0f0,verde+2 ; se siamo al massimo passa a FadeOut seq FadeFlag add #$100,rosso+2 ; aumenta luminosita` rts * Posizione prima riga della bandiera ; La bandiera deve rimanere tra le righe $80 e $ff, quindi essendo alta ; $40, la posizione deve variare tra le righe $80 e $bf PosBandiera dc.b $a0 PosFlag dc.b 0 FadeFlag dc.b 0 SECTION MY_COPPER,CODE_C ************************************************************************* * Copper Macros by The Dark Coder / Morbid Visions * vers. 3 SE / 16-07-96 / per ASM One 1.29 * questa e` una versione ridotta delle copper macros usate dai Morbid Visions * realizzata appositamente per i sorgenti pubblicati su Infamia. * La versione completa (integrata con le altre macros standard MV) ha * controlli aggiuntivi sugli errori e permette di utilizzare il Blitter * Finished Disable bit. Chi e` interessato puo` contattare The Dark Coder. * formato * CMOVE valore immediato, registro hardware destinazione * WAIT Hpos,Vpos[,Hena,Vena] * SKIP Hpos,Vpos[,Hena,Vena] * CSTOP * Nota: Hpos,Vpos coordinate copper, Hena, Vena sono i valori di maschera * della posizione copper, opzionali (se non specificati viene assunto * Hena=$fe e Vena=$7f) cmove: macro dc.w [\2&$1fe] dc.w \1 endm wait: macro dc.w [\2<<8]+[\1&$fe]+1 ifeq narg-2 dc.w $fffe endc ifeq narg-4 dc.w $8000+[[\4&$7f]<<8]+[\3&$fe] endc endm skip: macro dc.w [\2<<8]+[\1&$fe]+1 ifeq narg-2 dc.w $fffe endc ifeq narg-4 dc.w $8000+[[\4&$7f]<<8]+[\3&$fe]+1 endc endm cstop: macro dc.w $ffff dc.w $fffe endm * inizia la copperlist COPPERLIST: ; barra 1 cmove $111,color00 wait $7,$29 cmove $a0a,color00 wait $7,$2a cmove $11f,color00 wait $7,$2b cmove $000,color00 Inizio: wait $7,$80 copperloop: ; da qui inizia il loop verde: cmove $080,color00 ; colore verde. Il valore RGB da caricare nel ; registro si trova all'indirizzo "verde+2" ; perche` e` la seconda word dell'istruzione ; copper wait $1e-4,$80,$3e,0 ; aspetta primo parte ; le y sono mascherate completamente ; sono mascherati i 2 bit piu` significativi ; delle x. In questo modo il loop viene ; ripetuto 4 volte ogni riga. rosso: cmove $0800,color00 ; rosso. Modificare a "rosso+2" wait $3e-20,$80,$3e,0 ; seconda cambio colore Fine: skip $0,$c0,$0,$7f ; SKIP alla linea $c0 ; (le x sono mascherate) cmove 0,copjmp2 ; scrive in COPJMP2 - salta ad inizio loop cmove $000,color00 wait 220,255 ; barra 2 wait $7,$14 cmove $11f,color00 wait $7,$15 cmove $a0a,color00 wait $7,$16 cmove $111,color00 cstop ; Fine della copperlist end Questo esempio mostra un copper loop che si ripete piu` volte durante una stessa riga, grazie all'uso di WAIT con mascherate (PARZIALMENTE) anche le coordinate X. Si tratta di una variazione dell'esempio skip3.s, nel quale abbiamo una "bandiera" formata da 2 colori che si ripetono orizzontalmente. Il corpo del loop e` costituito da 2 sole CMOVE, una per ogni diverso colore utilizzato. Mascherando i due bit piu` significativi della posizione orizzontale delle WAIT si fa si che il ciclo viene ripetuto 4 volte per ogni riga, analogamente a quanto abbiamo visto per le posizioni verticali. Per avere un loop che si ripete 2 volte per ogni riga basta mascherare solamente il bit piu` significativo delle posizioni orizzontali delle WAIT. Notate che e` molto difficile ottenere loop che si ripetono un numero di volte maggiore di 4, perche` le WAIT dovrebbero attendere posizioni orizzontali talmente vicine tra di loro che il copper non fa in tempo ad eseguire nemmeno un istruzione. Notate che per avere delle bande di colore avente la stessa dimensione si devono aggiustare opportunamente le posizioni orizzontali di attesa delle WAIT, per compensare il fatto che quando il copper "esce" dall'attesa nella prima WAIT del loop esegue subito la CMOVE $xx,COLOR00 seguente, mentre quando "esce" dall'attesa nella seconda WAIT deve eseguire la SKIP e la CMOVE $0,COPJMP2 prima di tornare ad eseguire la CMOVE $yy,COLOR00 all'inizio del loop. Notate che questo tipo di utilizzo del copper e` simile a quello che si fa per generare i plasmi. Nel caso dei plasmi non si usano le WAIT e le CMOVE vengono eseguite di continuo. Nel caso dei plasmi, ogni cambio di colore corrisponde ad una diversa CMOVE. In questo caso invece, molti cambi di colore vengono eseguiti mediante un unica CMOVE. Lo svantaggio e` che naturalmente le "bande" generate dalla stessa CMOVE non possono avere colori diversi, ma c'e` il vantaggio complementare che per modificarne il colore basta una sola scrittura in memoria. Nel caso di questo esempio, ad ogni frame vengono modificate 2 sole istruzioni copper. Se non usassimo le WAIT con posizioni orizzontali mascherate dovremmo usare 8 CMOVE per cabiare tutti i colori in una riga e di conseguenza dovremmo modificarle tutte e 8 ad ogni frame.