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

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

**Used in:** [[george:source:BMCNTRL866|BMCNTRL866]], [[george:source:CONSET864|CONSET864]], [[george:source:DTSUBS867|DTSUBS867]], [[george:source:FINISH867|FINISH867]], [[george:source:FORMLOOP865|FORMLOOP865]], [[george:source:HLSREAD867|HLSREAD867]], [[george:source:IDFCONF867|IDFCONF867]], [[george:source:IPBLISTA867|IPBLISTA867]], [[george:source:IPBLISTD867|IPBLISTD867]], [[george:source:IPBMOPC867|IPBMOPC867]], [[george:source:LIBREQ866|LIBREQ866]], [[george:source:LIBREQC867|LIBREQC867]], [[george:source:LISTOPEN867|LISTOPEN867]], [[george:source:LISTRING864|LISTRING864]], [[george:source:LOAD60|LOAD60]], [[george:source:MOVCART867|MOVCART867]], [[george:source:MULTIPLX864|MULTIPLX864]], [[george:source:OPER864|OPER864]], [[george:source:OPERA864|OPERA864]], [[george:source:OPERAPP864|OPERAPP864]], [[george:source:OPERIN867|OPERIN867]], [[george:source:PCTBEGIN863|PCTBEGIN863]], [[george:source:PROFLAG83|PROFLAG83]], [[george:source:SCEDITAR84|SCEDITAR84]], [[george:source:SCEDITOR84|SCEDITOR84]], [[george:source:SHOWCOMM864|SHOWCOMM864]], [[george:source:WA864|WA864]], [[george:source:WHATPROP865|WHATPROP865]], [[george:source:WHATRVS867|WHATRVS867]], [[george:source:WHATRVSA867|WHATRVSA867]], [[george:source:WLA867|WLA867]], [[george:source:WLAA867|WLAA867]], [[george:source:WLB867|WLB867]], [[george:source:WLC867|WLC867]], [[george:source:WLD864|WLD864]], [[george:source:WLE862|WLE862]], [[george:source:WLF862|WLF862]], [[george:source:WLG862|WLG862]], [[george:source:WLOUT865|WLOUT865]]

<code - REPEAT.mac.txt>
 7NKQ    [   
 7P5B    [   
 7PK2    [??? REPEAT SECT DEVT FGN 1 DOC 
 7Q4L    [   
 7QJ=    #MAC           REPEAT   
 7R3W    [              ======   
 7RHG    [   
 7S36    [ ENSURES:  
 7SGQ    [     DEPTH NON-ZERO
 7T2B    [     CURRENT STUCTURE = ITERATION  
 7TG2    [     'DO' FOUND
 7T^L    [     'OR' NOT EXPECTED 
 7WF=    [ COMPILES: 
 7WYW    [     A JUMP OR BRANCH  
 7XDG    [     LABEL FOR END OF ITERATION
 7XY6    [ SETS: 
 7YCQ    [     DEPTH DOWN, RETRACTS THE THREE STACK IDENTIFIERS  
 7YXB    [   
 7^C2    #UNS           NESTDEPTH
 7^WL    (   
 82B=          STRUCTURE 0,OFF   
 82TW          FLAGTEST REPEAT,0,NOT,1,,DO   
 83*G    #STR           UNTIL,%A 
 83T6    (   
 84#Q    #SKI           NESTDEPTH/9         [INCLUDE IF NESTDEPTH 9-16 INCLUSIVE 
 84SB    (   
 85#2    #ALT           20?=NESTDEPTH-9  
 85RL    #STR           %A   
 86?=          NESTFBRANCH %A,NIF5   
 86QW    #STR           %A   
 87=G    #SKI
 87Q6          NESTFBRANCH RN,NIF5   
 889Q    #ALT           20?=NESTDEPTH-9  
 88PB          NESTLABEL NIF7,FREE   
 8992    #ALT           20?=NESTDEPTH-9  
 89NL          ALTDEPTH -1   
 8=8=    #EXI
 8=MW    )   
 8?7G    #ALT           20?=NESTDEPTH-1  
 8?M6    #STR           %A   
 8#6Q          NESTFBRANCH %A,NIF0   
 8#LB    #STR           %A   
 8*62    #SKI
 8*KL          NESTFBRANCH RN,NIF0   
 8B5=    #ALT           20?=NESTDEPTH-1  
 8BJW          NESTLABEL NIF2,FREE   
 8C4G    #ALT           20?=NESTDEPTH-1  
 8CJ6          ALTDEPTH -1   
 8D3Q    #EXI
 8DHB    )   
 8F32    #SKI           NESTDEPTH/9  
 8FGL    (   
 8G2=          GOIFALSE NIF5,NIF5,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%-
 8GFW    Q,%R,%S,%T,%U   
 8G^G    #ALT           20?=NESTDEPTH-9  
 8HF6    #ALT           21?=20?  
 8HYQ          NESTLABEL NIF7,FREE   
 8JDB    #ALT           20?=21?  
 8JY2          NESTFREE NIF5 
 8KCL          ALTDEPTH -1   
 8KX=    #EXI
 8LBW    )   
 8LWG          GOIFALSE NIF0,NIF0,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%-
 8MB6    Q,%R,%S,%T,%U   
 8MTQ    #ALT           20?=NESTDEPTH-1  
 8N*B    #ALT           21?=20?  
 8NT2          NESTLABEL NIF2,FREE   
 8P#L    #ALT           20?=21?  
 8PS=          NESTFREE NIF0 
 8Q?W          ALTDEPTH -1   
 8QRG    #EXI
 8R?6    )   
 8RQQ    !! MEANINGLESS AT NESTING DEPTH ZERO !! 
 8S=B    #NOR
</code>