*COMDECK /GETDKE/                                                             SE
 GET$EK   CAP.RM    ,NOENTRY
          ENTRY     GET$K,GET$E 
 GET$K    EQU       GET$EK
 GET$E    EQU       GET$EK
          EQ.RM     BT,#ET#,ENEW$SQ,B2
          F.RM      KRN,X2,-1      DECREMENT KRN
* ADD CHECK FOR 0                                                        V2TMP-B
          NG        X2,=XNWBL$SQ                                         SEPT2
          SET.RM    KRN,X2
  
* END /GETDKE/
