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

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

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

<code - WORDST.mac.txt>
 ##J6    #   
 #*3Q    [???                                WORDST  
 #*HB    #                                   ******  
 #B32    #MAC  WORDST
 #BGL    #   
 #C2=    #OPT  MWORDST1=0
 #CFW          CALL  0  MWORDST2 
 #C^G          LDX   0  %A   
 #DF6    #SKI  MWORDST1-1
 #DYQ    (   
 #FDB    #FRE  MWORDST1  
 #FY2    #DEF  MWORDST1=1
 #GCL          BRN      MWORDST3 
 #GX=    MWORDST4
 #HBW    #DEF  MWORDST2=MWORDST4 
 #HWG          STO   0  ETLINK(3)
 #JB6          STO   1  EWK+1(3) 
 #JTQ          SMO      0
 #K*B          OBEY     0
 #KT2          STO   0  EWK(3)   
 #L#L          CALL  0  MFTRANC  
 #LS=          BRN      MTRANERR 
 #M?W          LDX   0  A1+1(1)  
 #MRG          SLL   0  7
 #N?6          SBN   0  FBUFR(1) 
 #NQQ          ADS   0  EWK(3)   
 #P=B          LDX   0  ETLINK(3)
 #PQ2          LDX   1  EWK+1(3) 
 #Q9L          EXIT  0  1
 #QP=          TRANERR   
 #R8W          FTRANC
 #RNG    MWORDST3
 #S86    )   
 #SMQ    #NOR
</code>