QUIT4

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