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