ð0@S; ;nAME: nINJA bASS ; ;aUTHOR: jONAS hULTEN ; ;mODULATIONS: ; PITCH BEND: PITCH ; MODULATION WHEEL: FILTER FREQUENCY ; ;nOTES: ; tAKEN FROM tHE lAST nINJA. oRIGINAL ; SOUND MADE BY bEN dAGLISH. ; CONST bendervalue=12 GLOBALiNIT: SETTIMERI 9827 SET sidgVOLUME SET sidgFILTERlp SET sidgFILTERrESO END GLOBALaLWAYS: MOVE midgMODwHEEL,sidgFILTERfREQ SHIFTRI 1,sidgFILTERfREQ DISPLAY midgMODwHEEL END LOCALiNIT: MOVEI $1000,sidATTACK MOVEI $8000,sidDECAY MOVEI $0000,sidSUSTAIN MOVEI $3000,sidRELEASE MOVEI $0400,sidPULSEwIDTH SET sidPULSE SET sidTRIANGLE SET sidFILTER END LOCALkEYdOWN: MOVE midFREQ,sidFREQ SET sidGATE END LOCALkEYuP: CLR sidGATE END LOCAL PITCH LOCALaLWAYS: ;PITCHBEND GLOB2REG midgPITCH,PITCH PITCHBENDI bendervalue,PITCH MOVE midFREQ,sidFREQ END÷