*DECK SFETS 
          IDENT  SFETS
          TITLE  SFETS - CONTAINS SYSTEM FETS AND LIST HEADER 
          MACHINE ANY,I 
          COMMENT  CONTAINS SYSTEM FETS AND LIST HEADER 
          SYSCOM B1 
*CALL     COBIOM
          SPACE  4
**        COPYRIGHT MESSAGE - OVERLAYED BY SFETS
* 
 CPYRIGT  BSS    0
          LIST   A
          DATA   L*"COPYRT"*
          LIST   *
          ORG    CPYRIGT
          SPACE  2
**        SFETS - CONTAINS SYSTEM FETS
* 
*         CONTAINS THE *FILEB* MACRO TO DEFINE FETS.
  
  
          USE    /FET/
          CON    INPUT
          CON    OUTPUT 
          USE    *
  
 DBUG1    IFEQ   DEBUGC,1 
          USE    /CHKFETC/
          CON    CHKFILE
          USE    *
 DBUG1    ENDIF 
  
 INPUT    FILEB  INBUF,INBFS,(RTP=Z)
 OUTPUT   FILEB  OUTBUF,OUTBFS,(RTP=Z)
 DBIF2    IFEQ   DEBUGC,1 
 CHKFILE  FILEB  CHKBUF,CHKBFS,(RTP=Z)
          ENTRY  DBCALLF
 DBCALLF  VFD    42/0,18/VIRTTRC
 VIRTTRC  FILEB  CHKBUF,129,(RTP=Z) 
 DBIF2    ENDIF 
  
 INBUF    EQU    0           LET CMM ASSIGN SPACE 
 OUTBUF   EQU    0
 CHKBUF   EQU    0
  
 LISTHED  SPACE  4
**        LISTHED - COMPILER LISTING HEADER 
*                THIS AREA DEFINES THE HEADER LINE FOR THE COMPILER 
*                LISTINGS.  IT OBTAINS THE VERSION AND MOD-LEVEL
*                INFORMATION FROM ASSEMOP AND PROVIDES A COMMON 
*                PLACE TO OBTAIN THE HEADER.  THE ARE LISTTYP IS
*                A 20 CHAR -TYPE- FIELD WHICH CAN BE CHANGED TO REFLECT 
*                THE TYPE OF LISTING BEING PRODUCED.  THE ARE LISTID
*                SHOULD CONTAIN THE PROGRAM-ID, LISTDAT THE DATE
*                AND LISTTIM THE TIME.  CBLIST PROVIDES THE PAGE NRS. 
* 
  
          ENTRY  LISTHED
          ENTRY  LISTTYP
          ENTRY  LISTID 
          ENTRY  LISTDAT
          ENTRY  LISTTIM
  
 LISTHED  DATA   30HCDC COBOL "COBVER" - LEVEL "COBLVL" 
  
*      LISTTYP SHOULD BE RIGHT ADJUSTED WITH ONE SPACE ON THE RIGHT END 
  
 LISTTYP  DATA   20H  SOURCE LISTING OF 
 LISTID   DATA   10H
          VFD    48/8H  AOPT= 
 IFA      IFEQ   OP.MODEL,OP.6400 
          VFD    12/2H64
 IFA      ELSE
 IFAA     IFEQ   OP.BETA,OP.NO     NOT 176...MUST BE A 175 OR SOMETHING 
          VFD    12/2H66           *6600* TYPE CPU
 IFAA     ELSE
          VFD    12/2H76           *7600* TYPE CPU
 IFAA     ENDIF 
 IFA      ENDIF 
 IFAB     IFEQ   OP.COLSQ,OP.C64
          VFD    24/4H/CDC
 IFAB     ELSE
          VFD    24/4H/ASC
 IFAB     ENDIF 
 IFB      IFEQ   OP.BDP,OP.YES
          VFD    24/4H/CMU
 IFC      IFNE   OP.DCS,OP.NO 
 IFC1     IFEQ   OP.DCS,OP.DCS1 
          VFD    36/6H/CDCS1
 IFC1     ELSE
          VFD    36/6H/CDCS2
 IFC1     ENDIF 
 IFC      ELSE
          VFD    36/6H
 IFC      ENDIF 
 IFB      ELSE
 IFD      IFNE   OP.DCS,OP.NO 
 IFD1     IFEQ   OP.DCS,OP.DCS1 
          VFD    60/10H/CDCS1 
 IFD1     ELSE
          VFD    60/10H/CDCS2 
 IFD1     ENDIF 
 IFD      ELSE
          VFD    60/10H 
 IFD      ENDIF 
 IFB      ENDIF 
          VFD    36/6H
 LISTDAT  DATA   10H
 LISTTIM  DATA   10H
          DATA   10H
*      FET FOR TERMINAL DUMP FILE 
          ENTRY  TDFILE 
 TDFILE   FILEB  0,TDBFS,(RTP=U)
          ENTRY  TDFET
 TDFET    VFD    60/TDFILE
           ENTRY  ZZZZFMA 
 ZZZZFMA   FILEB  0,160,(RTP=Z) 
          ENTRY  FMAFET 
 FMAFET   VFD    60/ZZZZFMA 
          END 
