ð0@S; ;nAME: tUSKER iNTRO ; ;aUTHOR: jONAS hULTEN ; ;mODULATIONS: ; ; PITCH BEND: PITCH ; MODULATION WHEEL: FILTER FREQUENCY ; CONST bendervalue=12 GLOBALiNIT: SETTIMERI 9827 SET sidgMONOPHONIC SET sidgVOLUME SET sidgFILTERlp SET sidgFILTERrESO END GLOBALaLWAYS: MOVE midgMODwHEEL,sidgFILTERfREQ SHIFTRI 1,sidgFILTERfREQ DISPLAY midgMODwHEEL END LOCALiNIT1: END LOCALiNIT2: MOVEI $2000,sidATTACK MOVEI $1000,sidDECAY MOVEI $e000,sidSUSTAIN MOVEI $1000,sidRELEASE SET sidTRIANGLE SET sidSYNC SET sidMODULATE SET sidFILTER END LOCALiNIT3: MOVEI $0000,sidATTACK MOVEI $6000,sidDECAY MOVEI $0000,sidSUSTAIN MOVEI $6000,sidRELEASE SET sidPULSE MOVEI $0800,sidPULSEwIDTH SET sidSYNC SET sidFILTER END LOCAL FQ,FC LOCALkEYdOWN1: MOVE midFREQ,sidFREQ END LOCALkEYdOWN2: MOVEI 32768,sidFREQ CLR FC SET sidGATE END LOCALkEYdOWN3: MOVE midFREQ,sidFREQ SET sidGATE END LOCALkEYuP1: END LOCALkEYuP2: CLR sidGATE END LOCALkEYuP3: CLR sidGATE END LOCAL PITCH,TL LOCALaLWAYS1: ;PITCHBEND GLOB2REG midgPITCH,PITCH PITCHBENDI bendervalue,PITCH MOVE midFREQ,sidFREQ END LOCALaLWAYS2: ADDI $1000,FC SINUS FC,TL SCALEI 4000,TL ADDI 32768-2000,TL MOVE TL,sidFREQ END LOCALaLWAYS3: END÷