14 22FL    #LIS  K0QUIT>K0ALLGEO>K0GREATGEO>K0COMMAND  
  15 22_=    #SEG  QUIT4                        [ BILL IZATT 
   9 23DW                   8HQUIT   
  15 23YG    [ ENTRY POINT.  THIS LOCATION MUST REMAIN FIXED 
  11 24D6          SEGENTRY K1QUIT,QENTRY1   
  11 24MY ...      SEGENTRY K2QUIT,QENTRY2   
   4 24XQ    [   
   4 25CB    [   
  20 25X2    #     THIS SEGMENT CONTAINS THE ENTIRE CODING FOR THE QUIT COMMAND  
  18 26BL    #     IT DELETES ALL COMMAND PROCESSOR LEVELS EXCEPT COMMAND
  19 26W=    #     PROCESSOR LEVEL 0,CLOSING DOWN ANY MACRO DEFINITION FILES 
  19 27*W    #     ASSOCIATED WITH ANY OF THESE LEVELS.THE CORE IMAGE,IF ANY 
   9 27TG    #     IS ALSO DELETED   
   5 28*6    QENTRY1 
   7 28JY ...      LDN   7  0
   7 28SQ          LDN   4  0
   8 29#B          CLEANUP  4,0  
  20 29S2          LDX   6  EXT+3(2)            [COINT OF INT ISS LEVELS FREED   
   8 2=?L          BZE   6  NOII 
   5 2=R=    NAGAIN  
  19 2?=W          FREELINK                     [FREE LINK FOR INT ISS. LEVEL
   9 2?QG          BCT   6  NAGAIN   
   8 2?T5 ...      BRN      NOII 
  19 2?XN ...QENTRY2                           [ENTRY FROM LOGOUT TO ALLOW   
  18 2#4W ...      LDN   7  1                    [LOGOUT IN B-I CONTEXT  
   4 2#=6    NOII
   9 2#PQ          LDX   6  MASKPR(1)
  17 2*9B          ANDS  6  CONTEXT(2)          [LOSE PROG ISSUE BIT 
   9 2*P2          LDX   6  MASKC(1) 
  18 2B8L          ERS   6  CONTEXT(2)          [REVERSE BREAK IN CONTEXT
  10 2BN=          LDX   6  CONTEXT(2)   
   8 2C7W          ANDN  6  512  
  17 2CMG          BZE   6  PEND                [J IF NO CORE IMAGE  
  10 2D76          DOWN     PROSTART,11  
  18 2DLQ    PEND  STOZ     EXT+10(2)           [ZEROISE BREAK IN MARKER 
   8 2DWJ ...      BNZ   7  PENDX
   7 2F6B          LDN   0  2
   9 2FL2          DCH   0  EXT+10(2)
   9 2G5L          STOZ     CPLEV(2) 
   9 2GK=          ACROSS   COMPRO,2 
   5 2GQD ...PENDX   
   5 2GXL ...      UP
   9 2H4W    MASKJR         #47777777
   8 2HJG    MASKC       #60000  
   9 2J46    MASKPR         #67777   
  10 2JHQ          MENDAREA 10,K99QUIT   
   4 2K3B    #END
   8 ____ ...40127721000400000000