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

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

**Used in:** [[george:source:KARTCONT867|KARTCONT867]], [[george:source:SETDISC866|SETDISC866]]

<code - STUBASE.mac.txt>
 T^2L    #   
 T^G=    [???                                STUBASE 
 T^^W    #                                   ******* 
 W2FG    #MAC  STUBASE   
 W2^6    #   
 W3DQ          LDN   %C 0
 W3YB          LDX   0  BSUNIT1(%A)  
 W4D2          ANDN  0  #77  
 W4XL          SBN   0  AFDS 
 W5C=          BNZ   0  MSTUBASE1
 W5WW          LDX   %C FDSTART  
 W6BG    MSTUBASE1   
 W6W6    #NOR
</code>