GROPE

(GIN Macro)
Used in: CHTAB, GROPE867, INKS, PERFLOGS866
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