***********************************************************************
*M*      FAUTH    DECODES FAUTH CC AND GENERATES TABLE OF FEATURES
***********************************************************************IN7
*
         SYSTEM   SIG7
         DEF      FAUTH
         REF      NOROOM,SYNTAX,READSTRG,FAUTPTR
         REF      GETPGS,GETPGPTR
FOP      COM,1,7,8 AF(1),AF(2),AF(3)
KWDTBL   EQU      %
         DATA     LKWDTBL
         FOP      0,0,3          0  LOOK FOR   (
         FOP      1,3,11         1  GET TEXT PORTION OF OPTION
         FOP      0,1,18         2  STORE TEXT IN TABLE
         FOP      0,0,8          3  LOOK FOR ),(
         FOP      0,1,1          4  GO TO 1 (GET TEXT PORTION)
         BOUND    4
LKWDTBL  EQU      %-KWDTBL
         DATA     0                 NO DEFAULTS
KWDPTR   GEN,15,17 0,KWDTBL
DYNAM    EQU      %
         DATA     0
         DATA     0
#DYNAM   EQU      %-DYNAM
FAUTH    LI,2     GETPGPTR+1
         BAL,1    GETPGS
         LW,9     GETPGPTR,3        R9 POINTS TO LAST WORD OF GOTTEN PG
         STW,9    DYNAM
         EOR,9    X1FF              PT. REG. 9 TO FIRST WORD OF PAGE
         STW,9    FAUTPTR,3
         AI,9     1
         STW,9    DYNAM+1
         LI,2     DYNAM
         LI,1     #DYNAM
         LW,4     KWDPTR
         BAL,11   SYNTAX
         AI,5     1
         LW,1     *5
         AI,1     -1
         SW,1     FAUTPTR,3
         LW,2     FAUTPTR,3
         STW,1    *2             SIZE OF TABLE GOES INTO FIRST WORD
*                                OF GOTTEN PAGE  FOR USE BY SDEVICE
         LI,1     -#DYNAM
         MSP,1    *0
         B        READSTRG
X1FF     DATA     X'1FF'
PATCH    EQU      %
         LIST     0
         DO1      50
         DATA     0
         LIST     1
         END

