GEND [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: GEND)}}
====== GEND ======
(George Source)

**Macros used:** [[george:macro:EDSMASH|EDSMASH]]

<code - GEND.txt>22FL    #OPT  K0GEND=0  
22^=    #INT
23DW    #DEF MODE=3?
23YG    #ORD
24D6    #DEF  PROFILE=2?
24XQ    SPLAY 27H00000000 PROGRAM FILE USED 
25CB    SPCLA 27:SPLAY  
25X2    SPROG +PROFILE  
26BL    SPENT LDX   6  SPROG
26W=          LDN   5  #32  
27*W          SLL   6  3
27TG          LDN   4  7
28*6          LDN   3  0
28SQ          DCH   5  SPLAY(3) 
29#B          BCHX   3  £   
29S2    SPLOP LDN   5  0
2=?L          SLL   56 3
2=R=          DCH   5  SPLAY(3) 
2?=W          BCHX  3  £
2?QG          '066  4  SPLOP               [BCT 
2#=6          DIST  SPCLA   
2#PQ          EXIT  0  0
2*9B    #DEF 3?=MODE
2*P2    #SKI  MODE-2
2B8L    (   
2BN=    #SKI  MODE-1
2C7W    #EXT
2CMG    #SKI  MODE  
2D76    #COM
2DLQ    )   
2F6B    #JUM  SPENT 
2FL2    #LIS  K0GEND>K0ALLGEO   
2G5L    #DEF  GSBSMIN=-GSBS 
2GK=    #DEF  2?=2?+GSBS-1&GSBSMIN  
2H4W    #INC  GEND  
2HJG    #SEG  GEND                         [R TERRY 
2J46    #END
2JHQ    #DEF  ALENFIXCHAP=6?
2K3B    #OPT  ADMASTDIR=0   
2KH2    #OPT  INCFSDESC=1   
2L2L    #SKI  INCFSDESC 
2LG=          EDSMASH   
^^^^ ...30211113000100000000
</code>