dsp.asm

linux下的任天堂模拟器代码。供大家参考。

NEWSYM RDSPRegA1       ;
      mov al,[DSPMem+0A1h]
      ret

NEWSYM RDSPRegA2       ;
      mov al,[DSPMem+0A2h]
      ret

NEWSYM RDSPRegA3       ;
      mov al,[DSPMem+0A3h]
      ret

NEWSYM RDSPRegA4       ;
      mov al,[DSPMem+0A4h]
      ret

NEWSYM RDSPRegA5       ;
      mov al,[DSPMem+0A5h]
      ret

NEWSYM RDSPRegA6       ;
      mov al,[DSPMem+0A6h]
      ret

NEWSYM RDSPRegA7       ;
      mov al,[DSPMem+0A7h]
      ret

NEWSYM RDSPRegA8       ;
      mov al,[DSPMem+0A8h]
      ret

NEWSYM RDSPRegA9       ;
      mov al,[DSPMem+0A9h]
      ret

NEWSYM RDSPRegAA       ;
      mov al,[DSPMem+0AAh]
      ret

NEWSYM RDSPRegAB       ;
      mov al,[DSPMem+0ABh]
      ret

NEWSYM RDSPRegAC       ;
      mov al,[DSPMem+0ACh]
      ret

NEWSYM RDSPRegAD       ;
      mov al,[DSPMem+0ADh]
      ret

NEWSYM RDSPRegAE       ;
      mov al,[DSPMem+0AEh]
      ret

NEWSYM RDSPRegAF       ;
      mov al,[DSPMem+0AFh]
      ret

NEWSYM RDSPRegB0       ;
      mov al,[DSPMem+0B0h]
      ret

NEWSYM RDSPRegB1       ;
      mov al,[DSPMem+0B1h]
      ret

NEWSYM RDSPRegB2       ;
      mov al,[DSPMem+0B2h]
      ret

NEWSYM RDSPRegB3       ;
      mov al,[DSPMem+0B3h]
      ret

NEWSYM RDSPRegB4       ;
      mov al,[DSPMem+0B4h]
      ret

NEWSYM RDSPRegB5       ;
      mov al,[DSPMem+0B5h]
      ret

NEWSYM RDSPRegB6       ;
      mov al,[DSPMem+0B6h]
      ret

NEWSYM RDSPRegB7       ;
      mov al,[DSPMem+0B7h]
      ret

NEWSYM RDSPRegB8       ;
      mov al,[DSPMem+0B8h]
      ret

NEWSYM RDSPRegB9       ;
      mov al,[DSPMem+0B9h]
      ret

NEWSYM RDSPRegBA       ;
      mov al,[DSPMem+0BAh]
      ret

NEWSYM RDSPRegBB       ;
      mov al,[DSPMem+0BBh]
      ret

NEWSYM RDSPRegBC       ;
      mov al,[DSPMem+0BCh]
      ret

NEWSYM RDSPRegBD       ;
      mov al,[DSPMem+0BDh]
      ret

NEWSYM RDSPRegBE       ;
      mov al,[DSPMem+0BEh]
      ret

NEWSYM RDSPRegBF       ;
      mov al,[DSPMem+0BFh]
      ret

NEWSYM RDSPRegC0       ;
      mov al,[DSPMem+0C0h]
      ret

NEWSYM RDSPRegC1       ;
      mov al,[DSPMem+0C1h]
      ret

NEWSYM RDSPRegC2       ;
      mov al,[DSPMem+0C2h]
      ret

NEWSYM RDSPRegC3       ;
      mov al,[DSPMem+0C3h]
      ret

NEWSYM RDSPRegC4       ;
      mov al,[DSPMem+0C4h]
      ret

NEWSYM RDSPRegC5       ;
      mov al,[DSPMem+0C5h]
      ret

NEWSYM RDSPRegC6       ;
      mov al,[DSPMem+0C6h]
      ret

NEWSYM RDSPRegC7       ;
      mov al,[DSPMem+0C7h]
      ret

NEWSYM RDSPRegC8       ;
      mov al,[DSPMem+0C8h]
      ret

NEWSYM RDSPRegC9       ;
      mov al,[DSPMem+0C9h]
      ret

NEWSYM RDSPRegCA       ;
      mov al,[DSPMem+0CAh]
      ret

NEWSYM RDSPRegCB       ;
      mov al,[DSPMem+0CBh]
      ret

NEWSYM RDSPRegCC       ;
      mov al,[DSPMem+0CCh]
      ret

NEWSYM RDSPRegCD       ;
      mov al,[DSPMem+0CDh]
      ret

NEWSYM RDSPRegCE       ;
      mov al,[DSPMem+0CEh]
      ret

NEWSYM RDSPRegCF       ;
      mov al,[DSPMem+0CFh]
      ret

NEWSYM RDSPRegD0       ;
      mov al,[DSPMem+0D0h]
      ret

NEWSYM RDSPRegD1       ;
      mov al,[DSPMem+0D1h]
      ret

NEWSYM RDSPRegD2       ;
      mov al,[DSPMem+0D2h]
      ret

NEWSYM RDSPRegD3       ;
      mov al,[DSPMem+0D3h]
      ret

NEWSYM RDSPRegD4       ;
      mov al,[DSPMem+0D4h]
      ret

NEWSYM RDSPRegD5       ;
      mov al,[DSPMem+0D5h]
      ret

NEWSYM RDSPRegD6       ;
      mov al,[DSPMem+0D6h]
      ret

NEWSYM RDSPRegD7       ;
      mov al,[DSPMem+0D7h]
      ret

NEWSYM RDSPRegD8       ;
      mov al,[DSPMem+0D8h]
      ret

NEWSYM RDSPRegD9       ;
      mov al,[DSPMem+0D9h]
      ret

NEWSYM RDSPRegDA       ;
      mov al,[DSPMem+0DAh]
      ret

NEWSYM RDSPRegDB       ;
      mov al,[DSPMem+0DBh]
      ret

NEWSYM RDSPRegDC       ;
      mov al,[DSPMem+0DCh]
      ret

NEWSYM RDSPRegDD       ;
      mov al,[DSPMem+0DDh]
      ret

NEWSYM RDSPRegDE       ;
      mov al,[DSPMem+0DEh]
      ret

NEWSYM RDSPRegDF       ;
      mov al,[DSPMem+0DFh]
      ret

NEWSYM RDSPRegE0       ;
      mov al,[DSPMem+0E0h]
      ret

NEWSYM RDSPRegE1       ;
      mov al,[DSPMem+0E1h]
      ret

NEWSYM RDSPRegE2       ;
      mov al,[DSPMem+0E2h]
      ret

NEWSYM RDSPRegE3       ;
      mov al,[DSPMem+0E3h]
      ret

NEWSYM RDSPRegE4       ;
      mov al,[DSPMem+0E4h]
      ret

NEWSYM RDSPRegE5       ;
      mov al,[DSPMem+0E5h]
      ret

NEWSYM RDSPRegE6       ;
      mov al,[DSPMem+0E6h]
      ret

NEWSYM RDSPRegE7       ;
      mov al,[DSPMem+0E7h]
      ret

NEWSYM RDSPRegE8       ;
      mov al,[DSPMem+0E8h]
      ret

NEWSYM RDSPRegE9       ;
      mov al,[DSPMem+0E9h]
      ret

NEWSYM RDSPRegEA       ;
      mov al,[DSPMem+0EAh]
      ret

NEWSYM RDSPRegEB       ;
      mov al,[DSPMem+0EBh]
      ret

NEWSYM RDSPRegEC       ;
      mov al,[DSPMem+0ECh]
      ret

NEWSYM RDSPRegED       ;
      mov al,[DSPMem+0EDh]
      ret

NEWSYM RDSPRegEE       ;
      mov al,[DSPMem+0EEh]
      ret

NEWSYM RDSPRegEF       ;
      mov al,[DSPMem+0EFh]
      ret

NEWSYM RDSPRegF0       ;
      mov al,[DSPMem+0F0h]
      ret

NEWSYM RDSPRegF1       ;
      mov al,[DSPMem+0F1h]
      ret

NEWSYM RDSPRegF2       ;
      mov al,[DSPMem+0F2h]
      ret

NEWSYM RDSPRegF3       ;
      mov al,[DSPMem+0F3h]
      ret

NEWSYM RDSPRegF4       ;
      mov al,[DSPMem+0F4h]
      ret

NEWSYM RDSPRegF5       ;
      mov al,[DSPMem+0F5h]
      ret

NEWSYM RDSPRegF6       ;
      mov al,[DSPMem+0F6h]
      ret

NEWSYM RDSPRegF7      ;
      mov al,[DSPMem+0F7h]
      ret

NEWSYM RDSPRegF8      ;
      mov al,[DSPMem+0F8h]
      ret

NEWSYM RDSPRegF9      ;
      mov al,[DSPMem+0F9h]
      ret

NEWSYM RDSPRegFA      ;
      mov al,[DSPMem+0FAh]
      ret

NEWSYM RDSPRegFB      ;
      mov al,[DSPMem+0FBh]
      ret

NEWSYM RDSPRegFC      ;
      mov al,[DSPMem+0FCh]
      ret

NEWSYM RDSPRegFD      ;
      mov al,[DSPMem+0FDh]
      ret

NEWSYM RDSPRegFE      ;
      mov al,[DSPMem+0FEh]
      ret

NEWSYM RDSPRegFF      ;
      mov al,[DSPMem+0FFh]
      ret

%macro ProcessGain 1
      push eax
      push ebx
      push edx
      test byte[DSPMem+07h+%1*10h],80h
      jz near %%Direct
      test byte[DSPMem+07h+%1*10h],40h
      jnz near %%Increase
      test byte[DSPMem+07h+%1*10h],20h
      jz %%LinearDec
      xor eax,eax
      mov al,[DSPMem+07h+%1*10h]
      and al,1Fh
      mov ebx,[DecreaseRateExp+eax*4]
      mov dword[Voice0EnvInc+%1*4],007FFFFFh
      shr ebx,5
      mov [Voice0Time+%1*4],ebx
      mov [GainDecBendDataTime+%1*4],ebx
      xor edx,edx
      mov eax,127*65536
      sub eax,118*65536
      mov byte[GainDecBendDataPos+%1],0
      mov byte[GainDecBendDataDat+%1],127
      div ebx
      neg eax
      mov [Voice0IncNumber+%1*4],eax
      pop edx
      pop ebx
      pop eax
      mov byte[Voice0State+%1],7
      ret
%%LinearDec
      xor eax,eax
      mov al,[DSPMem+07h+%1*10h]
      and al,1Fh
      mov ebx,[Decrease+eax*4]
      mov dword[Voice0EnvInc+%1*4],007FFFFFh
      mov [Voice0Time+%1*4],ebx
      xor edx,edx
      mov eax,127*65536
      div ebx
      neg eax
      mov [Voice0IncNumber+%1*4],eax
      pop edx
      pop ebx
      pop eax
      mov byte[Voice0State+%1],5
      ret
%%Increase
      test byte[DSPMem+07h+%1*10h],20h
      jz %%LinearInc
      xor eax,eax
      mov al,[DSPMem+07h+%1*10h]
      and al,1Fh
      mov ebx,[Increase+eax*4]
      mov dword[Voice0EnvInc+%1*4],0
      mov [Voice0Time+%1*4],ebx
      xor edx,edx
      mov eax,127*65536
      div ebx
      mov [Voice0IncNumber+%1*4],eax
      mov ebx,[Voice0Time+%1*4]
      mov eax,ebx
      shr eax,2
      sub ebx,eax
      dec ebx
      mov [Voice0Time+%1*4],ebx
      pop edx
      pop ebx
      pop eax
      mov byte[Voice0State+%1],6
      ret
%%LinearInc
      xor eax,eax
      mov al,[DSPMem+07h+%1*10h]
      and al,1Fh
      mov ebx,[Increase+eax*4]
      mov dword[Voice0EnvInc+%1*4],0
      mov [Voice0Time+%1*4],ebx
      xor edx,edx
      mov eax,127*65536
      div ebx
      mov [Voice0IncNumber+%1*4],eax
      pop edx
      pop ebx
      pop eax
      mov byte[Voice0State+%1],3
      ret
%%Direct
      mov al,[DSPMem+07h+%1*10h]
      and al,7Fh
      mov dword[Voice0EnvInc+%1*4],0
      mov [Voice0EnvInc+%1*4+2],al
      mov dword[Voice0Time+%1*4],0FFFFFFFFh
      mov dword[Voice0IncNumber+%1*4],0
      pop edx
      pop ebx
      pop eax
      mov byte[Voice0State+%1],4
      ret
%endmacro

%macro ProcessGain2 1
      push eax
      push ebx
      push edx
      test byte[DSPMem+07h+%1*10h],80h
      jz near %%Direct
      test byte[DSPMem+07h+%1*10h],40h
      jnz near %%Increase
      test byte[DSPMem+07h+%1*10h],20h
      jz %%LinearDec
      xor eax,eax
      mov al,[DSPMem+07h+%1*10h]
      and al,1Fh
      mov ebx,[DecreaseRateExp+eax*4]
      shr ebx,5
      mov [Voice0Time+%1*4],ebx
      mov [GainDecBendDataTime+%1*4],ebx
      xor edx,edx
      mov dh,118
      mov dl,[Voice0EnvInc+%1*4+2]
      xor eax,eax
      mov al,[VolumeConvTable+edx*2]
      xor edx,edx
      shl eax,16
      mov dl,[Voice0EnvInc+%1*4+2]
      neg eax
      shl edx,16
      add eax,edx
      xor edx,edx
      mov byte[GainDecBendDataPos+%1],0
      div ebx
      neg eax
      mov [Voice0IncNumber+%1*4],eax
      mov al,[Voice0EnvInc+%1*4+2]
      mov [GainDecBendDataDat+%1],al
      pop edx
      pop ebx
      pop eax
      mov byte[Voice0State+%1],7
      ret
%%LinearDec
      xor eax,eax
      mov al,[DSPMem+07h+%1*10h]
      and al,1Fh
      mov ebx,[Decrease+eax*4]
      mov [Voice0Time+%1*4],ebx
      xor edx,edx
      xor eax,eax
      mov al,[Voice0EnvInc+%1*4+2]
      shl eax,16
      div ebx
      neg eax
      mov [Voice0IncNumber+%1*4],eax
      pop edx
      pop ebx
      pop eax
      mov byte[Voice0State+%1],5
      ret
%%Increase
      test byte[DSPMem+07h+%1*10h],20h
      jz %%LinearInc
      xor eax,eax
      mov al,[DSPMem+07h+%1*10h]
      and al,1Fh
      mov ebx,[Increase+eax*4]
      mov [Voice0Time+%1*4],ebx
      xor edx,edx
      xor eax,eax
      mov al,[Voice0EnvInc+%1*4+2]
      inc al
      test al,80h
      jz %%noof
      mov al,127
%%noof
      xor al,127
      shl eax,16
      div ebx
      mov [Voice0IncNumber+%1*4],eax
      mov ebx,[Voice0Time+%1*4]
      mov eax,ebx
      shr eax,2
      sub ebx,eax
      dec ebx
      mov [Voice0Time+%1*4],ebx
      pop edx
      pop ebx
      pop eax
      mov byte[Voice0State+%1],6
      ret
%%LinearInc
      xor eax,eax
      mov al,[DSPMem+07h+%1*10h]
      and al,1Fh
      mov ebx,[Increase+eax*4]
      mov [Voice0Time+%1*4],ebx
      xor edx,edx
      xor eax,eax
      mov al,[Voice0EnvInc+%1*4+2]
      inc al
      test al,80h
      jz %%noof2
      mov al,127
%%noof2
      xor al,127
      shl eax,16
      div ebx
      mov [Voice0IncNumber+%1*4],eax
      pop edx
      pop ebx
      pop eax
      mov byte[Voice0State+%1],3
      ret
%%Direct
      mov al,[DSPMem+07h+%1*10h]
      and al,7Fh
      mov dword[Voice0EnvInc+%1*4],0
      mov [Voice0EnvInc+%1*4+2],al
      mov dword[Voice0Time+%1*4],0FFFFFFFFh
      mov dword[Voice0IncNumber+%1*4],0
      pop edx
      pop ebx
      pop eax
      mov byte[Voice0State+%1],4
      ret
%%end
      pop edx
      pop ebx
      pop eax
      ret
%endmacro


%macro SwitchSustain 1
      push eax
      push ebx
      push edx
      mov al,[Voice0EnvInc+%1*4+2]
      mov [GainDecBendDataDat+%1],al
      cmp byte[Voice0State+%1],8
      je %%full
      cmp byte[Voice0State+%1],2
      jae %%nofull
%%full
      mov byte[GainDecBendDataDat+%1],7Fh
%%nofull
      mov al,[DSPMem+05h+%1*10h]
      shr al,4
      and eax,07h
      mov edx,[DecayRate+eax*4]
      xor eax,eax
      mov al,[DSPMem+06h+%1*10h]
      and al,1Fh
      mov ebx,[SustainRate+eax*4]
      cmp edx,ebx
      jae near %%decayover
      ; ebx = total sustain time
      xor eax,eax
      mov al,[DSPMem+06h+%1*10h]
      shr al,5
      mov al,[AdsrSustLevLoc+eax]
      ; traverse through al entries in edx time
      ; then through 64-al entries in ebx-edx time
      mov [AdsrBlocksLeft+%1],al
      sub ebx,edx
      push ebx
      push eax
      mov ebx,eax
      mov eax,edx
      xor edx,edx
      or ebx,ebx
      jz .oopszero
      div ebx
.oopszero
      mov [Voice0Time+%1*4],eax
      mov [GainDecBendDataTime+%1*4],eax
      pop eax
      pop ebx
      mov edx,ebx
      mov ebx,64
      sub bl,al
      mov eax,edx
      xor edx,edx
      div ebx
      mov [AdsrNextTimeDepth+%1*4],eax
      mov dword[Voice0EnvInc+%1*4],0
      mov al,[GainDecBendDataDat+%1]
      mov [Voice0EnvInc+%1*4+2],al
      mov ebx,[Voice0Time+%1*4]
      xor edx,edx

      mov dh,122
      mov dl,[Voice0EnvInc+%1*4+2]
      xor eax,eax
      mov al,[VolumeConvTable+edx*2]
      xor edx,edx
      shl eax,16
      mov dl,[Voice0EnvInc+%1*4+2]
      neg eax
      shl edx,16
      add eax,edx
      xor edx,edx
      mov byte[GainDecBendDataPos+%1],0
      div ebx
      neg eax
      mov [Voice0IncNumber+%1*4],eax
      pop edx
      pop ebx
      pop eax
      mov byte[Voice0State+%1],9
      ret
%%decayover
      sub edx,ebx
      push ebx
      mov eax,edx
      xor ebx,ebx
      mov bl,[DSPMem+06h+%1*10h]
      shr bl,5
      xor bl,07h
      mul ebx
      mov ebx,7
      div ebx
      pop ebx
      add ebx,eax
      mov dword[Voice0EnvInc+%1*4],007FFFFFh
      shr ebx,5
      mov [Voice0Time+%1*4],ebx
      mov [GainDecBendDataTime+%1*4],ebx
      xor edx,edx