RESTART84 [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: RESTART84)}}
====== RESTART84 ======
(George Source)

**Macros used:** [[george:macro:GELL|GELL]], [[george:macro:GRELOAD|GRELOAD]], [[george:macro:RESTART|RESTART]], [[george:macro:SEGENTRY|SEGENTRY]]

<code - RESTART84.txt>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
</code>