6JP# ...[??? ZERORING SECT CENT FGN 32 DOC  
 6J^6    [   
 6KDQ    [THIS IS A RECURSIVE MACRO WHICH INITIALISES ALL RING ELEMENTS IN A 
 6KYB    [QUEUE BLOCK UP TO BUT NOT INCLUDING CHAINADD/BACKCHAN  
 6LD2    [   
 6LXL    #MAC  ZERORING  
 6MC=    #OPT  MZERORING1=%A 
 6MWW    #OPT  MZERORING=1   
 6NBG    #SKI  CHAINADD-ARINGNO-1-MZERORING1 
 6NW6    (   
 6P*Q    #SKI  MZERORING 
 6PTB    (   
 6Q*2          LDX   3  FPTR(2)  
 6QSL    #FRE  MZERORING 
 6R#=    #OPT  MZERORING=0   
 6RRW    )   
 6S?G          STOZ     ARINGNO+MZERORING1+2(3)  
 6SR6    #FRE  MZERORING1
 6T=Q          ZERORING %A+2 
 6TQB    )   
 6W=2    #FRE  MZERORING1,MZERORING  
 6WPL    #NOR