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

**Defined in:** [[george:source:COREMACROS|COREMACROS]]

**Used in:** 

<code - ZERORING.mac.txt>
 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
</code>