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

**Defined in:** [[george:source:MACROS_GEM|MACROS GEM]]

**Used in:** [[george:source:BLOGNAL865|BLOGNAL865]], [[george:source:INCRCUBX860|INCRCUBX860]], [[george:source:LOGANAL864|LOGANAL864]], [[george:source:SCEDITAR84|SCEDITAR84]]

<code - XCBINDEX.mac.txt>
 3L^# ...[??? XCBINDEX SECT CENT FGN 1 DOC   
 3M96    #   
 3MNQ    #MAC           XCBINDEX 
 3N8B          CALL  %A MXCBINDEX1          [%A IS THE LINK ADRESS   
 3NN2    #OPT           MXCBINDEX2=1 
 3P7L    #SKI           MXCBINDEX2   
 3PM=    (   
 3Q6W          BRN      MY                  [BRN PAST END OF SUBROUTINE  
 3QLG    #DEF           MXCBINDEX1=0?       [TRANSFER ADRESS.
 3R66    #STR           7,%C                [SKI IF %C = 7.  
 3RKQ          LDX   7  %C   
 3S5B          SMO      FX1  
 3SK2          MPY   7  MNO                 [MULTIPLY BY STRAUSS NO. 
 3T4L          MODE     1
 3TJ=          LDX   6  ACES 
 3W3W          DCH   6  0(%B)               [STORE SPACE IN FIRST CH.
 3WHG          BCHX  %B £              [STEP MOD.ACC.
 3X36          LDN   6  6                   [COUNT.  
 3XGQ    MD    CBD   7  0(%B)
 3Y2B          BCHX  %B £
 3YG2          BCT   6  MD                  [LOOP 6 TIMES.   
 3Y^L          MODE     0
 3^F=          CBD   7  0(%B)
 3^YW          BCHX  %B £
 42DG          EXIT  %A 0
 42Y6    MNO            +7036875            [THE MAGIC NUMBER.   
 43CQ    MY  
 43XB    )   
 44C2    #FREE          MXCBINDEX2          [FREE IDENTIFIER.
 44WL    #DEF           MXCBINDEX2=0        [SET IT. 
 45B=    #   
 45TW ...[              THE MACRO CONVERTS BIN TO DEC.   
 46*G ...[              %C CONTAINS THE BIN NO.  
 46T6 ...[              %B IS A MODIFIER CONT. THE GEORGE ADRESS 
 47#Q ...[              TO WHICH THE ANS IS PUT. 
 47SB ...[              %A IS THE LINK WORD  
 48#2    #   
 48RL    #NOR
</code>