; Lezione11f.s - Utilizzo di interrupts COPER e VERTB dell livello 3 ($6c). ; In questo caso ridefiniamo tutti gli interrupt, giusto ; per rendere l'idea di come si fa. ; La differenza con Lezione11e.s e' "formale", infatti si usa ; per gli interrupt lo standard della ROM Amiga. Se volete ; seguire proprio l'etichetta, fate come in questo esempio. Section Interrupt,CODE ; Include "DaWorkBench.s" ; togliere il ; prima di salvare con "WO" ***************************************************************************** include "startup2.s" ; salva interrupt, dma eccetera. ***************************************************************************** ; Con DMASET decidiamo quali canali DMA aprire e quali chiudere ;5432109876543210 DMASET EQU %1000001010000000 ; copper DMA abilitato WaitDisk EQU 30 ; 50-150 al salvataggio (secondo i casi) START: move.l BaseVBR(PC),a0 ; In a0 il valore del VBR MOVE.L #NOINT1,$64(A0) ; Interrupt "vuoto" MOVE.L #NOINT2,$68(A0) ; int vuoto move.l #MioInt6c,$6c(a0) ; metto la mia rout. int. livello 3. MOVE.L #NOINT4,$70(A0) ; int vuoto MOVE.L #NOINT5,$74(A0) ; " " MOVE.L #NOINT6,$78(A0) ; " " MOVE.W #DMASET,$96(a5) ; DMACON - abilita bitplane, copper ; e sprites. 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 movem.l d0-d7/a0-a6,-(SP) bsr.w mt_init ; inizializza la routine musicale movem.l (SP)+,d0-d7/a0-a6 ; 5432109876543210 move.w #%1111111111111111,$9a(a5) ; INTENA - abilito TUTTI gli ; interrupt! mouse: btst #6,$bfe001 ; Mouse premuto? (il processore esegue questo bne.s mouse ; loop in modo utente, e ogni vertical blank ; nonche' ogni WAIT della linea raster $a0 ; lo interrompe per suonare la musica!). bsr.w mt_end ; fine del replay! rts ; esci ***************************************************************************** * ROUTINE IN INTERRUPT $64 (livello 1) ***************************************************************************** ; .-==-. ; | __ | ; C °° ) ; | C. | ; | __ | ; |(__)|xCz ; `----' ;02 SOFT 1 ($64) Riservato agli interrupt inizializzati via software. ;01 DSKBLK 1 ($64) Fine del trasferimento di un blocco dati dal disco. ;00 TBE 1 ($64) Buffer UART di trasmissione della porta seriale VUOTO. NOINT1: ; $64 movem.l d0-d7/a0-a6,-(SP) LEA $DFF000,A0 ; custom in A0 MOVE.W $1C(A0),D1 ; INTENAR in d1 BTST.l #14,D1 ; Bit Master di abilitazione azzerato? BEQ.s NoInts1 ; Se si, interrupt non attivi! AND.W $1E(A0),D1 ; INREQR - in d1 rimangono settati solo i bit ; che sono settati sia in INTENA che in INTREQ ; in modo da essere sicuri che l'interrupt ; avvenuto fosse abilitato. btst.l #0,d1 ; TBE? beq.w NoTBE ; tbe routines NoTBE: btst.l #1,d1 ; DSKBLK? beq.w NoDSKBLK ; DSKBLK routines NoDSKBLK: btst.l #2,d1 ; INTREQR - SOFT? beq.w NoSOFT ; SOFT routines NoSOFT: NoInts1: ; 210 move.w #%111,$dff09c ; INTREQ - soft,dskblk,serial port tbe movem.l (SP)+,d0-d7/a0-a6 rte ***************************************************************************** * ROUTINE IN INTERRUPT $68 (livello 2) ***************************************************************************** ; ... ; : ·: ; : : ; ____¦,.,l____ ; /·.·.· .·.·.\ ; _/ _____ _____ \_ ; C/_ (° C °) \). ; \ \_____________/ /-' ; \ \___l_____/ /xCz ; ____ \__`-------'__/ _____ ; / ¯¯ `---------' ¯¯ ¬\ ; / · ; · ;03 PORTS 2 ($68) Input/Output Porte e timers, connesso alla linea INT2 NOINT2: ; $68 movem.l d0-d7/a0-a6,-(SP) LEA $DFF000,A0 ; custom in A0 MOVE.W $1C(A0),D1 ; INTENAR in d1 BTST.l #14,D1 ; Bit Master di abilitazione azzerato? BEQ.s NoInts2 ; Se si, interrupt non attivi! AND.W $1E(A0),D1 ; INREQR - in d1 rimangono settati solo i bit ; che sono settati sia in INTENA che in INTREQ ; in modo da essere sicuri che l'interrupt ; avvenuto fosse abilitato. btst.l #3,d1 ; INTREQR - PORTS? beq.w NoPORTS ; routines PORTS NoPORTS: move.l d0,-(sp) ; salva d0 move.b $bfed01,d0 ; CIAA icr - e' un interrupt della tastiera? and.b #$8,d0 beq.w NoTastiera ; Routines per la lettura della tastiera NoTastiera: move.l (sp)+,d0 ; ripristina d0 NoInts2: ; 3210 move.w #%1000,$dff09c ; INTREQ - ports movem.l (SP)+,d0-d7/a0-a6 rte ***************************************************************************** * ROUTINE IN INTERRUPT $6c (livello 3) - usato il VERTB e COPER. * ***************************************************************************** ; _.--._ _ ; | _ .| (_) ; | \__| || ; |______| || ; .-`--'-. || ; | | | |\__l| ; |_| |__|__|_)) ; ||_| | || ; |(_) | ; | | ; |____|__ ; |______/g®m ;06 BLIT 3 ($6c) Se il blitter ha finito una blittata si setta ad 1 ;05 VERTB 3 ($6c) Generato ogni volta che il pennello elettronico e' ; alla linea 00, ossia ad ogni inizio di vertical blank. ;04 COPER 3 ($6c) Si puo' settare col copper per generarlo ad una certa ; linea video. Basta richiederlo dopo un certo WAIT. MioInt6c: movem.l d0-d7/a0-a6,-(SP) LEA $DFF000,A0 ; custom in A0 MOVE.W $1C(A0),D1 ; INTENAR in d1 BTST.l #14,D1 ; Bit Master di abilitazione azzerato? BEQ.s NoInts3 ; Se si, interrupt non attivi! AND.W $1E(A0),D1 ; INREQR - in d1 rimangono settati solo i bit ; che sono settati sia in INTENA che in INTREQ ; in modo da essere sicuri che l'interrupt ; avvenuto fosse abilitato. btst.l #6,d1 ; INTREQR - BLIT? beq.w NoBLIT ; routines BLIT NoBLIT: btst.l #5,d1 ; INTREQR - il bit 5, VERTB, e' azzerato? beq.s NointVERTB ; Se si, non e' un "vero" int VERTB! movem.l d0-d7/a0-a6,-(SP) ; salvo i registri nello stack bsr.w mt_music ; suono la musica movem.l (SP)+,d0-d7/a0-a6 ; riprendo i reg. dallo stack nointVERTB: btst.l #4,d1 ; INTREQR - COPER azzerato? beq.s NointCOPER ; se si, non e' un int COPER! move.w #$F00,$dff180 ; int COPER, allora COLOR0 = ROSSO NointCOPER: NoInts3: ;6543210 move.w #%1110000,$dff09c ; INTREQ - cancello rich. BLIT,VERTB,COPER movem.l (SP)+,d0-d7/a0-a6 rte ; uscita dall'int COPER/BLIT ***************************************************************************** * ROUTINE IN INTERRUPT $70 (livello 4) ***************************************************************************** ; .:::::. ; ¦:::·:::¦ ; |· ·| ; C| ¬ - l) ; ¡_°(_)°_| ; |\_____/| ; l__`-'__! ; `---'xCz ;10 AUD3 4 ($70) Lettura di un blocco di dati del can. audio 3 finita. ;09 AUD2 4 ($70) Lettura di un blocco di dati del can. audio 2 finita. ;08 AUD1 4 ($70) Lettura di un blocco di dati del can. audio 1 finita. ;07 AUD0 4 ($70) Lettura di un blocco di dati del can. audio 0 finita. NOINT4: ; $70 movem.l d0-d7/a0-a6,-(SP) LEA $DFF000,A0 ; custom in A0 MOVE.W $1C(A0),D1 ; INTENAR in d1 BTST.l #14,D1 ; Bit Master di abilitazione azzerato? BEQ.s NoInts4 ; Se si, interrupt non attivi! AND.W $1E(A0),D1 ; INREQR - in d1 rimangono settati solo i bit ; che sono settati sia in INTENA che in INTREQ ; in modo da essere sicuri che l'interrupt ; avvenuto fosse abilitato. BTST.l #7,d1 ; INTREQR - AUD0? BEQ.W NoAUD0 ; routines aud0 NoAUD0: BTST.l #8,d1 ; INTREQR - AUD1? BEQ.W NoAUD1 ; routines aud1 NoAUD1: BTST.l #9,d1 ; INTREQR - AUD2? Beq.W NoAUD2 ; routines aud2 NoAUD2: BTST.l #10,d1 ; INTREQR - AUD3? Beq.W NoAUD3 ; routines aud3 NoAUD3: NoInts4: ; 09876543210 MOVE.W #%11110000000,$DFF09C ; aud0,aud1,aud2,aud3 movem.l (SP)+,d0-d7/a0-a6 RTE ***************************************************************************** * ROUTINE IN INTERRUPT $74 (livello 5) ***************************************************************************** ; .:::::. ; ¦:::·:::¦ ; |· - - ·| ; C| q p l) ; | (_) | ; |\_____/| ; l__ ¬__! ; `---'xCz ;12 DSKSYN 5 ($74) Generato se il registro DSKSYNC corrisponde ai dati ; letti dal disco nel drive.Serve per i loader hardware. ;11 RBF 5 ($74) Buffer UART di ricezione della porta seriale PIENO. NOINT5: ; $74 movem.l d0-d7/a0-a6,-(SP) LEA $DFF000,A0 ; custom in A0 MOVE.W $1C(A0),D1 ; INTENAR in d1 BTST.l #14,D1 ; Bit Master di abilitazione azzerato? BEQ.s NoInts5 ; Se si, interrupt non attivi! AND.W $1E(A0),D1 ; INREQR - in d1 rimangono settati solo i bit ; che sono settati sia in INTENA che in INTREQ ; in modo da essere sicuri che l'interrupt ; avvenuto fosse abilitato. BTST.l #12,d1 ; INTREQR - DSKSYN? BEQ.W NoDSKSYN ; routines dsksyn NoDSKSYN: BTST.l #11,d1 ; INTREQR - RBF? BEQ.W NoRBF ; routines rbf NoRBF: NoInts5: ; 2109876543210 MOVE.W #%1100000000000,$DFF09C ; serial port rbf, dsksyn movem.l (SP)+,d0-d7/a0-a6 rte ***************************************************************************** * ROUTINE IN INTERRUPT $78 (livello 6) * ***************************************************************************** ; .:::::. ; ¦:::·:::¦ ; |· - - ·| ; C| O p l) ; / _ (_) _ \ ; \_\_____/_/ ; l_\___/_! ; `-----'xCz ;14 INTEN 6 ($78) ;13 EXTER 6 ($78) Interrupt esterno, connesso alla linea INT6 + TOD CIAB NOINT6: ; $78 movem.l d0-d7/a0-a6,-(SP) tst.b $bfdd00 ; CIAB icr - resetta interrupt timer LEA $DFF000,A0 ; custom in A0 MOVE.W $1C(A0),D1 ; INTENAR in d1 BTST.l #14,D1 ; Bit Master di abilitazione azzerato? BEQ.s NoInts6 ; Se si, interrupt non attivi! AND.W $1E(A0),D1 ; INREQR - in d1 rimangono settati solo i bit ; che sono settati sia in INTENA che in INTREQ ; in modo da essere sicuri che l'interrupt ; avvenuto fosse abilitato. BTST.l #14,d1 ; INTREQR - INTEN? BEQ.W NoINTEN ; routines inten NoINTEN: BTST.l #13,d1 ; INTREQR - EXTER? BEQ.W NoEXTER ; routines exter NoEXTER: NoInts6: ; 432109876543210 MOVE.W #%110000000000000,$DFF09C ; INTREQ - external int + ciab movem.l (SP)+,d0-d7/a0-a6 rte ***************************************************************************** ; Routine di replay del protracker/soundtracker/noisetracker ; include "assembler2:sorgenti4/music.s" ***************************************************************************** SECTION GRAPHIC,DATA_C COPPERLIST: dc.w $100,$200 ; BPLCON0 - no bitplanes dc.w $180,$00e ; color0 BLU dc.w $a007,$fffe ; WAIT - attendi la linea $a0 dc.w $9c,$8010 ; INTREQ - Richiedo un interrupt COPER, il ; quale fa agire sul color0 con un "MOVE.W". dc.w $FFFF,$FFFE ; Fine della copperlist ***************************************************************************** ; MUSICA ***************************************************************************** mt_data: dc.l mt_data1 mt_data1: incbin "assembler2:sorgenti4/mod.yellowcandy" end COme potete notare, in questa "versione" si usano tutti gli accorgimenti che usano gli interrupt del sistema operativo: LEA $DFF000,A0 ; custom in A0 MOVE.W $1C(A0),D1 ; INTENAR in d1 BTST.l #14,D1 ; Bit Master di abilitazione azzerato? BEQ.s NoInts1 ; Se si, interrupt non attivi! AND.W $1E(A0),D1 ; INREQR - in d1 rimangono settati solo i bit ; che sono settati sia in INTENA che in INTREQ ; in modo da essere sicuri che l'interrupt ; avvenuto fosse abilitato. btst.l #0,d1 ; TBE? ... In pratica si fa un'ulteriore verifica della validita' dell'interrupt, controllando se il bit settato in INTREQR e' settato anche in INTENAR, ossia se e' abilitato. In realta' se si disabilita un interrupt con il registro apposito, ossia INTENA ($dff09a), non dovrebbe continuare a funzionare. Comunque puo' essere che l'hardware non sia perfetto. Se trovate delle strane incompatibilita' nel vostro interrupt, fate anche questo controllo, chissa' che non vengano eseguiti interrupt "disabilitati"!