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

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

**Used in:** 

<code - GOIFTRUE.mac.txt>
 =79B    [   
 =7P2    [   
 =88L    [??? GOIFTRUE SECT DEVT FGN 1 DOC   
 =8N=    [   
 =97W    #MAC           GOIFTRUE 
 =9MG    [              ======== 
 ==76    [   
 ==LQ    [   
 =?6B    [ %A - LABEL ROOT FOR STANDARD JUMP 
 =?L2    [ %B - LABEL ROOT FOR IF 'EITHER' GIVEN, I.E. 'OR' EXPECTED TO FOLLOW   
 =#5L    [ %C ... PARAMETERS TO THE CALLING USER LEVEL MACRO 
 =#K=    [   
 =*4W    [ IF 'EITHER' GIVEN THEN
 =*JG ...[     SETS 'OR EXPECTED' IN 'NESTEITHERS'   
 =B46    [     CALLS 'GOIFALSE' WITHOUT THE 'EITHER' AND WITH %A, %B REVERSED
 =BHQ    [ ELSE CALLS 'JUMPIF' OR 'BRANCHIF' TO COMPILE THE BRANCH   
 =C3B    [   
 =CH2    #STR           BOTH,%C             ['BOTH' HAS NO EFFECT
 =D2L    #SKI
 =DG=    (   
 =D^W          GOIFTRUE %A,%B,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T-
 =FFG    ,%U,%V  
 =F^6    #EXI
 =GDQ    )   
 =GYB    #STR           EITHER,%C           ['EITHER' CHANGES JUMP   
 =HD2    #SKI
 =HXL    (   
 =JC=    #ALT           NESTEITHERS=NESTEITHERS^1 [SET 'EITHER'  
 =JWW          GOIFALSE %B,%A,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T-
 =KBG    ,%U,%V  
 =KW6    #EXI
 =L*Q    )   
 =LTB    #ACC           %C   
 =M*2    (   
 =MSL    #STR           +,%C 
 =N#=    (   
 =NRW    #STR           %D   
 =P?G    (   
 =PR6          JUMPIF   %C,%A,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T-
 =Q=Q    ,%U,%V,%W   
 =QQB    [ E.G. JUMPIF MBS,NIF2,2,ENPR,FSTAR 
 =R=2    #EXI
 =RPL    )   
 =S9=          BRANCHIF %A,%C
 =SNW    [ E.G. BRANCHIF NIF1,CS 
 =T8G    #EXI
 =TN6    )   
 =W7Q    )   
 =WMB          BRANCHIF %A,%D,%C,%E  
 =X72    [ E.G. BRANCHIF NIF2,GE,0,GSIGN 
 =XLL    #NOR
</code>