COMPCFP 
COMMON
          CTEXT  COMPCFP - CLEAR FORMAT PENDING IN MST. 
          IF     -DEF,QUAL$,1 
          QUAL   COMPCFP
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4
***       CFP - CLEAR FORMAT PENDING IN MST.
* 
*         R. L. CLAESON      75/01/30.
          SPACE  4
***       CFP CLEARS THE FORMAT PENDING BIT IN THE MST. 
* 
*         ENTRY  (A) = EST ORDINAL. 
* 
*         EXIT   FORMAT PENDING IS CLEARED IF XXX IS A VALID MASS 
*                STORAGE DEVICE.
* 
*                REQUEST IS IGNORED IF XXX IS NOT A VALID MASS STORAGE
*                EST ORDINAL. 
* 
*         USES   T1, CM - CM+4. 
* 
*         MACROS MONITOR, SFA.
  
  
 CFP      SUBR               ENTRY/EXIT 
          STD    T1 
          LDN    ESTP        READ EST POINTER 
          CRD    CM 
          LDD    T1          IGNORE NON - MASS STORAGE DEVICES
          SBD    CM+3 
          PJN    CFPX        IF .GT. MAXIMUM MS DEVICE
          SFA    EST,T1      READ EST ENTRY 
          ADK    EQDE 
          CRD    CM 
          LDD    CM          CHECK IF MASS STORAGE
          SHN    21-13
          PJN    CFPX        IF NOT MASS STORAGE
          LDD    T1          SET EST ORDINAL
          STD    CM+1 
          LDN    59D         SET FORMAT PENDING BIT 
          STD    CM+2 
          LDN    CLBS        SET CLEAR LOCAL BIT FUNCTION 
          STD    CM+3 
          LDN    0
          STD    CM+4 
          MONITOR  SMDM 
          LJM    CFPX        RETURN 
          SPACE  4
 QUAL$    IF     -DEF,QUAL$ 
          QUAL   *
 CFP      EQU    /COMPCFP/CFP 
 QUAL$    ENDIF 
          ENDX
