         PCC      1
         SYSTEM   SIG7
         SPACE    2
*M* LEMUR6  DYNAMIC DATA FOR LEMUR
         TITLE    'LEMUR6 -- DYNAMIC DATA FOR LEMUR'
         REF      O%SS
         REF      O%DREF
         REF      O%MAP
         REF      O%SL
         REF      O%C1
         REF      J:ACCN
         PAGE
CONST    CSECT    1
DATASEG  CSECT    0
CONST    CNAME
DATASEG  CNAME
         PROC
         USECT    CF(1)
         PEND
RESD     CNAME
         PROC
         DEF      LF
         DO       NUM(CF)=1
LF       RES      AF
         ELSE
LF       RES,CF(2) AF
         FIN
         PEND
DATAD    CNAME
         PROC
         DEF      LF
         DO       NUM(CF)=1
LF       DATA     AF
         ELSE
LF       DATA,CF(2) AF
         FIN
         PEND
         PAGE
         DATASEG
         BOUND    8
C%OPTS   RESD,8   1
AOPTS    RESD     1
CHPT     RESD     1
DESCNDX  RESD     1
DSCPOOL  RESD     256
INBUF    RESD,1   256
SCTBL    RESD     50
         DEF      SCTBL#
SCTBL#   EQU      %-SCTBL
SCTBNDX  RESD     1
I:ISNEXT RESD     1                 TEMP TO REMEMBER INDEX IN ISNEXT.
ADDREP   RESD     1
BLDDICI  RESD     1
FREECHN  RESD     1
H        DEF      HSH:N
HSH:N    EQU      6                 1**6 = 32 BUCKETS
         BOUND    8                 MUST BE ON DWORD BOUND.
HSHTBL   RESD     1**HSH:N
         BOUND    8
KEYBUF   RESD     32/4
MODNAME  RESD     4
*
MODTYP   RESD     1
SYM      RESD     1
#DECL    RESD     1
         DEF      ROMSIZE
ROMSIZE  EQU      108
         DEF      KEYMAX
KEYMAX   EQU      15
         DEF      O#DMOD
O#DMOD   EQU      0
         DEF      O#DSYM
O#DSYM   EQU      0
         SPACE
         DEF      SYM:MAX
SYM:MAX  EQU      30
         DEF      BLK:L
BLK:L    EQU      8+3
         SPACE
         DEF      #EOL
#EOL     EQU      ';'-0
         SPACE
***
         BOUND    8
ADJNAME  RESD     0
         GEN,1,7,24   1,X'14',6     *T2
         GEN,16,16    0,X'E001'
         DATA     0
FNAME    RESD     10
         CONST
FNAMEI   DATAD,1  1,0,8,9
         DATASEG
FACCN    RESD     4
         CONST
FACCNI   DATAD,1  2,0,0,3
         DATASEG
FPASS    RESD     3
         CONST
FPASSI   DATAD,1  3,1,0,2
         DATASEG
         BOUND    8
         BOUND    8
BLKPLST  RESD     BLK:L*200
BLKPTR   DATAD    BLKPLST
BLKPOOL  DATAD    BLKPLST
BLKEND   DATAD    BLKPTR-1
         PAGE
DO#LL    RESD     1
SI#LL    RESD     1
SI#DO    RESD     1
ERRHIT   RESD     1
         BOUND    8
IKEYBUF  RESD     32/4
OKEYBUF  RESD     32/4
ROMBUF   RESD,1   256
ROMEOF   RESD     1
ROMPT    RESD     1
ROMSRC   RESD     1
         BOUND 8
STKPTR   RESD,8   1
XFLAG    RESD     1
O#DEL    EQU      0
         DEF      O#DEL
         CONST
GRPCODE  DATAD    X'03070000'
         DATASEG
SCRATCH  RESD     20
         PAGE
*TABLES USED IN GENERATING THE LOCCT TO PASS TO
*THE LOADER WHEN BUILDING A LIB. LOAD MODULE.
         DEF      L:OPS,L:SHIFTS,L:MASKS,L:#OPS
L:OPS    CSECT    1
L:SHIFTS CSECT    1
L:MASKS  CSECT    1
L:LOCCT  CNAME
         PROC
         USECT    L:OPS
         DATA     AF(1)
         USECT    L:SHIFTS
         DATA     31-AF(3)
         USECT    L:MASKS
         DATA     (1**AF(2)-1)**(31-AF(3))
         PEND
*GENERATE THREE TABLES, VIA L:LOCCT PROC
*        L:LOCCT  OPTION TYPE, FIELD WIDTH, TERMINAL BIT POSITION
*                                           IN LOCWD.
*
         L:LOCCT  O%SS,1,6
         L:LOCCT  O%DREF,1,7
         L:LOCCT  O%MAP,2,11
         L:LOCCT  O%SL,4,15
         L:LOCCT  O%C1,1,19
         USECT    L:OPS
L:#OPS   EQU      ABSVAL(%)
         PAGE
         CONST
BLANKS   DATAD    '    ','    ','    ','    '
ZEROES   DATAD    0,0,0,0
L:LOCWDDEF DATAD  X'0A04221A'
         DATASEG
L:BASE   RESD     1
L:ROMBASE RESD    1
D:DESTMOD RESD    1
WORKLIB  RESD     7
D:DESTLIB RESD    3
D:SORSMOD RESD    1
D:SORSLIB RESD    3
L:DCB    RESD     1
FDSYMS   RESD     1
ARGBD    RESD     1
L:SIZE   RESD     1
L:PAGES  RESD     1
L:BUF    RESD     1
D:KEY    RESD     1
L:NOROM  RESD     1
L:MAPROM RESD     1
         CONST
         DEF      GCP
GCP      GEN,1,7,24 1,X'C',L:PAGES
FCPFPT   DATAD    X'0D0000FF'
LINKFPT  DATAD    X'02000002'
         TEXTC    'LOADER'
         TEXT     ':SYS    '
         DEF      DEST
DEST     GEN,8,24 4,BA(WORKLIB)
         GEN,8,24 8,BA(WORKLIB+3)
         DATA     0
         DEF      D:J:ACCN
D:J:ACCN GEN,8,24 8,BA(J:ACCN)
L:REFDFLTS DATAD 0,X'10000',0,X'A000A',X'400000',X'10001'
L:RDDFLTS DATAD,8 'ALL     ','NONE    ','ALL     '
          DATA,4  X'B'
LTYPE    CSECT    1
         DEF      D:LTYPE
D:LTYPE  CSECT    1
         OPEN     I
L:RECTYPE CNAME
         PROC
         USECT    LTYPE
I        SET      BA(%)
         GEN,AF(2)*8 AF(1)
         USECT    D:LTYPE
         GEN,8,24 AF(2),I
         PEND
         CLOSE    I
*                                   GENERATE LMN RECORD TYPES AND
*                                   CORRESPONDING DESCRIPTORS.
         L:RECTYPE 0,1              REF/DEF
         L:RECTYPE 1,1              EXPR. STACK
         L:RECTYPE 2,1              00 REL DIC
         L:RECTYPE 3,1              00 CSECTS
         L:RECTYPE 4,1              01 REL DIC
         L:RECTYPE 5,1              01 CSECTS
         L:RECTYPE 6,1              10 REL DIC
         L:RECTYPE 7,1              10 CSECTS
         L:RECTYPE 9,1              GLOBAL SYM TABLE
         L:RECTYPE X'10',1          INTERNAL SYMBOL TABLE
         L:RECTYPE X'FF',1          BINARY SORT RECORD
         L:RECTYPE 'HEAD',4         HEAD RECORD
         L:RECTYPE 'TREE',4         TREE RECORD
         USECT    D:LTYPE
         DEF      D:LTYPELAST
D:LTYPELAST EQU   %
         PAGE
         DATASEG
D:LTYPEX RESD     1
         END

