ð0@S; ;nAME: LOVELY NOISE ; ;aUTHOR: jONAS hULTEN ; ;mODULATIONS: ; MODULATION WHEEL: FILTER FREQUENCY ; ;nOTES: ; dON'T YOU LOVE THE SOUND OF THIS ; RAW NOISE? ; GLOBALiNIT: SET sidgVOLUME SET sidgFILTERbp SET sidgFILTERlp SET sidgFILTERrESO MOVEI $1000,midgMODwHEEL ;TRICK TO SET DEFAULT MODULATION ;WHEEL VALUE! END GLOBALaLWAYS: MOVE midgMODwHEEL,sidgFILTERfREQ END LOCALiNIT: MOVEI $0000,sidATTACK MOVEI $2000,sidDECAY MOVEI $6000,sidSUSTAIN MOVEI $8000,sidRELEASE SET sidNOISE SET sidFILTER END LOCALkEYdOWN: MOVE midFREQ,sidFREQ ;PLAY CORRECT FREQUENCY SET sidGATE ;ACTIVATE aTTACK/dECAY END LOCALkEYuP: CLR sidGATE ;ACTIVATE RELEASE END LOCALaLWAYS: END÷