KXCHK Source

         MACRO                                                          00001000
&L       KXCHK &BIT                                                     00002000
         LCLC  &S                                                       00003000
&S       SETC  '&SYSNDX'                                                00004000
&L       NI    UFDBUSY,X'FF'-&BIT      RESET FLAG                       00005000
         BNZ   KX&S                    DON'T TRY KX UNLESS ALL CLEAR    00006000
         CLI   KXFLAG,KXWANT           IF CLEAR, CHECK KX FLAG          00007000
         BNE   KX&S                    DON'T KX IF UNEQUAL              00008000
         STM   R14,R15,0               STORE REGS IN LOW CORE           00009000
         L     R15,AKILLEX             POINT TO KILLEX ROUTINE          00010000
         BALR  R14,R15                 AND LINK TO IT                   00011000
KX&S     EQU   *                                                        00012000
         MEND                                                           00013000