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