RINGPURG

(GIN Macro)

Defined in: COREMACROS

Used in: IDFPER867

RINGPURG.mac.txt

 B9*D ...[??? RINGPURG SECT CENT FGN 32 DOC  
 B9K=    # CLEAR OUT REDUNDANT RINGS BY CLEARING LOWER FIELD OF ARINGNO  
 B=4W    #MAC RINGPURG   
 B=JG          LDN   0  0
 B?46     MOD  DLA   0  ARINGNO,%A   
 B?HQ    #NOR