Common COMSPFU

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comspfu +++|          CTEXT  COMSPFU - PERMANENT FILE UTILITIES EQUIVALENCES.
00002  M00S00002.comspfu +++|          SPACE  4

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

Seq #  *Modification Id* Act 
----------------------------+
00003  M01S00003.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1973.

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

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M00S00004.comspfu +++|          SPACE  4
00006  M00S00005.comspfu +++|***       COMSPFU - PERMANENT FILE UTILITIES EQUIVALENCES.
00007  M00S00006.comspfu +++|*         D. A. HIVELEY.  70/11/20.
00008  M00S00007.comspfu +++|*         S. T. WORSTELL.    73/02/15.
00009  M00S00008.comspfu +++|          SPACE  4
00010  M00S00009.comspfu +++|***              COMSPFU DEFINES EQUIVALENCES NEEDED TO COMMUNICATE
00011  M00S00010.comspfu +++|*         WITH *PFU* AND DESCRIPTIONS OF PERMANENT FILE ARCHIVE FILE
00012  M00S00011.comspfu +++|*         FORMATS.
00013  M00S00012.comspfu +++| CALLPFU  SPACE  4
00014  M00S00013.comspfu +++|**        CALLPFU - CALL PERMANENT FILE UTILITY.
00015  M00S00014.comspfu +++|*
00016  M00S00015.comspfu +++|*         CALLPFU FET,FN,RCL
00017  M00S00016.comspfu +++|*
00018  M00S00017.comspfu +++|*                FET = FET ADDRESS.
00019  M00S00018.comspfu +++|*                FN = PFU FUNCTION CODE.
00020  M00S00019.comspfu +++|*                RCL = NON-NULL TO CALL FPU WITH AUTO RECALL.
00021  M00S00020.comspfu +++|*
00022  M00S00021.comspfu +++|*         CALLS  PFU.
00023  M00S00022.comspfu +++|
00024  M00S00023.comspfu +++|
00025  M00S00024.comspfu +++|          PURGMAC CALLPFU
00026  M00S00025.comspfu +++|
00027  M00S00026.comspfu +++| CALLPFU  MACRO  FET,FN,RCL
00028  M00S00027.comspfu +++|          MACREF CALLPFU
00029  M00S00028.comspfu +++|          R=     X2,FET
00030  M00S00029.comspfu +++|          R=     X7,FN
00031  M00S00030.comspfu +++|*                            PROCESS AUTO RECALL.
00032  M00S00031.comspfu +++|          IFC    NE,$RCL$$,1
00033  M00S00032.comspfu +++|          BX7    -X7
00034  M00S00033.comspfu +++|          RJ     PFU
00035  M00S00034.comspfu +++|          ENDM
00036  M00S00035.comspfu +++|          SPACE  4
00037  M00S00036.comspfu +++|****      *PFU* FUNCTION CODES.
00038  M00S00037.comspfu +++|
00039  M00S00038.comspfu +++|
00040  M00S00039.comspfu +++| CTOP     EQU    0           OPEN FILE (NO LOCKOUT)
00041  M00S00040.comspfu +++| CTOL     EQU    CTOP+100B   OPEN FILE (LOCKOUT)
00042  M00S00041.comspfu +++| CTAC     EQU    CTOL+100B   ADVANCE CATALOG TRACK
00043  M00S00042.comspfu +++| CTRL     EQU    CTAC+100B   *PFDUMP* READ LIST
00044  M00S00043.comspfu +++| CTLM     EQU    CTRL+100B   *PFLOAD* MAIN LOOP
00045  M00S00044.comspfu +++| CTSU     EQU    CTLM+100B   SET PERMANENT FILE UTILITY INTERLOCK
00046  M00S00045.comspfu +++| CTCU     EQU    CTSU+100B   CLEAR PERMANENT FILE UTILITY INTERLOCK
00047  M00S00046.comspfu +++| CTRC     EQU    CTCU+100B   REWIND CATALOG FILE
00048  M00S00047.comspfu +++| CTCF     EQU    CTRC+100B   UNUSED
00049  M00S00048.comspfu +++| CTFL     EQU    CTCF+100B   SET FILE LENGTH
00050  M00S00049.comspfu +++| CTSC     EQU    CTFL+100B   SET CATALOG TRACK INTERLOCK
00051  M00S00050.comspfu +++| CTCC     EQU    CTSC+100B   CLEAR CATALOG TRACK INTERLOCK
00052  M00S00051.comspfu +++| CTEI     EQU    CTCC+100B   SET DEVICE ERROR IDLE STATUS
00053  M00S00052.comspfu +++| CTCT     EQU    CTEI+100B   LOCATE CATALOG TRACK
00054  M00S00053.comspfu +++| CTIA     EQU    CTCT+100B   INCREMENT PERMANENT FILE ACTIVITY COUNT
00055  M00S00054.comspfu +++| CTDA     EQU    CTIA+100B   DECREMENT PERMANENT FILE ACTIVITY COUNT
00056  M00S00055.comspfu +++| CTTU     EQU    CTDA+100B   TEST PERMANENT FILE UTILITY INTERLOCK
00057  M00S00056.comspfu +++| CTGE     EQU    CTTU+100B   GET MSS CATALOG MODIFY MODE INTERLOCK
00058  M00S00057.comspfu +++| CTRE     EQU    CTGE+100B   RELEASE MSS CATALOG MODIFY MODE INTERLOCK
00059  M00S00058.comspfu +++| CTSR     EQU    CTRE+100B   STAGE FILE FROM CARTRIDGE
00060  M00S00059.comspfu +++| CTUU     EQU    CTSR+100B   UPDATE UTILITY CONTROL DATE/TIME
00061  M00S00060.comspfu +++| CTGU     EQU    CTUU+100B   GET MSS CATALOG UPDATE MODE INTERLOCK
00062  M00S00061.comspfu +++| CTRU     EQU    CTGU+100B   RELEASE MSS CATALOG UPDATE MODE INTERLOCK
00063  M00S00062.comspfu +++| CTSL     EQU    CTRU+100B   SET *TFLOK* FLAG IN PFC ENTRY

Line S00001 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
00064  M01S00001.286l859 +++| CTPC     EQU    CTSL+100B   POSITION CATALOG FILE
00065  M00S00063.comspfu +++|          SPACE  4
00066  M00S00064.comspfu +++|**        FET EQUIVALENCES USED BY PFU.
00067  M00S00065.comspfu +++|
00068  M00S00066.comspfu +++|
00069  M00S00067.comspfu +++| FTFT     EQU    1           FET - *FIRST* POINTER
00070  M00S00068.comspfu +++| FTIN     EQU    2           FET - *IN* POINTER
00071  M00S00069.comspfu +++| FTOT     EQU    3           FET - *OUT* POINTER
00072  M00S00070.comspfu +++| FTLM     EQU    4           FET - *LIMIT* POINTER
00073  M00S00071.comspfu +++| FTSC     EQU    6           FET - SECTOR COUNT
00074  M00S00072.comspfu +++| FTRE     EQU    6           FET - RECOVERY WORD
00075  M00S00073.comspfu +++| FTDW     EQU    7           FET - DATA WORD (FOR *PFDUMP* READ LIST)
00076  M00S00074.comspfu +++| FTDL     EQU    10B         FET - DATA LIST
00077  M00S00075.comspfu +++| FTCA     EQU    10B         FET - CATALOG ADDRESS
00078  M00S00076.comspfu +++| FTPM     EQU    11B         FET - PARAMETER WORD
00079  M00S00077.comspfu +++|          SPACE  4,10
00080  M00S00078.comspfu +++|**        FET ERROR STATUS CODES.
00081  M00S00079.comspfu +++|
00082  M00S00080.comspfu +++|
00083  M00S00081.comspfu +++| FEWE     EQU    1           WRITE ERROR STATUS
00084  M00S00082.comspfu +++|*                            (DATA TRANSFERRED TO DEVICE)
00085  M00S00083.comspfu +++| FEWN     EQU    2           WRITE ERROR STATUS
00086  M00S00084.comspfu +++|*                            (NO DATA TRANSFERRED TO DEVICE)
00087  M00S00085.comspfu +++| FETL     EQU    3           TRACK LIMIT ERROR STATUS
00088  M00S00086.comspfu +++| FEEI     EQU    4           ERROR IDLE ERROR STATUS
00089  M00S00087.comspfu +++|          SPACE  4
00090  M00S00088.comspfu +++|          ENDX