(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