          IDENT  CONFIG
          TITLE  DSA$DS CONFIGURATION TOKENS
          SPACE   1
*         NEXTDST - GET NEXT DEADSTART TAPE
*
*         THE NEXT DEADSTART TAPE IS REQUESTED.
*
*         ENTRY - FROM CYBIL, NO PARAMETERS.
*
*         EXIT - NEXT TAPE IS REQUESTED.
*
          ENTRY  NEXTDST
          SYSCOM B1
          LIST   F
 NEXTDST  BSS    0
          RJ     =XZSMRENT
          SKIP   RA.MTR
          ERR    SYSCOM WAS NOT CALLED
          IF     -DEF,RA.ORG,1
          FILINFO IFET       OBTAIN DENSITY INFORMATION
          RETURN FET,R
 NOSSYS   IF     -DEF,RA.ORG
          SA1    IFET+5      NEW DENSITY
          SA2    FET+8
          MX3    -3
          LX1    51-9
          LX3    51
          BX6    -X3*X1      ISOLATE DENSITY
          BX2    X3*X2       REMOVE OLD DENSITY INFORMATION
          BX6    X6+X2       UPDATE DENSITY
          SA6    A2          REPLACE FET WORD
          LABEL  FET
 NOSSYS   ELSE
          SA1    IFET
          MX6    42
          BX6    X6*X1
          SA6    A1          STORE TO IFET
          SA1    FLAGWORD
          BX6    X1
          SA6    A6+B1       STORE TO IFET+1
          SA1    FET9
          MX6    36
          BX6    X6*X1
          SA6    A6+B1       STORE TO IFET+2
          REQUEST IFET
 NOSSYS   ENDIF
          JP     =XZSMRRET
 BLENGTH  EQU    1001B
 FET      BSS    0
 NOSVETP  FILEB  BUFFER,BLENGTH,LBL
          ORG    FET+8
 FET8     VFD    6/4,3/5,3/0,12/10B,12/0,6/2,18/0
 FET9     VFD    36/0HNVETPX,24/0
          IF     -DEF,RA.ORG,1
          BSSZ   4

 IFET     VFD    42/0LNOSVETP,6/6,12/1
          BSSZ   2
          IF     -DEF,RA.ORG,2
          BSSZ   2
          VFD    54/0,6/2
          IF     DEF,RA.ORG,1
 FLAGWORD VFD    9/4,27/2,12/0,6/41B,6/3  DENSITY 1600 SI

 BUFFER   BSS    0
          BSS    BLENGTH
          END
