µR CMENT TUNA BY -WYN- JUNE 2000 ENTRY DONE; TRANSPOSE NOTES BY L2 ENTRY BADD L2 > NOTE & G15 BMOV FLOTAB,G15 > FREQ BMOV FHITAB,G15 > FREQ+#1 DONE; ; TOGGLE GATE AT NOTE END ; ENTRY BOR #1 > CREG & SID+#4,COFFSET LOOP WAIT BTEST DUR > #1 UNTIL EQU BAND #$FE > CREG & SID+#4,COFFSET DONE ; A LIL' BEEP ENTRY BMOV #7 > SUREL & ATDK BMOV #$21 > CREG WAIT WAIT WAIT BMOV #$20 > CREG DONE; ; 3-NOTE ARPEGGIOS ; TYPE SELECTED BY L1 ; USES L6 DATA EMBED 0 6 14 ;MINOR EMBED 6 14 24 ;1ST INVERSION EMBED 14 24 30 ;2ND INVERSION EMBED 0 8 14 ;MAJOR EMBED 8 14 24 ;1ST INVERSION EMBED 14 24 32 ;2ND INVERSION VAR*4 OFFSET VAR TEMP ENTRY BMOV L1 > L6 BMUL L6 BADD L1 > L6 LOOP BADD (NOTE > DATA,L6) > TEMP BMOV FLOTAB,TEMP > SID,COFFSET BMOV FHITAB,TEMP > SID+#1,COFFSET WAIT BADD (NOTE > DATA+#1,L6) > TEMP BMOV FLOTAB,TEMP > SID,COFFSET BMOV FHITAB,TEMP > SID+#1,COFFSET WAIT BADD (NOTE > DATA+#2,L6) > TEMP BMOV FLOTAB,TEMP > SID BMOV FHITAB,TEMP > SID+#1,COFFSET WAIT FOREVER ; ÓIMPLE PULSE SWEEP ; ENTRY ;BTEST L0 > #0 ;WHEN NEQ ;DRUMS ARE ACTIVE ; DONE ;WEND WMOV #$0700 > PWIDTH BMOV #$00 > SID+#5,COFFSET BMOV #$FA > SID+#6,COFFSET ;WAIT BMOV #$08 > SID+#4,COFFSET BMOV #$81 > SID+#4,COFFSET WMOV #$3700 > SID,COFFSET WAIT WAIT BMOV ATDK > SID+#5,COFFSET BMOV SUREL > SID+#6,COFFSET BMOV CREG > SID+#4,COFFSET WMOV FREQ > SID,COFFSET LOOP WADD #$30 > PWIDTH & SID+#2,COFFSET WAIT FOREVER ; ; SIMPLE PULSE SWEEP ; ENTRY LOOP WADD #$21 > PWIDTH & SID+#2,COFFSET WAIT FOREVER; ; ÐULSE RAMP ; SUBROUTINE ADD WADD #$30 > PWIDTH & SID+#2,COFFSET WAIT SEND SUBROUTINE SUB WSUB #$30 > PWIDTH & SID+#2,COFFSET WAIT SEND ENTRY LOOP JSUB ADD JSUB ADD JSUB ADD JSUB SUB JSUB SUB JSUB SUB FOREVER; SETS GET OFF AFTER ; PLAYERCALLS SPECIFIED IN L4 VAR*4 DELAY ENTRY BMOV L4 > DELAY,CURVOICE LOOP WAIT BDEC DELAY,CURVOICE UNTIL EQU LOOP BAND #$FE > CREG WAIT FOREVER; VIBRATO ; DELAY IN L3 VAR*4 DELAY VAR*8 FADD ENTRY BMOV L3 > DELAY,CURVOICE LOOP WAIT BDEC DELAY,CURVOICE UNTIL EQU BMOV CURVOICE > G15 BMUL G15 BMOV FREQ+#1 > FADD,G15 BMOV #0 > FADD+#1,G15 WADD FADD,G15 > FREQ & SID,COFFSET WAIT BMOV CURVOICE > G15 BMUL G15 WADD FADD,G15 > FREQ & SID,COFFSET WMUL FADD,G15 WAIT LOOP BMOV CURVOICE > G15 BMUL G15 WSUB FADD,G15 > FREQ & SID,COFFSET WAIT BMOV CURVOICE > G15 BMUL G15 WSUB FADD,G15 > FREQ & SID,COFFSET WAIT BMOV CURVOICE > G15 BMUL G15 WADD FADD,G15 > FREQ & SID,COFFSET WAIT BMOV CURVOICE > G15 BMUL G15 WADD FADD,G15 > FREQ & SID,COFFSET WAIT FOREVER; ; ÉNCREMENT FREQUENCY TO BEAT NOTES ; ENTRY WADD #1 > FREQ & SID,COFFSET DONE ; "OVERLAYED DRUMS" ; TYPE IN L0 - ZERO MEANS NO DRUM VAR SR EMBED $F7 $A5 $A3 $AC $CC VAR DPTR EMBED 0 13 26 39 56 VAR*4 PTR DATA ; BDRUM EMBED $81 $3F $41 20 $41 10 $20 8 EMBED $10 4 $00 4 $FF ; SNARE EMBED $81 $37 $41 $C $41 $A $81 $37 EMBED $40 6 $80 $37 $FF ; LITTLE WHATEVER EMBED $81 $DF $11 $58 EMBED $81 $DF $11 $30 EMBED $80 $DF $10 $28 EMBED $FF ; SWISH EMBED $81 $45 $81 $50 EMBED $81 $45 $81 $40 EMBED $80 $35 $80 $30 EMBED $80 $25 $80 $20 EMBED $FF ; CYMBAL EMBED $81 $D0 $81 $C0 EMBED $81 $D5 $81 $A0 EMBED $81 $D5 $81 $A0 EMBED $80 $D5 $80 $A0 EMBED $FF ENTRY BTEST L0 > #0 WHEN EQU DONE WEND BMOV DPTR,L0 > PTR,CURVOICE BMOV SR,L0 > SID+#6,COFFSET BMOV #0 > SID+#5,COFFSET BMOV #$08 > SID+#4,COFFSET WMOV #$0800 > SID+#2,COFFSET LOOP BMOV PTR,CURVOICE > G15 BTEST DATA,G15 > #$FF WHEN EQU WMOV FREQ > SID,COFFSET WMOV PWIDTH > SID,COFFSET BMOV CREG > SID,COFFSET WMOV ATDK > SID,COFFSET DONE WEND BMOV DATA,G15 > SID+#4,COFFSET BMOV DATA+#1,G15 > SID+#1,COFFSET BMOV #0 > SID,COFFSET BINC G15 BINC G15 BMOV G15 > PTR,CURVOICE WAIT FOREVER ; ÓIMPLE VIBRATO ; ÓPEED IN L3 ; VAR*4 COUNT ENTRY BMOV L3 > COUNT,CURVOICE BDIV COUNT,CURVOICE WAIT WAIT LOOP LOOP WAIT WADD #40 > FREQ & SID,COFFSET BDEC COUNT,CURVOICE UNTIL EQU BMOV L3 > COUNT,CURVOICE LOOP WAIT WSUB #40 > FREQ & SID,COFFSET BDEC COUNT,CURVOICE UNTIL EQU BMOV L3 > COUNT,CURVOICE FOREVER ; ; ÔOGGLE BETWEEN PULSE AND TRIANGLE ; ENTRY LOOP WAIT WAIT BEOR #$50 > CREG & SID+#4,COFFSET FOREVER; ; TOGGLE NOTE WITH OCTAVE ; ENTRY LOOP WAIT BADD (#24 > NOTE) > G1 BMOVE FLOTAB,G1 > SID,COFFSET BMOVE FHITAB,G1 > SID+#1,COFFSET WAIT WMOVE FREQ > SID FOREVER ; ; ÁDD TRIANGLE FOR SHORT DUR ; ENTRY BAND (#$0F > CREG) > G1 BOR (#$40 > G1) > SID+#4,COFFSET WAIT WAIT WAIT BMOV CREG > SID+#4,COFFSET DONE; ; SAWTOOTH ; ENTRY BAND (#$0F > CREG) > G15 BOR (#$20 > G15) > SID+#4,COFFSET WAIT WAIT BMOV CREG > SID+#4,COFFSET DONE; ; ÆREQ TOGGLE ; ENTRY WSUB #40 > FREQ LOOP WAIT WADD (#80 > FREQ) > SID,COFFSET WAIT WMOV FREQ > SID,COFFSET FOREVER; ; ÄECREMENT CUTOFF FREQ ; VAR*2 TEMP ENTRY WMOV SHADOW+#$15 > TEMP LOOP WMOV TEMP > $D415 WAIT WSUB #$41 > TEMP UNTIL NEG DONE; ; HARD RESTART ÓÉÄ ; ENTRY BMOVE #$08 > SID+#4,COFFSET BMOVE CREG > SID+#4,COFFSET DONE·RTHE CREDITS ãRTRANSPOSE LSGATE TOGGLE âSBEEP CTARPEGGIO ÌVBASS yXSWEEP ÓXRAMP ¾YGATEOFF qZVIBRATO ø\BEAT K]DRUMS ŸaVIB2 ìbPULTRI ZcOCTAVE dSHORT PULSE ’dSHORT SAW e eCHOP ‘eFILTER SWEEP f f fHARD START }f ~f