*         COPYRIGHT, (C) HONEYWELL INFORMATION SYSTEMS INC., 1979
*
          SYSTEM SIG7FDP
         SYSTEM FORTLIB
         SYSTEM BPM
         REF       9SETUP2
         DEF       HASHED
         CSECT     1
HASHED   EQU       $
         BAL,6     9SETUP2
         INTG      NAME
         INTG      DISPLACEMENT
         LW,2      *DISPLACEMENT
         AWM,2     NAME
         LW,2      *NAME     GET SIZE OF NAME
         AI,2      1
         LI,3      0         ACCUMULATOR
         LW,1      NAME
         AI,1      1         SKIP CHARACTER COUNT
ADDLOOP  EQU       $
         LB,8      *1
         AW,3      8
         SCS,3     6
         AI,1      1
         BDR,2     ADDLOOP
         DW,2      PRIME
         LW,9      2
         B         *15
PRIME    DATA      16777213
         CSECT     0
NAME     RES       1
DISPLACEMENT RES 1
         END
