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

**Defined in:** [[george:source:MACROS_PERI|MACROS PERI]]

**Used in:** [[george:source:CHTAB|CHTAB]], [[george:source:GROPE867|GROPE867]], [[george:source:INKS|INKS]], [[george:source:PERFLOGS866|PERFLOGS866]]

<code - GROPE.mac.txt>
 6RRW    #MAC  GROPE 
 6S?G          LDX   2  FX2  
 6SR6    #STR  %A
 6T=Q    #SKI
 6TQB          LDX   1  CPPTR(2) 
 6W=2    #STR  %A
 6WPL    (   
 6X9=    #STR  %A,1  
 6XNW          LDX   1  %A   
 6Y8G    )   
 6YN6          LDX   0  GSIGN
 6^7Q          STO   0  CHAINADD(2)  
 6^MB          ADN   0  CHAINADD(2)  
 7272          STO   0  JCCA5(1) 
 72LL          LDN   0  CPRW1(2) 
 736=          STO   0  JCCA1(1) 
 73KW    #MOD  %B
 745G    (   
 74K6          LDX   0  %B   
 754Q          ADN   0  A1   
 75JB    )   
 7642    #MOD  %B
 76HL    #SKI
 773=          LDN   0  A1(%B)   
 77GW          DCA   1,STO,0,CTSA
 782G          LDN   0  4
 78G6          DCA   1,STO,0,COUNT   
 78^Q          LDX   0  1
 79FB          LDX   1  FX1  
 79^2          '171  0  7   [DO ACTUAL GROPE 
 7=DL          BNG   0  %C   [J IF REJECTED  
 7=Y=          COOR1 
 7?CW          LDCT  0  #040 
 7?XG          ANDX  0  CPRW1(2) 
 7#C6          BNZ   0  %C   
 7#WQ    #NOR
</code>