COMCSFM 
COMMON
          CTEXT  COMCSFM - SYSTEM FILE MANAGER PROCESSOR. 
 SFM      SPACE  4
          IF     -DEF,QUAL$,1 
          QUAL   COMCSFM
          BASE   D
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 SFM      SPACE  4
***       SFM - SYSTEM FILE MANAGER PROCESSOR.
*         G. R. MANSFIELD.  70/10/09. 
 SFM      SPACE  4
***              SFM PROCESSES REQUESTS FOR THE SYSTEM FILE MANAGER PP
*         PROGRAM *SFM*.
*         IF THE SPECIFIED FET IS BUSY, A FILE RECALL IS PERFORMED. 
*         IF THE SPECIFIED FET IS BLANK, SFM RETURNS WITH NO ACTION 
*         TAKEN.
* 
*         ENTRY  (X2) = ADDRESS OF FET. 
*                (X7) = FUNCTION CODE.
* 
*         EXIT   (X2) = ADDRESS OF FET. 
* 
*         USES   X - 1, 6, 7. 
*                B - NONE.
*                A - 1. 
* 
*         CALLS  SYS=.
  
  
 SFM2     RJ     =XSYS= 
  
 SFM      PS                 ENTRY/EXIT 
          SA1    X2          CHECK FILE STATUS
          LX1    59 
          NG     X1,SFM1     IF NOT BUSY
          ZR     X1,SFM      RETURN IF BLANK FET
          RECALL X2 
 SFM1     SA1    X2          SET FET BUSY 
          MX6    59 
          BX6    X6*X1
          SA6    A1 
          SA1    SFMA        SET *SFM* REQUEST
          LX7    24 
          BX1    X1+X7
          SX2    X2 
          BX6    X1+X2
          EQ     SFM2 
  
 SFMA     CON    0LSFM+1S40 
          SPACE  4
          BASE   *
 QUAL$    IF     -DEF,QUAL$ 
          QUAL   *
 SFM      EQU    /COMCSFM/SFM 
 QUAL$    ENDIF 
          ENDX
