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

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

**Used in:** [[george:source:CONSET864|CONSET864]], [[george:source:EDITER867|EDITER867]], [[george:source:FORMLOOP865|FORMLOOP865]], [[george:source:GETFREE867|GETFREE867]], [[george:source:GETFREEB864|GETFREEB864]], [[george:source:IDFASAT867|IDFASAT867]], [[george:source:IDFCONF867|IDFCONF867]], [[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:MESSA|MESSA]], [[george:source:MESSAA|MESSAA]], [[george:source:MESSAB|MESSAB]], [[george:source:MESSAC|MESSAC]], [[george:source:MESSAD|MESSAD]], [[george:source:MESSAF|MESSAF]], [[george:source:MESSAG|MESSAG]], [[george:source:MESSAI|MESSAI]], [[george:source:MESSBA|MESSBA]], [[george:source:MESSBB|MESSBB]], [[george:source:MESSBE|MESSBE]], [[george:source:MESSBH|MESSBH]], [[george:source:MESSBJ|MESSBJ]], [[george:source:MESSCA|MESSCA]], [[george:source:MESSCB|MESSCB]], [[george:source:MESSCD|MESSCD]], [[george:source:MESSCI|MESSCI]], [[george:source:MESSDC|MESSDC]], [[george:source:MESSDJ|MESSDJ]], [[george:source:MESSE|MESSE]], [[george:source:MESSF|MESSF]], [[george:source:MESSI|MESSI]], [[george:source:OPER864|OPER864]], [[george:source:OPERA864|OPERA864]], [[george:source:OPERAPP864|OPERAPP864]], [[george:source:OPERIN867|OPERIN867]], [[george:source:PERCON867|PERCON867]], [[george:source:PMACT867|PMACT867]], [[george:source:PMCHECK867|PMCHECK867]], [[george:source:SHOWCOMM864|SHOWCOMM864]], [[george:source:TPOBJ867|TPOBJ867]], [[george:source:TROBJ867|TROBJ867]], [[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 - AND.mac.txt>
 5J==    [   
 5JPW    [   
 5K9G    [??? AND SECT DEVT FGN 1 DOC
 5KP6    [   
 5L8Q    #MAC           AND  
 5LNB    [              ===  
 5M82    [   
 5MML    [ ENSURES:  
 5N7=    [     DEPTH NON-ZERO
 5NLW    [     'THEN' / 'DO' NOT FOUND   
 5P6G    [     'OR' EXPECTED 
 5PL6    [ COMPILES: 
 5Q5Q    [     A JUMP OR BRANCH  
 5QKB    [     LABEL FOR START OF NEXT CONDITION STEP
 5R52    [   
 5RJL    #UNS           NESTDEPTH
 5S4=    (   
 5SHW          FLAGTEST AND,0,NOT,0,NOT,THEN/DO  
 5T3G    #SKI           NESTDEPTH/9  
 5TH6    (   
 5W2Q          GOIFALSE NIF7,NIF6,%A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%-
 5WGB    P,%Q,%R,%S,%T,%U,%V 
 5X22    #ALT           20?=NESTDEPTH-9  
 5XFL    #STR           EITHER,%A
 5X^=    (   
 5YDW          NESTLABEL NIF6,FREE   
 5YYG    #EXI
 5^D6    )   
 5^XQ          NESTLABEL NIF7,FREE   
 62CB    #EXI
 62X2    )   
 63BL          GOIFALSE NIF2,NIF1,%A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%-
 63W=    P,%Q,%R,%S,%T,%U,%V 
 64*W    #ALT           20?=NESTDEPTH-1  
 64TG    #STR           EITHER,%A
 65*6    (   
 65SQ          NESTLABEL NIF1,FREE   
 66#B    #EXI
 66S2    )   
 67?L          NESTLABEL NIF2,FREE   
 67R=    #EXI
 68=W    )   
 68QG    !! MEANINGLESS AT NESTING DEPTH ZERO !! 
 69=6    #NOR
</code>