*        COPYRIGHT, (C) HONEYWELL INFORMATION SYSTEMS INC., 1979
*
         SYSTEM SIG7FDP
         SYSTEM FORTLIB
         REF 9SETUPN
         DEF LOAD
LOAD     EQU $
         LI,5      4
         BAL,6     9SETUPN
         INTG      BUFFER
         INTG      DISP
         INTG      PTTYPE
         INTG      REFCODE
         LW,2      BUFFER
         SLS,2     2
         AW,2      *DISP
         LW,3      REFCODE
         SLS,3     2
         LW,9      *PTTYPE
         CI,9      3
         BNE       $+2
         AI,3      1
         STB,9     3
         MBS,2     0
         B         *15
         CSECT     0
BUFFER   RES       1
DISP     RES       1
PTTYPE   RES       1
REFCODE  RES       1
         END
