Common COMCQFM

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comcqfm +++|          CTEXT  COMCQFM - QUEUE FILE MANAGER PROCESSOR.
00002  M00S00002.comcqfm +++| QFM      SPACE  4
00003  M00S00003.comcqfm +++|          IF     -DEF,QUAL$,1
00004  M00S00004.comcqfm +++|          QUAL   COMCQFM
00005  M00S00005.comcqfm +++|          BASE   D

Line S00006 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1974.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.comcqfm +++| QFM      SPACE  4
00009  M00S00008.comcqfm +++|***       QFM - QUEUE FILE MANAGER PROCESSOR.
00010  M00S00009.comcqfm +++|*         R. A. JAPS         74/01/28.
00011  M00S00010.comcqfm +++| QFM      SPACE  4
00012  M00S00011.comcqfm +++|***              QFM PROCESSES REQUESTS FOR THE QUEUE FILE MANAGER PP
00013  M00S00012.comcqfm +++|*         PROGRAM *QFM*.
00014  M00S00013.comcqfm +++|*         IF THE SPECIFIED FET IS BUSY, A FILE RECALL IS PERFORMED.
00015  M00S00014.comcqfm +++|*         IF THE SPECIFIED FET IS ZERO, QFM RETURNS WITH NO ACTION
00016  M00S00015.comcqfm +++|*         TAKEN.
00017  M00S00016.comcqfm +++|*
00018  M00S00017.comcqfm +++|*         ENTRY  (X2) = ADDRESS OF FET.
00019  M00S00018.comcqfm +++|*                (X7) = FUNCTION CODE.
00020  M00S00019.comcqfm +++|*
00021  M00S00020.comcqfm +++|*         EXIT   (X2) = ADDRESS OF FET.
00022  M00S00021.comcqfm +++|*
00023  M00S00022.comcqfm +++|*         USES   X - 1, 6, 7.
00024  M00S00023.comcqfm +++|*                B - NONE.
00025  M00S00024.comcqfm +++|*                A - 1.
00026  M00S00025.comcqfm +++|*
00027  M00S00026.comcqfm +++|*         CALLS  SYS=.
00028  M00S00027.comcqfm +++|
00029  M00S00028.comcqfm +++|
00030  M00S00029.comcqfm +++| QFM2     RJ     =XSYS=
00031  M00S00030.comcqfm +++|
00032  M00S00031.comcqfm +++| QFM      PS                 ENTRY/EXIT
00033  M00S00032.comcqfm +++|          SA1    X2          CHECK FILE STATUS
00034  M00S00033.comcqfm +++|          LX1    59
00035  M00S00034.comcqfm +++|          NG     X1,QFM1     IF NOT BUSY
00036  M00S00035.comcqfm +++|          ZR     X1,QFM      IF NO FET
00037  M00S00036.comcqfm +++|          RECALL X2
00038  M00S00037.comcqfm +++| QFM1     SA1    X2          SET FET BUSY
00039  M00S00038.comcqfm +++|          MX6    59
00040  M00S00039.comcqfm +++|          BX6    X6*X1
00041  M00S00040.comcqfm +++|          SA6    A1
00042  M00S00041.comcqfm +++|          SA1    QFMA        SET *QFM* REQUEST
00043  M00S00042.comcqfm +++|          LX7    24
00044  M00S00043.comcqfm +++|          BX1    X1+X7
00045  M00S00044.comcqfm +++|          SX2    X2
00046  M00S00045.comcqfm +++|          BX6    X1+X2
00047  M00S00046.comcqfm +++|          EQ     QFM2
00048  M00S00047.comcqfm +++|
00049  M00S00048.comcqfm +++| QFMA     CON    0LQFM+1S40
00050  M00S00049.comcqfm +++|          SPACE  4
00051  M00S00050.comcqfm +++|          BASE   *
00052  M00S00051.comcqfm +++| QUAL$    IF     -DEF,QUAL$
00053  M00S00052.comcqfm +++|          QUAL   *
00054  M00S00053.comcqfm +++| QFM      EQU    /COMCQFM/QFM
00055  M00S00054.comcqfm +++| QUAL$    ENDIF
00056  M00S00055.comcqfm +++|          ENDX