COMSTFU 
COMMON
          CTEXT  COMSTFU - TAPE FILE UTILITY FUNCTION REQUESTS. 
          BASE   M
 COMSTFU  SPACE  4,10 
***       COMSTFU - TAPE FILE UTILITY FUNCTION REQUESTS.
* 
*         J. D. HOLMBECK     85/02/15.
 COMSTFU  SPACE  4,10 
***       *COMSTFU* PROVIDES FUNCTION CODE DEFINITIONS FOR
*         COMMUNICATION BETWEEN CP ROUTINES AND *TFU*.
 TFU      SPACE  4,10 
***       *TFU* CALL FORMAT.
* 
*T        18/*TFU* ,6/AR, 12/CODE, 24/PARAM 
* 
*                AR          AUTO RECALL. 
*                CODE        FUNCTION CODE. 
*                PARAM       PARAMETER FOR FUNCTION.
 FUNC     SPACE  4,10 
**        *TFU* FUNCTION CODES. 
  
  
 BEGIN    BSSN   0
  
 AEJF     BSSN   1           ASSIGN *EST* ORDINAL TO JOB
 IXMF     BSSN   1           ISSUE EXTERNAL MAGNET REQUEST
          BSSN   1           RESERVED 
 STOF     BSSN   1           SET DEFAULT *TO* OPTION FOR USER 
 STSF     BSSN   1           SET *TMS* STATUS FOR SYSTEM
  
 MXFN     EQU    *           END OF *TFU* FUNCTION CODES
 END      BSSN
          SPACE  4,10 
          BASE   *
          ENDX
