ELSF

(GIN Macro)

Defined in: IFMACS

Used in: FORMLOOP865, LISTOPEN867, LISTRING864, OPER864, OPERA864, OPERAPP864, OPERIN867, SHOWCOMM864, WA864, WHATRVSA867, WLA867, WLAA867, WLB867, WLC867, WLD864, WLE862, WLOUT865

ELSF.mac.txt

 47SB    [   
 48#2    [   
 48RL    [??? ELSF SECT DEVT FGN 1 DOC   
 49?=    [   
 49QW    #MAC           ELSF 
 4==G    [              ==== 
 4=Q6    [   
 4?9Q    [ ENSURES:  
 4?PB    [     DEPTH NON-ZERO
 4#92    [     CURRENT STRUCTURE = CONDITIONAL   
 4#NL    [     'OR' NOT EXPECTED 
 4*8=    [     'THEN' FOUND  
 4*MW    [ SETS: 
 4B7G    [     'THEN' NOT FOUND  
 4BM6    [ COMPILES: 
 4C6Q    [     BRN TO END OF CONDITIONAL 
 4CLB    [     'ELSE' LABEL  
 4D62    [     A JUMP OR BRANCH  
 4DKL    [   
 4F5=    #UNS           NESTDEPTH
 4FJW    (   
 4G4G          STRUCTURE 1,CHECK 
 4GJ6          FLAGTEST ELSF,0,NOT,1,,THEN   
 4H3Q    #ALT           NESTFLAG=NESTFLAG$1 [CLEAR 'THEN'
 4HHB    #SKI           NESTDEPTH/9  
 4J32    (   
 4JGL    #ALT           20?=NESTDEPTH-9  
 4K2=          NESTBRANCH RN,NIF8
 4KFW    #ALT           20?=NESTDEPTH-9  
 4K^G          NESTLABEL NIF7,FREE   
 4LF6    #ALT           20?=NESTDEPTH-9  
 4LYQ          GOIFALSE NIF7,NIF6,%A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%-
 4MDB    P,%Q,%R,%S,%T,%U,%V 
 4MY2    #EXI
 4NCL    )   
 4NX=    #ALT           20?=NESTDEPTH-1  
 4PBW          NESTBRANCH RN,NIF3
 4PWG    #ALT           20?=NESTDEPTH-1  
 4QB6          NESTLABEL NIF2,FREE   
 4QTQ    #ALT           20?=NESTDEPTH-1  
 4R*B          GOIFALSE NIF2,NIF1,%A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%-
 4RT2    P,%Q,%R,%S,%T,%U,%V 
 4S#L    #EXI
 4SS=    )   
 4T?W    !! MEANINGLESS AT NESTING DEPTH ZERO !! 
 4TRG    #NOR