COMCQFM 
COMMON
          CTEXT  COMCQFM - QUEUE FILE MANAGER PROCESSOR.
 QFM      SPACE  4
          IF     -DEF,QUAL$,1 
          QUAL   COMCQFM
          BASE   D
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 QFM      SPACE  4
***       QFM - QUEUE FILE MANAGER PROCESSOR. 
*         R. A. JAPS         74/01/28.
 QFM      SPACE  4
***              QFM PROCESSES REQUESTS FOR THE QUEUE FILE MANAGER PP 
*         PROGRAM *QFM*.
*         IF THE SPECIFIED FET IS BUSY, A FILE RECALL IS PERFORMED. 
*         IF THE SPECIFIED FET IS ZERO, QFM 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=.
  
  
 QFM2     RJ     =XSYS= 
  
 QFM      PS                 ENTRY/EXIT 
          SA1    X2          CHECK FILE STATUS
          LX1    59 
          NG     X1,QFM1     IF NOT BUSY
          ZR     X1,QFM      IF NO FET
          RECALL X2 
 QFM1     SA1    X2          SET FET BUSY 
          MX6    59 
          BX6    X6*X1
          SA6    A1 
          SA1    QFMA        SET *QFM* REQUEST
          LX7    24 
          BX1    X1+X7
          SX2    X2 
          BX6    X1+X2
          EQ     QFM2 
  
 QFMA     CON    0LQFM+1S40 
          SPACE  4
          BASE   *
 QUAL$    IF     -DEF,QUAL$ 
          QUAL   *
 QFM      EQU    /COMCQFM/QFM 
 QUAL$    ENDIF 
          ENDX
