MACRO   SMOOTH(IN,DEL)
L       SMOOTH.K=SMOOTH.J+DT*(IN.J-SMOOTH.J)/DEL
N       SMOOTH=IN
MEND
MACRO   DELAY1(IN,DEL)
A       DELAY1.K=$LV/DEL
L       $LV.K=$LV.J+DT*(IN.JK-DELAY1.J)
N       $LV=DEL*IN
MEND
MACRO   DELAY3(IN,DEL)
A       DELAY3.K=$LV3.K/$DL.K
L       $LV3.K=$LV3.J+DT*($RT2.JK-DELAY3.J)
N       $LV3=$DL*IN
R       $RT2.KL=$LV2.K/$DL.K
L       $LV2.K=$LV2.J+DT*($RT1.JK-$RT2.JK)
N       $LV2=$LV3
R       $RT1.KL=$LV1.K/$DL.K
L       $LV1.K=$LV1.J+DT*(IN.JK-$RT1.JK)
N       $LV1=$LV3
A       $DL.K=DEL/3
MEND
MACRO DELAYP(IN,DEL,PPL)
A       PPL.K=$LV3.K+$LV2.K+$LV1.K
A       DELAY3.K=$LV3.K/$DL.K
L       $LV3.K=$LV3.J+DT*($RT2.JK-DELAY3.J)
N       $LV3=$DL*IN
R       $RT2.KL=$LV2.K/$DL.K
L       $LV2.K=$LV2.J+DT*($RT1.JK-$RT2.JK)
N       $LV2=$LV3
R       $RT1.KL=$LV1.K/$DL.K
L       $LV1.K=$LV1.J+DT*(IN.JK-$RT1.JK)
N       $LV1=$LV3
A       $DL.K=DEL/3
MEND

