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

**Defined in:** [[george:source:MACROS_ICB|MACROS ICB]]

**Used in:** [[george:source:ONOFFALT60|ONOFFALT60]], [[george:source:WHATRVS867|WHATRVS867]], [[george:source:WLB867|WLB867]]

<code - CHNUMCOX.mac.txt>
 6F?Y ...[??? CHNUMCOX SECT CENT FGN 2 DOC   
 6FHQ    #MAC  CHNUMCOX  
 6G3B    #   
 6GH2 ...[ ROUTINE FOR CONVERTING A SINGLE OCTAL OR DECIMAL NUMBER   
 6H2L    #   
 6HG=          STO   3  GEN0 
 6H^W    #STR  %B
 6JFG    #SKI
 6J^6          MHUNT    2,CPB,CUNI   
 6KDQ    #STR  %B,2  
 6KYB          LDX   2  %B   
 6LD2          LDEX  3  ANUM(2)  
 6LXL          LDCH  1  APARA(2) 
 6MC=          SBN   1  #23  
 6MWW          BZE   1  MCH4 
 6NBG          LDN   0  0
 6NW6          LDN   1  0
 6P*Q    MCH1  CDB   0  APARA(2) 
 6PTB          BCS      MCH2 
 6Q*2          BCHX  2  £
 6QSL          BCT   3  MCH1 
 6R#=          BNZ   0  MCH2 
 6RRW          BRN      MCH5 
 6S?G    MCH4  SBN   3  2
 6SR6          TXL   3  EIGHT
 6T=Q          BCC      MCH2 
 6TQB          ADN   3  1
 6W=2    MCH7  BCHX  2  £
 6WPL          LDCH  0  APARA(2) 
 6X9=          TXL   0  EIGHT
 6XNW          BCC      MCH2 
 6Y8G          SLL   1  3
 6YN6          ORX   1  0
 6^7Q          BCT   3  MCH7 
 6^MB    MCH5  LDX   2  FX2  
 7272          STO   1  ACOMMUNE1(2) 
 72LL          LDX   1  FX1  
 736=          LDX   3  GEN0 
 73KW          SETREP   OK   
 745G          BRN      MCH6 
 74K6    MCH2  LDX   3  GEN0 
 754Q    #SKI  ADELO 
 75JB          CHNUMCO1 %A,%C
 7642    #SKI  ADELO<1$1 
 76HL          CHNUMCO1 %A   
 773=    MCH6
 77GW    #NOR
</code>