+2,2     LA       10/19/74       #C00
         SYSTEM   BPM
         DEF      FAUTH
*
*
*        THIS ROUTINE CHECKS THE FAUTH CONTROL COMMAND FOR
*        THE PRESENCE OF 'EQ','RP', AND 'JE'. IF ANY OF
*        THESE ARE FOUND, IT INSERTS THEM INTO THE GOTTEN PAGE
*        STARTING WITH THE SECOND LOCATION IN THIS PAGE.  THE FIRST
*        LOCATION IS SET WITH THE NUMBER OF THESE OPTIONS
*        ENCOUNTERED.  THE PAGE IS RESERVED IN CORE UNTIL THE SDEVICE
*        COMMAND IS PROCESSED.  THESE OPTION NAMES ARE THEN ADDED TO
*        THE SH:SYMT TABLE IN SG:PNT LOAD MODULE
*
*
R0       EQU      0
R1       EQU      1
R2       EQU      2
R3       EQU      3
R4       EQU      4
R5       EQU      5
R6       EQU      6
R7       EQU      7
SR1      EQU      8
SR2      EQU      9
SR3      EQU      10
SR4      EQU      11
D1       EQU      12
D2       EQU      13
D3       EQU      14
D4       EQU      15
*
*
DYN      CNAME
         PROC
LF       EQU      $-DYNAM
         GEN,32
         PEND
+4,11    LA       10/19/74       #C00
KWDTBL   EQU      $
         TEXT     'EQ'
         GEN,8,8,16 0,1,(FAUTHLOC*4)+0 BYTE 0 OF FAUTHLOC SET IF
*                                      'EQ' IS PRESENT
         TEXT     'RP'
         GEN,8,8,16 0,1,(FAUTHLOC*4)+1 BYTE 1 OF FAUTHLOC SET IF
*                                      'RP' IS PRESENT
         TEXT     'JE'
         GEN,8,8,16 0,1,(FAUTHLOC*4)+2 BYTE 2 OF FAUTHLOC SET IF
*                                      'JE' IS PRESENT
         TEXT     'TP'
         GEN,8,8,16 0,1,(FAUTHLOC*4)+3 BYTE 3 OF FAUTHLOC SET IF
+13,18   LA       10/19/74       #C00
LKWDTBL  EQU      $
         DATA     #DYNAM
KWDPTR   GEN,15,17  LKWDTBL-KWDTBL,KWDTBL
         DATA     #DYNAM
DYNAM    EQU      $
FAUTHLOC DYN      0
+24,27   LA       10/19/74       #C00
+32,37   LA       10/19/74       #C00
         LI,R4    0
         LI,R2    1
         LI,D2    4
         LW,R1    FAUTHLOC,R5
LOOP     SLS,R1   8
         BCR,4    INCR4
         LW,D1    FAUTHTBL,R4       YES. IT'S SET
         STW,D1   *SR2,R2           STORE IT
         AI,R2    1
INCR4    AI,R4    1
         BDR,D2   LOOP
         AI,R2    -1
         STW,R2   *SR2
+40      LA       10/19/74       #C00
FAUTHTBL EQU      $
         TEXT     'EQ'
         TEXT     'RP'
         TEXT     'JE'
         TEXT     'TP'
+END
