            EDIT            OFF
            FORMAT          NEW
            IDENT           cs_getfp$s
cs_getfp    SECTION         CODE
cs_getfp    =               P.*
	    A1              B02
            S1              A1
            J               B00
	    ENTRY           cs_getfp
            END
