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