{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: OR)}}
====== OR ======
(GIN Macro)

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

**Used in:** [[george:source:CDUM866|CDUM866]], [[george:source:CHNUMCON867|CHNUMCON867]], [[george:source:FORMLOOP865|FORMLOOP865]], [[george:source:INCRCUBX860|INCRCUBX860]], [[george:source:IPBLISTA867|IPBLISTA867]], [[george:source:IPBLISTD867|IPBLISTD867]], [[george:source:LISTAST867|LISTAST867]], [[george:source:LISTOPEN867|LISTOPEN867]], [[george:source:LISTPARS867|LISTPARS867]], [[george:source:LISTRING864|LISTRING864]], [[george:source:LOADERI867|LOADERI867]], [[george:source:LOADERMT867|LOADERMT867]], [[george:source:MESSA|MESSA]], [[george:source:MESSAB|MESSAB]], [[george:source:MESSAC|MESSAC]], [[george:source:MESSAE|MESSAE]], [[george:source:MESSAJ|MESSAJ]], [[george:source:MESSB|MESSB]], [[george:source:MESSBH|MESSBH]], [[george:source:MESSC|MESSC]], [[george:source:MESSCC|MESSCC]], [[george:source:MESSCG|MESSCG]], [[george:source:MESSCH|MESSCH]], [[george:source:MESSCI|MESSCI]], [[george:source:MESSCJ|MESSCJ]], [[george:source:MESSD|MESSD]], [[george:source:MESSDA|MESSDA]], [[george:source:MESSDB|MESSDB]], [[george:source:MESSE|MESSE]], [[george:source:MESSH|MESSH]], [[george:source:MESSI|MESSI]], [[george:source:OPER864|OPER864]], [[george:source:OPERA864|OPERA864]], [[george:source:OPERIN867|OPERIN867]], [[george:source:PMBUFFS84|PMBUFFS84]], [[george:source:RESTERR864|RESTERR864]], [[george:source:SHOWCOMM864|SHOWCOMM864]], [[george:source:WA864|WA864]], [[george:source:WHATRVS867|WHATRVS867]], [[george:source:WHATRVSA867|WHATRVSA867]], [[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:WLOUT865|WLOUT865]], [[george:source:WTSTAT867|WTSTAT867]]

<code - OR.mac.txt>
 4W?6    [   
 4WQQ    [   
 4X=B    [??? OR SECT DEVT FGN 1 DOC 
 4XQ2    [   
 4Y9L    #MAC           OR   
 4YP=    [              ==   
 4^8W    [   
 4^NG    [ ENSURES:  
 5286    [     DEPTH NON-ZERO
 52MQ    [     'THEN' / 'DO' NOT FOUND   
 537B    [     'OR' EXPECTED 
 53M2    [ COMPILES: 
 546L    [     A JUMP OR BRANCH  
 54L=    [     LABEL FOR START OF NEXT CONDITION STEP
 555W    [   
 55KG    #UNS           NESTDEPTH
 5656    (   
 56JQ          FLAGTEST OR,1,,0,NOT,THEN/DO  
 574B    #ALT           NESTEITHERS=NESTEITHERS$1 [CLEAR 'EITHER'
 57J2    #SKI           NESTDEPTH/9  
 583L    (   
 58H=          GOIFALSE NIF7,NIF6,%A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%-
 592W    P,%Q,%R,%S,%T,%U,%V 
 59GG    #ALT           20?=NESTDEPTH-9  
 5=26    #STR           EITHER,%A
 5=FQ    (   
 5=^B          NESTLABEL NIF6,FREE   
 5?F2    #EXI
 5?YL    )   
 5#D=          NESTLABEL NIF7,FREE   
 5#XW    #EXI
 5*CG    )   
 5*X6          GOIFALSE NIF2,NIF1,%A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%-
 5BBQ    P,%Q,%R,%S,%T,%U,%V 
 5BWB    #ALT           20?=NESTDEPTH-1  
 5CB2    #STR           EITHER,%A
 5CTL    (   
 5D*=          NESTLABEL NIF1,FREE   
 5DSW    #EXI
 5F#G    )   
 5FS6          NESTLABEL NIF2,FREE   
 5G?Q    #EXI
 5GRB    )   
 5H?2    !! MEANINGLESS AT NESTING DEPTH ZERO !! 
 5HQL    #NOR
</code>