ð0@S; ;nAME: lAST nINJA ; ;aUTHOR: jONAS hULTEN ; ;mODULATIONS: ; ; PITCH BEND: PITCH ; MODULATION WHEEL: FILTER FREQUENCY ; SUSTAIN PEDAL: RESTART SOUND ; ;nOTES: ; ; tAKEN FROM tHE lAST nINJA. oRIGINAL ; SOUND BY bEN dAGLISH. ; CONST bendervalue = 12 CONST raisespeed = 25 CONST maxfreq = $F000 GLOBAL TG GLOBALiNIT: SETTIMERI 9827 SET sidgMONOPHONIC SET sidgVOLUME SET sidgFILTERlp SET sidgFILTERrESO END GLOBALaLWAYS: MOVE midgMODwHEEL,TG SHIFTRI 1,TG DISPLAY midgMODwHEEL MOVE TG,sidgFILTERfREQ END LOCALiNIT1: END LOCALiNIT2: MOVEI $1000,sidATTACK MOVEI $f000,sidDECAY MOVEI $2000,sidSUSTAIN MOVEI $c000,sidRELEASE SET sidTRIANGLE SET sidSYNC SET sidMODULATE SET sidFILTER END LOCALiNIT3: END LOCAL FQ LOCALkEYdOWN1: MOVE midFREQ,sidFREQ END LOCALkEYdOWN2: ;UNCOMMENT THE FOLLOWING TWO ROWS IF ;YOU WANT THE SOUND TO RESTART AT ;EVERY KEYPRESS. ; CLR FQ ; MOVE FQ,sidFREQ SET sidGATE END LOCALkEYdOWN3: END LOCALkEYuP1: END LOCALkEYuP2: CLR sidGATE END LOCALkEYuP3: END LOCAL PITCH,TL LOCALaLWAYS1: ;PITCHBEND GLOB2REG midgPITCH,PITCH PITCHBENDI bendervalue,PITCH MOVE midFREQ,sidFREQ END LOCALaLWAYS2: ;INCREASE FREQUENCY ADDI raisespeed,FQ MINI maxfreq,FQ ;CHECK SUSTAIN PEDAL GLOB2REG midgSUSTAIN,TL BEQZ TL,NORESET CLR FQ NORESET MOVE FQ,sidFREQ END LOCALaLWAYS3: END÷