PY COMMENT ZAK BY DA BLONDIE ; VANITATUM VANITAS ;) ENTRY DONE; TRANSPOSE NOTES BY L2 ENTRY BADD L2 > NOTE & G15 BMOV FLOTAB,G15 > FREQ BMOV FHITAB,G15 > FREQ+#1 DONE; A SOLO INSTRUMENT ENTRY BMOV #$41 > CREG BMOV #0 > ATDK BMOV #$9A > SUREL WMOV #$0800 > PWIDTH WAIT WAIT LOOP WADD #$20 > PWIDTH WAIT FOREVER; A LIL' BEEP ENTRY BMOV #7 > SUREL & ATDK BMOV #$21 > CREG WAIT WAIT WAIT BMOV #$20 > CREG DONE; ARPEGGIO - TYPE SELECTED BY L1 DATA EMBED 0 10 16 EMBED 0 10 18 EMBED 0 8 14 VAR*4 BASENOTE VAR*4 OFFSET SUB SETFREQ BMOV FLOTAB,BASENOTE > FREQ BMOV FHITAB,BASENOTE > FREQ+#1 SEND ENTRY BMOV #$21 > CREG BMOV #$09 > ATDK BMOV #$7A >SUREL WAIT BMOV NOTE > BASENOTE,CURVOICE BMOV L1 > OFFSET,CURVOICE BMUL OFFSET,CURVOICE BADD L1 > OFFSET,CURVOICE LOOP BMOV OFFSET,CURVOICE > G15 BADD (BASENOTE,CURVOICE > DATA,G15) > BASENOTE JSUB SETFREQ WAIT BMOV OFFSET,CURVOICE > G15 BADD (BASENOTE,CURVOICE > DATA+#1,G15) > BASENOTE JSUB SETFREQ WAIT BMOV OFFSET,CURVOICE > G15 BADD (BASENOTE,CURVOICE > DATA+#2,G15) > BASENOTE JSUB SETFREQ WAIT FOREVER; BASS WITH "HIHAT" VAR*4 FLO VAR*4 FHI ENTRY BMOV #$00 > ATDK BMOV #$FA > SUREL WAIT BMOV #$81 > CREG BMOV FREQ > FLO,CURVOICE BMOV FREQ+#1 > FHI,CURVOICE WMOV #$3700 > FREQ WAIT BMOV #$41 > CREG BMOV FLO,CURVOICE > FREQ BMOV FHI,CURVOICE > FREQ+#1 WMOV #$0400 > PWIDTH LOOP WADD #$20 > PWIDTH WAIT 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 WAIT BMOV CURVOICE > G15 BMUL G15 WADD FADD,G15 > FREQ WMUL FADD,G15 WAIT LOOP BMOV CURVOICE > G15 BMUL G15 WSUB FADD,G15 > FREQ WAIT BMOV CURVOICE > G15 BMUL G15 WSUB FADD,G15 > FREQ WAIT BMOV CURVOICE > G15 BMUL G15 WADD FADD,G15 > FREQ WAIT BMOV CURVOICE > G15 BMUL G15 WADD FADD,G15 > FREQ WAIT FOREVER; "OVERLAYED DRUMS" ; TYPE IN L0 - ZERO MEANS NO DRUM VAR SR EMBED $F7 $F5 $F3 VAR DPTR EMBED 0 13 26 VAR*4 PTR DATA ; BDRUM EMBED $81 $3F $11 8 $11 6 $11 5 EMBED $10 4 $00 0 $FF ; SNARE EMBED $81 $37 $41 $C $41 $A $81 $37 EMBED $40 6 $80 $37 $FF ; LITTLE WHATEVER EMBED $81 $DF $10 $28 EMBED $80 $DF $10 $28 EMBED $80 $DF $10 $28 EMBED $FF ENTRY BTEST L0 > #0 WHEN EQU DONE WEND BMOV DPTR,L0 > PTR,CURVOICE BMOV SR,L0 > SUREL BMOV #0 > ATDK WAIT LOOP WMOV #$0800 > PWIDTH BMOV PTR,CURVOICE > G15 BTEST DATA,G15 > #$FF WHEN EQU BDEC G15 BDEC G15 WEND BMOV DATA,G15 > CREG BMOV DATA+#1,G15 > FREQ+#1 BMOV #0 >FREQ BINC G15 BINC G15 BMOV G15 > PTR,CURVOICE WAIT FOREVER; THE FINISHER ; IT MAKES THE HARD RESTART AND ; THE COPY FROM SHADOW TO REAL SID ENTRY BMOV ATDK >$D405,COFFSET BMOV SUREL >$D406,COFFSET BMOV #$09 >$D404,COFFSET WAIT LOOP BTEST DUR > #3 WHEN POS BAND #$FE >CREG WEND BTEST DUR > #2 WHEN POS BMOV #0 > SUREL WEND BMOV FREQ >$D400,COFFSET BMOV FREQ+#1 >$D401,COFFSET BMOV PWIDTH >$D402,COFFSET BMOV PWIDTH+#1 >$D403,COFFSET BMOV ATDK >$D405,COFFSET BMOV SUREL >$D406,COFFSET BMOV CREG >$D404,COFFSET WAIT FOREVERRYTHE CREDITS ‘YTRANSPOSE úYSOLO ŽZBEEP ïZARPEGGIO ]BASS É^ Ê^ Ë^GATEOFF ~_VIBRATO ±a ²aDRUMS yd zd {d |d }d ~d d €d d ‚d ƒdFINISH }f ~f