9DQL [ 9F== [ 9FPW [??? GOIFALSE SECT DEVT FGN 1 DOC 9G9G [ 9GP6 #MAC GOIFALSE 9H8Q [ ======== 9HNB [ 9J82 [ 9JML [ %A - LABEL ROOT FOR STANDARD JUMP 9K7= [ %B - LABEL ROOT FOR IF 'EITHER' GIVEN, I.E. 'OR' EXPECTED TO FOLLOW 9KLW [ %C ... PARAMETERS TO THE CALLING USER LEVEL MACRO 9L6G [ 9LL6 [ IF 'EITHER' GIVEN THEN 9M5Q ...[ SETS 'OR EXPECTED' IN 'NESTEITHERS' 9MKB [ CALLS 'GOIFTRUE' WITHOUT THE 'EITHER' AND WITH %A, %B REVERSED 9N52 [ ELSE INVERTS JUMP DIRECTION BY 'IFN' MACRO 9NJL [ 9P4= #STR BOTH,%C ['BOTH' HAS NO EFFECT 9PHW #SKI 9Q3G ( 9QH6 GOIFALSE %A,%B,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T- 9R2Q ,%U,%V 9RGB #EXI 9S22 ) 9SFL #STR EITHER,%C ['EITHER' CHANGES JUMP 9S^= #SKI 9TDW ( 9TYG #ALT NESTEITHERS=NESTEITHERS^1 [SET 'EITHER' 9WD6 GOIFTRUE %B,%A,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T- 9WXQ ,%U,%V 9XCB #EXI 9XX2 ) 9YBL #ACC %C 9YW= ( 9^*W #STR +,%C 9^TG ( =2*6 IFN%C %A,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U- =2SQ ,%V,%W =3#B [ E.G. IFNCS NIF2 =3S2 [ OR IFNBS NIF1,2,BIT1 =4?L #EXI =4R= ) =5=W ) =5QG IFN%D %A,%C,%E =6=6 [ E.G. IFNGE NIF1,0,GSIGN =6PQ #NOR