adrem
adsp = adrem = 0;
if (adrem % t.Adj)
adrem = (adrem / resol) * resol;
if (adrem) {
if (adrem < 0) {
adrem += resol;
} else if ((totout & 01) || adrem / resol >= nwd) {
adrem -= resol;
adsp = adrem = 0;
adrem = nel - adsp*(nwd-1);
adsp = adrem = 0;
ne = adsp = adrem = 0;