*     COPYRIGHT, (C) HONEYWELL INFORMATION SYSTEMS INC., 1979
*
         SYSTEM SIG7FDP
         SYSTEM    BPM
         SYSTEM    FORTLIB
         REF       9SETUP1,9SETUPN,M:NAMETABLE
         CSECT     0
BUFFER   RES       1
KEY      RES       1
ERROR    RES       1
         CSECT     1
         DEF       OPENNT
OPENNT   EQU       $
         BAL,6     9SETUP1
         INTG      ERROR
         M:OPEN    M:NAMETABLE,JOB,OUTIN,REL,KEYED,DIRECT,;
                   (FILE,':::'),(ERR,IOERROR),(ABN,IOERROR)
         LI,9      0
         STW,9     *ERROR
         B         *15
*
*
*
*                  READ NAME TABLE
*
*
*
         DEF       READNT
READNT   EQU       $
         LI,5      3
         BAL,6     9SETUPN
         INTG      KEY
         INTG      BUFFER
         INTG      ERROR
         LW,9      *KEY
         OR,9      =X'03000000'
         STW,9     KEY
         M:READ    M:NAMETABLE,(SIZE,260),(KEY,KEY),(BUF,*BUFFER),;
                   (ERR,IOERROR),(ABN,IOERROR)
         LI,9      0
         STW,9     *ERROR
         B         *15
*
*
*
*                  WRITE NAME TABLE RECORD
*
*
*
         DEF       WRITNT
WRITNT   EQU       $
         LI,5      3
         BAL,6     9SETUPN
         INTG      KEY
         INTG      BUFFER
         INTG      ERROR
         LW,9      *KEY
         OR,9      =X'03000000'
         STW,9     KEY
         M:WRITE   M:NAMETABLE,NEWKEY,(BUF,*BUFFER),(SIZE,260),;
                   (KEY,KEY),(ERR,IOERROR),(ABN,IOERROR)
         LI,9      0
     6
         STW,9     *ERROR
         B         *15
*
*
*
*                  GENERAL IOERROR ROUTINE
*
*
*
IOERROR  EQU       $
         LB,9      10
         SLS,9     8
         SLS,10    8
         SLS,10    -25
         OR,9      10
         STW,9     *ERROR
         B         *15
         END

