COMSPFU 
COMMON
          CTEXT  COMSPFU - PERMANENT FILE UTILITIES EQUIVALENCES. 
          SPACE  4
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4
***       COMSPFU - PERMANENT FILE UTILITIES EQUIVALENCES.
*         D. A. HIVELEY.  70/11/20. 
*         S. T. WORSTELL.    73/02/15.
          SPACE  4
***              COMSPFU DEFINES EQUIVALENCES NEEDED TO COMMUNICATE 
*         WITH *PFU* AND DESCRIPTIONS OF PERMANENT FILE ARCHIVE FILE
*         FORMATS.
 CALLPFU  SPACE  4
**        CALLPFU - CALL PERMANENT FILE UTILITY.
* 
*         CALLPFU FET,FN,RCL
* 
*                FET = FET ADDRESS. 
*                FN = PFU FUNCTION CODE.
*                RCL = NON-NULL TO CALL FPU WITH AUTO RECALL. 
* 
*         CALLS  PFU. 
  
  
          PURGMAC CALLPFU 
  
 CALLPFU  MACRO  FET,FN,RCL 
          MACREF CALLPFU
          R=     X2,FET 
          R=     X7,FN
*                            PROCESS AUTO RECALL. 
          IFC    NE,$RCL$$,1
          BX7    -X7
          RJ     PFU
          ENDM
          SPACE  4
****      *PFU* FUNCTION CODES. 
  
  
 CTOP     EQU    0           OPEN FILE (NO LOCKOUT) 
 CTOL     EQU    CTOP+100B   OPEN FILE (LOCKOUT)
 CTAC     EQU    CTOL+100B   ADVANCE CATALOG TRACK
 CTRL     EQU    CTAC+100B   *PFDUMP* READ LIST 
 CTLM     EQU    CTRL+100B   *PFLOAD* MAIN LOOP 
 CTSU     EQU    CTLM+100B   SET PERMANENT FILE UTILITY INTERLOCK 
 CTCU     EQU    CTSU+100B   CLEAR PERMANENT FILE UTILITY INTERLOCK 
 CTRC     EQU    CTCU+100B   REWIND CATALOG FILE
 CTCF     EQU    CTRC+100B   UNUSED 
 CTFL     EQU    CTCF+100B   SET FILE LENGTH
 CTSC     EQU    CTFL+100B   SET CATALOG TRACK INTERLOCK
 CTCC     EQU    CTSC+100B   CLEAR CATALOG TRACK INTERLOCK
 CTEI     EQU    CTCC+100B   SET DEVICE ERROR IDLE STATUS 
 CTCT     EQU    CTEI+100B   LOCATE CATALOG TRACK 
 CTIA     EQU    CTCT+100B   INCREMENT PERMANENT FILE ACTIVITY COUNT
 CTDA     EQU    CTIA+100B   DECREMENT PERMANENT FILE ACTIVITY COUNT
 CTTU     EQU    CTDA+100B   TEST PERMANENT FILE UTILITY INTERLOCK
 CTGE     EQU    CTTU+100B   GET MSS CATALOG MODIFY MODE INTERLOCK
 CTRE     EQU    CTGE+100B   RELEASE MSS CATALOG MODIFY MODE INTERLOCK
 CTSR     EQU    CTRE+100B   STAGE FILE FROM CARTRIDGE
 CTUU     EQU    CTSR+100B   UPDATE UTILITY CONTROL DATE/TIME 
 CTGU     EQU    CTUU+100B   GET MSS CATALOG UPDATE MODE INTERLOCK
 CTRU     EQU    CTGU+100B   RELEASE MSS CATALOG UPDATE MODE INTERLOCK
 CTSL     EQU    CTRU+100B   SET *TFLOK* FLAG IN PFC ENTRY
 CTPC     EQU    CTSL+100B   POSITION CATALOG FILE
          SPACE  4
**        FET EQUIVALENCES USED BY PFU. 
  
  
 FTFT     EQU    1           FET - *FIRST* POINTER
 FTIN     EQU    2           FET - *IN* POINTER 
 FTOT     EQU    3           FET - *OUT* POINTER
 FTLM     EQU    4           FET - *LIMIT* POINTER
 FTSC     EQU    6           FET - SECTOR COUNT 
 FTRE     EQU    6           FET - RECOVERY WORD
 FTDW     EQU    7           FET - DATA WORD (FOR *PFDUMP* READ LIST) 
 FTDL     EQU    10B         FET - DATA LIST
 FTCA     EQU    10B         FET - CATALOG ADDRESS
 FTPM     EQU    11B         FET - PARAMETER WORD 
          SPACE  4,10 
**        FET ERROR STATUS CODES. 
  
  
 FEWE     EQU    1           WRITE ERROR STATUS 
*                            (DATA TRANSFERRED TO DEVICE) 
 FEWN     EQU    2           WRITE ERROR STATUS 
*                            (NO DATA TRANSFERRED TO DEVICE)
 FETL     EQU    3           TRACK LIMIT ERROR STATUS 
 FEEI     EQU    4           ERROR IDLE ERROR STATUS
          SPACE  4
          ENDX
