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

**Defined in:** [[george:source:MACROS_EWDAS|MACROS EWDAS]]

**Used in:** [[george:source:FLAWMAP866|FLAWMAP866]], [[george:source:KARTCONT867|KARTCONT867]], [[george:source:PATCH|PATCH]], [[george:source:PERION867|PERION867]], [[george:source:SPERION867|SPERION867]], [[george:source:TRANSFER70|TRANSFER70]]

<code - CHTRAN.mac.txt>
 H9=L    #   
 H9Q=    # **********************************************************************
 H=9W    # *                                                                     
 H=PG    # *                  CHECK BS TRANSFERS                                 
 H?96    # *                              CHTRAN,CHTRANX                         
 H?NQ    # *                                                                     
 H#8B    # **********************************************************************
 H#N2    #   
 H*7L    [???                                CHTRAN  
 H*M=    #                                   ******  
 HB6W    #MAC  CHTRAN                       [CHECK BS TRANSFERS FOR INOP,FAIL
 HBLG    #   
 HC66    #STR  %D
 HD5B    (   
 HDK2          LDX   0  %D   
 HF4L          SRL   0  18   
 HFJ=    )   
 HG3W    #STR  %D
 HGHG    #SKI
 HH36          LDCH  0  ACOMMUNE9(2) 
 HHGQ          LDX   1  %A   
 HJ2B          ANDN  1  #77  
 HJG2          SBN   1  EDS  
 HJ^L          BNZ   1  MCHECKTRF
 HKF=          ANDN  0  #75  
 HKYW    MCHECKTRF   
 HLDG    #SKI  K6EXOFILE>299-299 
 HLY6    (   
 HMCQ          LDX   2  0
 HMXB          SRC   2  6
 HNC2          BNG   2  MCHECKTRG
 HNWL          SLL   2  1
 HPB=          BPZ   2  MCHECKTROK   
 HPTW          BZE   1  MCHECKTRG
 HQ*G          SLL   2  2
 HQT6          BNG   2  MCHECKTROK   
 HR#Q    MCHECKTRG   
 HRSB          GEOERR   1,PERIREP
 HS#2    MCHECKTROK  
 HSRL    )   
 HT?=          LDX   1  FX1  
 HTQW          LDX   2  FX2  
 HW=G    #STR  %C
 HWQ6    (   
 HX9Q          SRC   0  1
 HXPB          BNG   0  %C   
 HY92    )   
 HYNL          BNZ   0  %B   
 H^8=    #NOR
</code>