ùúùú ; Corso Asm - LEZIONE xx: ** MODULARE IN FREQUENZA UN'ARMONICA ** SECTION LEZIONExx7b,CODE Start: lea modfq,a0 moveq #123,d0 move.w #500-1,d7 .Lp1: move.w d0,(a0)+ addq.w #1,d0 dbra d7,.lp1 move.w #500-1,d7 .Lp2: move.w d0,(a0)+ subq.w #1,d0 dbra d7,.lp2 _LVODisable EQU -120 _LVOEnable EQU -126 move.l 4.w,a6 jsr _LVODisable(a6) bset #1,$bfe001 ;spegne il filtro passa-basso lea $dff000,a6 move.w $2(a6),d7 ;salva DMA dell'OS move.w $10(a6),d6 ;salva ADKCON dell'OS Clock equ 3546895 move.l #armonica,$b0(a6) move.w #16/2,$b4(a6) move.w #64,$b8(a6) move.l #modfq,$a0(a6) move.w #(modfq_end-modfq)/2,$a4(a6) move.w #clock/((modfq_end-modfq)/2),$a6(a6) move.w #$8010,$9e(a6) ;imposta USE0P1 move.w #$8203,$96(a6) ;accende AUD0 e AUD1 in DMACONW WLMB: btst #6,$bfe001 ;aspetta il pulsante sinistro del mouse bne.s WLMB move.w #$0010,$96(a6) ;spegne USE0P1 or.w #$8000,d6 ;accende il bit 15 (SET/CLR) move.w d6,$9e(a6) ;reimposta ADKCON dell'OS move.w #$0003,$96(a6) ;spegne AUD0 e AUD1 or.w #$8000,d7 ;accende il bit 15 (SET/CLR) move.w d7,$96(a6) ;reimposta DMA dell'OS move.l 4.w,a6 jsr _LVOEnable(a6) rts SECTION Sample,DATA_C ;venendo letta dal DMA deve essere in CHIP Armonica: ;armonica di 16 valori creata col'IC del trash'm-one DC.B $19,$46,$69,$7C,$7D,$6A,$47,$1A,$E8,$BB,$97,$84,$83,$95,$B8,$E5 ModFq: blk.w 500*2 ModFq_end: END Questa volta l'AUD1VOL è stato impostato, cosa che non è successa però per l'AUD1PER che viene continuamente modificato dal canale modulatore; l'AUD0PER è invece stato impostato affinchè leggesse la tabella di 1000 word in 2 secondi con la costante di clock divisa per metà della lunghezza della tabella, leggendo quindi ad 1 Hz 500 word, ovvero leggendola tutta in "mezzo" Hz.