*   ##            18:40  04/18/72  RJR  *
         SYSTEM   UTS
         DEF      SUSPTERM,SUSPTERMSZ
SUSPTERM EQU      %
        DEF      TERM
        DEF      SUSP
         REF      RSC,SCNTXT,SSIG
         REF      OCQUEUE,SSTAT
         REF      SNDDX
         REF      SRET
         REF      RBLIMS            REM BAT DCTX LIMITS
         REF      DCT3
SUSP    STW,9    SRET,3
         LI,1     12
        PUSH     11
        LI,0     0
SU00    PUSH     7
         STB,0    SSTAT,3
        LB,7     SNDDX,3
         BEZ      SU00A             IS SUSPEND OF DEL FILE OUTSYM
         CLM,7    RBLIMS
         BCR,9    SU00A             IS REMOTE(NO MSG)
        BAL,11   OCQUEUE
SU00A    EQU      %
        PULL     7
SU01     PULL     11
        B        *11
TERM     LI,0     0
         STH,0    SCNTXT,3
        LW,14    10
        BAL,11   RSC
        LI,0     0
         LB,1     SNDDX,3           DCT INDEX
         LB,12    DCT3,1
         CI,12    X'20'             DEVICE PARTITIONED FLAG
         BAZ      %+2         NO--- DEVICE PARTITIONED
         LI,0     3           YES-- SET SSTAT TO NOT AVAILABLE
         STB,0    SSTAT,3
         LI,0     0
         LB,12    SSIG,3
        CI,12    'L'
        BNE      %+2
         LI,0     'L'
         STB,0    SSIG,3
         B        SU01
SUSPTERMSZ EQU    %-SUSPTERM
        END

