ð0@S; ;nAME: mINTER ; ;aUTHOR: jONAS hULTEN ; ;mODULATIONS: ; PITCH WHEEL: CHANNEL 1 FREQUENCY ; ;nOTES: ; jUST WIGGLE THE PITCH WHEEL WHILE ; HOLDING KEYS! ; GLOBALiNIT: SET sidgVOLUME ;FULL VOLUME SET sidgMONOPHONIC END GLOBALaLWAYS: END LOCALiNIT1: MOVEI $4000, sidATTACK MOVEI $8000, sidDECAY MOVEI $d000, sidSUSTAIN MOVEI $9000, sidRELEASE SET sidTRIANGLE SET sidMODULATE END LOCALiNIT2: END LOCALiNIT3: END LOCALkEYdOWN1: SET sidGATE ;START ATTACK END LOCALkEYdOWN2: END LOCALkEYdOWN3: MOVE midFREQ, sidFREQ;PLAY CORRECT FREQUENCY END LOCALkEYuP1: CLR sidGATE ;START RELEASE END LOCALkEYuP2: END LOCALkEYuP3: END LOCAL MOD LOCALaLWAYS1: GLOB2REG midgPITCH,MOD MOVE MOD,sidFREQ END LOCALaLWAYS2: END LOCALaLWAYS3: END÷