$FOR/LI:(DB0:CSMP1) DB0:CSMP1.FOR