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