FI

(GIN Macro)

Defined in: IFMACS

Used in: ARCHIVE867, ASTONIF867, CONSET864, EDITPT867, EDWRITE867, FORMLOOP865, GETFREE867, GETFREEB864, GETWORD867, HOWBIG867, IDFASAT867, IDFCONF867, IPBLISTA867, IPBLISTD867, LISTDIRF867, LISTFILE867, LISTIDF867, LISTINIT867, LISTLOOP867, LISTNEXT867, LISTOPEN867, LISTPARS867, LISTRING864, MESSAB, MESSAF, OPER864, OPERA864, OPERAPP864, OPERIN867, PCTBEGIN863, PERCON867, PERFCHAP866, PERFPASS864, RAECOMMS867, SHOWCOMM864, TPOBJ867, TROBJ867, WA864, WHATGENS867, WHATPROP865, WHATRVS867, WHATRVSA867, WLA867, WLAA867, WLB867, WLC867, WLD864, WLE862, WLF862, WLG862, WLOUT865

FI.mac.txt

 3KQ=    [   
 3L9W    [   
 3LPG    [??? FI SECT DEVT FGN 1 DOC 
 3M96    [   
 3MNQ    #MAC           FI   
 3N8B    [              ==   
 3NN2    [   
 3P7L    [ ENSURES:  
 3PM=    [     DEPTH NON-ZERO
 3Q6W    [     CURRENT STRUCTURE = CONDITIONAL   
 3QLG    [     'OR' NOT EXPECTED 
 3R66    [     'THEN' FOUND  
 3RKQ    [ COMPILES: 
 3S5B    [     'ELSE' LABEL  
 3SK2    [     LABEL FOR END OF CONDITIONAL  
 3T4L    [ SETS: 
 3TJ=    [     DEPTH DOWN, RETRACTS THE THREE STACK IDENTIFIERS  
 3W3W    [   
 3WHG    #UNS           NESTDEPTH
 3X36    (   
 3XGQ          STRUCTURE 1,OFF   
 3Y2B          FLAGTEST FI,0,NOT,1,,THEN 
 3YG2    #SKI           NESTDEPTH/9         [INCLUDE IF NESTDEPTH 9-16 INCLUSIVE 
 3Y^L    (   
 3^F=    #ALT           20?=NESTDEPTH-9  
 3^YW          NESTLABEL NIF7,FREE,NIF8,FREE 
 42DG          ALTDEPTH -1   
 42Y6    #EXI
 43CQ    )   
 43XB    [ELSE INCLUDE IF NESTDEPTH 1-8 INCLUSIVE
 44C2    #ALT           20?=NESTDEPTH-1  
 44WL          NESTLABEL NIF2,FREE,NIF3,FREE 
 45B=          ALTDEPTH -1   
 45TW    #EXI
 46*G    )   
 46T6    !! MEANINGLESS AT NESTING DEPTH ZERO !! 
 47#Q    #NOR