*DECK DB$SYMB 
          IDENT  DB$SYMB
*#
* *   DB$SYMB                                    PAGE  1
* *   C O GIMBER                                 10/30/75 
* *   W P CEAGLIO                                DATE  11/14/80 
* 
* DC  PURPOSE 
* 
*     THIS IS A TABLE OF ENTRY ADDRESSES AND FUNCTION FLAGS FOR CDCS
*     SYMBIONTS GIVEN THEIR FUNCTION CODES. 
* 
*     THE FUNC MACRO STORES THE ADDRESS AND FUNCTION FLAGS IN EACH
*     WORD.  FUNCTION FLAGS IN THE WORD ARE SET DEPENDING ON WHETHER
*     A FUNCTION POSSESSES A CERTAIN CHARACTERISTIC.
* 
*     AN ARTIFICIAL SYMBIONT DB$ILL$ IS USED FOR ILLEGAL FUNCTION CODES.
* 
*     THE TABLE STARTS WITH THE ILLEGAL FUNCTION CODE OF ZERO.
*#
          PURGMAC  FUNC 
  
 FUNC     MACRO  EPT,BITS 
          VFD    6/BITS,36/0,18/EPT 
          ENDM
* 
*     FUNCTION FLAGS
* 
 POS      EQU    40B               FUNCTION CHANGES FILE POSITION 
 SFIT     EQU    20B               SET UFT FIELDS IN DB$SFIT
 BCF      EQU    10B               COMMAND NOT ALLOWED IN B/C SEQUENCE
 VER      EQU    4                 FUNCTION ALLOWED AFTER VERSION ERROR 
  
          ENTRY  DB$SYMB
 DB$SYMB  BSS    0
          FUNC   =XDB$ILL$,VER         0
          FUNC   =XDB$RD$,POS+SFIT     1    DFRD2 
          FUNC   =XDB$RD$,POS          2    DFRD1 
          FUNC   =XDB$WR2$,SFIT        3    DFWR2 
          FUNC   =XDB$SKF$,POS         4    DFSKF 
          FUNC   =XDB$REW$,SFIT        5    DFREW 
          FUNC   =XDB$DEL$,SFIT        6    DFDEL 
          FUNC   =XDB$SIR$             7    DFSIR 
          FUNC   =XDB$OPN$,POS+BCF     8    DFOPN 
          FUNC   =XDB$CLS$,POS+BCF     9    DFCLS 
          FUNC   =XDB$STX$,POS+SFIT    10   DFSTX 
          FUNC   =XDB$INV$             11   DFINV 
          FUNC   =XDB$STR$,POS+SFIT    12   DFSTR 
          FUNC   =XDB$END$,VER         13   DFEND 
          FUNC   =XDB$TIM$             14   DFTIM 
          FUNC   =XDB$ABT$,VER         15   DFTER 
          FUNC   =XDB$REL$,POS+SFIT    16   DFREL 
          FUNC   =XDB$REL$,POS         17   DFRLS 
          FUNC   =XDB$RPT$,BCF         18   DFRPT 
          FUNC   =XDB$PVC$,BCF         19   DFPVC 
          FUNC   =XDB$LOK$,BCF         20   DFLOK 
          FUNC   =XDB$ULK$,BCF         21   DFULK 
          FUNC   =XDB$RSR$,POS+SFIT    22   DFRSR 
          FUNC   =XDB$DBS$             23   DFDBS 
          FUNC   =XDB$RDX$,POS+SFIT    24   DFRX2 
          FUNC   =XDB$RDX$,POS+SFIT    25   DFRX1 
          FUNC   =XDB$RW$,POS+SFIT     26   DFRWX 
          FUNC   =XDB$RW$,POS          27   DFRWF 
          FUNC   =XDB$RWR$,POS         28   DFRWR 
          FUNC   =XDB$VER$,BCF+VER     29   DFVER 
          FUNC   =XDB$BEG$,BCF         30   DFBEG 
          FUNC   =XDB$CMT$             31   DFCMT 
          FUNC   =XDB$DRP$             32   DFDRP 
          FUNC   =XDB$ASK$             33   DFASK 
          FUNC   =XDB$GTI$,BCF         34   DFGID 
          FUNC   =XDB$LKA$,BCF         35   DFLKA 
  
*         THE MACRO STLD.RM CAUSES STATIC LOADING OF WA GET AND PUT 
  
 WA       STLD.RM  USERT=(U),USE=(GET,PUT)
  
          END 
