CHNUMCOD [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 GIN macro: CHNUMCOD)}}
====== CHNUMCOD ======
(GIN Macro)

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

**Used in:** [[george:source:ANSCOM865|ANSCOM865]], [[george:source:ATTACHA8|ATTACHA8]], [[george:source:BCAST867|BCAST867]], [[george:source:CMEMILL866|CMEMILL866]], [[george:source:CONCEPT85|CONCEPT85]], [[george:source:CONNECT867|CONNECT867]], [[george:source:CORE867|CORE867]], [[george:source:DATECON37|DATECON37]], [[george:source:DETACH867|DETACH867]], [[george:source:EXPRESS864|EXPRESS864]], [[george:source:HARDWARA8|HARDWARA8]], [[george:source:INSTPARA867|INSTPARA867]], [[george:source:LINECTRL864|LINECTRL864]], [[george:source:LISTDEV866|LISTDEV866]], [[george:source:LISTFILE867|LISTFILE867]], [[george:source:MAKEVCC867|MAKEVCC867]], [[george:source:ONOFFALT60|ONOFFALT60]], [[george:source:PAGES867|PAGES867]], [[george:source:PERCON867|PERCON867]], [[george:source:PERFPASS864|PERFPASS864]], [[george:source:PREPREAD867|PREPREAD867]], [[george:source:PROSTART867|PROSTART867]], [[george:source:PSPLIT82|PSPLIT82]], [[george:source:REGEN865|REGEN865]], [[george:source:REPERT867|REPERT867]], [[george:source:RESET83|RESET83]], [[george:source:SCHEDULE867|SCHEDULE867]], [[george:source:SETPARAM867|SETPARAM867]], [[george:source:SETPC867|SETPC867]], [[george:source:SETPE867|SETPE867]], [[george:source:SETPG867|SETPG867]], [[george:source:SETPN867|SETPN867]], [[george:source:SETPR867|SETPR867]], [[george:source:SHOWCOMM864|SHOWCOMM864]], [[george:source:WSPARAM867|WSPARAM867]]

<code - CHNUMCOD.mac.txt>
 5C3J ...[??? CHNUMCOD SECT CENT FGN 2 DOC   
 5CB2    #MAC  CHNUMCOD  
 5CTL    #   
 5D*= ...[ ROUTINE FOR USE WHEN A SINGLE DECIMAL NUMBER IS TO BE CONVERTED   
 5DSW    #   
 5F#G          STO   3  GEN0 
 5FS6    #STR  %B
 5G?Q    #SKI
 5GRB          MHUNT    2,CPB,CUNI   
 5H?2    #STR  %B,2  
 5HQL          LDX   2  %B   
 5J==          LDEX  3  ANUM(2)  
 5JPW          LDN   0  0
 5K9G          LDN   1  0
 5KP6    MCN1  CDB   0  APARA(2) 
 5L8Q          BCS      MCN2 
 5LNB          BCHX  2  £
 5M82          BCT   3  MCN1 
 5MML          BNZ   0  MCN2 
 5N7=          LDX   2  FX2  
 5NLW          STO   1  ACOMMUNE1(2) 
 5P6G          LDX   1  FX1  
 5PL6          SETREP   OK   
 5Q5Q          LDX   3  GEN0 
 5QKB          BRN      MCN3 
 5R52    MCN2  LDX   3  GEN0 
 5RJL    #SKI  ADELO 
 5S4=          CHNUMCO1 %A,%C
 5SHW    #SKI  ADELO<1$1 
 5T3G          CHNUMCO1 %A   
 5TH6    MCN3
 5W2Q    #NOR
</code>