ð0@S; ;nAME: mONO-FAT ; ;aUTHOR: jONAS hULTEN ; ;mODULATIONS: NONE ; ;nOTES: ; tRY CHANGING TO SAW WAVEFORM. ; CONST DIFFERENCE=20 GLOBALiNIT: SETTIMERI 10000 SET sidgMONOPHONIC SET sidgVOLUME END GLOBALaLWAYS: END LOCALiNIT: MOVEI $0000,sidATTACK MOVEI $7000,sidDECAY MOVEI $9000,sidRELEASE SET sidPULSE ; SET sidSAW END LOCAL PULSEcOUNTER LOCALkEYdOWN: MOVE midVELOCITY,sidSUSTAIN MAXI $2000,sidSUSTAIN MOVE midFREQ,sidFREQ ;PLAY CORRECT FREQUENCY SET sidGATE ;ACTIVATE aTTACK/dECAY MOVEI 100,PULSEcOUNTER END LOCALkEYuP: CLR sidGATE ;ACTIVATE RELEASE END LOCAL PITCH, THISdIFF LOCALaLWAYS1: MOVEI -DIFFERENCE,THISdIFF BRA GOaLWAYS LOCALaLWAYS2: MOVEI DIFFERENCE,THISdIFF BRA GOaLWAYS LOCALaLWAYS3: CLR THISdIFF GOaLWAYS: ; GLOB2REG midgPITCH,PITCH ; PITCHBENDI 2,PITCH MOVE midFREQ,sidFREQ ADD THISdIFF,sidFREQ ADDI 400,PULSEcOUNTER MINI 30000,PULSEcOUNTER MOVE PULSEcOUNTER,sidPULSEwIDTH END÷