Common COMCIQP

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comciqp +++|          CTEXT  COMCIQP - IQFT FILE PROCESSORS.
00002  M01S00002.comciqp +++|          SPACE  4
00003  M01S00003.comciqp +++|          IF     -DEF,QUAL$,1
00004  M01S00004.comciqp +++|          QUAL   COMCIQP
00005  M01S00005.comciqp +++|          BASE   D

Line S00006 Modification History
`M01` (Added by)	`comciqp`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP.  1975.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.comciqp +++| IQP      SPACE  4
00009  M01S00008.comciqp +++|***       COMCIQP - IQFT FILE PROCESSORS.
00010  M01S00009.comciqp +++|*         A. J. BEEKMAN.     76/02/27.
00011  M01S00010.comciqp +++|          SPACE  4
00012  M01S00011.comciqp +++|***       COMCIQP CONTAINS ROUTINES THAT RETURN AND ATTACH
00013  M01S00012.comciqp +++|*         IQFT FILES.  THIS COMMON DECK REQUIRES COMMON DECKS
00014  M01S00013.comciqp +++|*         COMSIOQ AND COMCQFM.
00015  M01S00014.comciqp +++|          SPACE  4
00016  M01S00015.comciqp +++|***       ENTRY CONDITIONS.
00017  M01S00016.comciqp +++|*
00018  M01S00017.comciqp +++|*         THE FOLLOWING ADDRESSES ARE REQUIRED BY CERTAIN ROUTINES
00019  M01S00018.comciqp +++|*         IN THIS COMMON DECK -
00020  M01S00019.comciqp +++|*
00021  M01S00020.comciqp +++|*                IBUFL - DEFAULT IQFT BUFFER LENGTH.
00022  M01S00021.comciqp +++|*                BUFFL - DEFAULT END OF PROGRAM BUFFERS LENGTH.
00023  M01S00022.comciqp +++| ATT      SPACE  4,20
00024  M01S00023.comciqp +++|**        ATT - ATTACH IQFT FILE.
00025  M01S00024.comciqp +++|*
00026  M01S00025.comciqp +++|*         ATTACH THE IQFT FILE AND POSITION THE FILE AT EOI.
00027  M01S00026.comciqp +++|*

Line S00027 Modification History
`M01` (Added by)	`comciqp`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00028  M02S00027.ns22000 ---|*         ENTRY  (X2) = EQUIPMENT NUMBER.
00029  M01S00001.ns22000 +++|*         ENTRY  (X2) = EST ORDINAL.
00030  M01S00028.comciqp +++|*                (X3) = IQFT FET ADDRESS.
00031  M01S00029.comciqp +++|*
00032  M01S00030.comciqp +++|*         EXIT   (X2) = IQFT FET ADDRESS.
00033  M01S00031.comciqp +++|*                (X5) = 0 IF FILE ATTACHED SUCCESSFULLY.
00034  M01S00032.comciqp +++|*                     .NE. 0 IF ERROR IN FILE ATTACH.
00035  M01S00033.comciqp +++|*
00036  M01S00034.comciqp +++|*         USES   X - 0, 1, 2, 5, 6, 7.
00037  M01S00035.comciqp +++|*                A - 5, 6, 7.
00038  M01S00036.comciqp +++|*
00039  M01S00037.comciqp +++|*         MACROS QCALL.
00040  M01S00038.comciqp +++|*
00041  M01S00039.comciqp +++|*         XREF   COMCQFM, COMSIOQ.
00042  M01S00040.comciqp +++|
00043  M01S00041.comciqp +++|
00044  M01S00042.comciqp +++| ATT      SUBR               ENTRY/EXIT
00045  M01S00043.comciqp +++|          MX0    12

Line S00044 Modification History
`M01` (Added by)	`comciqp`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00046  M02S00044.ns22000 ---|          LX2    48          EQUIPMENT NUMBER
00047  M01S00002.ns22000 +++|          LX2    48          EST ORDINAL
00048  M01S00045.comciqp +++|          SA5    X3+7
00049  M01S00046.comciqp +++|          SX1    IQFT*10000B SET SUBFUNCTION FOR IQFT
00050  M01S00047.comciqp +++|          BX5    -X0*X5
00051  M01S00048.comciqp +++|          LX0    24
00052  M01S00049.comciqp +++|          IX6    X2+X5
00053  M01S00050.comciqp +++|          BX6    -X0*X6
00054  M01S00051.comciqp +++|          IX6    X6+X1
00055  M01S00052.comciqp +++|          SA6    A5
00056  M01S00053.comciqp +++|
00057  M01S00054.comciqp +++|*         ATTACH IQFT FILE.
00058  M01S00055.comciqp +++|
00059  M01S00056.comciqp +++|          SX0    36000B      CLEAR ERROR FLAGS
00060  M01S00057.comciqp +++|          SA5    X3
00061  M01S00058.comciqp +++|          BX7    -X0*X5
00062  M01S00059.comciqp +++|          SA7    A5
00063  M01S00060.comciqp +++|          QCALL  ATQF,X3     ATTACH FILE
00064  M01S00061.comciqp +++|          SA5    A5
00065  M01S00062.comciqp +++|          BX5    X0*X5
00066  M01S00063.comciqp +++|          NZ     X5,ATTX     IF ERROR IN ATTACHING FILE
00067  M01S00064.comciqp +++|          SX6    B1+
00068  M01S00065.comciqp +++|          SA6    ATTA        FLAG FILE ATTACH
00069  M01S00066.comciqp +++|          EQ     ATTX
00070  M01S00067.comciqp +++|
00071  M01S00068.comciqp +++| ATTA     CON    0           FILE ATTACHED FLAG
00072  M01S00069.comciqp +++| RAF      SPACE  4,20
00073  M01S00070.comciqp +++|**        RAF - RETURN ATTACHED IQFT FILE.
00074  M01S00071.comciqp +++|*
00075  M01S00072.comciqp +++|*         RELEASE ATTACHED IQFT FILES IF PRESENT.
00076  M01S00073.comciqp +++|*
00077  M01S00074.comciqp +++|*         ENTRY  (X3) = IQFT FET ADDRESS.
00078  M01S00075.comciqp +++|*                (ATTA) .NE. 0 IF IQFT FILE ATTACHED.
00079  M01S00076.comciqp +++|*
00080  M01S00077.comciqp +++|*         EXIT   (X3) = IQFT FET ADDRESS.
00081  M01S00078.comciqp +++|*                (ATTA) = 0.
00082  M01S00079.comciqp +++|*                FILE RETURNED IF PRESENT.
00083  M01S00080.comciqp +++|*
00084  M01S00081.comciqp +++|*         USES   X - 5, 6.
00085  M01S00082.comciqp +++|*                A - 5, 6.
00086  M01S00083.comciqp +++|*
00087  M01S00084.comciqp +++|*         MACROS QCALL.
00088  M01S00085.comciqp +++|*
00089  M01S00086.comciqp +++|*         XREF   COMCQFM, COMSIOQ.
00090  M01S00087.comciqp +++|
00091  M01S00088.comciqp +++|
00092  M01S00089.comciqp +++| RAF      SUBR               ENTRY/EXIT
00093  M01S00090.comciqp +++|          SA5    ATTA
00094  M01S00091.comciqp +++|          ZR     X5,RAFX     IF NO FILE ATTACHED
00095  M01S00092.comciqp +++|          QCALL  DTQF,X3     RETURN IQFT FILE
00096  M01S00093.comciqp +++|          BX6    X6-X6       CLEAR FLAG
00097  M01S00094.comciqp +++|          SA6    A5
00098  M01S00095.comciqp +++|          EQ     RAFX
00099  M01S00096.comciqp +++|          SPACE  4
00100  M01S00097.comciqp +++|          BASE   *
00101  M01S00098.comciqp +++| QUAL$    IF     -DEF,QUAL$
00102  M01S00099.comciqp +++|          QUAL   *
00103  M01S00100.comciqp +++| ATT      EQU    /COMCIQP/ATT
00104  M01S00101.comciqp +++| ATTA     EQU    /COMCIQP/ATTA
00105  M01S00102.comciqp +++| RAF      EQU    /COMCIQP/RAF
00106  M01S00103.comciqp +++| QUAL$    ENDIF
00107  M01S00104.comciqp +++|          ENDX