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

**Defined in:** [[george:source:MACROS_VB|MACROS VB]]

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

<code - STEPASET.mac.txt>
 3DT# ...[??? STEPASET SECT CENT FGN 7 DOC   
 3DW2    [STEPASET - A1+1=0 ON 1ST ENTRY 
 3F*L    #MAC  STEPASET  
 3FT=          LDX   3  %A   
 3G#W          ADX   3  A1+1(3)  
 3GSG          TXU   3  %A   
 3H#6          BCS      M1STEPA  
 3HRQ          ADN   3  A1+2 
 3J?B          BRN      M4STEPA  
 3JR2    M2STEPA 
 3K=L          STEPARAM 3,0  
 3KQ=    M4STEPA 
 3L9W          LDXC  0  0(3) 
 3LPG          BCC      M1STEPA  
 3M96          SBN   0  JPD%B
 3MNQ          ANDN  0  #77  
 3N8B          BZE   0  M3STEPA  
 3NN2    M1STEPA 
 3P7L          LDN   0  4095 
 3PM=     MOD  ADS   0  A1,%A
 3Q6W     MOD  ANDX  0  A1,%A
 3QLG          BNZ   0  M2STEPA  
 3R66          LDX   3  %A   
 3RKQ          LDX   0  A1(3)
 3S5B          SRL   0  12   
 3SK2          STO   0  A1(3)
 3T4L          STOZ     A1+1(3)  
 3TJ=          NGX   3  BITS22LS 
 3W3W          BRN      M5STEPA  
 3WHG    M3STEPA 
 3X36          NGX   0  %A   
 3XGQ          ADX   0  3
 3Y2B     MOD  STO   0  A1+1,%A  
 3YG2    #STR  %C
 3Y^L    (   
 3^F=          LDX   %C 0(3) 
 3^YW          SRL   %C 6
 42DG          ANDN  %C 4095 
 42Y6    )   
 43CQ          ADN   3  1
 43XB    M5STEPA 
 44C2    #NOR
</code>