{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: CXMEND)}}
====== CXMEND ======
(GIN Macro)

**Defined in:** [[george:source:COREMACROS|COREMACROS]]

**Used in:** 

<code - CXMEND.mac.txt>
 7MBN ...[??? CXMEND SECT CENT FGN 32 DOC
 7MLG    #   
 7N66    # THE FOLLOWING CX MACROS PROVIDE A RESTORE TIME CHECKING FACILITY  
 7NKQ    #MAC  CXMEND
 7P5B    #OPT  FC50A=0   
 7PK2    #SKI  FC50A<1-1    [IF FIRST CXMEND,FOLLOWING CODE COMPILES 
 7Q4L    (   
 7QJ=    #STR  DELAY,%A  
 7R3W    #SKI
 7RHG    (   
 7S36          RESOFF   CHECK
 7SGQ    )   
 7T2B    #MEN  CHCH  
 7TG2    #TRA  FZCO  
 7T^L          BRN      JFCT                [FCMEND STARTING LABEL   
 7WF=    #END
 7WYW          FCMEND
 7XDG          BSOFF    CHECK,FC50B  
 7XY6    )   
 7YCQ    [  SUBSEQUENT CXMENDS MUST NOT HAVE 'DELAY' PARAM, AND CANNOT HAVE MORE 
 7YXB    [     THAN ONE CXMEND IF FIRST HAD 'DELAY' PARAM.   
 7^C2    #SKI  FC50A 
 7^WL    (   
 82B=    #STR  DELAY,%A  
 82TW    #SKI
 83*G    (   
 83T6    ! DELAY PARAMETER NOT ALLOWED   
 84#Q    #CON  ERROR IN CXMEND DELAY 
 84SB    #MEN  CEND  
 85#2    #TRA  FC50A 
 85RL          BRN      FC50B
 86?=    #END
 86QW          FCMEND
 87=G    #EXIT   
 87Q6    )   
 889Q    #SKI
 88PB    (   
 8992    ! DELAY PARAMETER USED PREVIOUSLY   
 89NL    #CON  ERROR IN CXMEND   
 8=8=    #MEN  CEND  
 8=MW    #TRA  FC50A 
 8?7G          BRN      FC50B
 8?M6    #END
 8#6Q          FCMEND
 8#LB    #EXIT   
 8*62    )   
 8*KL    #MEN  CEND         [IF NOT FIRST CXMEND, THIS CODE COMPILES 
 8B5=    #TRA  FC50A 
 8BJW          BRN      JFCT                [FCMEND STARTING LABEL   
 8C4G    #END
 8CJ6          FCMEND
 8D3Q    )   
 8DHB    #SKI  FNOISE
 8F32    (   
 8FGL    #STR  SELECT,%B 
 8G2=    #SKI
 8GFW    (   
 8G^G          SMO      FX2  
 8HF6          LDX   1  ALINK1   
 8HYQ          BPZ   1  FC50B
 8JDB          ANDX  1  BITS22LS 
 8JY2          JBC   FC50B,BACK2(1),CXSELECT 
 8KCL    )   
 8KX=    )   
 8LBW    #NOR
</code>