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