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

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

**Used in:** [[george:source:CONSET864|CONSET864]], [[george:source:FINISH867|FINISH867]], [[george:source:FORMLOOP865|FORMLOOP865]], [[george:source:IDFCONF867|IDFCONF867]], [[george:source:IPBLISTA867|IPBLISTA867]], [[george:source:IPBLISTD867|IPBLISTD867]], [[george:source:LISTOPEN867|LISTOPEN867]], [[george:source:LISTRING864|LISTRING864]], [[george:source:MESSAH|MESSAH]], [[george:source:MESSDJ|MESSDJ]], [[george:source:OPER864|OPER864]], [[george:source:OPERA864|OPERA864]], [[george:source:OPERAPP864|OPERAPP864]], [[george:source:OPERIN867|OPERIN867]], [[george:source:PCTBEGIN863|PCTBEGIN863]], [[george:source:WA864|WA864]], [[george:source:WHATPROP865|WHATPROP865]], [[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 - WHILE.mac.txt>
 69PQ    [   
 6=9B    [   
 6=P2    #   
 6?8L    [??? WHILE SECT DEVT FGN 1 DOC  
 6?N=    [   
 6#7W    #MAC           WHILE
 6#MG    [              =====
 6*76    [   
 6*LQ    [ SETS: 
 6B6B    [     DEPTH UP, ADVANCES THE THREE STACK IDENTIFIERS
 6BL2    [     CURRENT STUCTURE = ITERATION  
 6C5L    [     'DO' NOT FOUND
 6CK=    [     'OR' NOT EXPECTED 
 6D4W    [ COMPILES: 
 6DJG    [     LABEL FOR START OF ITERATION  
 6F46    [     A JUMP OR BRANCH  
 6FHQ    [   
 6G3B    #OPT           NESTREASON=0 
 6GH2    #OPT           NESTDEPTH=0  
 6H2L    #OPT           NESTFLAG=0   
 6HG=    #OPT           NESTEITHERS=0
 6H^W          STRUCTURE 0,ON
 6JFG          ALTDEPTH +1   
 6J^6    #SKI           NESTDEPTH/9         [INCLUDE IF NESTDEPTH 9-16 INCLUSIVE 
 6KDQ    (   
 6KYB    #ALT           20?=NESTDEPTH-9  
 6LD2          NESTLABEL NIF5
 6LXL          GOIFALSE NIF7,NIF6,%A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%-
 6MC=    P,%Q,%R,%S,%T,%U,%V 
 6MWW    #EXI
 6NBG    )   
 6NW6    #ALT           20?=NESTDEPTH-1  
 6P*Q          NESTLABEL NIF0
 6PTB          GOIFALSE NIF2,NIF1,%A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%-
 6Q*2    P,%Q,%R,%S,%T,%U,%V 
 6QSL    #NOR
</code>