RESTART84

(George Source)
Macros used: GELL, GRELOAD, RESTART, SEGENTRY
22^=    #OPT  K0RESTART=0   
23DW    #LIS  K0RESTART>K0ALLGEO>K0POST 
24D6    #   
24XQ ...#SEG  RESTART                      [KAREL KOSKUBA - DIAG
25CB          8HRESTART 
25X2    #   
26BL    [   
26W=    [     THIS SEGMENT IS ENTERED WHEN POSTMORTEM HAS FINISHED  
27*W    [     AND ACCORDING TO CONTENTS OF ARELOAD EITHER CAUSES
27TG    [   
28*6    [     THE SAME OR AN OPTIONALLY DIFFERENT VERSION OF GEORGE 
28SQ    [   
29#B    [     TO BE LOADED  
29S2    [   
2=?L    [   
2=M* ...  SEGENTRY  K1RESTART   
2?34 ...      LDX   1  FXPM1
2?=W ...      LDN  3  ZOUT(1)   
2?GN ...      CALL  7  (JCONOUT)
2?QG          LDX   4  ARELOAD             [EXAMINE SWITCH  
2#=6          BZE   4  PLOAD               [J IF 0 TO RELOAD SAME VERSION   
2#PQ          GELL                         [ELSE GELL TO ENQUIRE VERSION WANTED.
2*9B    #   
2*P2    PLOAD GRELOAD                      [ENSURE GELL LOADS SAME VERSION  
2B8L ...ZOUT           +16,16H^*END OF PM^* 
2BN=    #END
^^^^ ...56554012000300000000