REPEAT
(GIN Macro)
Defined in: IFMACS
Used in: BMCNTRL866, CONSET864, DTSUBS867, FINISH867, FORMLOOP865, HLSREAD867, IDFCONF867, IPBLISTA867, IPBLISTD867, IPBMOPC867, LIBREQ866, LIBREQC867, LISTOPEN867, LISTRING864, LOAD60, MOVCART867, MULTIPLX864, OPER864, OPERA864, OPERAPP864, OPERIN867, PCTBEGIN863, PROFLAG83, SCEDITAR84, SCEDITOR84, SHOWCOMM864, WA864, WHATPROP865, WHATRVS867, WHATRVSA867, WLA867, WLAA867, WLB867, WLC867, WLD864, WLE862, WLF862, WLG862, WLOUT865
- REPEAT.mac.txt
7NKQ [ 7P5B [ 7PK2 [??? REPEAT SECT DEVT FGN 1 DOC 7Q4L [ 7QJ= #MAC REPEAT 7R3W [ ====== 7RHG [ 7S36 [ ENSURES: 7SGQ [ DEPTH NON-ZERO 7T2B [ CURRENT STUCTURE = ITERATION 7TG2 [ 'DO' FOUND 7T^L [ 'OR' NOT EXPECTED 7WF= [ COMPILES: 7WYW [ A JUMP OR BRANCH 7XDG [ LABEL FOR END OF ITERATION 7XY6 [ SETS: 7YCQ [ DEPTH DOWN, RETRACTS THE THREE STACK IDENTIFIERS 7YXB [ 7^C2 #UNS NESTDEPTH 7^WL ( 82B= STRUCTURE 0,OFF 82TW FLAGTEST REPEAT,0,NOT,1,,DO 83*G #STR UNTIL,%A 83T6 ( 84#Q #SKI NESTDEPTH/9 [INCLUDE IF NESTDEPTH 9-16 INCLUSIVE 84SB ( 85#2 #ALT 20?=NESTDEPTH-9 85RL #STR %A 86?= NESTFBRANCH %A,NIF5 86QW #STR %A 87=G #SKI 87Q6 NESTFBRANCH RN,NIF5 889Q #ALT 20?=NESTDEPTH-9 88PB NESTLABEL NIF7,FREE 8992 #ALT 20?=NESTDEPTH-9 89NL ALTDEPTH -1 8=8= #EXI 8=MW ) 8?7G #ALT 20?=NESTDEPTH-1 8?M6 #STR %A 8#6Q NESTFBRANCH %A,NIF0 8#LB #STR %A 8*62 #SKI 8*KL NESTFBRANCH RN,NIF0 8B5= #ALT 20?=NESTDEPTH-1 8BJW NESTLABEL NIF2,FREE 8C4G #ALT 20?=NESTDEPTH-1 8CJ6 ALTDEPTH -1 8D3Q #EXI 8DHB ) 8F32 #SKI NESTDEPTH/9 8FGL ( 8G2= GOIFALSE NIF5,NIF5,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%- 8GFW Q,%R,%S,%T,%U 8G^G #ALT 20?=NESTDEPTH-9 8HF6 #ALT 21?=20? 8HYQ NESTLABEL NIF7,FREE 8JDB #ALT 20?=21? 8JY2 NESTFREE NIF5 8KCL ALTDEPTH -1 8KX= #EXI 8LBW ) 8LWG GOIFALSE NIF0,NIF0,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%- 8MB6 Q,%R,%S,%T,%U 8MTQ #ALT 20?=NESTDEPTH-1 8N*B #ALT 21?=20? 8NT2 NESTLABEL NIF2,FREE 8P#L #ALT 20?=21? 8PS= NESTFREE NIF0 8Q?W ALTDEPTH -1 8QRG #EXI 8R?6 ) 8RQQ !! MEANINGLESS AT NESTING DEPTH ZERO !! 8S=B #NOR