(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
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