;sample reverb program for FV-1 ;minimize number of delays and ops. ;4 aps driving 2 AP-delay loops ;drive both loop elements, take output from each ;no pot controls ;output is full reverb, not mixed ;22 operations (of 128) mem api1 122 mem api2 303 mem api3 553 mem api4 922 mem ap1 3823 mem del1 8500 ;input = left output mem ap2 4732 mem del2 7234 ;input = right output equ krt 0.7 ;adjust reverb time equ kap 0.625 ;adjust AP coefficients equ apout reg0 ;holding reg input AP signal ;input all passes (2) rdax adcl,0.25 ;read inputs, rdax adcr,0.25 ;attenuate, sum and rda api1#,kap ;do 4 APs wrap api1,-kap rda api2#,kap wrap api2,-kap rda api3#,kap wrap api3,-kap rda api4#,kap wrap api4,-kap wrax apout,1 ;write to min, keep in ACC ;first loop apd: ;AP'd input in ACC rda del2#,krt ;read del2, scale by Krt rda ap1#,-kap ;do loop ap wrap ap1,kap wra del1,1.99 ;write delay, x2 for dac out wrax dacl,0 ;second loop apd: rdax apout,1 ;get input signal again rda del1#,krt ;as above, to other side of loop rda ap2#,kap wrap ap2,-kap wra del2,1.99 wrax dacr,0 我爱AV,haose,吾爱av,奇米色,奇米网,奇米影视,奇米第四色在线影院