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

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

**Used in:** [[george:source:LISTFILE867|LISTFILE867]]

<code - CHNUMCOO.mac.txt>
 5W=J ...[??? CHNUMCOO SECT CENT FGN 2 DOC   
 5WGB    #MAC  CHNUMCOO  
 5X22    #   
 5XFL ...[ ROUTINE FOR USE WHEN A SINGLE OCTAL NUMBER IS TO BE CONVERTED 
 5X^=    #   
 5YDW          STO   3  GEN0 
 5YYG    #STR  %B
 5^D6    #SKI
 5^XQ          MHUNT    2,CPB,CUNI   
 62CB    #STR  %B,2  
 62X2          LDX   2  %B   
 63BL          LDEX  3  ANUM(2)  
 63W=          LDCH  1  APARA(2) 
 64*W          SBN   1  #23  
 64TG          BNZ   1  MCH2 
 65*6          SBN   3  2
 65SQ          TXL   3  EIGHT
 66#B          BCC      MCH2 
 66S2          ADN   3  1
 67?L          LDN   0  0
 67R=    MCH1  BCHX  2  £
 68=W          LDCH  1  APARA(2) 
 68QG          TXL   1  EIGHT
 69=6          BCC      MCH2 
 69PQ          SLL   0  3
 6=9B          ORX   0  1
 6=P2          BCT   3  MCH1 
 6?8L          LDX   2  FX2  
 6?N=          STO   0  ACOMMUNE1(2) 
 6#7W          LDX   1  FX1  
 6#MG          LDX   3  GEN0 
 6*76          SETREP   OK   
 6*LQ          BRN      MCH3 
 6B6B    MCH2  LDX   3  GEN0 
 6BL2    #SKI  ADELO 
 6C5L          CHNUMCO1 %A,%C
 6CK=    #SKI  ADELO<1$1 
 6D4W          CHNUMCO1 %A   
 6DJG    MCH3
 6F46    #NOR
</code>